home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GDAID.FOR < prev    next >
Text File  |  1989-06-20  |  205b  |  14 lines
  1.     SUBROUTINE GDAID(X,Y,XGUPCM,YGUPCM,IX,IY)
  2. C
  3.     IX = XGUPCM*X + 0.5
  4.     IY = YGUPCM*Y + 0.5
  5.     RETURN
  6.     END
  7. C
  8.     SUBROUTINE GDGAID(IX,IY,XGUPCM,YGUPCM,X,Y)
  9. C
  10.     X = FLOAT(IX)/XGUPCM
  11.     Y = FLOAT(IY)/YGUPCM
  12.     RETURN
  13.     END
  14.