To petal :SIDE :COL
CS HT
Repeat 12 [REPEAT 16 [FD :SIDE RT 360 / 16 MAKE "SIDE :SIDE + 1 MAKE "COL :COL + 1] SETPC :COL]
End

To rose
PD SetPenWidth 1
PETAL 1 1
Repeat 5 [SETZOOM ZOOM + 0.5]
Wait 2
Repeat 5 [SETZOOM ZOOM - 0.5]
SetBg 1
Repeat 255 [SETBG BACKGROUND + 1]
End

ROSE
