home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / share / os2 / graficos / gle / grid_nob.gle < prev    next >
Encoding:
Text File  |  1990-05-04  |  328 b   |  22 lines
  1. sub grid_nob nx ny xsz ysz
  2.   gsave
  3.   begin origin
  4.     xinc=xsz/nx
  5.     yinc=ysz/ny
  6.     x=0.0
  7.     for n=1 to nx-1
  8.       x=x+xinc
  9.       amove x 0
  10.       aline x ysz
  11.     next n
  12.     y=0.0
  13.     for n=1 to ny-1
  14.       y=y+yinc
  15.       amove 0 y
  16.       aline xsz y
  17.     next n
  18.   end origin
  19.   grestore
  20. end sub
  21. 
  22.