XProfan

declare beweg%

Proc Menue

    appendmenubar 1,"©"
    appendmenubar 103,"&Start"
    appendmenubar 102,"&Stop"
    appendmenubar 202,"&Einstellungen"
    appendmenubar 303,"&Ende"
    POPUP "Help"
    APPENDMENU 401,"Hilfe"
    APPENDMENU 402,"Info"
    Separator
    APPENDMENU 403,"Über"

endproc

proc start

    windowstyle 31
    Window 1,1-1100,800
    menue
    beweg%=1

endproc

PROC zuEnde

    MessageBox "Wollen Sie wirklich beenden?",
    "Frage:",36

    if %Button = 6

        Let Ende%=1

    endif

ENDPROC

Proc Einstell

    oGL("Clear")
    windowstyle 31
    Window 1,1-1100,800
    CLS 0
    waitkey

endproc

declare time&, frames%
declare rtri!, rquad!

proc DrawGLScene

    oGL("Clear")
    oGL("Origin", -1.5, 0, -6)
    oGL("Color", 0, 0, 1, 1)
    oGL("Rotate", 0, rtri!, 0)
    oGL("Cuboid", 2, 2, 1)
    oGL("Origin", 1.5, 0, -6)
    oGL("Color", 1, 0, 0, 1)
    oGL("Rotate", rquad!, 0, 0)
    oGL("Cylinder", 1.1, 1.25, 3, 38)
    oGL("Show")
    case beweg% = 1 :rtri! = rtri! + 9
    case beweg% = 1 :rquad! = rquad! - 5

endproc

Hauptprogramm
-------------
start
declare ende%
time&   = &GetTickCount
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
oGL("PosMode", 1)
DrawGLScene()
setTimer 20  max 50 Frames /sek.

WhileNot ende%

    WaitInput

    if isKey(27)

        ende% = 1

    endif

    DrawGLScene()
    inc frames%

    if &GetTickCount - time& >= 1000   1 Sekunde ist rum

        setText %hWnd, str$(frames%) + " Frames/sek"
        time&   = &GetTickCount
        frames% = 0

    ElseIf @MenuItem(102)

        beweg% = 0

    ElseIf @MenuItem(103)

        beweg% = 1

    ElseIf @MenuItem(303)

        zuEnde

    ElseIf @MenuItem(202)

        einstell

    endif

EndWhile

killTimer
end