function [] = gpsMap3()
clf
clear p
addpath('/data/22/kappler/TOOLS/')
%e=load('/scr/em1/kappler/UXO/WAFB/eastings.txt');
%n=load('/scr/em1/kappler/UXO/WAFB/northings.txt');
load GPO
mnN=4558600;
mnE=510100;
fig1=figure(1);
p(1)=plot(GPO{1}.GPSE-mnE,GPO{1}.GPSN-mnN,'rx')
set(p(1),'tag','1');
hold on;
plot(GPO{228}.GPSE-mnE,GPO{228}.GPSN-mnN,'bx')
for i=1:227
    p(i)=plot(GPO{i}.GPSE-mnE,GPO{i}.GPSN-mnN,'rx')
    set(p(i),'tag',num2str(i));
    set(p(i),'Userdata',GPO{i}.INV.GT);
%     set(p(i),'GT',GPO{i}.INV.GT);
    

end
for i=228:numel(GPO)
  p(i+227)=plot(GPO{i}.GPSE-mnE,GPO{i}.GPSN-mnN,'bx')
  set(p(i+227),'tag',num2str(i));
   set(p(i+227),'Userdata',GPO{i}.INV.GT);
  %,GPO{i+227}.INV.GT} );
   %set(p(i+227),'GT',GPO{i+227}.INV.GT);
end

ttl='GPS Coordinates of INV files taken at FE Warren AFB';
title(ttl,'fontsize',15)
xlabel('Easting', 'fontsize',14)
ylabel('Northing', 'fontsize',14)

datacursormode on
dcm_obj = datacursormode(fig1)
%get(dcm_obj)
set(dcm_obj,'UpdateFcn',@myupdatefcn)

%

function txt = myupdatefcn(empt,event_obj)
a=get(event_obj,'target');
%get(a);
tagNow=get(a,'tag');
GT=get(a,'Userdata');

pos = get(event_obj,'position');
txt = {['GPO Object Number: ',tagNow],...%
	['Groung Truth: ',GT]};
%save811('GPSMAP1','pdf','1')