Un triangle celtique

Oyez, oyez les panoramiciens ! Voici une autre figure de mon cru ! Dès l'apparition de la première figure, attendez un petit moment pour voir apparaître la seconde ! Et colorisez librement selon votre fantaisie !

Code:: caption 0,"TRIANGLE CELTIQUE"
REM
REM Auteur: Parpaiun
REM Date-version: 14/05/2015
'
height 0,570 : width 0,600
dim cx,cy,px,py,rad,u,x,y
u=2000
dim x1(u),y1(u),x2(u),y2(u)
rad=(atn(1)*4)/180
cx=289: cy=260
2d_circle cx,cy,228
px=290: py=410
arcdouble(190,350,180,20)
'
px=420: py=185
arcdouble(70,230,180,20)
'
px=160:py=185
arcdouble(310,110,180,20)
'
wait 3000
2d_clear
rem ========================================================================
rem Tracé d arcs simples
2d_circle cx,cy,248
2d_circle cx,cy,228
2d_pen_width 2
arcsimple(93,374,200,341,87,-1)
arcsimple(356,221,200,80,60,-1)
arcsimple(289,33,200,221,87,-1)
arcsimple(289,337,200,320,61,-1)
arcsimple(487,372,200,101,88,-1)
arcsimple(224,221,200,199,61,-1)
' ===============================
arcsimple(143,345,167,356,69,-1)
arcsimple(317,212,167,81,44,-1)
arcsimple(289,90,167,236,69,-1)
arcsimple(317,308,167,321,44,-1)
arcsimple(437,345,164,115,70,-1)
arcsimple(234,260,167,201,44,-1)

END

SUB arcdouble(ad,aa,r,dek)
dim_local cs,i,ss,z
if ad>aa then aa=aa+360
for i=ad to aa
cs=cos(i*rad): ss=sin(i*rad)
z=z+1
x1(z)= px +(r - dek) * cs
y1(z)= py +(r - dek) * ss
x2(z)= px +(r + dek) * cs
y2(z)= py +(r + dek) * ss
2d_circle x1(z),y1(z),1 : 2d_circle x2(z),y2(z),1
next i
END_SUB

SUB arcsimple(ax,ay,ar,ad,al,at)
dim_local i,mx,my,n
ad=(360-ad)*rad
n=int(0.5 + ar * (al*rad))
for i = 1 to n
if i>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 i

END_SUB

Vive la Bretagne, vivent les bretons ! de Parpaiun lol!

Très bien, c' est joli !

Si tu arrives à faire un triskell, là tu m' épates... Twisted Evil

Superbe. Pas de critique a faire sur le programme.
Je mets en dessous la version que je préfère parmis les 2 que tu proposes dans le programme avec sa colorisation (simple remplissage car le cercle celtique est déjà assez beau comme ça Wink

)

Code:: rem ==================================
rem TRIANGLE CELTIQUE par Parpaiun
rem Date-version: 14/05/2015
rem ==================================

dim rad : rad=(atn(1)*4)/180
dim cx,cy : cx=289: cy=260
caption 0,"TRIANGLE CELTIQUE" : height 0,570 : width 0,600 : 2d_pen_width 2
2d_circle cx,cy,248 : 2d_circle cx,cy,228
arcsimple(93,374,200,341,87,-1) : arcsimple(356,221,200,80,60,-1)
arcsimple(289,33,200,221,87,-1) : arcsimple(289,337,200,320,61,-1)
arcsimple(487,372,200,101,88,-1): arcsimple(224,221,200,199,61,-1)
arcsimple(143,345,167,356,69,-1) : arcsimple(317,212,167,81,44,-1)
arcsimple(289,90,167,236,69,-1) : arcsimple(317,308,167,321,44,-1)
arcsimple(437,345,164,115,70,-1) : arcsimple(234,260,167,201,44,-1)
2d_flood cx - 238,cy, 230,50,50 : 2d_flood cx,cy - 218, 230,50,50
2d_flood cx -148,cy + 48,230,50,50 : 2d_flood cx + 148,cy + 48,230,50,50
2d_flood cx -218,cy, 50,180,50 : 2d_flood cx +218,cy, 50,180,50
2d_flood cx,cy - 148, 50,180,50 : 2d_flood cx,cy + 148, 50,180,50
2d_flood cx -78,cy + 28,50,180,50 : 2d_flood cx + 78,cy + 28,50,180,50
2d_flood cx,cy, 50,180,50
END

SUB arcsimple(ax,ay,ar,ad,al,at)
dim_local i,mx,my,n
ad=(360-ad)*rad
n=int(0.5 + ar * (al*rad))
for i = 1 to n
   if i>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 i
END_SUB

C'est beau !
C'est booooooo!

Oah dis donc Jicehel, le rouge vif que tu as mis sur mon triangle celtique est vraiment très agressif ! Aurais tu mangé trop de fraises tardives, de rougets de mer ou de coquelicots précoces ? Et ce vert, oh ce vert que je trouve un peu trop vif pour être celui plus tendre des champs ! Tu oublies les fleurs : pâquerettes, boutons d'or et violettes sur ce joli tinton vert ! Ben voyons, je suis un poète qui vénère la nature ! Bravo quand même pour l'arrangement très bien fait de mon programme.

Et toi Papydall, on dirait que tu as fondu devant tant de beauté ! Et ce n'est pas fini !
J'ai d'autres cordes à mon arc, non pas pour tirer des flèches mais pour jouer de la trompette marine (connais tu ?) en attendant de voir d'autres merveilles tirées de mes méninges ! Hé, hé ! Acré bonsouèr de ParpaiuN cheers

» Un triangle celtique
» Les Bolygones
» Le triangle de Penrose
» Triangle à coins arrondis
» Déterminer si un point P est à l'intérieur d'un triangle