to demo
make "t 0
CS HT
PU SetPos [-235 -235] PD Rt 30
tri 512
End
to tri :n
If :n < 4 [stop]
setpc 1 + random 255
Repeat 3 [fd :n rt 120]
make "t :t + 1
;pr :t
tri :n / 2
PU Fd :n / 2 PD
tri :n / 2
PU Rt 120 Fd :n / 2 Lt 120 PD
tri :n / 2
PU Rt 240 Fd :n / 2 Rt 120 PD
End
demo
