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
» Une autre façon de terminer une application.
par Francis-mr Aujourd'hui à 12:07

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:09

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Aujourd'hui à 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Aujourd'hui à 5:01

» Mettre en windows en veille
par papydall Aujourd'hui à 4:15

» Stretch_on ne stretch plus...
par papydall Hier à 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Hier à 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (résolu): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 5518
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 : 4989
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 : 5849
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 : 5518
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 : 1594
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 : 5849
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 : 5518
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 : 4989
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 : 5922
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 : 5518
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 : 5849
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 : 5518
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 : 5849
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 : 5518
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 : 5849
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 : 5518
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 : 5849
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
-
» Besoin de code pour poisson d'avril
» Des poissons siamois pour le 1er Avril
» Pluie de poisson d'avril
» Loto-beauté/8 avril
» Loto Loulou -13 avril

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