Каждую цифру изображаем в прямоугольнике со сторонами 80 и 40 шагов, черепашка находится в левом нижнем углу прямоугольника. После рисования возвращаем исполнитель в исходное положение.
TO NOL
PD
FD 80 RT 90
FD 40 RT 90
FD 80 RT 90
FD 40 RT 90
END
Можно сократить программу:
TO NOL
PD REPEAT 2 [FD 80 RT 90 FD 40 RT 90]
END
Не забываем начинать с левого нижнего угла прямоугольника:
TO ODIN
PU подняли перо
FD 40 перешли в середину левой стороны прямоугольника
PD опустили перо
RT 45
FD 56 RT 135
FD 80 RT 90
PU подняли перо
FD 40 RT 90 перешли в исходное положение
END
TO DVA
PU RT 90 FD 40 RT 180
PD FD 40 RT 135 FD 56 LT 45 FD 40 LT 90 FD 40 LT 90
PU FD 80 RT 180
END
TO TRI
PD RT 45 FD 56 LT 135 FD 40 RT 135 FD 56 LT 135 FD 40 LT 90
PU FD 80 RT 180
END
REPEAT :N [FD :A RT 360 / :N]
END
Вызов процедуры: RT 30 MNOGOUG 80 3 LT 30
Используем Пример 2 для закрашивания фигуры.
В процедуре рисования цветных многоугольников зададим переменную S, отвечающую за цвет:
TO MNOGOUGS :A :N :S
RT 30 MNOGOUG :A :N LT 30
RT 45 PU FD :A / 2 PD - подняв перо входим внутрь треугольника
SETC :S - цвет черепашки переменный
FILL - закрашиваем треугольник
PU BK :A / 2 LT 45 - подняв перо возвращаемся в исходное положение
SETC 9 - возвращаем черепашке черный цвет
LT 30
END