|
Command square l r
{
line l l r l
line l l l r
line r l r r
line l r r r
}
paper 100
pen 0
forever
{ repeat m 0 10
{
set n (m*m*m)
set x n
set y 100
pen <mouse 1> square x y
pen (2*<mouse 1>)
square (x+(y/4)) (y-(y/4))
pen (5*<mouse 1>)
square ((x+(y/4))+((y/8)-(y/4/8))) ((y-(y/4))-((y/8)-(y/4/8)))
}
}
|