home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GRAFIN.FOR < prev    next >
Text File  |  1989-06-20  |  508b  |  20 lines
  1.         SUBROUTINE GRAFIN(X,Y,LFLAG)
  2.         LOGICAL *2 LFLAG
  3. C
  4. C       DISPLAY AND READ THE GRAPHICS CURSOR AND RETURN ITS POSITION
  5. C       IN WORLD COORDINATES.
  6. C
  7.         INCLUDE PLTCOM.PRM
  8.         INCLUDE PLTSIZ.PRM
  9. C
  10. C       GET CURSOR POSITION IN VIRTUAL COORDINATES.
  11. C
  12.         CALL GSCRSR(X,Y,LFLAG,IERR)
  13.         IF (IERR .NE. 0) RETURN
  14.         X = (X-XVSTRT)*UDX/XVLEN + UX0
  15.         IF (LOGX) X = 10.0**X
  16.         Y = (Y-YVSTRT)*UDY/YVLEN + UY0
  17.         IF (LOGY) Y = 10.0**Y
  18.         RETURN
  19.         END
  20.