XProfan

 {$iq}
//compiliert der gleiche Fehler

proc DrawGLScene

    oGL("Clear")
    oGL("Rotate", 0, 0, 45)
    x%=(-9)
    y%=(-9)

    While x% < 10

        y% = (-9)

        While y% < 10

            oGL("Origin", x%, (-1), y%)
            oGL("Sphere", 0.3, 16, 16)
            inc y%

        EndWhile

        inc x%

    EndWhile

    oGL("Show")//wenn auskommentiert dann ist alles gut nur ebend keine Anzeige :(

endproc

' Hauptprogramm
declare ende%,x%,y%
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
DrawGLScene()
ende% = 0
SetTimer 100

WhileNot ende%

    WaitInput

    If %WMTimer

        DrawGLScene()

    endIf

    if %key = 27

        ende% = 1

    endif

EndWhile

KillTimer
end