Enigme : Sauriez-vous isoler ces porteurs du Coronavirus ?

rem ============================================================================
rem                   Enigme Covid-19
rem    Sauriez-vous comment faire pour isoler ces porteurs du Coronavirus ?
rem ============================================================================
label solution
dim t$,essai
width 0,950 : height 0,600
picture 10 : width 10,450 : height 10,450 : left 10,20 : top 10,20 : 2d_target_is 10
alpha 20 : top 20,20 : left 20,500 : font_name 20,"arial black" : font_size 20,12
button 30 : top 30,300 : left 30,550 : width 30,300 : font_bold 30 : font_size 30,12
caption 30,"Solution" : on_click 30,solution
t$ = "Neuf personnes sont dans un enclos carré." + chr$(13)
t$ = t$ + "Les neufs personnes sont malades." + chr$(13)
t$ = t$ + "Il faut les séparer (Covid-19 oblige !)" + chr$(13)
t$ = t$ + "On demande de tracer deux carrés pour que" + chr$(13)
t$ = t$ + "chaque malade soit isolé des tous les autres." + chr$(13)+chr$(13)
t$ = t$ + "Sauriez-vous les isoler ?"

caption 20,t$
Afficher()
end
rem ============================================================================
SUB Afficher()
    dim_local x,y
    2d_pen_width 5 : 2d_pen_color 255,0,0
    2d_rectangle 0,0,450,450
    2d_pen_color 0,0,255
    for x = 75 to 450 step 150
        for y = 50 to 450 step 150
            Bonhomme(x,y)
        next y    
    next x
END_SUB
rem ============================================================================
Solution:
    essai = essai + 1
    select essai
        case 1 : message "Allons ! Allons ! Réfléchissez un chouia avant de redemander la solution!!!"
                 caption 30,"Une autre chance" : : return
        case 2 : message "Une dernière tentative! Sinon donnez votre langue au chat"
                 caption 30,"Donnez votre langue au chat" : return
    end_select    
    2d_pen_width 5 : 2d_pen_color 255,0,0
    2d_poly_from 0,225 : 2d_poly_to 225,0 : 2d_poly_to 450,225
    2d_poly_to 225,450 : 2d_poly_to 0,225
    2d_fill_off
    2d_rectangle 112,120,112+225,110+225
return
rem ============================================================================
SUB Bonhomme(x,y)
    2d_circle x,y,10
    2d_line x,y+10,x,y+50 : 2d_poly_to x-20,y+65 : 2d_line x,y+50,x+20,y+65
    2d_line x,y+20,x+20,y+30 : 2d_line x,y+20,x-20,y+30
END_SUB
rem ============================================================================

rem ============================================================================
rem                   Enigme Covid-19 bis
rem    Sauriez-vous comment faire pour isoler ces porteurs du Corona-virus ?
rem ============================================================================
label solution
dim i,j,x,y,xc,yc,angle,t$
width 0,1000 : height 0,600
xc = 260 : yc = 260
picture 10 : width 10,520 : height 10,520 : top 10,10 : left 10,10
2d_target_is 10 : 2d_pen_width 2
alpha 20 : top 20,20 : left 20,550 : font_name 20,"arial black" : font_size 20,12
button 30 : top 30,300 : left 30,550 : width 30,100 : font_bold 30 : font_size 30,12
caption 30,"Solution" : on_click 30,solution

t$ = "Dix personnes sont dans un enclos circulaire." + chr$(13)
t$ = t$ + "Elles sont disposées comme indiqué sur la figure" + chr$(13)
t$ = t$ + "Les dix personnes sont malades." + chr$(13)
t$ = t$ + "Il faut les séparer (Covid-19 oblige !)" + chr$(13)
t$ = t$ + "On demande de tracer trois cercles pour que" + chr$(13)
t$ = t$ + "chaque malade soit isolé des tous les autres." + chr$(13)+chr$(13)
t$ = t$ + "Sauriez-vous les isoler ?"

caption 20,t$

2d_fill_color 0,0,0 : 2d_circle xc,yc,10
2d_fill_off : 2d_pen_color 255,0,0
2d_circle xc,yc,250
degrees
2d_fill_color 0,0,0 : 2d_pen_color 0,0,0
angle = -45
for j = 1 to 3
    for i = 2 to 4
        angle = angle + 120
        x = j*70*cos(angle) : y = j*70*sin(angle)
        2d_circle xc+x,yc+y,10  
    next i
next j
end
rem ============================================================================
Solution:
    2d_fill_off : 2d_pen_color 255,0,0
    2d_circle xc+115,yc,135
    2d_circle xc-52,yc+102,135
    2d_circle xc-52,yc-102,135
return
rem ============================================================================