administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

TurtleWPF - TurnRight и TurnLeft изменил действия чтобы соответствовали названию

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2023-06-27 21:06:24 +03:00
parent 10ed6b670a
commit 4f81712a15
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bin/Lib/TurtleWPF.pas
View file

@ -13,10 +13,10 @@ procedure Back(r: real);
/// Поворачивает Черепаху на угол da по часовой стрелке /// Поворачивает Черепаху на угол da по часовой стрелке
procedure Turn(da: real); procedure Turn(da: real);
/// Поворачивает Черепаху на угол da по часовой стрелке /// Поворачивает Черепаху на угол da влево
procedure TurnLeft(da: real); procedure TurnLeft(da: real);
/// Поворачивает Черепаху на угол da против часовой стрелке /// Поворачивает Черепаху на угол da вправо
procedure TurnRight(da: real); procedure TurnRight(da: real);
/// Возвращает случайный цвет /// Возвращает случайный цвет
@ -201,9 +201,9 @@ begin
end; end;
end; end;
procedure TurnLeft(da: real) := Turn(da); procedure TurnLeft(da: real) := Turn(-da);
procedure TurnRight(da: real) := Turn(-da); procedure TurnRight(da: real) := Turn(da);
/// Продвигает Черепаху вперёд на расстояние r /// Продвигает Черепаху вперёд на расстояние r
procedure Forw(r: real); procedure Forw(r: real);