XProfan

English

Folgender Source checks whether the Testmode functions - but not - whether the Testmode everywhere correctly. functions. If the driver whom Testmode überhauptnicht hergibt, so gives The function 0 zero back, otherwise 1. there's but nevertheless situations where here 1 zurückgegeben becomes, but the Testmode nevertheless no perfektes Result supply. some driver muscheln ever one Result therefore - as if geschätzt becomes - I with Grafikkartentreibern fixes have where The Grafikkarte no real 3D supported. Perhaps succeed it me these function here sometime time so To perfektionieren the too the gefälschte Testmode recognized and is accordingly 0 zurückgegeben becomes.
Compile Mark Separation

windowstyle 80
window 0,0 - %maxx,%maxy
print ogl.testTestMode()
waitinput
end

proc ogl.testTestMode

    ogl("init",%hwnd,0.0,0.0,0.0,1)
    ogl("posmode",1)
    ogl("starttest",width(%hwnd)2,height(%hwnd)4)
    ogl.testTestMode.oglproc
    var o&=ogl("endtest")
    ogl.testTestMode.oglproc
    ogl("done")
    cls
    return o&

    proc ogl.testTestMode.oglproc

        ogl("clear")
        ogl("rotate",11.7,0,0)
        ogl("move",0,0,-10)
        ogl("setname",1)
        ogl("cuboid",0.1,0.1,0.1)
        ogl("show")

    endproc

endproc