- LightDirection[0] := 0.0;
- LightDirection[1] := -1.0;
- LightDirection[2] := 0.0;
- glLightfv(GL_LIGHT0, GL_SPOT_DIRECTION, @LightDirection[0]);
- glLightf (GL_LIGHT0, GL_SPOT_CUTOFF , 30.0);
- glLightf (GL_LIGHT0, GL_SPOT_EXPONENT , 50.0);
- glLightfv(GL_LIGHT0, GL_AMBIENT , @blau);
- glLightfv(GL_LIGHT0, GL_DIFFUSE , @gelb);
- glLightfv(GL_LIGHT0, GL_POSITION , @P[0]);
- glLightModel(GL_LIGHT_MODEL_TWO_SIDE,1);
- glBegin(GL_TRIANGLE_FAN);
- glNormal(0,-1, -1);glvertex(0,0,0);
- glVertex(-1,-1,-1);
- glVertex(1,-1,-1);
- glNormal( 1,-1,0); glVertex(1,-1,1);
- glNormal( 0,-1,1); glVertex(-1,-1,1);
- glNormal(-1,-1,0); glVertex(-1,-1,-1);
- glEnd;
- glBegin(GL_QUAD_STRIP);
- glNormal(0,-1,0); glVertex(-10,-1,-10);
- glVertex(-10,-1, 10);
- glVertex( 10,-1,-10);
- glVertex( 10,-1, 10);
- glEnd;