PATTERN.LOG
----------------

TO PATTERN
TEXTSCREEN CLEARTEXT SETCURSOR [10 0]
PRINT [TURTLE GRAPHICS] PR []
TYPE [ENTER NUMBER OF SIDES IN POLYGON...]
MAKE "N READQUOTE
TYPE [NUMBER OF ROTATIONS................]
MAKE "R RQ
TYPE [LENGTH OF ONE SIDE.................]
MAKE "L RQ
SETSPLIT 2 SETBG 1 CLEARSCREEN
MAKE "COL 2
REPEAT 14 [SETPC :COL FD 1 SPIN :R :N :L MAKE
"COL :COL + 1]
SETBG 0
SETSPLIT 1
TYPE [HOLD DOWN CONTROL AND PRESS T TO END]
MAKE "DUMMY RC
END

TO POLYGON :N :L
ST
REPEAT :N [FD :L RT (360 / :N)]
HT
END

TO SPIN :R :N :L
REPEAT :R [(POLYGON :N :L) RT (360 / :R)]
END