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)))
}
}
|
A
MAZE
|
Visualize a geometric progression (GP) that emphasizes range of scales inherent to a GP. |
 |
|
|
|||
|
 |
||
 |
|||