To along :SIZE :LENGTH
Repeat :LENGTH [TRI :SIZE RT 120 SKIP :SIZE LT 120]
TRI :SIZE
End

To lattice :SIZE :LENGTH :DEPTH
CS HT PU SetPos [-100 -75] Lt 30 PD
Repeat :DEPTH [PATTERN :SIZE :LENGTH]
End

To parallel :SIZE
Repeat 2 [FD :SIZE RT 120 FD :SIZE / 2 RT 60]
End

To pattern :SIZE :LENGTH
ALONG :SIZE :LENGTH
SKIP :SIZE RETURN :SIZE :LENGTH
SKIP :SIZE
End

To return :SIZE :LENGTH
Repeat :LENGTH [TRI :SIZE LT 60 SKIP :SIZE RT 60]
TRI :SIZE
End

To skip :SIZE
PU Fd :SIZE * 1.5 PD
End

To tri :SIZE
Repeat 3 [PARALLEL :SIZE RT 120]
End

LATTICE 5 5 5
