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
» I Love You
par papydall Aujourd'hui à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Ceci n'est pas un poisson d'avril

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

avatar

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

MessageSujet: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 1:39

Salut à tous !
Je me suis lancé un défi de réaliser un programme qui . . . . Boh, je ne vais pas dévoiler son secret maintenant, mais le moment où il sera terminé, je le mettrais sur le forum. J’ai déjà franchis une belle étape dans la réalisation, mais parfois je me sens coincé. Alors j’arrête, et pour changer les idées, j’écris un petit code parfaitement inutile comme celui-ci.

Code:

' ******************************************************************************
'
'            Ce n'est pas un poisson d'avril !
'
'          C'est seulement la courbe du poisson
'                qui n'est pas un poisson !
'
' ******************************************************************************
dim x,y,a,t,k,p,pi,r, a$
pi = 4*atn(1) : a = 5 : k = 2*sqr(2) : p = pi/360
a$ = "  Courbe du poisson      <CLICK> pour arrêter"
caption 0,a$ :color 0,0,0,0 :width 0, 1000 : height 0, 600
for r = .1 to 15.6  step .1
  for t = 0 to 4*pi step p
    x = a * (cos(t) + k * cos(t/2)) : y = a * sin(t)
    2d_pen_color 255-10*r,55+10*r,t*r
    2d_point 200 + r * x , 300 + r * y : 2d_point 800 - r * x , 300 + r * y
  '  2d_point 500 + r * x , 300 + r *  y : ' un seul poisson
  next t
  if scancode  <> 0 then terminate
next r
caption 0, a$ +"    Fin"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 10:28

Salut Papydall,

Ils sont voraces tes 2 poissons, ils ont chacun avalés une tour... Very Happy

Très joli.

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



MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 10:33

Bonjour
C'est incroyable qu'avec un si petit code, tu arrives à faire. Cela me rend encore plus petit.
Bravo.
edit
les deux poissons viennent de se croiser Jean-Claude!
Revenir en haut Aller en bas
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 11:49

Les poissons sont très jolis et la colorisation me plait, je ne vais même pas essayer de faire mieux sur ce coup là Wink
Tu aurais pû ajouter la courbe de bignono qui dessine un coeur une fois que les poissons sont dessinés. On pourrait penser qu'ils se font un bisous !! ^^

PS: C'est cool d'avoir mis tes "print" initiaux dans le caption de la fenêtre comme ça c'est persistent.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 12:27

Bonjour tout le monde!
Salut Jean Claude, Cosmos70, Jicehel...
Et voici une autre équation : c'est l'équation de la courbe qui s'appelle …..
Devinez son nom.
En jouant avec des équations aussi simples, on peut obtenir des formes inattendues.
Allez, admirez !

Code:

dim x,y,a,t,p,pi,r,a$,xp,yp
pi = 4 * atn(1) : a = 5 : p = pi / 360
a$ = "  Veuillez patienter    <CLICK> pour arrêter"
caption 0 , a$ : color 0,0,0,0 : width 0, 1000 : height 0, 800
for r = 10 to 20 step 0.1
  for t = 0 to 2 * pi step p
    x = a * cos(t) : y = a * power(sin(t),3): ' c'est l'équation du "kiss curve"
    2d_pen_color 50,150,100
    xp = 320 + 1.5 * r * x : yp = 100 + r * y : 2d_point xp ,yp  :' oeil gauche
    xp = 640 + 1.5 * r * x : 2d_point  xp,yp                      : ' aeil droit
    2d_pen_color 220,10,10
    xp = 480 + 2 * r * x : yp = 580 + 1.4 * r * y :2d_point xp,yp  : ' bouche
    2d_pen_color 100,50,50
    xp = 480 + .15* r * x : yp = 300 + 1.2 * r * y : 2d_point xp,yp : ' nez(pas terrible)
  next t
  if scancode <> 0 then terminate
next r
2d_fill_color 200,200,200
2d_circle 320,100,r : 2d_circle 640,100,r
caption 0, a$ +"    Fin"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 1 Avr 2012 - 13:24

Vraiment super et effectivement simple...
enfin, plutôt court, parce que simple... pas tant que ça !
Bravo !!!!!
cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 13:36

Bon, j'aime moins les couleurs alors je t'ai fais une modif sur le visage ... nah !! Wink
Sinon, continues à nous faire des trucs comme ça, j'adore ...

Code:
dim x,y,a,t,p,pi,r,a$,xp,yp
pi = 4 * atn(1) : a = 5 : p = pi / 360
a$ = "  Veuillez patienter    <CLICK> pour arrêter"
caption 0 , a$ : color 0,255,255,255 : width 0, 1000 : height 0, 800
r=8
for t = 0 to 2 * pi step p/2
    x = a * cos(t) : y = a * power(sin(t),3): ' c'est l'équation du "kiss curve"
    2d_pen_color 0,0,0
    xp = 380 + 1.5 * r * x : yp = 100 + r * y : 2d_point xp ,yp  : ' oeil gauche
    xp = 580 + 1.5 * r * x : 2d_point  xp,yp                    : ' oeil droit
    2d_pen_color 180,60,60
    xp = 480 + 2 * r * x : yp = 340 + 1.4 * r * y :2d_point xp,yp  : ' bouche
    xp = 480 - 1.6 * r * x : yp = 340 - 1 * r * y :2d_point xp,yp  : ' bouche
    2d_pen_color 0,0,0
    xp = 480 - 1.5 * r * x : yp = 340 - 0.7 * r * y : 2d_point xp,yp : ' bouche
    xp = 480 + .15* r * x * ((200-yp)/18) : yp = 200 + 1.5 * r * y : 2d_point xp,yp : ' nez(pas terrible)
  if scancode <> 0 then terminate
next t
2d_fill_color 200,200,200
2d_circle 380,100,r : 2d_circle 580,100,r
caption 0, a$ +"    Fin"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 13:56

Bonjour Jicehel!
C'est plus réaliste, comme ça!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 14:27

Super,

les 2 sont bien.

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



Nombre de messages : 5952
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 17:17

+1, très joli tout ça, bravo à tous (en tenant compte du peu de code mis en jeu).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 18:46

Et maintenant, si vous avez du temps, lancez le programme, croisez les bras et….admirez !
Vous pouvez également donner des noms à ces courbes.

Code:

dim x,y,a,t,k,p,pi,r, a$
pi = 4*atn(1) : a = 15 : k = sqr(2) - 1 : p = pi/720
a$ = "        <CLICK> pour arrêter"
caption 0,a$ :color 0,0,0,0 :width 0, 1000 : height 0, 600
 for r = .1 to 16  step .1
  for t = 0 to 4*pi step p
      2d_pen_color 255-10*r,55+10*r,t*r
  ' Essayez tour à tour ces différentes fonctions en deplaçant les REM
      x = a * (cos(t/2) - k * cos(5*t/2)) : y =  a*sin(4*t)
  '  x = a * (cos(t/2) - k * cos(5*t/2)) : y =  a*sin(4*t)*cos(t)
  '  x = a * (cos(t/2) - k * cos(5*t/2)) : y =  a*sin(4*t)/(2+cos(t))
  '  x = a/130*(hcos(t/2)-k*cos(5*t/2)):y=a*sin(4*t)/(2+cos(t)):2d_point 500-r*x,300+r*y
    2d_point 500 + r * x, 300 + r * y
  next t
  if scancode  <> 0 then terminate
 next r
caption 0, a$ +"    Fin"

PS :
J'ai édité une fois le programme


Dernière édition par papydall le Dim 1 Avr 2012 - 20:35, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Dim 1 Avr 2012 - 19:47

Sympa, mais vas-y lance toi dans la 3D pour ce type de courbe, ce n'est pas plus compliqué et on pourra "visiter" ta courbe. Pour ce type de courbes, ce serait vraiment sympa de voir les volumes selon différents angles...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 2:59

Jicehel, suite à ta demande de me lancer dans la 3D, voici un essai : ce n’est pas fameux et c’est désespérément lent !

Code:

dim x,y,z,n,pi,p,r,t,a$,k,r1,g1,b1
pi = 4*atn(1) :  p = pi/180 :n = 29/7 : r = 50
a$ = "        <CLICK> pour arrêter"

scene3d 1 : full_space 1 :color 1,0,0,0
cam_x_position 5  : cam_y_position 5  : cam_z_position 10
point_x_position 2 : point_y_position -1: point_z_position 1
light_x_position 0 : light_y_position 0 : light_z_position 500

caption 0,a$ :color 0,0,0,0 :width 0, 1000 : height 0, 700
k = 1
for t = 0- 7* pi to 7*pi step p
 k = k + 1
 x = r * cos(n*t) * cos(t)-r :y = r * cos(n*t) * sin(t)-r : z = r * sin(n*t) - r
' x = r * cos(t)-r : y = r * sin(t)-r : z = r/3 *cos(t/7)-r
 r1 = abs(mod(t+x*2550,255)):g1 = abs(mod(t+y*2550,255)): b1 = abs(mod(255,t+z*2550))
 3d_sphere  k,.5 : 3d_position k,x,y,z  : 3d_color k,r1,g1,b1
 if scancode  <> 0 then terminate
 wait 1
next t
caption 0, a$ +"    Fin"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 8:33

Bienvenu dans le monde de la 3D Papydall Wink
Pour la "lenteur" c'est lié au nombre d'affichage et non aux calculs.
Tu peux "tricher" vu le nombre d'objets en affichant une image tous les x objets calculés. Bon, brut de fonderie, ça donne ça :
Code:
dim x,y,z,n,pi,p,r,t,a$,k,r1,g1,b1
pi = 4*atn(1) :  p = pi/180 :n = 29/7 : r = 50
a$ = "        <CLICK> pour arrêter"

scene3d 1 : full_space 1 :color 1,0,0,0
cam_x_position 5  : cam_y_position 5  : cam_z_position 10
point_x_position 0 : point_y_position -1: point_z_position 1
light_x_position -200 : light_y_position -200 : light_z_position 200

caption 0,a$ :color 0,0,0,0 :width 0, 1000 : height 0, 700
k = 1
for t = 0- 7* pi to 7*pi step p
 k = k + 1
 x = r * cos(n*t) * cos(t)-r :y = r * cos(n*t) * sin(t)-r : z = r * sin(n*t) - r
' x = r * cos(t)-r : y = r * sin(t)-r : z = r/3 *cos(t/7)-r
 r1 = abs(mod(t+x*2550,255)):g1 = abs(mod(t+y*2550,255)): b1 = abs(mod(255,t+z*2550))
 3d_sphere  k,1 : 3d_position k,x,y,z  : 3d_color k,r1,g1,b1
 if scancode  <> 0 then terminate
 if mod(k,10)= 0 then display
next t
caption 0, a$ +"    Fin"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 13:06

Bonjour Jicehel !
Ton astuce (pour tricher un peu, dans l’affichage) c’est bien. J’ai pu constater la différence. Je me pencherais plus tard sur la 3D.
Je suis, maintenant, sur un programme un peu costaud et mon attention est plutôt dirigée sur lui.
Merci
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 13:18

Pas de problème, tu as mis les pieds dedans et tu as pu te rendre compte que ce n'était pas très compliqué Wink C'est le plus important.
Pour ton programme, bon courage, s'il est à la hauteur de ton générateur de plante voir mieux, j'ai hâte de voir ça ou de t'aider si tu bloque sur un point.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 20:15

Salut Jicehel !
Le programme sur lequel je travaille actuellement est à une longueur d’avance sur celui du générateur de plante. Ceci n’est que mon avis.
Quant à ce que les « forumistes » en penseraient, ça sera dans une ou deux semaines.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ceci n'est pas un poisson d'avril   Lun 2 Avr 2012 - 21:24

Cool, bon courage et deux semaines, c'est tout à fait raisonnable comme délais Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Ceci n'est pas un poisson d'avril   

Revenir en haut Aller en bas
 
Ceci n'est pas un poisson d'avril
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Des poissons siamois pour le 1er Avril
» Loto-beauté/8 avril
» Loto Loulou -13 avril
» Grand Festival d'accordéon le 23 avril 2012 à Caen
» Je serais absente du 6 avril au 11 avril 2012

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: