Ceci n'est pas un poisson d'avril

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"

Salut Papydall,

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

Très joli.

A+

Invité

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!

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.

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"

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

Vraiment super et effectivement simple...
enfin, plutôt court, parce que simple... pas tant que ça !
Bravo !!!!!
cheers

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"

Bonjour Jicehel!
C'est plus réaliste, comme ça!

Super,

les 2 sont bien.

A+

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

+1, très joli tout ça, bravo à tous (en tenant compte du peu de code mis en jeu).

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

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...

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"

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"

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+

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.

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.

Cool, bon courage et deux semaines, c'est tout à fait raisonnable comme délais Wink

» comment ont-ils pu programmer ceci?
» Si ceci n’est pas un bug, alors je ne comprends plus rien !
» Comme le poisson
» Poisson d'avril
» Nous sommes le 1er Avril : Jour du Poisson d'Avril !