home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / adrg / source / lltopix.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-06  |  499 b   |  14 lines
  1. procedure latlon_to_xyscreen( lat,lon : real; nstartrow, nstartcol : longint;
  2.                               asz, bs : real; var x,y : longint);
  3. var
  4.   lat_uls, lon_uls : real;
  5.  
  6. {$I pixtoll.pas }
  7.  
  8. begin  { ** procedure latlon_to_xyscreen ** }
  9.   pixpos_to_latlon( 0,0,nstartrow,nstartcol,asz, bs, lat0, lon0,
  10.                     lat_uls, lon_uls );
  11.   x := trunc( (lon - lon_uls) * asz / 360.0 );
  12.   y := trunc( (lat_uls - lat) * bs / 360.0 );
  13. end;   { ** procedure latlon_to_xyscreen ** }
  14.