- PROCEDURE TForm1.CreateRoom(x1,z1,x2,z2:Single);
- VAR
- WallLength: Single;
- WallHeight: Single;
- BEGIN
- WallLength := sqrt(power((x2*100-x1*100),2)+power((z2*100-z1*100),2));
- WallHeight := sqrt(power((x2*100-x1*100),2)+power(20,2));
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(X1*100,0,-Z1*100);
- glTexCoord2f(0,1*WallHeight); glVertex3f(X1*100,20,-Z1*100);
- glTexCoord2f(1*WallLength,1*WallHeight); glVertex3f(X2*100,20,-Z2*100);
- glTexCoord2f(1*WallLength,0); glVertex3f(X2*100,0,-Z2*100);
- glEnd;
- END;