diff options
-rw-r--r-- | figure.pp | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -454,7 +454,7 @@ var square: SquareItemPtr; TempSquare: SquareItemPtr; begin - {square shape don't have any center} + {square shape dont have any center} if shape.IsSquare then exit; {centers were initialized} @@ -1073,7 +1073,7 @@ procedure CheckBorders(var shape: ShapeList; var ChangedShape: ShapeList; CurBorders: borders; var IsObstacle: boolean); begin FindCenterFigure(shape); - {ChangedShape's center has been got from shape} + {ChangedShapes center has been got from shape} CopyShape(shape, ChangedShape); if shape.CurDir <> turning then CalculateNewXY(shape, ChangedShape) |