home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / GSETDP.FOR < prev    next >
Text File  |  1989-06-20  |  377b  |  21 lines
  1.         SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
  2. C
  3. C
  4.         INCLUDE GCDPRM.PRM
  5.         INCLUDE PIODEF.PRM
  6. C
  7. C       SET SCALE AND TRANSLATION FACTORS
  8. C
  9.         XS = XSCALE
  10.         YS = YSCALE
  11.         XT = XTRAN
  12.         YT = YTRAN
  13. C
  14. C       SET ROTATION FACTORS
  15. C
  16.         RAD = -ANGLE*PIO180
  17.         RCOS = COS(RAD)
  18.         RSIN = SIN(RAD)
  19.         RETURN
  20.         END
  21.