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

if Human. Rotation.y<0 then Human. Rotation.y:=360;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Human. Rotation.y:=Human. Rotation.y+4;

if Human. Rotation.y>=360 then Human. Rotation.y:=0;

if Human. Rotation.y<0 then Human. Rotation.y:=360;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

glPolygonMode (GL_FRONT_AND_BACK, GL_LINE);

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

Human. Rotation.zx:=Human. Rotation.zx+0.2;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

Human. Rotation.zx:=Human. Rotation.zx-0.2;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

vis:=0;

initmas;

DC:=GetDC(Handle);