- procedure DrawCylinderIt(Detail : Integer);
- var a, d : Real;
- i : Integer;
- begin
- d := 2*PI/Detail;
- glBegin(GL_TRIANGLE_FAN);
- glVertex3f(0.0, 0.0, 0.0);
- a := d;
- for i := 0 to Pred(Detail) do
- begin
- glVertex3f(Cos(a), Sin(a), 0.0);
- a := a+d;
- end;
- glEnd;
- glBegin(GL_TRIANGLE_FAN);
- glVertex3f(0.0, 0.0, 1.0);
- a := d;
- for i := 0 to Pred(Detail) do
- begin
- glVertex3f(Cos(a), Sin(a), 1.0);
- a := a+d;
- end;
- glEnd;
- glBegin(GL_TRIANGLE_FAN);
- a := d;
- for i := 0 to Pred(Detail) do
- begin
- glVertex3f(Cos(a), Sin(a), 0.0);
- glVertex3f(Cos(a), Sin(a), 1.0);
- a := a+d;
- end;
- glEnd;
- end;