source: ETALON/SPESO/ana2015/data_plot2d.m @ 259

function data_plot2d(var1,var2)

global allData;
global dvar;
define_data_var();

idx=find(allData.selected==1);

varidx(1)=mod(var1,1000);
vartype(1)=floor(var1/1000)*1000;

varidx(2)=mod(var2,1000);
vartype(2)=floor(var2/1000)*1000;

if (~isempty(allData.selection))
fprintf('Selection: %s \n %d events.\n',allData.selection,length(idx));
end

vals=zeros(2,length(idx));
for iloop=1:2
switch vartype(iloop)
    case dvar.BEAMINFO
        vals(iloop,:)=allData.beamInfo(idx,varidx(iloop))';
    case dvar.DATAINFO
        switch varidx(iloop)
            case 1
                vals(iloop,:)=allData.ch2signalVal(idx);
            case 2
                vals(iloop,:)=allData.ch2signalNegPeak(idx);
        end
    otherwise
        warning_sp([ 'The vartype ' vartype ' is unknown.' ]);
        error('end');
end %switch
end %for

plot(vals(1,:),vals(2,:),'o')
title({ [ get_var_name(var1) ' vs ' get_var_name(var2) ];allData.selection})
xlabel(get_var_name(var1))
ylabel(get_var_name(var2))
end %function