OpenGl.Создание винтовой лестницы.

[Владислав-0-]

Здравствуйте, сейчас я пытаюсь на OpenGl нарисовать винтовую лестницу, но если честно я вообще ничего не могу придумать , может есть у кого образцы или гайды какие нибудь по созданию лестниц. Если есть у кого нибудь, то я буду очень признателен.

[Rin]

type
TP=record
x,z:extended;
var
i:integer;
v:array [0..119] of TP;
r:extended=0.7;
y:extended=0;
angle:integer=0;

begin
..............
// заполнение массива точками.
// по этой формуле вычисляется контур окружности радиусом r.
for I := 0 to 119 do
  begin
  v[i].X:=r*cos(angle*pi/180);
  v[i].Z:=r*sin(angle*pi/180);
  angle:=angle+3;
  end;
........
{ А тут рисуем спираль.}
for i:= 0 to 358 do
begin
glBegin(GL_TRIANGLE);
glVertex3f(0,y,0);
glVertex3f(v[i mod 119].x,y,v[i mod 119].z);
glVertex3f(v[i mod 119+1].x,y,v[i mod 119+1].z);
glEnd;
y:=y+r/120;
end;

[Rin]

Вот баловство.

[Владислав-0-]

Спасибо большое.