HiLogo Source Code

^DEMO6
CS  SAY [Tricursion]
compass
HIDE
SETPC 12  penta 120
LIFT  BK 50  FILL  BK 90  FILL  FD 140  DROP
TELL [1 3 5 7]  SETPC 10
TELL [2 4 6 8]  SETPC 9
TELL [1 2 3 4 5 6 7 8]
tricur 120
SHOW
.
^PENTA side
RT 126 REPEAT 4[fd side rt 72] FD side LT 54
.
^TRICUR side
triangle side
LOCAL dis
MAKE dis side * 0.866/3
IF side > 10 [LIFT REPEAT 3 [FD dis DROP tricur side/2 LIFT BK dis RT 150 FD side LT 30] DROP]
.
^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
.