Un TRISKELL en courbes !

Et voilà le travail, chers panoramiciens ! Faites ce que vous voulez pour les couleurs, les enjolivures et autres décorations.

Code:: REM ============================================================
REM Auteur: Parpaiun
REM Date-version: 16/05/2015
REM ============================================================
dim fact,hp,hpp,p$,rad,wp,wpp,x,y
rad=(atn(1)*4)/180
caption 0,"TRISKELL EN COURBES"
REM ============================================================
REM Paramètres
fact=3 :' Facteur de réduction de l'image
wpp = 2800 : hpp = 2800
wp = wpp/fact : hp = hpp / fact
width 0,wp : height 0,hp
2d_pen_width 3
REM ============================================================
REM Bordures
2d_circle 460,450,420
2d_circle 460,450,400
REM ============================================================
REM Tracé des courbes
x=500 : y=210
arc(x,y,42,247,245,1)
arc(x,y,103,0,180,1)
arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1)
arc(x,y,123,208,34,-1)
arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1)
arc(x,y,101,58,184,-1)
arc(x,y,60,240,139,-1)
'
arc(x,y,42,130,245,1)
arc(x,y,103,241,180,1)
arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1)
arc(x,y,145,89,210,-1)
arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1)
arc(x,y,41,9,248,1)
arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1)
arc(x,y,185,120,150.5,1)

arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1)
arc(x,y,103,179.5,180,-1)
arc(x,y,61,0,140,-1)

END

REM ===========================================================
SUB arc(ax,ay,ar,ad,al,at)
dim_local mx,my,n,th
ad=(360-ad)*rad
n=int(0.5 + ar *(al*rad))
for th = 1 to n
if th>1 then 2d_line mx,my,ax,ay
mx=ax:my=ay
ax=ax+cos(ad)
ay=ay+sin(ad)
ad=ad+at/ar
if scancode=27 then END
next th
x=ax:y=ay
END_SUB

N'oubliez pas l'apéro pour ce soir ! de Parpaiun lol!

Bravo pour ce code parfaitement maîtrisé.

Pour la couleur, fais leurs confiance Parpaiun. Wink

Magnifique, je t'ofre un verre ce soir.
Pour la colorisation, j'ai fais au plus simple:

Code:: REM ============================================================
REM Auteur: Parpaiun
REM Date-version: 16/05/2015
REM ============================================================
dim rad : rad=(atn(1)*4)/180
dim x,y : x=500 : y=190
caption 0,"TRISKELL EN COURBES"
width 0,920 : height 0,900
2d_pen_width 3 : 2d_fill_color 180,100,100 : 2d_circle 460,430,429
2d_fill_color 100,100,180 : 2d_circle 460,430,399
arc(x,y,42,247,245,1) : arc(x,y,103,0,180,1) : arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1) : arc(x,y,123,208,34,-1) : arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1): arc(x,y,101,58,184,-1) : arc(x,y,60,240,139,-1)
arc(x,y,42,130,245,1) : arc(x,y,103,241,180,1) : arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1): arc(x,y,145,89,210,-1) : arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1): arc(x,y,41,9,248,1) : arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1) : arc(x,y,185,120,150.5,1) : arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1) : arc(x,y,103,179.5,180,-1) : arc(x,y,61,0,140,-1)
2d_flood 430,60, 180,100,100
END

REM ===========================================================
SUB arc(ax,ay,ar,ad,al,at)
dim_local mx,my,n,th
ad=(360-ad)*rad
n=int(0.5 + ar *(al*rad))
for th = 1 to n
if th>1 then 2d_line mx,my,ax,ay
mx=ax:my=ay : ax=ax+cos(ad) : 1ay=ay+sin(ad) : ad=ad+at/ar
if scancode=27 then END
next th
x=ax:y=ay
END_SUB

Panoramiciens de tous bords, Parpaiun vous invite pour l'apéro ce soir.
Rendez-vous chez Parpaiun à l'heure et à l'adresse indiquées.
Il y aura du PANORAMIC pour tous et un verre pour les autres!

Je remplace momentanément le coloriste officiel du forum.

Code:: REM ============================================================================
REM Auteur: Parpaiun
REM Date-version: 16/05/2015
REM ============================================================================
dim fact,hp,hpp,p$,rad,wp,wpp,x,y
rad=(atn(1)*4)/180
caption 0,"TRISKELL EN COURBES"
REM ============================================================================
REM Paramètres
fact=3 :' Facteur de réduction de l'image
wpp = 2800 : hpp = 2800
wp = wpp/fact : hp = hpp / fact
width 0,wp : height 0,hp
2d_pen_width 3 : color 0,0,0,0
REM ============================================================================
REM Bordures
2d_pen_color 255,255,0 : 2d_circle 460,450,420 : 2d_circle 460,450,400
2d_flood 460,450, 0,150,0 : 2d_flood 870,450,0,0,255
REM ============================================================================
REM Tracé des courbes
x=500 : y=210
arc(x,y,42,247,245,1)
arc(x,y,103,0,180,1)
arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1)
arc(x,y,123,208,34,-1)
arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1)
arc(x,y,101,58,184,-1)
arc(x,y,60,240,139,-1)

arc(x,y,42,130,245,1)
arc(x,y,103,241,180,1)
arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1)
arc(x,y,145,89,210,-1)
arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1)
arc(x,y,41,9,248,1)
arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1)
arc(x,y,185,120,150.5,1)

arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1)
arc(x,y,103,179.5,180,-1)
arc(x,y,61,0,140,-1)
CAPTION 0, CAPTION$(0) + " <CLICK> pour arrêter"
repeat
   2d_flood 460,450,rnd(255),rnd(255),rnd(255) : pause 100
until scancode <> 0

END

REM ============================================================================
SUB arc(ax,ay,ar,ad,al,at)
   dim_local mx,my,n,th
   ad=(360-ad)*rad
   n=int(0.5 + ar *(al*rad))
   for th = 1 to n
   if th>1 then 2d_line mx,my,ax,ay
   mx=ax:my=ay
   ax=ax+cos(ad)
   ay=ay+sin(ad)
   ad=ad+at/ar
   next th
   x=ax:y=ay
END_SUB
rem ================================ FIN =======================================

EDIT :
Le coloriste est revenu.
Ce n'est pas pour ça que je retire mon oeuvre! Laughing

A Jicehel le fidèle, tes couleurs sur le Triskell me vont à ravir !

A Papydall, si Obélix voyait tes changements de couleurs, il trouverait ça bizarre mais joli !

Merci à tous et bon apéro (ici on a du "limoncello", c'est italien et ça fleure bon le citron !)

Ils ont des chapeaux ronds
Vive la Bretagne,
Ils ont des chapeaux ronds
Vivent les bretons ! cheers

Merci Parpaiun, moi honnetement, je n'accroche pas sur la version de Papydall. Pour moi, c'est trop flashi les coloris...
Après les coups et les douleurs ça se discute et il a proposé quelque chose Wink

Après si tu veux un autre défi Parpaiun (mais bon uniquement pour le challenge car le défi du triskell est réussi), tu peux essayer de faire de ton programme une procédure que l'on appelerait par les coordonnées du centre et avec le rayon et qui calculerait le reste pour dessiner le triskell... Mais bon c'est pour le fun donc si tu as envie de faire autre chose, laisses tomber.

» Les Courbes de Bézier cubiques
» Courbes de Bézier cubiques
» Courbes statistiques
» Les Courbes de Bézier cubiques
» On ressort les petites courbes des placards