XProfan

cls
OGL("init",%hWnd,0,0,0,1)

tandis que 1

    ogl("Clear")
    ogl("show")

Wend

procedure fnOGLClear;
{-------------------}
var wh: double;
R:  TRect;
width, height: integer;
rendermode: longint;
Begin

si oGLWnd = 0 Then FehlerNr(400,'');

    GetClientRect(oGLWnd,R);
    Height := R.Bottom;

    Width  := R.Right;

        si (Height = 0) then Height := 1;

            si OGLwh <= 0 then wh := Width/Height d'autre wh := OGLwh;

                glViewport(0, 0, Width, Height);
                glGetIntegerv(GL_RENDER_MODE, @rendermode);

                si (rendermode = GL_RENDER) Then Begin

                    glMatrixMode(GL_PROJECTION);
                    glLoadIdentity();
                    gluPerspective(45.0, wh, 0.1, oGLDepth);
                    Fin;
                    glMatrixMode(GL_MODELVIEW);
                    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT or
                    GL_ACCUM_BUFFER_BIT or GL_STENCIL_BUFFER_BIT);
                    glLoadIdentity;
                    glTranslated(0, 0, 0.0000001);
                    RPar.Dbl := wh;
                    RPar.Typ := 4;
                    Found := True;
                    Fin;