Des maths pour l’Amour ou l'Amour pour les Maths
Page 1 sur 1
Des maths pour l’Amour ou l'Amour pour les Maths
- Code:
rem ============================================================================
rem Des maths pour l’Amour
rem ============================================================================
dim x,y,xc,yc,t,z
picture 10 : full_space 10 : 2d_target_is 10 : 2d_pen_color 255,0,0
alpha 20 : top 20,20 : left 20,150 : font_bold 20 : font_size 20,18
font_name 20,"tahoma" : font_color 20,255,0,0 : color 20, 255,255,255
alpha 30 : top 30,height_client(10) -70 : left 30,150 : font_bold 30
font_size 30,18 : font_name 30,"comic sans ms" : font_color 30,255,0,0 : color 30,255,255,255
xc = width_client(10)/2 : yc = height_client(10)/2 -20 : z = 10
degrees
2d_poly_from xc,yc-5*z
for t = 0 to 360
x = 16*cube(sin(t))
y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
2d_poly_to xc+z*x, yc-z*y : display
next t
pause 1000
2d_flood xc,yc,255,0,0
caption 20,"Des maths pour l’Amour"
caption 30,"Joyeuse Saint-Valentin !"
end
rem ============================================================================
FNC Cube(x)
result x*x*x
END_FNC
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