home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSRST.FOR < prev    next >
Text File  |  1989-06-20  |  685b  |  30 lines
  1.         SUBROUTINE GSRST(XV,YV,XA,YA)
  2. C
  3. C
  4.         INCLUDE GCDPRM.PRM
  5. C
  6. C       ROTATE, SCALE, AND THEN TRANSLATE COORDINATES
  7. C       (TAKE VIRT. COORD. INTO SCREEN COORD.)
  8. C
  9.         XTEMP = XV
  10.         XA = XS*(RCOS*XTEMP+RSIN*YV) + XT
  11.         YA = YS*(RCOS*YV-RSIN*XTEMP) + YT
  12.         RETURN
  13.         END
  14.  
  15.         SUBROUTINE GSIRST(XA,YA,XV,YV)
  16. C
  17. C       INVERSE ROTATE, SCALE, AND THEN TRANSLATE
  18. C       (TAKE ABSOLUTE COORD. INTO VIRTUAL COORD.)
  19. C
  20.         INCLUDE GCDPRM.PRM
  21. C
  22. C       CONVERT ABSOLUTE CM. COORD. TO VIRTUAL CM. COORDINATES
  23. C
  24.         XTEMP = (XA-XT)/XS
  25.         YV = (YA-YT)/YS
  26.         XV = RCOS*XTEMP-RSIN*YV
  27.         YV = RCOS*YV+RSIN*XTEMP
  28.         RETURN
  29.         END
  30.