PPLOT - conversion depuis le Basic d'Hector ...

Le retour des courbes ...

Conversion depuis le basic de notre disparu Hector et très légèrement modifié

Code:

' Modif du code PPLOT écrit initialement en Basic sur HECTOR
' Code initial de DUTERTRE Eddy

dim H,V : H = 600: V = 400
dim F,L,A,I,R
dim x1,x2,x4,y1,y2,x,y

width 0, H + 20 : height 0, V + 40
picture 1: full_space 1 : 2d_target_is 1
x1=H/2: x2=x1*x1 : y1=V/1.4 : y2=V/2
2D_pen_dot

For x=0 to x1
  x4=power(x,2) : L=-1*y1 :  A = sqr(x2 - x4)
  For I= -1*A to A step V/10
    2d_pen_color abs(I/2)+x/2,255-abs(I/2), abs(A /2)
    R=sqr(X4+I*I)/x1 : F=(1-R)*cos(12*R) : Y=I/5+F*y2
    If Y > L
      L=y : y=y1-y : 2D_point x1-x,y : 2D_point x1+x,y
      wait 2
    End_if
  Next I
Next x
end

Bonjour Jicehel,
Alors comme ça je te donne un lien vers la doc d'Hector et tu commences à retranscrire les vieux code Basic III en Panoramic . Tu perds pas de temps à ce que je vois. Fouille bien dans la doc tu devrais trouver un vieux programme qui s'appelle je crois "Laby 3D" il me semble, et c'est de celui là que j'ai tiré le code de construction du sujet Labyrinthe, mais le programme est hard car plein de gosub et goto dans tous les sens!
Dans la revue 150ko pour Hector, tu dois avoir un programme qui s'appelle MANGE TOUT et qui devrait être sympa et amusant à retranscrire. Je voulais le faire, mais pas assez de temps, Planoramic m'accapare! Si le coeur t'en dit.
Bon à Plus et bon Hector! Nostalgique d'Hector

OK, j'y jetterai un oeil. Je pense faire des série jeux "à l'ancienne" puis version plus "moderne" avec Panoramic, mais bon, je ne sais pas combien j'y passerais de temps, on verra bien
Je pense reprendre des programmes puis en faire quelques variantes, améliorations puis passer à un autre.

Wiii, joli!! Et en si peu de lignes!
Me fait penser a une fontaine, et a un flan a la fois

Et encore, tu peux faire plus joli en changeant les 2D_point par des 2D_line (exemple en changeant toute la ligne par:

Code:

      L=y : y=y1-y : 2D_line x1-x,y,x1,y1 : 2D_line x1+x,y,x1,y1

ou encore:

Code:

      L=y : y=y1-y : 2D_line x1-x,y,x1,y1+I : 2D_line x1+x,y,x1,y1+I

Tu verra, c'est mignon aussi , voir celle la:

Code:

      L=y : y=y1-y : 2D_line x1-x,y,x1,y1+I*cos(R) : 2D_line x1+x,y,x1,y1+I*cos(R)

psychedelic!! par ici les bonnes herbes!!