Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

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

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

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 : 68
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