Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Bonne année
Dim 6 Jan - 23:09 par Papydall-Admin

» Joyeux Noel
Lun 24 Déc - 17:30 par Papydall-Admin

» Fête de Noël
Dim 16 Déc - 23:58 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

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


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

Aller en bas

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

Message par Papydall-Admin le 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 ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 100
Réputation : 0
Date d'inscription : 08/09/2015
Age : 68
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum