home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / cursor.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  623 b   |  25 lines
  1.         SUBROUTINE CURSOR(X,Y,KEY)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y
  4.         INTEGER IERR
  5.         INTEGER*1 KEY
  6. C
  7. C       DISPLAY AND READ THE GRAPHICS CURSOR AND RETURN ITS POSITION
  8. C       IN USER COORDINATES.
  9. C
  10.         INCLUDE DIGLIB$KOM:PLTCOM.PRM
  11.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  12. C
  13. C       GET CURSOR POSITION IN VIRTUAL COORDINATES.
  14. C
  15.         CALL GSGIN(X,Y,KEY,IERR)
  16.         IF (IERR .GE. 0) GO TO 50
  17.         X = XVSTRT
  18.         Y = YVSTRT
  19. 50      X = (X-XVSTRT)*UDX/XVLEN + UX0
  20.         IF (LOGX) X = 10.0**X
  21.         Y = (Y-YVSTRT)*UDY/YVLEN + UY0
  22.         IF (LOGY) Y = 10.0**Y
  23.         RETURN
  24.         END
  25.