home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSDRAW.FOR < prev    next >
Text File  |  1989-06-20  |  547b  |  24 lines
  1.         SUBROUTINE GSDRAW(X,Y)
  2. C
  3. C
  4.         INCLUDE GCVPOS.PRM
  5.         INCLUDE GCAPOS.PRM
  6.         INTEGER*2 GSIVIS
  7. C
  8. C       TRANSFORM VIRT. COOR. TO SCREEN COORD.
  9. C
  10. D       WRITE(9,90)XAPOS,YAPOS,IVIS
  11. D90    FORMAT('OLD POSITION ',3F10.3)
  12.         XVPOS = X
  13.         YVPOS = Y
  14.         CALL GSRST(XVPOS,YVPOS,X1,Y1)
  15.         IVIS1 = GSIVIS(X1,Y1)
  16.         CALL GSDRW2(XAPOS,YAPOS,IVIS,X1,Y1,IVIS1)
  17.         XAPOS = X1
  18.         YAPOS = Y1
  19.         IVIS = IVIS1
  20. D       WRITE(9,91)XAPOS,YAPOS,IVIS
  21. D91    FORMAT('NEW POSITION ',3F10.3)
  22.         RETURN
  23.         END
  24.