FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Les poissons qui grandissent et qui font la bise

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

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 3:47

Spoiler:
 




Code:

rem ============================================================================
rem           Les poissons grandissent et font la bise
rem ============================================================================
dim x,y,a,t,k,r,rx,rx1,rx2,ry,ry1,ry2,cr,cg,cb
a = 10 : k = 2*sqr(2)
caption 0,"Les poissons grandissent et font la bise      <CLICK> pour arrêter"
degrees : ' On travaille en degrés au lieu de radians
width 0,1300 : height 0,880
picture 10 : width 10,width(0)-100 : height 10,height(0)-80 : top 10,20 : left 10,50
2d_target_is 10 : print_target_is 10 : 2d_fill_on
font_name 10, "comic sans ms" : font_bold 10 :  font_size 10,16 : color 10,0,255,255

for r = .1 to 7.8 step .1
  for t = 0 to 720 step 2
    x = a * (cos(t) + k * cos(t/2)) : y = a * sin(t)
    rx = r*x : rx1 = rx/2 : rx2 = rx*2 : ry = r*y : ry1 = ry/2 : ry2 = ry*2
    cr = 255-10*r : cg = 55+10*r : cb = t*r/150
    2d_pen_color cr,cg,cb : 2d_fill_color cr,cg,cb
    2d_circle 350 + rx1, 100 - ry1,2 : 2d_circle 650 - rx1 , 100 + ry1,2 : ' les petits poissons du haut
    2d_circle 200 + rx , 300 + ry,4  : 2d_circle 800 - rx , 300 + ry,4   : ' les poissons moyens du centre
    2d_circle 350 + rx2, 600 + ry2,8 : ' le grand poisson du bas
   display
  next t
  if scancode = 27 then terminate
next r

2d_fill_color 255,255,255 : 2d_circle 350+rx1-15,100-ry1,6 : 2d_circle 350+rx1+15,100-ry1,6
2d_fill_color 000,000,000 : 2d_circle 350+rx1-15,100-ry1,4 : 2d_circle 350+rx1+15,100-ry1,4
2d_fill_color 255,255,255 : 2d_circle 200+rx-20,300-ry,9   : 2d_circle 200+rx+20,300-ry,9
2d_fill_color 000,000,000 : 2d_circle 200+rx-20,300-ry,6   : 2d_circle 200+rx+20,300-ry,6
2d_fill_color 255,255,255 : 2d_circle 350+rx2-50,600-ry2,15
2d_fill_color 000,000,000 : 2d_circle 350+rx2-50,600-ry2,10

Coeur(500,060,10,1)  : Coeur(500,140,10,-1)
Coeur(500,250,15,1)  : Coeur(500,350,15,-1)
Coeur(1050,600,20,1) : Coeur(1050,630,20,-1)

2d_pen_color 0,255,255 : 2d_fill_color 0,255,255
caption 0,"<ESC> pour sortir ...."
repeat
    for t = 2 to 40 :' step 2
        2d_fill_color 255,255,255 : 2d_circle 970+t/2,600-5*t,42-t : pause 50
        2d_fill_color 000,255,255 : 2d_circle 970+t/2,600-5*t,42-t : pause 50
    next t
until scancode = 27

for t = height(0) to 10 step -10 : height 0,t : pause 100 : next t
terminate
rem ============================================================================
rem ============================================================================
' Dessiner un coeur
' Equation paramétrique d'une cardioïde
' x = power(sin(t),3)
' y = cos(t) - power(cos(t),4)
' Paramètres :
' xc,yc : coordonnées du creux de la cardioïde
' r : paramètre agissant sur la forme de la cadioïde
' sens : paramètre indiquant le sens de la cardioîde :
' sens = -1 <==== la pointe est dirigée vers le bas
' sens = +1 <==== la pointe est dirigée vers le haut
SUB Coeur(xc,yc,r,sens)
    dim_local x,y,t,s
    degrees :  2d_pen_color 255,0,0 : 2d_poly_from xc,yc
    if sens <= 0 then s = -1 : else : s = 1
    for t = 0 to 360
        x = power(sin(t),3) : y = cos(t) - power(cos(t),4)
        2d_poly_to xc+r*x,yc+s*r*y +5*s
    next t
    2d_flood xc,yc-s*2,255,0,0
END_SUB
rem ============================================================================


Spoiler:
 


Dernière édition par papydall le Sam 19 Mar 2016 - 5:35, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: RE   Ven 18 Mar 2016 - 8:28

J' aime bien tes poissons.
Silencieux, pas d' entretien, ...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 9:15

Enfin un peu d'amour sur cette planète de cinglés. Very Happy

Ce qui est nouveau dans ce graphisme c'est qu'il y a un scénario.

Bravo !

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2357
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 10:29

C'est MEEEEUGNON !

lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 16:47

Merci à tous.

Oui Minibug, mes poissons sont MIIIIGNONS !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 2:36

Version 2  : Nous sommes le  Sam 18 Nov 2017 - 4:12

Code:

rem ============================================================================
rem           Les poissons grandissent et font la bise
rem                       Version 2
rem ============================================================================
dim x,y,a,t,k,r,rx,rx1,rx2,ry,ry1,ry2,cr,cg,cb
a = 10 : k = 2*sqr(2)
caption 0,"Les poissons grandissent et font la bise      <CLICK> pour arrêter"
degrees : ' On travaille en degrés au lieu de radians
width 0,1400 : height 0,880
font_bold 0 : font_name 0,"arial black" : font_size 0,30
picture 10 : width 10,width(0)-100 : height 10,height(0)-80 : top 10,20 : left 10,50
2d_target_is 10 : 2d_fill_on
font_name 10, "comic sans ms" : font_bold 10 :  font_size 10,16 : color 10,0,255,255
hide 10 : ' Activer ou déactiver cette ligne et la ligne 29
print_locate 200,300 : print "Veuillez patienter ... Tracé en cours "
for r = .1 to 7.8 step .1
  for t = 0 to 720 step 2
    x = a * (cos(t) + k * cos(t/2)) : y = a * sin(t)
    rx = r*x : rx1 = rx/2 : rx2 = rx*2 : ry = r*y : ry1 = ry/2 : ry2 = ry*2
    cr = 255-10*r : cg = 55+10*r : cb = t*r/150
    2d_pen_color cr,cg,cb : 2d_fill_color cr,cg,cb
    2d_circle 350 + rx1, 100 - ry1,2 : 2d_circle 650 - rx1 , 100 + ry1,2 : ' les petits poissons du haut
    2d_circle 200 + rx , 300 + ry,4  : 2d_circle 800 - rx , 300 + ry,4   : ' les poissons moyens du centre
    2d_circle 330 + rx2, 600 + ry2,8 : ' le grand poisson du bas
   display
  next t
  if scancode = 27 then terminate
next r
show 10 : ' activer ou désactiver cette ligne et la ligne 14
2d_fill_color 255,255,255 : 2d_circle 350+rx1-15,100-ry1,6 : 2d_circle 350+rx1+15,100-ry1,6
2d_fill_color 000,000,000 : 2d_circle 350+rx1-15,100-ry1,4 : 2d_circle 350+rx1+15,100-ry1,4
2d_fill_color 255,255,255 : 2d_circle 200+rx-20,300-ry,9   : 2d_circle 200+rx+20,300-ry,9
2d_fill_color 000,000,000 : 2d_circle 200+rx-20,300-ry,6   : 2d_circle 200+rx+20,300-ry,6
2d_fill_color 255,255,255 : 2d_circle 330+rx2-90,580-ry2,15
2d_fill_color 000,000,000 : 2d_circle 330+rx2-90,580-ry2,10
Coeur(0500,060,10,1) : Coeur(500,140,10,-1)  : Coeur(0500,250,15,1) : Coeur(500,350,15,-1)
Coeur(1080,100,50,1) : Coeur(1080,160,50,-1) : Coeur(900,100,20,-1) : Coeur(0100,100,20,-1)
2d_pen_color 0,255,255 : 2d_fill_color 0,255,255
caption 0,"<ESC> pour sortir ...."
repeat : Pendule(1080,300,260) : until scancode = 27
for t = height(0) to 10 step -10 : height 0,t : pause 100 : next t
terminate
rem ============================================================================
' Dessiner un coeur
' Equation paramétrique d'une cardioïde
' x = power(sin(t),3)
' y = cos(t) - power(cos(t),4)
' Paramètres :
' xc,yc : coordonnées du creux de la cardioïde
' r : paramètre agissant sur la forme de la cadioïde
' sens : paramètre indiquant le sens de la cardioîde :
' sens = -1 <==== la pointe est dirigée vers le bas
' sens = +1 <==== la pointe est dirigée vers le haut
SUB Coeur(xc,yc,r,sens)
    dim_local x,y,t,s
    degrees :  2d_pen_color 255,0,0 : 2d_poly_from xc,yc
    if sens <= 0 then s = -1 : else : s = 1
    for t = 0 to 360
        x = power(sin(t),3) : y = cos(t) - power(cos(t),4)
        2d_poly_to xc+r*x,yc+s*r*y +5*s
    next t
    2d_flood xc,yc-s*2,255,0,0
END_SUB
rem ============================================================================
SUB Pendule(xc,yc,r)
    dim_local a,x,y,xp,yp
    degrees
    2d_pen_width 6 : 2d_pen_color 0,0,0
    2d_line xc-10,yc+10,xc+10,yc-10 : 2d_line xc-10,yc-10,xc+10,yc+10
    2d_pen_width 1 : 2d_fill_color 0,255,255 : 2d_fill_on
    for a = 250 to 300 step 5
        x = r*cos(a) : y = r*sin(a) : xp = xc+x : yp = yc-y
        2d_pen_color 255,0,0 : 2d_line xc,yc ,xp,yp : coeur(xp,yp+r/20,r/10,-1)
        2d_pen_color 0,255,255 : 2d_fill_color 0,255,255
        2d_line xc,yc ,xp,yp : 2d_circle xp,yp,r*.25
    next a
    for a = 300 to 250 step -5
        x = r*cos(a) : y = r*sin(a) : xp = xc+x : yp = yc-y
        2d_pen_color 255,0,0 : 2d_line xc,yc ,xp,yp : coeur(xp,yp+r/20,r/10,-1)
        2d_pen_color 0,255,255 : 2d_fill_color 0,255,255
        2d_line xc,yc ,xp,yp : 2d_circle xp,yp,r*.25
    next a
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc 37



Nombre de messages : 505
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 10:44

Admirablement bien fait !

Après Papydall le Météorologue, Papydall le Matheux, Papydall le Scientifique, Papydall l’Artiste, Papydall le Programmeur, etc, il ajoute quelques cordes à son arc : Papydall le Romantique et Papydall le Cardiologue !

Merci pour tous ces partages !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2357
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 12:23

Le Caméléon est parmi nous...
(pour ceux qui ne connaisse pas la série c'est ici )

D'ailleur maintenant on va devoir le surnommer Papy-Jarod-dall
lol!  lol!  lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 15:06

Bonjour à tous
Bonjour Marc37
Bonjour Minibug
Merci.

Marc37 a écrit:
Admirablement bien fait !

Après Papydall le Météorologue, Papydall le Matheux, Papydall le Scientifique, Papydall l’Artiste, Papydall le Programmeur, etc, il ajoute quelques cordes à son arc : Papydall le Romantique et Papydall le Cardiologue !

Merci pour tous ces partages !

Spoiler:
 

Minibug a écrit:
D'ailleur maintenant on va devoir le surnommer Papy-Jarod-dall

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Les poissons qui grandissent et qui font la bise   

Revenir en haut Aller en bas
 
Les poissons qui grandissent et qui font la bise
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: