- procedure TField.Draw;
- procedure Sphere;
- begin
- gluSphere(gluNewQuadric,0.3,10,5);
- end;
- begin
- glPushMatrix;
- glTranslatef(FPosX,FPosY,0);
- //Grundfläche
- if Selected then
- TextureManager.BindTexture('selected.bmp')
- else
- TextureManager.BindTexture('field.bmp');
- glBegin(GL_QUADS);
- gltexcoord2f(0,0); glVertex2f(0,0);
- gltexcoord2f(1,0); glVertex2f(1,0);
- gltexcoord2f(1,1); glVertex2f(1,1);
- gltexcoord2f(0,1); glVertex2f(0,1);
- glEnd;
- if FOwner<>nil then
- TextureManager.BindTexture(FOwner^.FTexture);
- glTranslatef(0,0,0.4);
- case FCount of
- 1: begin
- glTranslatef(0.5,0.5,0);
- Sphere;
- end;
- 2: begin
- glTranslatef(0.25,0.25,0);
- Sphere;
- glTranslatef(0.5,0.5,0);
- Sphere;
- end;
- 3: begin
- glTranslatef(0.25,0.25,0);
- Sphere;
- glTranslatef(0.5,0,0);
- Sphere;
- glTranslatef(-0.25,0.5,0);
- Sphere;
- end;
- end;
- glPopMatrix;
- end;