- Timestamp:
- Jul 1, 2013, 9:12:01 PM (11 years ago)
- Location:
- trunk/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/check_files.m
r654 r655 54 54 'fill_GUI';...% fill a GUI with a set of parameters from a Matlab structure 55 55 'filter_tps';...% find the thin plate spline coefficients for interpolation-smoothing 56 'find_field_bounds' :% find the boounds and typical meshs of coordinates56 'find_field_bounds';... % find the boounds and typical meshs of coordinates 57 57 'find_field_cells';...% group the variables of a 'field object' into 'field cells' and specify their structure 58 58 'find_file_series';...% check the content of an input file and find the corresponding file series -
trunk/src/geometry_calib.m
r654 r655 939 939 huvmat=findobj(allchild(0),'Name','uvmat');%find the current uvmat interface handle 940 940 UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface 941 Xima=0.8*[UvData.Field.XMin UvData.Field.XMax UvData.Field.XMax UvData.Field.XMin]'; 942 Yima=0.8*[UvData.Field.YMin UvData.Field.YMax UvData.Field.YMax UvData.Field.YMin]'; 941 npy=size(UvData.Field.A,1); 942 npx=size(UvData.Field.A,2); 943 Xima=[0.25*npx 0.75*npx 0.75*npx 0.25*npx]'; 944 Yima=[0.25*npy 0.25*npy 0.75*npy 0.75*npy]'; 943 945 x=Xima/str2num(answer); 944 946 y=Yima/str2num(answer); 945 for j=1:4 946 for i=1:5 947 Coord{j,1}=num2str(x);% 948 Coord{j,2}=num2str(y);% 949 Coord{j,3}='0';% 950 Coord{j,4}=num2str(Xima);% 951 Coord{j,5}=num2str(Yima);% 952 end 953 end 954 947 Coord={num2str(x(1)) num2str(y(1)) '0' num2str(Xima(1)) num2str(Yima(1));... 948 num2str(x(2)) num2str(y(2)) '0' num2str(Xima(2)) num2str(Yima(2));... 949 num2str(x(3)) num2str(y(3)) '0' num2str(Xima(3)) num2str(Yima(3));... 950 num2str(x(4)) num2str(y(4)) '0' num2str(Xima(4)) num2str(Yima(4))}; 955 951 Tabchar=cell2tab(Coord,' | '); 956 952 Tabchar=[Tabchar ;{'......'}]; … … 1211 1207 GeometryCalib=s.GeometryCalib; 1212 1208 %GeometryCalib=load_calib(hObject, eventdata, handles) 1213 calib=reshape(GeometryCalib. PointCoord,[],1);1209 calib=reshape(GeometryCalib.SourceCalib.PointCoord,[],1); 1214 1210 for ilist=1:numel(calib) 1215 1211 CoordCell{ilist}=num2str(calib(ilist)); -
trunk/src/plot_object.m
r650 r655 131 131 132 132 %% determine the coordinates xline, yline,xsup,xinf, yinf,ysup determining the new object plot 133 test_line= isequal(ObjectData.Type,'points')||isequal(ObjectData.Type,'line')|| isequal(ObjectData.Type,'line_x')||isequal(ObjectData.Type,'line_y')||...133 test_line= isequal(ObjectData.Type,'points')||isequal(ObjectData.Type,'line')||... 134 134 isequal(ObjectData.Type,'polyline')||isequal(ObjectData.Type,'polygon')|| isequal(ObjectData.Type,'plane')|| isequal(ObjectData.Type,'volume'); 135 135 test_patch=isequal(ObjectData.ProjMode,'inside')||isequal(ObjectData.ProjMode,'outside')||isequal(ObjectData.Type,'volume')... … … 395 395 if test_patch 396 396 for iobj=1:length(PlotData.SubObject) 397 objtype=get(PlotData.SubObject(iobj),'Type'); 398 if isequal(objtype,'image') 399 set(PlotData.SubObject(iobj),'CData',imflag,'AlphaData',(flag)*0.2) 400 set(PlotData.SubObject(iobj),'XData',[xlim(1)+dx/2 xlim(2)-dx/2]) 401 set(PlotData.SubObject(iobj),'YData',[ylim(1)+dy/2 ylim(2)-dy/2]) 397 if ~ishandle(PlotData.SubObject(iobj)) 398 hold on 399 hhh=image([xlim(1)+dx/2 xlim(2)-dx/2],[ylim(1)+dy/2 ylim(2)-dy/2],imflag,'Tag','proj_object','HitTest','off'); 400 set(hhh,'AlphaData',(flag)*0.2)% set partial transparency to the filling color 401 PlotData.SubObject(iobj)=hhh; 402 else 403 objtype=get(PlotData.SubObject(iobj),'Type'); 404 if isequal(objtype,'image') 405 set(PlotData.SubObject(iobj),'CData',imflag,'AlphaData',(flag)*0.2) 406 set(PlotData.SubObject(iobj),'XData',[xlim(1)+dx/2 xlim(2)-dx/2]) 407 set(PlotData.SubObject(iobj),'YData',[ylim(1)+dy/2 ylim(2)-dy/2]) 408 end 409 end 410 end 411 else% no patch image requested, erase existing ones 412 for iobj=1:length(PlotData.SubObject) 413 if ishandle(PlotData.SubObject(iobj)) && strcmp(get(PlotData.SubObject(iobj),'Type'),'image') 414 delete(PlotData.SubObject(iobj)) 402 415 end 403 416 end -
trunk/src/proj_field.m
r654 r655 88 88 return 89 89 end 90 ListProjMode={'projection','interp_lin','interp_tps' };%list of effective projection modes91 if isempty( strcmp(ObjectData.ProjMode,ListProjMode))90 ListProjMode={'projection','interp_lin','interp_tps','inside','outside'};%list of effective projection modes 91 if isempty(find(strcmp(ObjectData.ProjMode,ListProjMode), 1))% no projection in case 92 92 return 93 93 end -
trunk/src/xml2struct.m
r565 r655 47 47 end 48 48 case 'char' 49 if isempty(regexp(ss,'^(-*\d+\.*\d*\ *)+$'))% if the string does not contains a set of numbers (with possible sign and decimal) separated by blanks 49 out=str2num(ss); 50 %if isempty(regexp(ss,'^(-*\d+\.*\d*\ *)+$'))% if the string does not contain a set of numbers (with possible sign and decimal) separated by blanks 51 if isempty(out) 50 52 sep_ind=regexp(ss,'\s&\s');% check for separator ' & ' which indicates column separation in tables 51 53 if ~isempty(sep_ind) … … 57 59 out=ss; %reproduce the input string 58 60 end 59 else60 out=str2num(ss);61 % else 62 % out=str2num(ss); 61 63 end 62 64 case 'cell'
Note: See TracChangeset
for help on using the changeset viewer.