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
» Problème mathématique en 3D
par papydall Aujourd'hui à 2:59

» Reprise du développement et de la documentation
par Yannick Aujourd'hui à 1:21

» Une copie de Panoramic Editeur
par Jean Claude Mar 22 Mai 2018 - 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Les poissons qui grandissent et qui font la bise

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5907
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 - 1: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 - 3: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 : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: RE   Ven 18 Mar 2016 - 6: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 : 5360
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 7: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 : 2841
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Ven 18 Mar 2016 - 8: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 : 5907
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 - 14: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 : 5907
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 - 0:36

Version 2  : Nous sommes le  Jeu 24 Mai 2018 - 4:20

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

avatar

Nombre de messages : 741
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 8: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 : 2841
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Les poissons qui grandissent et qui font la bise   Sam 19 Mar 2016 - 10: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 : 5907
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 - 13: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
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: