|
// a set of rectangles making a curvilinear pattern...
// shape of the egg emarging from an optical illusion
// also depicting the figure ground relationship
Command XRectangle incX
{
repeat B 0 100
{
set A (B*incX)
pen A
line A 0 100 A
line A 100 0 A
line 0 A (20-A) 0
pen (100-A)
line 100 (100-A) (100-(60-A)) 100
}
}
paper 100
XRectangle 5
|