Dear DelphiGL community.
Can you help me with one TextSuite problem (http://www.dev-center.de/projects/textsuite). This tool is easy to implement but when I call text drawings, my whole 3D models (created before and after) dissapears. I can see only text generated by TextSuite but background is black all over the screen. But Camera movement and rotation works.
I will try to type out my OpenGL code below:
Code:
> 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
Thanks for help! SpaM
|