Yin And Yang

rem ============================================================================
rem                         YinAndYang
rem                 By Papydall 30 / 06 / 2024
rem ============================================================================
width 0,700 : height 0,600
picture 10 : width 10,640 : height 10,480 : 2d_target_is 10 : color 10,200,100,10
left 10,(width_client(0)-width_client(10))/2
top 10,(height_client(0)-height_client(10))/2
caption 0,"Yin and Yang"
' ------------------------------------------------------------------------------
 Draw(640/2,480/2,480/4)              : ' tracé central
 Draw(100,100,50) : Draw(100,400,50)  : ' Haut / gauche et Bas / gauche
 Draw(550,100,50) : Draw(550,400,50)  : ' Haut / droit et bas / droit
 Draw(320,50,20)  : Draw(320,450,20)  : ' Milieu / haut et milieu / bas
 Draw(100,240,20) : Draw(550,240,20)  : ' Milieu / gauche et milieu / droit
end
rem ============================================================================
SUB Draw(x,y,r)
    dim_local n, x1,x2,y1,y2
    for n = 0 to pi*1.5 step pi/r
        x1 = x + (r / 2) * cos(n) : y1 = y + (r / 2) * sin(n)
        x2 = x - (r / 2) * cos(n) : y2 = y - (r / 2) * sin(n)
        2d_pen_color 000,000,000 : 2d_fill_color 000,000,000 : 2d_circle x1, y1, r/2
        2d_pen_color 255,255,255 : 2d_fill_color 255,255,255 : 2d_circle x1, y1, r/4
        2d_pen_color 255,255,255 : 2d_fill_color 255,255,255 : 2d_circle x2, y2, r/2
        2d_pen_color 000,000,000 : 2d_fill_color 000,000,000 : 2d_circle x2, y2, r/4
        pause 1  : ' Pour suivre le tracé ; mettre en REM pour tracé immédiat
    next n
END_SUB
rem ============================================================================