home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSSETC.FOR < prev    next >
Text File  |  1989-06-20  |  307b  |  18 lines
  1.         SUBROUTINE GSSETC(SIZE,ANGLE)
  2. C
  3. C
  4.         INCLUDE GCCPAR.PRM
  5.         INCLUDE PIODEF.PRM
  6. C
  7. C       SET UP SIZE MULTIPLIER
  8. C
  9.         CSIZE = SIZE/GSCHIT()
  10. C
  11. C       CALCULATE THE ROTATION FACTORS
  12. C
  13.         RAD = -PIO180*ANGLE
  14.         CCOS = COS(RAD)
  15.         CSIN = SIN(RAD)
  16.         RETURN
  17.         END
  18.