HiLogo Source Code

^DEMO4
CS  SAY [Circling squares]
compass
TELL [1 3 5 7]  SETPC 14
TELL [2 4 6 8]  SETPC 12
TELL [1 2 3 4 5 6 7 8]
HIDE  boxcircle 120  SHOW
SETPC 9
penta 10  penta 30
penta 50  penta 70
TELL [1 2 3 4]  MOVEX -200
TELL [5 6 7 8]  MOVEX 200
TELL [1 2 3 4 5 6 7 8]
SETPC 4  boxcircle 50
TELL [1 2 3 4]  MOVEX 200
TELL [5 6 7 8]  MOVEX -200
TELL [1 2 3 4 5 6 7 8]
.
^BOX SIDE
REPEAT 4 [FORWARD SIDE RIGHT 90]
.
^BOXCIRCLE SIDE
REPEAT 18 [BOX SIDE RIGHT 20]
.
^PENTA side
RT 126 REPEAT 4[fd side rt 72] FD side LT 54
.
^COMPASS
TELL [1 2 3 4 5 6 7 8]
CT
LOCAL n
MAKE n 1
REPEAT 7 [tell n+1 rt 45*n make n n+1]
TELL [1 2 3 4 5 6 7 8]
SHOW DROP
.