- glBegin( GL_TRIANGLE_STRIP );
- alpha := 90;
- while alpha >= 0 do
- begin
- x:=cos( DegToRad(alpha) );
- y:=sin( DegToRad(alpha) );
- Phoenix3D.Point( ( x*RadA ), ( y*RadA ), 0, 0, 0 );
- Phoenix3D.Point( ( x*RadI ), ( y*RadI ), 0, 0, 0 );
- alpha := alpha - Steps;
- end;
- glEnd();