procedure TForm1.ClipPlane; begin glPushMatrix; //rotace orezavani glRotatef(-UhelY+180,0,1,0); //pozice orezavani Plane.x := 0; Plane.y := 0; Plane.z := Z; Plane.a := 1; //zapnuti orezavani glEnable(GL_CLIP_PLANE0); glClipPlane(GL_CLIP_PLANE0, @Plane); glPopMatrix; end;