Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
» Automate cellulaire : simulation de feu de forêt
Sam 9 Déc - 2:56 par Admin

»  Exécution des fichiers CPL
Mar 28 Nov - 19:18 par Admin

» Quelques fonctions de la user32.dll
Sam 25 Nov - 1:43 par Admin

» Copier vers une FORM définie l’image de fond du bureau.
Ven 24 Nov - 2:38 par Admin

»  Capture d’écran de Windows
Ven 17 Nov - 0:27 par Admin

»  Courbes de Bézier cubiques
Mer 8 Nov - 2:28 par Admin

» Harmonographe
Mer 8 Nov - 2:22 par Admin

»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031

Calendrier Calendrier


Courbes en coordonnées polaires : Les jolis papillons

Voir le sujet précédent Voir le sujet suivant Aller en bas

Courbes en coordonnées polaires : Les jolis papillons

Message par Admin le Jeu 13 Oct - 15:18

Code:

rem ============================================================================
rem          Courbes en coordonnées polaires
rem              Les jolis papillons
rem                 Par Papydall
rem ============================================================================
dim s,x0,y0
width 0,900 : height 0,700 : color 0,150,100,50
x0 = width(0)/2 : y0 = height(0)/2
alpha 10 : top 10,150 : left 10,220 : font_size 10,20 : font_name 10,"arial black"
caption 0,"Les jolis Papillons ....  <CLICK> pour arrêter !"
font_bold 0: font_size 0,12 : font_color 0,255,255,255 : font_name 0,"tahoma"
print_locate 50,10
print "Les jolis Papillons .... : Equation polaire : r = a + b*cos(2*t) + sin(5*t)*sin(5*t)*sin(5*t)"
for s = 2 to 90 :' step 2
    Papillon(x0,y0,s)           : ' papillon centre
    Papillon(x0/2,y0*.25,s/3)   : ' papillon haut gauche
    Papillon(x0/2,y0*1.7,s/3)   : ' papillon bas gauche
    Papillon(x0*1.5,y0*.25,s/3) : ' papillon haut droite
    Papillon(x0*1.5,y0*1.7,s/3) : ' papillon bas droite
    if scancode <> 0 then terminate
next s

repeat
   font_color 10,0,0,0
   caption 10,"Que c'est beau ! Que c'est joli !" : pause 1000
   font_color 10,0,0,255
   caption 10,"Que c'est beau ! Que c'est joli !" : pause 1000
until scancode <> 0
end
rem ============================================================================
SUB Papillon(x0,y0,s)
    dim_local r,a,b,t,x,y,cr,cg,cb
    a = 1.6 : b = 1.1
    degrees : ' on travaille avec les degrés au lieu des radians
    cr = abs(3*s-255) : cg = 150+s : cb = abs(2*s-255)
    2d_pen_color cr,cg,cb : 2d_fill_color cr,cg,cb : ' 2d_pen_width 2
    2d_poly_from x0 + s*(a+b),y0
    for t = 0 to 360 step 2
        r = a + b*cos(2*t) + sin(5*t)*sin(5*t)*sin(5*t)
        x = x0+s*r*cos(t) : y = y0-s*r*sin(t)
        2d_poly_to x,y
       display
    next t
END_SUB
rem ============================================================================

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

Messages : 75
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

Re: Courbes en coordonnées polaires : Les jolis papillons

Message par Abdallah le Sam 15 Oct - 12:50

C'est esthétique !
avatar
Abdallah

Messages : 1
Date d'inscription : 11/10/2016
Age : 67
Localisation : Entre la chaise et le clavier

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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