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

GL_DEPTH_BUFFER_BIT);

glLoadIdentity;

glRotatef (Human. Rotation.zx, Abs (cos(DegToRad (Human. Rotation.y))), 0,0);

glRotatef (Human. Rotation.y, 0,1,0);

glTranslatef (Human. Position.x,

Human. Position.y,

Human. Position.z);

Draw;

EndPaint (Handle, ps);

SwapBuffers(DC);

end;

procedure TForm1. FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

changemas;

end;

procedure TForm1. FormMouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

GetCoordinate (x, y);

end;

end.