home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / adrg / source / pixtoll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-06  |  405 b   |  13 lines
  1. procedure pixpos_to_latlon(X,Y : integer; nstartrow, nstartcol : longint;
  2.                            asz, bs, lat0, lon0 : real; var lat,lon : real);
  3. var
  4.   r,c : real;
  5.  
  6. begin                  {** pixpos_to_latlon **}
  7.    r := nstartrow*128.0 + Y;
  8.    c := nstartcol*128.0 + X;
  9.    lat :=  lat0 - 360.0 * r / bs;
  10.    lon := lon0 + 360.0 * c / asz;
  11.  
  12. end;                   {** pixpos_to_latlon **}
  13.