home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8710 / 14 / where.f < prev   
Encoding:
Text File  |  1990-07-13  |  387 b   |  20 lines
  1.     subroutine where (x, y, f)
  2. c
  3. c  returns current:
  4. c    x - pen x position in inches from last origin
  5. c    y - pen y position in inches from last origin
  6. c    f - plot sizing factor (see subroutine factor)
  7. c
  8.  
  9.     common /cqpbnf/ xold, yold, fac, ires
  10.     save   /cqpbnf/
  11.     real            xold, yold, fac
  12.     integer                          ires
  13.  
  14.     x = xold/fac
  15.     y = yold/fac
  16.     f = fac
  17.  
  18.     return
  19.     end
  20.