- Procedure DrawGround;
- begin
- glPushMatrix;
- Scroolpos := Scroolpos + (Scrollspeed * TimeFactor);
- if >= 128 then Scroolpos := 0;
- glTranslatef(0,Scroolpos,0);
- GroundImage.Bind;
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(0,768,-2);
- glTexCoord2f(0,6+1); glVertex3f(0,0-128,-2);
- glTexCoord2f(8,6+1); glVertex3f(1024,0-128,-2);
- glTexCoord2f(8,0); glVertex3f(1024,768,-2);
- glEnd;
- glPopMatrix;
- end;