XProfan

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

mientras que 1

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

wend

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

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

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

    Width  := R.Right;

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

            if OGLwh <= 0 then wh := Width/Height más wh := OGLwh;

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

                if (rendermode = GL_RENDER) Then Begin

                    glMatrixMode(GL_PROJECTION);
                    glLoadIdentity();
                    gluPerspective(45.0, wh, 0.1, oGLDepth);
                    End;
                    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;
                    End;