Des maths pour l’Amour ou l'Amour pour les Maths

par **Papydall-Admin** Ven 23 Fév - 16:48

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 ============================================================================