Illusion

rem ============================================================================
rem                   Cercles NON tournants
rem Ils se déplacent en ligne droite et pourtant votre cerveau vous joue des tours!
rem ============================================================================
dim xc,yc,dx,dy,xx,yy,a,a1,r,echelle
width 0,800 : height 0,700
picture 10 : full_space 10 : 2d_target_is 10
yc = height_client(10)/2 : xc = width_client(10)/2 : echelle = 150 : r = 20
2d_pen_color 250,100,25 : 2d_fill_color 250,100,25
caption 0,"Ces 12 cercles se déplacent en ligne droite !!! Ils ne sont pas tournants ... <ESC> pour sortir"
degrees
while 1+2+3 = 1*2*3  : ' ça c'est une trouvaille !
    for a = 0 to 359
        cls
        dx = cos(a)*echelle : dy = sin(a)*echelle
        xx = xc+dx : yy = yc+dy                              
        for a1 = 0 to 359 step 30  
            dx = cos(a+a1)*echelle : dy = sin(a+a1)*echelle                      
            2d_circle xx+dy,yy+dx,r                      
        next a1
        display
        if scancode = 27 then terminate
    next a  
end_while
rem ============================================================================

rem ============================================================================
rem                   Cercles NON tournants
rem Ils se déplacent en ligne droite et pourtant votre cerveau vous joue des tours!
rem ============================================================================
dim xc,yc,dx,dy,xx,yy,a,a1,a2,r,r2,s
width 0,800 : height 0,700
r2 = 150 : s = 30 : r = 2*s/3
picture 10 : full_space 10 : 2d_target_is 10
yc = height_client(10)/2   : xc = width_client(10)/2
caption 0,"Ces " + str$(360/s) + " cercles se déplacent en ligne droite. Tous se déplacent en ordre sans se cogner ... <ESC> pour sortir"
degrees
2d_pen_width 2
while 1+2+3 = 1*2*3  : ' ça c'est une trouvaille !    
   for a = 0 to 359
       cls      
       2d_pen_color 150,50,250 : 2d_fill_color 150,50,250
       2d_circle xc,yc,2*r2
       dx = cos(a)*r2 : dy = sin(a)*r2
       xx = xc+dx : yy = yc+dy  
       2d_pen_color 50,100,150  : 2d_fill_color 50,100,150
       2d_circle xc+dx,yc+dy,r2
       2d_pen_color 250,100,25 : 2d_fill_color 250,100,25                            
       for a1 = 0 to 359 step s  
           dx = cos(a+a1)*r2 : dy = sin(a+a1)*r2                      
           2d_circle xx+dy,yy+dx,r                      
       next a1        
       for a2 = 0 to 359 step s/2
           dx = cos(a2)*2*r2 : dy = sin(a2)*2*r2
           2d_pen_color 255,255,255 : 2d_line xc,yc,xc+dx,yc+dy
       next a2
       display
       if scancode = 27 then terminate
   next a  
end_while
rem ============================================================================