9 October 2008 - Super Procedures

MONITOR

? cs
? to varyrectangle :W :L
> repeat 2[fd :W rt 90 fd :L rt 90]
> end
VARYRECTANGLE defined.
?
?
? to varysquare :side
> repeat 4[fd :side rt 90]
> end
VARYSQUARE defined.
?
?
? to varycircle :side
> repeat 360 [fd :side rt 1]
> end
VARYCIRCLE defined.
?
?
? to varyhexagon :side
> REPEAT 6 [FD :side RT 60]
> end
VARYHEXAGON defined.
?
?
? pu
? lt 90
? fd 300
? rt 90
? pd
? varysquare 100
? pu
? lt 90
? fd 20
? rt 90
? rt 180
? fd 20
? lt 180
? pd
? varysquare 140
? pu
? fd 10
? rt 90
? fd 30
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 10
? fd 10
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 20
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 20
? fd 20
? fd 10
? fd 5
? lt 90
? pd
? varyhexagon 5
? pu
? rt 180
? fd 10
? rt 90
? fd 55
? fd 20
? fd 20
? fd 10
? lt 90
? fd 10
? lt 180
? rt 90
? fd 50
? lt 90
? lt 90
? fd 25
? rt 90
? pd
? varyrectangle 10 50
? pu
? rt 90
? fd 25
? rt 90
? fd 5
? lt 180
? pd
? stampoval 50 5
?