65: begin

Human. Position.z:=Human. Position.z+

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

87: begin

Human. Position.z:=Human. Position.z+

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

68: begin

Human. Position.z:=Human. Position.z-

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

83: begin

Human. Position.z:=Human. Position.z-

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

end;

При нажатии клавиши изменяется позиция наблюдателя в пространстве.

2.4 Изменение поверхности ландшафта

Чтобы изменить поверхность мы сначала должны получить координаты изменяемой поверхности. Получение координат реализуется процедурой GetCoordinate. Далее происходит изменение массива высот:

…

i:=Trunc(wx);