function [] = gpsMap4()
clf
clear p
load trueTypes
trueTypes=trueTypes(1:13);
addpath('/data/22/kappler/TOOLS/')
load CLASS
colorSymbCyc={'bo','go','ro','co','mo','ko','bx','gx','rx','cx','mx','kx','b*','g*'};
%e=load('/scr/em1/kappler/UXO/WAFB/eastings.txt');
%n=load('/scr/em1/kappler/UXO/WAFB/northings.txt');
load GPO
load classF
mnN=4558600;
mnE=510100;
fig1=figure(1);
for typ=1:13
     plotCmd=['plot(GPO{CLASS{typ}(1)}.GPSE-mnE,GPO{CLASS{typ}(1)}.GPSN-mnN,''',colorSymbCyc{typ},''')'];
     eval(plotCmd)
   hold on
end


for i=1:227
    
     plotCmd=['p(i)=plot(GPO{i}.GPSE-mnE,GPO{i}.GPSN-mnN,''',colorSymbCyc{classF(i)},''')'];
   eval(plotCmd)
    set(p(i),'tag',num2str(i));
    set(p(i),'Userdata',GPO{i}.INV.GT);
%     set(p(i),'GT',GPO{i}.INV.GT);
    

end
 lgdCmd=['legend('];
    for i=1:numel(trueTypes)
        lgdCmd=[lgdCmd,'''',trueTypes{i},''','];
    end
    lgdCmd=[lgdCmd(1:end-1),')'];
    eval(lgdCmd)
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')