home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / RECTANGL.LI < prev    next >
Encoding:
Text File  |  1994-08-22  |  111 b   |  3 lines
  1. rectangl(x1_,y1_,x2_,y2_) := block(line(x1,y1,x2,y1),line(x2,y1,x2,y2),
  2. line(x2,y2,x1,y2),line(x1,y2,x1,y1))
  3.