Je teste PANORAMIC V 1 beta 1

rem ============================================================================
dim w,h,i,t,x,y
w = 400 : h = 400
picture 10 : width 10,w : height 10,h : 2d_target_is 10 : color 10,0,100,0
left 10,(width_client(0)-width_client(10))/2
top 10,(height_client(0)-height_client(10))/2 +10
font_color 0,255,0,0 : font_bold 0 : font_size 0,12
print_locate 220,5 : print "<ESC> pour sortir ..."
repeat
    t = t+0.1
    for i = 1 to 4
        for x = 0 to w step 2
            y = 50*sin(pi*x/w)*sin(pi*x/w+t+i*t*pi*0.01)
            2d_pen_color 200,100,120 : 2d_circle x,h/2+y,4
            y = 100*sin(pi*x/w)*sin(pi*x/w+t+i*t*pi*0.01)
            2d_pen_color 120,100,200 : 2d_circle w/2+y,x,4            
        next x
    next i
until scancode = 27
terminate
rem ============================================================================

rem ============================================================================
rem                           SpinColors
rem ============================================================================
dim cs(180),sn(180),angle,t,x,y,a,b,r,m
caption 0,"<ESC> pour sortir ..."
width 0,700 : height 0,600
picture 10 : width 10,640 : height 10,512 : top 10,20 : left 10,20
2d_target_is 10 : color 10,0,0,0
for angle = 0 to 180 step 0.1
    cs(angle) = cos(angle*pi/90)*400+320
    sn(angle) = sin(angle*pi/90)*400+256
next angle
repeat
    t = t + 1 : x = cos(t/90)*128+320 : y = sin(t/85)*128+256
    for a = 0 to 179
        r = 127 + cos(m) * 127 : b = 127 + cos(m*1.002) * 127 : m = m + .175
        2d_pen_color 255-r,b,r
     '   2d_poly_from x,y  : 2d_poly_to cs(a),sn(a) : 2d_poly_to cs(a+1),sn(a+1)
        2d_line x,y,cs(a),sn(a)
    next a
until scancode = 27
terminate
rem ============================================================================