eometry:*viewsurface*)      (height (send vs :height))      (step nil)
<BR>(x 0) (y 0)</I>
</TT></PRE>

<DL COMPACT>
<DT> 
<DD>draws <EM>s</EM>, a list of <B>edge-segment</B> objects on xwindow <EM>vs</EM>.
</DD>
</DL>
<BR>
<BR>

<A NAME="40072"></A>
<B>draw-boundary</B> <EM>b &amp;optional gc </EM>[function]

<DL COMPACT>
<DT> 
<DD> 
draws segments of <B>boundary</B> object <EM>b</EM> on xwindow <EM>vs</EM>.
</DD>
</DL>
<BR>
<BR>

<A NAME="40085"></A>
<B>draw-boundaries</B> <EM>bs &amp;optional gc (step ni