Le triangle de Penrose

' ------------------------------------------------------------------------------
'  Le triangle de Penrose
'  Marc37 - Février 2017 - Panoramic v0.9.27
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
' ------------------------------------------------------------------------------
WIDTH 0,600
HEIGHT 0, 600
LEFT 0,(SCREEN_X-WIDTH(0))/2
TOP 0,(SCREEN_Y-HEIGHT(0))/2
LABEL Quitter
Dessin()
ON_CLOSE 0, Quitter
ON_CLICK 1, Quitter
END
' ------------------------------------------------------------------------------
SUB Dessin()
    DIM_LOCAL i%
    PICTURE 1
    FULL_SPACE 1
    2D_TARGET_IS 1
    COLOR 1,250,230,200
    2D_PEN_COLOR 1,1,1
    2D_FILL_COLOR 1,1,1
    2D_POLY_FROM 300,284
    2D_POLY_TO 223,423
    2D_POLY_TO 499,423
    2D_POLY_TO 330,119
    2D_POLY_TO 269,119
    2D_POLY_TO 409,370
    2D_POLY_TO 252,370
    2D_POLY_FROM 347,370
    2D_POLY_TO 269,227
    2D_POLY_TO 130,480
    2D_POLY_TO 100,423
    2D_POLY_TO 269,119
    2D_POLY_FROM 130,480
    2D_POLY_TO 470,480
    2D_POLY_TO 499,423
    2D_FLOOD 270,175,130,130,130
    2D_FLOOD 185,445,20,20,20
    2D_FLOOD 445,385,250,250,250
    FOR i% = 90 to 1 STEP -1
        2D_PEN_COLOR 160+i%,160+i%,160+i%
        2D_LINE (252+i%),371,(223+i%),423
    NEXT i%
    FOR i% = 1 to 90
        2D_PEN_COLOR 130-i%,130-i%,130-i%
        2D_LINE 299+i%*0.55,279+i%,358+i%*0.55,279+i%
    NEXT i%
END_SUB
' ------------------------------------------------------------------------------
Quitter:
    TERMINATE
RETURN