home *** CD-ROM | disk | FTP | other *** search
/ Windows CE - The Ultimate Companion / ROMMAN_CE.iso / Files / Programming / Basice / LIB / Gr_setscale.utl < prev    next >
Text File  |  1997-03-14  |  211b  |  9 lines
  1. procedure gr_setscale(xmin#,xmax#,ymin#,ymax#)
  2.   gr_xmin# = xmin#
  3.   gr_xmax# = xmax#
  4.   gr_ymin# = ymin#
  5.   gr_ymax# = ymax#
  6.   gr_xscale# = 1.0/(xmax# - xmin#)
  7.   gr_yscale# = 1.0/(ymax# - ymin#)
  8.   endproc
  9.