home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / FIXAXIS.LI < prev    next >
Encoding:
Text File  |  1994-08-01  |  321 b   |  11 lines
  1. fixaxis(xmin_,xmax_,ymin_,ymax_) := block(line(0,getmaxy*0.5,getmaxx,getmaxy*0.5),
  2.     moveto(0,getmaxy*0.5+10),
  3.     writes(xmin),
  4.     moveto(getmaxx-30,getmaxy*0.5+10),
  5.     writes(xmax),
  6.     line(getmaxx*0.5,0,getmaxx*0.5,getmaxy),
  7.     moveto(getmaxx*0.5-20,0),
  8.     writes(ymax),
  9.     moveto(getmaxx*0.5-20,getmaxy-10),
  10.     writes(ymin))
  11.