- procedure Draw_Pyramid;
- begin
- glCullFace(GL_BACK);
- glenable(GL_CULL_FACE);
- glbegin(GL_TRIANGLE_STRIP );
- glcolor3f(1,0,0);
- glvertex3d(0.5,0,-0.88);
- glcolor3f(0,1,0);
- glvertex3d(0.5,0,0.88);
- glcolor3f(0,0,1);
- glvertex3d(-1,0,0);
- glcolor3f(1,1,0);
- glvertex3d(0,1,0);
- glcolor3f(1,0,0);
- glvertex3d(0.5,0,-0.88);
- glcolor3f(0,1,0);
- glvertex3d(0.5,0,0.88);
- glEnd();
- gldisable(GL_CULL_FACE);
- end;