home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSMOVE.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  476 b   |  23 lines
  1.         SUBROUTINE GSMOVE(X,Y)
  2. C
  3. C       MOVE THE THE POINT (X,Y).
  4. C
  5.         INCLUDE GCLTYP.PRM
  6.         INCLUDE GCVPOS.PRM
  7.         INCLUDE GCAPOS.PRM
  8.         INTEGER*2 GSIVIS
  9. C
  10. C       RESET LINE STYLE TO BEGINNING OF PATTERN AND SHOW MOVED
  11. C
  12.         LINILT = .TRUE.
  13.         LPOSND = .FALSE.
  14. C
  15. C       TRANSFORM VIRTUAL COORD. TO ABSOLUTE COORD.
  16. C
  17.         XVPOS = X
  18.         YVPOS = Y
  19.         CALL GSRST(XVPOS,YVPOS,XAPOS,YAPOS)
  20.         IVIS = GSIVIS(XAPOS,YAPOS)
  21.     RETURN
  22.     END
  23.