Dessine-moi une galaxie

rem ============================================================================
rem                           Galaxie
rem ============================================================================
dim c,p,r,s,u,v,t,x,y,z
dim x0,y0
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
x0 = width_client(10)/2 : y0 = height_client(10)/2
caption 0,"Galaxie ... tracé en cours ... <ESC> pour terminer ..."
repeat
    2d_pen_color rnd(255),rnd(255),rnd(255)
    s = 0-log(rnd(1))
    t = s * 200 : u = s * 20 * sin(t) : v = s * 25 * cos(t) : p = s * 3
    c = cos(p) : s = sin(p)
    x = u * c + v * s : y = 0-u * s + v * c : r = x * x + y * y
    z = 40 * exp(0-r/1E3) * (rnd(1)-0.5)
    y = y + z + rnd(1)*5  : x = x - z * 0.7 + rnd(1) * 5
    x = x * 1.4 + y * 0.6 : y = x * 0.2 + y * 0.8
    2d_point x0 + x , y0 + y
until scancode = 27
rem ============================================================================