home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8710 / 14 / factor.f < prev    next >
Encoding:
Text File  |  1990-07-13  |  355 b   |  17 lines
  1.     subroutine factor (f)
  2.     real f
  3. C
  4. C  sets plot sizing factor -
  5. C    if f = 2.0 then all subsequent pen movements will be twice normal size
  6. C    if f is reset to 1.0, all plotting returns to normal size
  7. C
  8.  
  9.     common /cqpbnf/ xold, yold, fac, ires
  10.     save   /cqpbnf/
  11.     real            xold, yold, fac
  12.     integer                          ires
  13.  
  14.     fac = f
  15.     return
  16.     end
  17.