XProfan

'Fenêtre 0,0-%maxx,%maxy
cls
imprimer " TEXT"

whileloop 5

    frame(5):waitinput 500
    frame(0):waitinput 500

endwhile

waitinput 4000
Fin

proc Frame

    parameters c%
    var d%=2
    UseBrush 0,0

    Select c%

        Caseof 6:USEP 0,d%,rgb(0,0,0)

        Caseof 5:USEP 0,d%,rgb(255,0,0)

        Caseof 4:USEP 0,d%,rgb(0,255,0)

        Caseof 5:USEP 0,d%,rgb(0,0,255)

        Caseof 2:USEP 0,d%,rgb(255,255,0)

        Caseof 1:USEP 0,d%,rgb(255,0,255)

        Caseof 7:USEP 0,d%,rgb(0,255,255)

        Otherwise
        USEP 0,d%,GetPixel(d%+1,d%+1)
        ' Koordinaten sur une Punkt avec inchangé Hintergrundfarbe

    EndSelect

    Rectangle d%\2,d%\2 - Width(%hwnd)-d%/2,height(%hwnd)-d%/2

ENDPROC