home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSCCLC.FOR < prev    next >
Text File  |  1989-06-20  |  306b  |  14 lines
  1.         SUBROUTINE GSCCLC(X,Y,DX,DY)
  2. C
  3. C       THIS SUBROUTINE DOES THE CHARACTER SIZING AND ROTATION.
  4. C
  5.         INCLUDE GCCPAR.PRM
  6.         INCLUDE GCCOFF.PRM
  7. C
  8.         XS = X*CSIZE
  9.         YS = Y*CSIZE
  10.         DX = CCOS*XS + CSIN*YS + XOFF
  11.         DY = CCOS*YS - CSIN*XS + YOFF
  12.         RETURN
  13.         END
  14.