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

Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Courbes en coordonnées polaires : Les jolis papillons

Aller en bas

Courbes en coordonnées polaires : Les jolis papillons

Message par Papydall-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
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

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
Réputation : 0
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

Revenir en haut

- Sujets similaires

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