- procedure glDraw();
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glEnable(GL_TEXTURE_2D);
- glloadidentity;
- glbindtexture(GL_TEXTURE_2D,tex);
- glbegin(gl_quads);
- gltexcoord2f(0,1);
- glvertex3f(-1.5, 1,-5);
- gltexcoord2f(1,1);
- glvertex3f( 1.5, 1,-5);
- gltexcoord2f(1,0);
- glvertex3f( 1.5,-1,-5);
- gltexcoord2f(0,0);
- glvertex3f(-1.5,-1,-5);
- glend;
- glDisable(GL_TEXTURE_2D);
- glloadidentity;
- gltranslatef(-2,0,-4);
- glcolor3f(1,0,0);
- glprint('TEST');
- glcolor3f(1,1,1);
- End;
- procedure glInit();
- begin
- glClearColor(0.0, 0.0, 0.0, 0.0);
- glShadeModel(GL_SMOOTH);
- glClearDepth(1.0);
- glEnable(GL_DEPTH_TEST);
- glDepthFunc(GL_LEQUAL);
- glBlendFunc(GL_SRC_ALPHA, GL_ONE);
- gldisable(GL_BLEND);
- glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
- glEnable(GL_COLOR_MATERIAL);
- glEnable(GL_LIGHTING);
- glEnable(GL_LIGHT0);
- glEnable(GL_LIGHT1);
- buildfont(h_dc);
- loadtexture('grafiktsb1.tga',tex,false);
- end;