home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSSETC.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  388 b   |  20 lines
  1.         SUBROUTINE GSSETC(SIZE,ANGLE)
  2.         IMPLICIT NONE
  3.         REAL*4 SIZE,ANGLE,GSCHIT,RAD
  4. C
  5. C
  6.         INCLUDE DIGLIB$KOM:GCCPAR.PRM
  7.         INCLUDE DIGLIB$KOM:PIODEF.PRM
  8. C
  9. C       SET UP SIZE MULTIPLIER
  10. C
  11.         CSIZE = SIZE/GSCHIT()
  12. C
  13. C       CALCULATE THE ROTATION FACTORS
  14. C
  15.         RAD = -PIO180*ANGLE
  16.         CCOS = COS(RAD)
  17.         CSIN = SIN(RAD)
  18.         RETURN
  19.         END
  20.