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 / GSCCMP.FOR < prev    next >
Text File  |  1989-06-20  |  422b  |  20 lines
  1.         SUBROUTINE GSCCMP(IX,IY,XOFF,YOFF,X,Y)
  2. C
  3. C
  4.         INCLUDE GCCPAR.PRM
  5.         INCLUDE GCAPOS.PRM
  6. C
  7. C       SCALE TO PROPER SIZE
  8. C
  9.         XS = CSIZE*IX
  10.         YS = CSIZE*IY
  11. C
  12. C       ROTATE AND TRANSLATE
  13. C
  14.         X = CCOS*XS + CSIN*YS + XOFF
  15.         Y = CCOS*YS - CSIN*XS + YOFF
  16. D       WRITE(9,9999) IX, IY, X,Y
  17. D9999   FORMAT(' CMOVE TO (',I2,',',I2,') GOES TO (',F9.4,',',F9.4,')')
  18.         RETURN
  19.         END
  20.