XProfan

Español

Folgender Source prüft si el Testmode funktioniert - pero no - si el Testmode überall correcto funktioniert. Wenn el Treiber el Testmode überhauptnicht hergibt, así son el Función 0 Null zurück, de otra manera 1. Lo son aber todavía Situationen wo hier 1 zurückgegeben se, pero la Testmode trotzdem kein perfektes Ergebnis liefert. Manche Treiber muscheln irgend una Ergebnis por lo tanto - como si geschätzt se - Yo en Grafikkartentreibern festgestellt habe wo el Grafikkarte kein echtes 3D unterstützt. Tal vez gelingt lo me esta Función hier irgendwann veces derart a perfektionieren el auch el gefälschte Testmode erkannt se y somit 0 zurückgegeben se.
Kompilieren Marca Separación

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