XProfan

PROC OK_HAKEN

    STARTPAINT _dlg& Wenn der Haken auf einem Dialogfenster stehen soll
    PARAMETERS R%,G%,B%,spalte%,zeile%,hoehe%,zeit%
    Parameter RGB-Farben,Anfang, Unterkante, Hakenhoehe, Zeichnungszeit
    DECLARE h_hoehe%,sp%,ze%
    h_hoehe%=(zeile%-(hoehe%/2))
    sp%=(spalte%+hoehe%/6):ze%=(zeile%-hoehe%/3)
    USEPEN 0,2,RGB(0,0,0)
    Ellipse sp%,ze%-(sp%+hoehe%),(ze%+hoehe%)
    TEXTCOLOR RGB(R%,G%,B%),-1

    WHILENOT h_hoehe% > zeile%

        DrawText spalte%,h_hoehe%,.
        DrawText (spalte%+2),h_hoehe%,.
        DrawText (spalte%+4),h_hoehe%,.
        INC h_hoehe%
        INC spalte%
        SLEEP zeit%

    ENDWHILE

    WHILENOT h_hoehe% < (zeile%-hoehe%)

        DrawText spalte%,h_hoehe%,.
        DrawText (spalte%+2),h_hoehe%,.
        DrawText (spalte%+4),h_hoehe%,.
        h_hoehe%=(h_hoehe%-2)
        INC spalte%
        SLEEP zeit%

    ENDWHILE

    ENDPAINT Siehe oben

ENDPROC

CLS
OK_HAKEN 0,200,0,100,50,30,10
OK_HAKEN 0,200,0,100,150,45,15
OK_HAKEN 0,200,0,100,250,60,20
WAITINPUT
FIN