- procedure TGLForm.Draw();
- procedure Gitter2D();
- var
- I,J: Integer;
- begin
- for j := 0 to 9 do
- begin
- for i := 0 to 9 do
- begin
- glBegin(GL_LINES);
- glVertex3f(0,0,0);
- glVertex3f(9,0,0);
- glEnd;
- glTranslatef(0,1,0);
- end;
- glTranslatef(0,-10,-1);
- end;
- end;
- var
- i,j:Integer;
- begin
- glColor3f(0,0,1);
- glTranslatef(0,0,-30);
- sleep(1);
- if x then
- inc(xGrad);
- if y then
- inc(yGrad);
- if z then
- inc(zGrad);
- glRotatef(xGrad,1,0,0);
- glRotatef(yGrad,0,1,0);
- glRotatef(zGrad,0,0,1);
- Gitter2D;
- glRotatef(90,0,0,1);
- glTranslatef(0,-9,10);
- Gitter2D;
- glRotatef(90,0,1,0);
- glTranslatef(-10,0,9);
- Gitter2D;
- end;