- procedure TForm_Anzeige.Koordinatensystem;
- var i: integer;
- begin
- glBegin(GL_Lines);
- glLineWidth(3);
- glColor3f(1,0,0);
- glVertex3f(-30,0,0);
- glVertex3f(30,0,0);
- for i:=-30 to 30 do
- begin
- glVertex2f(i,-0.1);
- glVertex2f(i,0.1);
- end;
- glColor3f(0,1,0);
- glVertex3f(0,-30,0);
- glVertex3f(0,30,0);
- for i:=-30 to 30 do
- begin
- glVertex2f(-0.1,i);
- glVertex2f(0.1,i);
- end;
- glColor3f(0,0,1);
- glVertex3f(0,0,-30);
- glVertex3f(0,0,30);
- for i:=-30 to 30 do
- begin
- glVertex3f(0,-0.1,i);
- glVertex3f(0,0.1,i);
- end;
- glEnd;
- end;