home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / GRID.LI < prev    next >
Encoding:
Text File  |  1995-01-06  |  236 b   |  9 lines
  1. # grid()
  2. # grid(n) plots the n^2 grid on graphics mode
  3. # e.g. graph, grid(10)
  4.  
  5. grid(n_):=block(numeric:=on,
  6. do(line(0,getmaxy*j/n,getmaxx,getmaxy*j/n),j,0,n,1),
  7. do(line(getmaxx*k/n,0,getmaxx*k/n,getmaxy),k,0,n,1),
  8. numeric:=off)
  9.