From 4f81712a15d8a484fb29684082805132c11a481d Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Tue, 27 Jun 2023 21:06:24 +0300
Subject: [PATCH] =?UTF-8?q?TurtleWPF=20-=20TurnRight=20=D0=B8=20TurnLeft?=
 =?UTF-8?q?=20=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B8=D0=BB=20=D0=B4=D0=B5?=
 =?UTF-8?q?=D0=B9=D1=81=D1=82=D0=B2=D0=B8=D1=8F=20=D1=87=D1=82=D0=BE=D0=B1?=
 =?UTF-8?q?=D1=8B=20=D1=81=D0=BE=D0=BE=D1=82=D0=B2=D0=B5=D1=82=D1=81=D1=82?=
 =?UTF-8?q?=D0=B2=D0=BE=D0=B2=D0=B0=D0=BB=D0=B8=20=D0=BD=D0=B0=D0=B7=D0=B2?=
 =?UTF-8?q?=D0=B0=D0=BD=D0=B8=D1=8E?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bin/Lib/TurtleWPF.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/Lib/TurtleWPF.pas b/bin/Lib/TurtleWPF.pas
index 14bff3c5d..c96482858 100644
--- a/bin/Lib/TurtleWPF.pas
+++ b/bin/Lib/TurtleWPF.pas
@@ -13,10 +13,10 @@ procedure Back(r: real);
 /// Поворачивает Черепаху на угол da по часовой стрелке
 procedure Turn(da: real);
 
-/// Поворачивает Черепаху на угол da по часовой стрелке
+/// Поворачивает Черепаху на угол da влево
 procedure TurnLeft(da: real);
 
-/// Поворачивает Черепаху на угол da против часовой стрелке
+/// Поворачивает Черепаху на угол da вправо
 procedure TurnRight(da: real);
 
 /// Возвращает случайный цвет
@@ -201,9 +201,9 @@ begin
   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
 procedure Forw(r: real);