A. Scarabosio changes for sxR, R with correct time_base, like ece

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@1827 d63d8f72-b253-0410-a779-e742ad2e26cf

TCV/loadTCVdata.m

@@ -242,15 +242,20 @@ switch TCVkeywrdcase{index}
       [fans,vangle,xchord,ychord,aomega,angfact]=xtomo_geometry(1,icamera);
       % calculating intersection of the view lines with magnetic axis 
       if strcmp(data_type,'sxR') 
-        varargout{1}={VsxrTCVradius(zmag.data,xchord,ychord)};
         t_1=zmag.t(1);
         t_2=zmag.t(end);
+	[xtomo_signal,t]=get_xtomo_data(shot,t_1,t_2,13e-6*16, ...
+          icamera,angfact);
+	data=interp1(zmag.t,zmag.data,t');
+	radius.t=t';
+	radius.data={VsxrTCVradius(data,xchord,ychord)};
+	varargout{1}={radius};
       else
         t_1=0.001;
         t_2=3;
-      end
-      [xtomo_signal,t]=get_xtomo_data(shot,t_1,t_2,13e-6*16, ...
+	[xtomo_signal,t]=get_xtomo_data(shot,t_1,t_2,13e-6*16, ...
           icamera,angfact);
+      end
     end  
     for i=1:(20*icamera*ones(10,1))
       trace.t(:,i)=t';