home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / adrg / source / dispcord.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-06  |  710 b   |  31 lines
  1. procedure disp_latlon(lat,lon : real);
  2. {$I ddtodms.pas }
  3.  
  4. var
  5.  ch : char;
  6.  sdlat, smlat, sslat,
  7.  sdlon, smlon, sslon, map : string;
  8.  dlat, dlon, mlat, mlon : longint;
  9.  dlat1, dlon1, mlat1, mlon1 : integer;
  10.  slat, slon : real;
  11.  
  12. begin
  13.   ddtodms(lat,dlat,mlat,slat);
  14.   dlat1 := dlat;
  15.   mlat1 := mlat;
  16.   str(dlat1,sdlat);
  17.   str(mlat1,smlat);
  18.   str(slat:6:2,sslat);
  19.   ddtodms(lon,dlon,mlon,slon);
  20.   dlon1 := dlon;
  21.   mlon1 := mlon;
  22.   str(dlon1,sdlon);
  23.   str(mlon1,smlon);
  24.   str(slon:6:2,sslon);
  25.   setviewport(0,340,639,349,true);
  26.   clearviewport;
  27.   setviewport(0,0,639,349,true);
  28.   outtextxy(3,342,'AREA Around  LAT = '+sdlat+' '+smlat+sslat+'   LON = '+sdlon+' '+smlon+sslon );
  29.  
  30. end;
  31.