Курсовая работа: Управление элементами поверхности

HRC:=wglCreateContext(DC);

wglMakeCurrent (DC, HRC);

glViewport (0, 0, ClientWidth-Panel1. Width, ClientHeight);

glClearColor (0,0,0,0);

glEnable (GL_DEPTH_TEST);

glMatrixMode (GL_PROJECTION);

glLoadIdentity;

gluPerspective (30.0, ClientWidth / ClientHeight, 0.1, 1000.0);

glMatrixMode (GL_MODELVIEW);

glLoadIdentity;

glEnable (GL_TEXTURE_2D); // Enable Texture Mapping

LoadTexture ('texture.bmp', MyTextureTex, FALSE);

with Human do

begin

with Position do

begin

x:=6.4;

y:=0;

z:=-0.3878;

end;

with Rotation do

begin

y:=91;

zx:=10;

end;

end;

end;

procedure TForm1. FormDestroy (Sender: TObject);

begin