Esthétique polaire
Page 1 sur 1
Esthétique polaire
- Code:
rem ============================================================================
rem Esthétique polaire
rem Par Papydall
rem ============================================================================
dim xc1,yc1,xc2,yc2,xc3,yc3,xc4,yc4,xc5,yc5,r,rsur2,a,x,y,c$
dim c(360), s(360) : ' Tableaux de sinus / cosinus pour accélérer les calculs
degrees :' on travaille en degrés
for a = 0 to 360 : c(a) = cos(a) : s(a) = sin(a) : next a
full_space 0
xc1 = width(0)/10 : yc1 = height(0)/2-20
xc2 = 3*xc1 : yc2 = yc1
xc3 = 5*xc1 : yc3 = yc1
xc4 = 7*xc1 : yc4 = yc1
xc5 = 9*xc1 : yc5 = yc1
color 0,100,50,100 : 2d_pen_color 255,255,255
alpha 10 : top 10,50 : left 10,50 : font_bold 10 : font_name 10,"tahoma"
font_color 10,255,255,0
font_size 10,14
c$ = "Veuillez patienter ... Vous ne serez pas déçu(e)s, je l'espère ... <CLICK> Pour arrêter ! "
display
for r = 1 to xc1 : ' step 2 ou 10 pour les impatients
rsur2 = r * .5
caption 10,c$ + str$(r) + " / " + str$(xc1) : display
for a = 0 to 360
x = rsur2 * (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
2d_pen_color mod(abs(a+x),255),mod(abs(a-r),255), mod(abs(r-y),255)
2d_point xc1+x,yc1+y : 2d_point xc1-x,yc1+y
x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
2d_point xc2+x,yc2+y : 2d_point xc2-x,yc2+y
x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-s(a)) * s(a)
2d_point xc3+x,yc3+y : 2d_point xc3-x,yc3+y
x = rsur2* (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(mod(r,360))
2d_point xc4+x,yc4+y : 2d_point xc4-x,yc4+y
2d_point xc4+x,yc4-y : 2d_point xc4-x,yc4-y
x = rsur2* (1-c(a)) * s(a) : y = rsur2 * (1-s(a)) * s(a)
2d_point xc5+x,yc5+y : 2d_point xc5-x,yc5+y
if scancode <> 0 then terminate
next a
next r
repeat
font_color 10, 255,0,0
caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST B O O O O O O !!!"
pause 1000 : font_color 10,0,255,0
caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST B O O O O O O !!!"
pause 1000
until scancode <> 0
terminate
rem ============================================================================
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin