Code minimal, effet visuel spectaculaire !

dim x,y,xc,yc,d,i,t
full_space 0 : caption 0,"!!! Veuillez patienter !!!  <ESC> pour arrêter"
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
d = 1.20123456789 + rnd(1) : xc = width_client(10)/2 : yc = height_client(10)/2
while scancode <> 27
    i = i + 1.25 : t = d*power(i,d) : x = x + sin(t) : y = y + cos(t)
    2d_pen_color mod(i,255),rnd(255),mod(i,255)
    2d_point xc+x,yc+y:2d_point xc-x,yc-y:2d_point xc+x,yc-y:2d_point xc-x,yc+y
end_while
terminate

rem ============================================================================
dim a,r,xc,yc ,xp,yp
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0
caption 0,"Faire et défaire ... Attention les yeux !!! <ESC> pour arrêter ....."
repeat
   a = a+.0123456789 : r = r+.0123456789  : xp = xc+2*r*COS(a) : yp = yc+r*SIN(a): if r > 200 then r = 0
   2d_pen_color 255,rnd(255),150 : 2d_rectangle xp-40,yp-40,xp+40,yp+40 : xp = xc+r*COS(a+.079*9) : yp = yc+r*SIN(a+.079*9)
   2d_pen_color rnd(255),0,155 : 2d_circle xp, yp,50 : 2d_pen_color 255,rnd(255),255 : 2d_circle xp+yp,xp-yp,40
   2d_pen_color rnd(150),150,rnd(150) : 2d_circle yp,xp-yp/1.25,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_rectangle xp-yp,yp,yp,xp-yp/1.5
   2d_pen_color 255,rnd(255),rnd(255) : 2d_circle yp,xp-yp,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_circle xp+xp/3+yp/4,xp-yp,50
until scancode = 27
terminate
rem ============================================================================