Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» 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

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Mai 2018
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 : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
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