- if speed<>0 then
- u:=(Local mod speed)/speed else u:=0;
- v:=u+1;
- glColor4f(1,1,1,alpha);
- glBegin(gl_Quads);
- for i:=0 to 29 do
- begin
- glColor4f(1,1,1,alpha);
- glTexCoord2f(u,(i)/30);
- glVertex3f(Sin((i)/15*pi)*Rad, Cos((i)/15*pi)*rad, -1.4);
- glTexCoord2f(u,(i+1)/30);
- glVertex3f(Sin((i+1)/15*pi)*Rad, Cos((i+1)/15*pi)*rad, -1.4);
- glColor4f(1,1,1,0);
- glTexCoord2f(v,(i+1)/30);
- glVertex3f(Sin((i+1)/15*pi)*Rad, Cos((i+1)/15*pi)*rad, -1.4-size);
- glTexCoord2f(v,(i)/30);
- glVertex3f(Sin((i)/15*pi)*Rad, Cos((i)/15*pi)*rad, -1.4-size);
- end;
- glEnd();