- U:=1 / XCount;
- V:=1 / YCount;
- for y:=0 to YCount-1 do
- begin
- glPushMatrix;
- for x:=0 to XCount-1 do
- begin
- glBegin(GL_QUADS);
- glTexCoord2f(U*x, V*(y+1));
- glVertex3f(0, Map[x,y+1], 0);
- glTexCoord2f(U*x, V*y);
- glVertex3f(0, Map[x,y], 1);
- glTexCoord2f(U*(x+1), V*y);
- glVertex3f(1, Map[x+1,y], 1);
- glTexCoord2f(U*(x+1), V*(y+1));
- glVertex3f(1, Map[x+1,y+1], 0);
- glEnd;
- glTranslatef(1,0,0);
- end;
- glPopMatrix;
- glTranslatef(0,0,-1);
- end;