home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / gr_setscale.utl < prev    next >
Encoding:
Text File  |  1997-07-08  |  211 b   |  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.