Une jolie fleur

Eh oui, je vous fais encore une surprise ! C'est une bien jolie fleur en 2D que voici:

Code:: ' Auteur: PARPAIUN
' Date_version: 15/04/2016
'
caption 0,caption$(0)+" Fleur 2D à écailles <CLICK> pour arrêter"
width 0,550 : height 0,560
dim a,b,th,x,y
x = 250 : y = 250
2d_pen_width 2
for b = 0 to 360 step 18
a = b
for th = 0 to 19
  arc(x,y,35,a,55,1)
  2d_circle x,y,3
  a = a + 18
next th
next b
END

SUB arc(ax,ay,ar,ad,al,at)
dim_local i,mx,my,n,rad
rad=0.01745
ad = (360-ad) * rad
n = int(0.55 + 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
x = ax: y = ay
END_SUB

La fonction SUB me fait parfois des siennes, expliquez moi pourquoi, merci.
Je vous laisse à vos fantaisies de coloration si ça vous attire...

Je pars en vacances lundi 18 prochain pour être disponible à nouveau le 21 courant.
Bye bye les aminches ! Que rien ne grinche parmi vous ! flower

Bonjour Parpaiun

Parpaiun a écrit:: La fonction SUB me fait parfois des siennes, expliquez moi pourquoi, merci.

Il manque END ligne 17 juste avant la déclaration de SUB arc()

Pardon Papydall pour mon étourderie, merci beaucoup pour ta réponse rapide ! lol!

Il n’y a de quoi.
Ça m’arrive parfois d’être étourdi.

A part ça, c’est une jolie fleur. flower

Code:: ' Auteur: PARPAIUN
' Date_version: 15/04/2016
'
caption 0,caption$(0)+" Fleur 2D à écailles <CLICK> pour arrêter"
width 0,550 : height 0,560
dim a,b,th,x,y
x = 250 : y = 250
picture 10 : full_space 10 : 2d_target_is 10 : color 10,255,255,0
2d_pen_width 2 : 2d_fill_on : 2d_fill_color 255,0,0 : 2d_pen_color 0,0,255
for b = 0 to 360 step 18
a = b
for th = 0 to 19
  arc(x,y,35,a,55,1)
  2d_circle x,y,5 : display
  a = a + 18
next th
next b
2d_flood 10,10,0,0,255
end
SUB arc(ax,ay,ar,ad,al,at)
dim_local i,mx,my,n,rad
rad=0.01745
ad = (360-ad) * rad
n = int(0.55 + 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
x = ax: y = ay
END_SUB

Papydall, bonjour ! Bravo pour ton essai de coloration que je trouve réussi.

J'ai à t'annoncer que, comme tu t'y attendais, j'ai fait une cinquième surprise de l'année.
Si les autres membres ne me laissent pas de place dans la fenêtre "Derniers sujet", tu la trouveras facilement dans la rubrique "Inutilitaires" sous le nom de "Rosace à bandes entrelacées".

Voilà, c'est tout. Et bon week-end ! flower