Vertigo : Ça donne le vertige

rem ============================================================================
rem             Vertigo
rem ============================================================================
dim a,r,xc,yc,xp,yp,s
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour arrêter ....."
2d_fill_color 100,0,100
s = 1
repeat
   a = a + s*.0123456789 : r = r + s*.0123456789
   xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a)
   2d_pen_color rnd(255),000,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,30 : 2d_circle yp,xp-yp*1.2,30
   2d_pen_color mod(abs(255-r),255), rnd(100),mod(rnd(abs(r-255)),255):2d_circle xp-yp,xp-yp/1.25,20 : 2d_circle xp-yp,xp-yp*1.2,20
   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
   if abs(r) > 150 then r = 150-150 :  s = 0-s  : cls
until scancode <> 0
rem ============================================================================

rem ============================================================================
rem             Vertigo
rem ============================================================================
dim a,r,xc,yc,xp,yp,s, c
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour arrêter ....."
2d_fill_color 100,0,100
s = 1 : c = 1
repeat
   a = a + s*.0123456789 : r = r + s*.0123456789
   xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a)
   2d_pen_color rnd(255),xp / 7, yp / 5
   if c = 1 then 2d_circle xp, yp,50
   if c = 2 then 2d_circle xp+yp,xp-yp,40 : 2d_circle yp,xp-yp/1.25,30
   if c = 3 then 2d_circle xp-yp,xp-yp/1.25,20 : 2d_circle 1300-xp+yp,700-(xp-yp*1.2),20 :  2d_circle 400 + yp,xp-yp*1.4,20
   if abs(r) > 350 then r = 0 :  s = 0-s  : c = c + 1 : cls
   if c > 3 then c = 1
until scancode <> 0
rem ============================================================================