Compatibilité avec ABasic

' Modif du code de Nardo basé sur le code de Jicehel basé sur le code de Lodchjo basé sur le code de JL35 ....  :)

dim lg,ha : lg = 300: ha = 200
dim x0,y0
dim x1,y1,x

width 0, 2*lg + 20 : height 0, 4*ha+ 40
picture 1: full_space 1
2d_target_is 1
dim pas:pas=140
2d_pen_color 255,0,0
for x=-2 to 2 step 0.01
 wait 20
 x0=x:x1=-1*(x)
 y0=abs(x)+sin(4-power(x,2))
 y1=abs(x)-sin(4-power(x,2))
 2D_Line lg-cos(lg)-(x0*pas),2*ha-(y0*pas),lg-sin(lg)+(x1*pas),2*ha-(y1*pas)

next x