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
» Calculus
par JL35 Aujourd'hui à 15:43

» plus de caractères avec chr$()
par Marc Aujourd'hui à 14:59

» Animations : Livres et leçons sur le français
par papydall Aujourd'hui à 3:22

» Animations FLASH pour différentes branches de la Science
par papydall Aujourd'hui à 2:54

» @ Jack : lapsus clavis
par Marc Hier à 19:19

» Question ?
par papydall Hier à 14:00

» Quelques nouvelles ...
par Ouf_ca_passe Ven 19 Jan 2018 - 18:07

» Mah-Jong français
par Jicehel Ven 19 Jan 2018 - 11:10

» Rotation d'une image d'un angle quelconque
par JL35 Jeu 18 Jan 2018 - 16:09

» StratégoV8 et V9
par Jean Claude Jeu 18 Jan 2018 - 14:22

» GRID_LOAD
par Jean Claude Mer 17 Jan 2018 - 21:04

» HVIEWER
par Yannick Mer 17 Jan 2018 - 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
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 : 5636
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 : 8011
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 : 5139
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 : 2489
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 : 5636
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 : 5636
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  Dim 21 Jan 2018 - 17:33

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



Nombre de messages : 586
Age : 56
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 : 2489
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 : 5636
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
 Sujets similaires
-
» Les smartphones Wiko font leur rentrée chez B&YOU
» DESSIN | Les poissons . . . . Mouse VS Kalmine
» Soupe de Poissons Provençale et sa rouille
» code pour inséré les anime (Fond transparent)
» Changement d'une image de fond

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: