TO START_UP MOIRE 638 262 END TO LINE PENDOWN SETPOS [:X :Y] PENUP SETPOS [0 0] END TO G :S PU FD :S PD FD 3 * :S RT 45 FD :S * SQRT 2 RT 45 FD :S RT 45 FD :S * SQRT 2 RT 45 FD :S / 2 RT 90 FD :S RT 90 FD :S / 2 LT 90 FD :S LT 90 FD 3 * :S REPEAT 2 [LT 90 FD :S] RT 90 FD :S RT 90 FD 2 * :S RT 90 FD :S RT 90 FD :S / 3 LT 135 FD :S / 3 * SQRT 2 RT 45 FD 2 / 3 * :S RT 45 FD :S * SQRT 2 PU LT 135 FD :S RT 90 PD END TO O :S PU FD :S PD REPEAT 2 [FD 3 * :S RT 45 FD :S * SQRT 2 RT 45 FD :S RT 45 FD :S * SQRT 2 RT 45] RT 90 PU FD :S PD FD :S LT 90 FD 3 * :S LT 90 FD :S LT 90 FD 3 * :S PU FD :S RT 90 FD :S END TO BLANK :S PU RT 135 FD :S DYE 4 BK :S RT 45 FD 5 * :S PD LT 90 END TO L :S FD 5 * :S RT 90 FD :S RT 90 FD 4 * :S LT 90 FD 2 * :S RT 90 FD :S RT 90 FD 3 * :S END TO LOGO :S HOME PU SETPOS [- 9 * :S 0] PD L :S BLANK :S O :S BLANK :S G :S BLANK :S O :S BLANK :S HOME END TO MOIRE :N :M SETBG 3 FULLSCREEN HOME HIDETURTLE MAKE "X - :N / 2 MAKE "Y - :M / 2 SETPENCOLOR 6 SETSCRUNCH 0.3 LOGO 20 SETSCRUNCH 1 SETBG 0 SETPENCOLOR 8 REPEAT :N [LINE MAKE "X :X + 1] REPEAT :M [LINE MAKE "Y :Y + 1] REPEAT :N [LINE MAKE "X :X - 1] REPEAT :M [LINE MAKE "Y :Y - 1] TEXTSCREEN HOME SETBG 0 SETMODE [7 0] TEXTSCREEN END