Les Joligones

Pour suivre la mode de ces jours-ci : le tracé des courbes, voici mon code qui a retenu mon attention plusieurs centaines de milliers de millisecondes! (Faites le compte pour vous rendre compte Laughing

)

Code:: REM ============================================================================
rem Les joligones
rem ============================================================================
dim NP,pi,k,an,ra,aa,rr
PI = acos(-1) : NP = 600
width 0, screen_x/2 : height 0,screen_y-50
caption 0,"L E S J O L I G O N E S"
color 0,0,0,0 : font_color 0,255,255,0 : font_bold 0 : font_size 0,18

K = 100 : AN = 15*PI/31 : RA = .98 : rr = .8*np : Joligone(k,an,ra,rr)
K = 120 : AN = 29*PI/30 : RA = .98 : rr = .8*np : Joligone(k,an,ra,rr)
K = 200 : AN = PI/4 : RA = .98 : RR = .4*NP : Joligone(k,an,ra,rr)
K = 200 : AN = 3*PI/4 : RA = .98 : RR = .4*NP : Joligone(k,an,ra,rr)
K = 200 : AN = 7*PI/12 : RA = .98 : RR = .4*NP : Joligone(k,an,ra,rr)
K = 500 : AN = PI/20 : RA = .998: RR = .06*NP : Joligone(k,an,ra,rr)
K = 200 : AN = 4*PI/5+.02:RA = .98 : rr = .8*np : Joligone(k,an,ra,rr)
K = 100 : AN = 6*PI/7 : RA = .98 : rr = .8*np : Joligone(k,an,ra,rr)
K = 400 : AN = 19*PI/62 : RA = .996: RR = .4*NP : Joligone(k,an,ra,rr)
K = 300 : AN = 2*PI/5+.01:RA = .993: RR = .6*NP : Joligone(k,an,ra,rr)

print " !!! That's all folks !!!" : caption 0,"terminé"
end
rem ============================================================================
SUB Joligone(k,an,ra,rr)
   dim_local x,y,i
   cls : aa = 0
   X = (NP-RR)/2 : Y = 0+200 : 2d_poly_from x,y
   FOR I = 0 TO K STEP .4
   X = X + RR * COS(AA) : Y = Y + RR * SIN(AA)
   2d_pen_color mod(x,255), mod(y,255), mod(k,255) : 2d_poly_to x,y
   AA = AA + AN : RR = RR * RA
   NEXT I
   pause 1000
END_SUB
rem ============================================================================

C'est beau les math !

Ha ! oui c'est chouette,

Et que dire du code ?

cheers

C'est super joli et pourtant je ne vais pas faire de colorisation...
Ben non, c'est déjà fait et c'est très réussi.

j'aurais voulu les faire moi_même,ces gones

Il va faloir trouver (pour info il y a plusieurs façon de tracer les joligones pour avoir de beaux résultats si je me souviens bien avec peu de modifications, on obtient des courbes très déférentes (je crois que c'est en partant du point central si mes souvenirs sont bons)

Tout ca en si peu de ligne !

cheers

Bravo !

Jean Claude a écrit:: Ha ! oui c'est chouette,

Et que dire du code ?

"Simple", efficace !

C'est bien ce que voulais mettre en avant.

Simple, heu... pour les matheux ! Very Happy

. Efficace, c'est certain.

A+

Merci / salut tout le monde.

La recette est somme toute assez simple : une rencontre d’un SINUS avec un COSINUS, ça génère des X et des Y qui auront du plaisir à s’exhiber devant vos yeux admiratifs !

Jean Claude a écrit:: Simple, heu... pour les matheux !

Je ferai un jour un petit code Panoramic pour expliquer ce que sont les SIN, les COS et les TAN.
Ces gros mots ne te feront plus mal au crâne, au moins c’est ce que j’espère. Laughing

Je crois qu'il y avait déjà un programme de fait pour ça avec les sinus, les cos, les tangeantes, les arctangeantes, etc ...
Je crois m'en souvenir, mais peut être que ma mémoire mélange plusieures choses.

Tu parles de ceci ?

C'était quand j'étais en 1ère année PANORAMIC.
Je compte présenter la bête (heu la trigo) autrement.

Oui, c'est bien ça.
OK, je comprends maintenant: En fait c'est ton fil rouge. Tu as fait l'exercice en première année, tu le refais en 3ème année et tu le referas en 5ème année pour nous montrer tes progrès ... Je comprends .... Wink

Bon sérieusement, bonne programmation et je ne sais pas quel angle tu vas utiliser pour démocratiser ces 2 gentils petits monstres (Sinus et Cosinus) mais je suis certain que le programme sera de toute façon intéressant.

Wait and see !

Bravo papydall pour ces joligones ! C'est facile à faire pour un débutant ! cheers