Next: Factorial Up: Program examples Previous: Draw houses Contents Index

Draw a whole rectangle

**Figure:** Rectangle
$\includegraphics[clip]{pics/rectangle.eps}$

to rect :lo :la
if :lo=0|:la=0 [stop]
repeat 2[fd :lo rt 90 fd :la rt 90]
rect :lo -1 :la -1
end

Loïc 2008-06-08