XProfan

Français

Folgender Source prüft si qui Testmode funktioniert - mais pas - si qui Testmode überall richtig funktioniert. si qui Treiber den Testmode überhauptnicht hergibt, so gibt qui Funktion 0 zéro zurück, andernfalls 1. il y a mais toutefois Situationen wohin ici 1 retour wird, mais qui Testmode quand même ne...aucune perfektes Ergebnis liefert. Manche Treiber muscheln irgend un Ergebnis daher - comme si geschätzt wird - quoi je chez Grafikkartentreibern festgestellt habe wohin qui Grafikkarte ne...aucune réel 3D soutenu. peut-être gelingt es mir cet Funktion ici irgendwann la fois derart trop perfektionieren cela aussi qui gefälschte Testmode erkannt wird et somit 0 retour wird.
Kompilieren Marque Séparation

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