- > START OF THE RENDERING
- if (CanvasWidth <> Canvas.ClientWidth) or (CanvasHeight <> Canvas.ClientHeight) then ReCreate;
- ActivateRenderingContext(DC, RC);
- SetAntiAliasing; // ON
- SetBlend; // ON
- SetDepthTest; // ON
- SetFaceCulling; // ON
- SetLights; // ON
- SetFog; // OFF
- glClearColor(r, g, b, w); // BLACK COLOR
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glLoadIdentity;
- // CAMERA
- gluLookAt(CameraPosX, CameraPosY, CameraPosZ, CameraPosX + CameraViewX, CameraPosY + CameraViewY, CameraPosZ + CameraViewZ, CameraUpX, CameraUpY, CameraUpZ);
- // SCENE
- glRotatef(RotateZ, 0.0, 0.0, 1.0);
- glRotatef(RotateY, 0.0, 1.0, 0.0);
- glRotatef(RotateX, 1.0, 0.0, 0.0);
- glTranslatef(TranslateX, TranslateY, TranslateZ);
- glScalef(ScaleX, ScaleY, ScaleZ);
- // SAVE FOR LONGER USE
- glGetDoublev(GL_PROJECTION_MATRIX, @ProjectionMatrix);
- glGetDoublev(GL_MODELVIEW_MATRIX, @ModelViewMatrix);
- glGetIntegerv(GL_VIEWPORT, @ViewPortMatrix);
- > DRAWINGS SOME 3D OBJECTS
- //DRAWINGS TEXTSUITE TEXT
- tsTextColor3f(r, g, b); // RED COLOR
- glDisable(GL_LIGHTING);
- glPushMatrix;
- glTranslatef(v.X, v.Y, v.Z);
- tsTextOutW(PWideChar(WideString(text)));
- glPopMatrix;
- glEnable(GL_LIGHTING);
- > DRAWINGS SOME 3D OBJECTS
- SwapBuffers(DC);
- > END OF THE RENDERING