Le Forum est en vacances.

rem ============================================================================
rem        Le Forum est en vacances
rem ============================================================================

width 0,1000 : height 0,600
picture 10 : full_space 10 : 2d_target_is 10 : color 10,150,100,50 : 2d_pen_color 255,0,0
alpha 20 : color 20,150,100,50 : width 20,300 : height 20,100 : font_bold 20 : font_size 20,16
font_name 20, "comic sans ms" : top 20,120 : left 20,350 : font_color 20,255,255,255
caption 20,"Coucou !" + chr$(13) + "Il y a quelqu'un " + chr$(13) + "sur ce Forum ?"
alpha 30 : color 30,150,100,50 : width 30,300 : height 30,100 : font_bold 30 : font_size 30,16
font_name 30, "comic sans ms" : top 30,50 : left 30,750 : font_color 30,255,255,255
caption 30, "Ce silence m'inquiète !"
caption 0, "Le Forum est en vacances !"
Le_Coucou(width(10)/4,height(10)/2)
La_Dame()
end
rem ============================================================================
' Courbe en coordonnée polaire
SUB Le_Coucou(xc,yc)
    dim_local r,t,x,y,p
    p = pi/180                      : ' ça correspond à un pas de variation de 1°
    r = sin(power(2,t)) - 1.7       : ' Equation polaire de la courbe
    x = r*cos(t) : y = r*sin(t)     : ' Coordonnées cartésiennes
    2d_poly_from xc+50*x,yc-50*y    : ' Point de départ
    for t = p to 2*pi step p
        r = sin(power(2,t)) - 1.7   : x = r*cos(t) : y = r*sin(t)
        2d_poly_to xc+50*x,yc-50*y  : ' tracé de la courbe
    next t
    2d_fill_color 0,0,0 : 2d_circle xc+20,yc-10,5 : ' Ajouter un oeil
    2d_fill_off : 2d_circle xc+20,yc-10,10 : 2d_flood xc,yc,255,0,0
END_SUB
rem ============================================================================
SUB La_Dame()
    2d_fill_on : 2d_fill_color 150,100,200 : 2d_pen_color 150,100,200 : 2d_circle 680,50,40
    2d_poly_from 600,100
    2d_poly_to 760,100 : 2d_poly_to 800,220 : 2d_poly_to 770,220 : 2d_poly_to 740,150
    2d_poly_to 700,200 : 2d_poly_to 760,350 : 2d_poly_to 710,350 : 2d_poly_to 690,500
    2d_poly_to 660,500 : 2d_poly_to 640,350 : 2d_poly_to 590,350 : 2d_poly_to 660,200
    2d_poly_to 620,150 : 2d_poly_to 590,220 : 2d_poly_to 560,220 : 2d_poly_to 600,100
    2d_flood 650,150,150,100,200
END_SUB
rem ============================================================================