- procedure glDraw(x:integer);
- var
- help : stars;
- begin
- glLoadIdentity();
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glTranslate(0, 0,-7);
- glRotatef(x/2, 0,0,1);
- help := star; //star globale Variable vom dynamischen Datentyp
- glBegin(GL_Lines{GL_LINE_LOOP});
- repeat
- if star^.koord.z > 7 then
- begin
- delete(star);
- add(star);
- end
- else
- begin
- glColor3f(star^.koord.z/5,star^.koord.z/6,star^.koord.z/7);
- glVertex3f(star^.koord.x, star^.koord.y, star^.koord.z);
- star^.koord.z := star^.koord.z + star^.speed;
- glVertex3f(star^.koord.x, star^.koord.y, star^.koord.z);
- star := star^.next;
- end;
- until help = star;
- glend;
- end;