function PlotTpH(src,event,figTpH,figCO2,x,y,CO2,ha)
gx=get(gca,'XLim');
gy=get(gca,'YLim');
f=find(x>=gx(1) & x<=gx(2) & y>=gy(1) & y<=gy(2));
figure(figTpH); plot(x(f),y(f),'k.');
figure(figCO2); axes(ha(7)); plot(CO2(f,1),CO2(f,2),'k.');
end