Question

Используя процедуру рисования пера, нарисовать цветок из пяти лепестков и раскрасить его в красный цвет.

Answer 1

Покрасим перо в красный цвет:
TO PEROS :A :B :C
PERO :A :B :C
RT 45 PU FD :C / 2 PD
SETC 15 – красный цвет
FILL
BK :C / 2 LT 45
SETC 9
END

 
Добавим переменную N для числа лепестков:
TO SV :A :B :C :N
REPEAT :N [PEROS :A :B :C RT 360 / :N]
END
Вызов программы цветка:
SV 0.12 0.6 0.6 5