Structure spirale n°2

Et voilà le second programme court appelé "Structure spirale avec des ARCS".
C'est tout bonnement une variante de la structure spirale n°1. Elle donne une image faisant penser à une fleur (camélia, pourquoi pas ?).

Code:: REM ====================================================================
REM Auteur: Parpaiun
REM Date-version: 25/05/2015
REM ====================================================================
Caption 0,"STRUCTURE SPIRALE AVEC DES ARCS"
dim a,b,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
for th=0 to 19
arc(x,y,35,a,55,1)
2d_fill_color 0,0,0
2d_circle x,y,3
a=a+18
next th
next b
END

SUB arc(ax,ay,ar,ad,al,at)
' ax et ay = coordonnées de départ de l'arc
' ar = rayon de courbure de l'arc
' ad = angle de départ de l'arc sur un cercle imaginaire
' al = longueur de l'arc
' at = facteur de rapport (toujours = 1)
dim_local i,mx,my,n,rad
rad=acos(-1)/180
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
x=ax: y=ay
END_SUB

Là, vous êtes gâté pour colorier cette image selon votre goût. Et jetez un coup d'oeil sur "Vasarely Art" pour vous en inspirer ! C'est tout pour aujourd'hui ! de Parpaiun lol!

Jolie.
Bon, de mon côté, je ne me suis pas cassé le derriere: je reprends les dormules (retirer un REM et mettre l'ancienne ligne en REM parmi les 5 lignes correspondant au choix de couleurs, mais il est facile de faire des tonnes de variantes avec des cycles sympa pouvant donner des résultats magnifiques)

Code:: REM ====================================================================
REM Auteur: Parpaiun
REM Date-version: 25/05/2015
REM ====================================================================
Caption 0,"STRUCTURE SPIRALE AVEC DES ARCS"
dim a,b,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
for th=0 to 19
  arc(x,y,35,a,55,1)
  2d_fill_color 0,0,0
  2d_circle x,y,3
  a=a+18
next th
next b
END

SUB arc(ax,ay,ar,ad,al,at)
' ax et ay = coordonnées de départ de l'arc
' ar = rayon de courbure de l'arc
' ad = angle de départ de l'arc sur un cercle imaginaire
' al = longueur de l'arc
' at = facteur de rapport (toujours = 1)
dim_local i,mx,my,n,rad
rad=acos(-1)/180
ad=(360-ad) * rad
n=int(0.5 + ar * (al * rad))
for i = 1 to n
if i > 1
   ' 2d_pen_color abs(180 - b)*1.4,abs(10 - th)*25, abs((n/2) - i)*14.5
   ' 2d_pen_color abs(sin(b))*255,abs(cos(b))*255, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
   ' 2d_pen_color abs(180 - b) + 75,abs(180 - b)*0.5 + abs(10 - th)* 10 + 50, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
   ' 2d_pen_color abs(cos(ad * 12))*255, abs(sin(ad*12))*255, 180
   2d_pen_color abs(cos(ad))*255, abs(sin(ad))*255, 180
   2d_line mx,my,ax,ay
  end_if
  mx=ax:my=ay
  ax=ax+cos(ad):ay=ay+sin(ad)
  ad=ad+at/ar
next i
x=ax: y=ay
END_SUB

Très joli aussi.

( c' est là que l' on regrette d' avoir été mauvais élève en géométrie 30 ans plus tôt Rolling Eyes

)

Ce n’est pas de la géométrie, ça !
C’est plutôt de la trigonométrie (trigonos metron).
La trigonométrie traite les relations entre les distances et les angles dans les trigones (les triangles si vous préférez) ainsi que les fonctions trigonométriques telles que SINUS, COSINUS, TANGENTE et compagnie.

Soit un triangle rectangle (c-à-d dont l’un des angles est un angle droit), les trois fonctions suivantes sont définies comme suit :
Sin A = côté opposé / hypoténuse
Cos A = côté adjacent / hypoténuse
Tan A = sin A / cos A = côté opposé / côté adjacent

Astuce de Papydall
Sin ==== > côté opposé.
Cos ==== > côté adjacent.

Un côté de l'angle droit est égale au produit de l'hypoténuse par le Sinus de l'angle opposé.
Un côté de l'angle droit est égale au produit de l'hypoténuse par le Cosinus de l'angle adjacent.

A propos : Merci Parpaiun pour le partage : Ceux qui m'ont précédé on trouvé que c'était beau.
Je dirais que c'est artistique! Laughing

C'est vrai qu'elle est très jolie cette courbe et il y a plein de façons de la modifier un peu pour avoir un visuel assez différent.
Par exemple:

Code:: REM ====================================================================
REM Auteur: Parpaiun
REM Date-version: 25/05/2015
REM ====================================================================
Caption 0,"STRUCTURE SPIRALE AVEC DES ARCS"
dim a,b,th,x,y
height 0,520: width 0,520
   2d_pen_width 10

x=250: y=238
for b=0 to 360 step 12
a=b
for th=0 to 19
  arc(x,y,35,a,60,1)
  a=a+18
next th
next b
END

SUB arc(ax,ay,ar,ad,al,at)
' ax et ay = coordonnées de départ de l'arc
' ar = rayon de courbure de l'arc
' ad = angle de départ de l'arc sur un cercle imaginaire
' al = longueur de l'arc
' at = facteur de rapport (toujours = 1)
dim_local i,mx,my,n,rad
rad=acos(-1)/180
ad=(360-ad) * rad
n=int(0.5 + ar * (al * rad))
for i = 1 to n
if i > 1
' 2d_pen_color abs(sin(b / 10))*255,abs(cos(b / 10))*255, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
' 2d_pen_color abs(180 - b) + 75,abs(180 - b)*0.5 + abs(10 - th)* 10 + 50, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
' 2d_pen_color abs(cos(ad * 12))*255, abs(sin(ad*12))*255, 180
' 2d_pen_color abs(cos(ad))*255, abs(sin(ad))*255, 180
' 2d_pen_color mx / 2, (476 - my)/2, (abs(250-mx) + abs(238 - my))/2
   2d_pen_color mx / 2, (476 - my)/2, mx / 4 + (476 - my)/4
   2d_line mx,my,ax,ay
  end_if
  mx=ax:my=ay
  ax=ax+cos(ad):ay=ay+sin(ad)
  ad=ad+at/ar
next i
x=ax: y=ay
END_SUB

Bon comme le site est super calme, je mets une variation sur la jolie courbe que nous à offert Parpaiun
(Vous pouvez changer la colorisation en modifiant la ligne active parmi les 6 lignes qui modifie le choix de la couleur du tracé)

Code:: REM ====================================================================
REM Auteur: Parpaiun
REM Date-version: 25/05/2015
REM ====================================================================
dim a,b,th,x,y
caption 0,"STRUCTURE SPIRALE AVEC DES ARCS"
height 0,780: width 0,740 : x=width(0)/2 - 10: y=height(0) / 2 - 12 : color 0,0,0,0
2d_pen_width 9
for b=0 to 360 step 18
a=b
for th=0 to 19
arc(x,y,35,a,100,1)
a=a+18
next th
next b
END

SUB arc(ax,ay,ar,ad,al,at)
' ax et ay = coordonnées de départ de l'arc
' ar = rayon de courbure de l'arc
' ad = angle de départ de l'arc sur un cercle imaginaire
' al = longueur de l'arc
' at = facteur de rapport (toujours = 1)
dim_local i,mx,my,n,rad
rad=acos(-1)/180
ad=(360-ad) * rad
n=int(0.5 + ar * (al * rad))
2d_pen_color abs(180 - b)*1.4,abs(10 - th)*25, abs((n/2) - i)*5
' 2d_pen_color abs(sin(b))*255,abs(cos(b))*255, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
' 2d_pen_color abs(180 - b) + 75,abs(180 - b)*0.5 + abs(10 - th)* 10 + 50, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
' 2d_pen_color abs(cos(ad * 12))*255, abs(sin(ad*12))*255, 180
' 2d_pen_color abs(cos(ad))*255, abs(sin(ad))*255, 180
' 2d_pen_color abs(cos(x / 100))*255, abs(sin(y / 100))*255, abs(width(0)/2 - 10 - x) /3 +abs(width(0)/2 - 12 - y) / 3
for i = 1 to n
if i > 1
2d_line mx,my,ax,ay
end_if
mx=ax:my=ay
ax=ax+cos(ad):ay=ay+sin(ad)
ad=ad+at/ar
next i
x=ax: y=ay
2d_pen_color 0,0,0 : 2d_fill_color 0,0,0 : 2d_circle width(0)/2 - 10, height(0) / 2 - 12,56
END_SUB

» Structure spirale n°1
» Spirale de Ulam
» comment faire des cercles contigus sur spirale.
» problème de structure ?
» Structure des fichiers BMP/JPG/ICO