home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSETDP.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  440 b   |  23 lines
  1.         SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
  2.         IMPLICIT NONE
  3.         REAL*4 RAD
  4. C
  5. C
  6.         INCLUDE DIGLIB$KOM:GCDPRM.PRM
  7.         INCLUDE DIGLIB$KOM:PIODEF.PRM
  8. C
  9. C       SET SCALE AND TRANSLATION FACTORS
  10. C
  11.         XS = XSCALE
  12.         YS = YSCALE
  13.         XT = XTRAN
  14.         YT = YTRAN
  15. C
  16. C       SET ROTATION FACTORS
  17. C
  18.         RAD = -ANGLE*PIO180
  19.         RCOS = COS(RAD)
  20.         RSIN = SIN(RAD)
  21.         RETURN
  22.         END
  23.