home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / 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.