XProfan

Italia

Folgender Source prüft ob der Testmode funktioniert - aber nicht - ob der Testmode überall richtig funktioniert. Wenn der Treiber den Testmode überhauptnicht hergibt, so gibt die Funktion 0 Null zurück, andernfalls 1. Es gibt aber dennoch Situationen wo hier 1 zurückgegeben wird, aber der Testmode trotzdem kein perfektes Ergebnis liefert. Manche Treiber muscheln irgend ein Ergebnis daher - als wenn geschätzt wird - was ich bei Grafikkartentreibern festgestellt habe wo die Grafikkarte kein echtes 3D supportati. Vielleicht gelingt es mir diese Funktion hier irgendwann mal derart zu perfektionieren das auch der gefälschte Testmode erkannt wird und somit 0 zurückgegeben wird.
Kompilieren Markieren Separieren

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