Changeset 912 for trunk/src/set_object.m

Timestamp:

Jun 16, 2015, 8:15:10 PM (9 years ago)

Author:

sommeria

Message:

interp range introduced in set_object

File:

• trunk/src/set_object.m (modified) (9 diffs)

trunk/src/set_object.m

@@ -38 +38 @@
 function varargout = set_object(varargin)
 
-% Last Modified by GUIDE v2.5 15-Jun-2015 19:51:15
+% Last Modified by GUIDE v2.5 16-Jun-2015 00:33:59
 
 % Begin initialization code - DO NOT REFRESH
@@ -307 +307 @@
 set(handles.num_DY,'Visible','off')
 set(handles.num_DZ,'Visible','off')
+set(handles.num_RangeInterp,'Visible','off')
 
 switch ObjectStyle
@@ -322 +323 @@
             set(handles.num_DX,'Visible','on')
             set(handles.num_DX,'TooltipString','num_DX: mesh for the interpolated field along the line')
+            set(handles.num_RangeInterp,'Visible','on')
         end       
     case {'rectangle','ellipse'}
@@ -341 +343 @@
             set(handles.num_DX,'Visible','on')
             set(handles.num_DY,'Visible','on')
+            set(handles.num_RangeInterp,'Visible','on')
         else
             set(handles.num_DX,'Visible','off')
             set(handles.num_DY,'Visible','off')
         end
-        if  isequal(ProjMode,'interp_lin')
-            set(handles.num_DZ,'Visible','on')  
-        end
+%         if  isequal(ProjMode,'interp_lin')
+%             set(handles.num_DZ,'Visible','on')  
+%         end
      case {'volume'}  
         set(handles.num_RangeX_1,'Visible','on')
@@ -372 +375 @@
 % set default values read in the plot of uvmat to initiate the mesh 
 if isequal(ProjMode,'interp_lin')|| isequal(ProjMode,'interp_tps')
+            huvmat=findobj('Tag','uvmat');%find the current uvmat interface handle
+        UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
     if isempty(str2num(get(handles.num_DX,'String')))||isempty(str2num(get(handles.num_DY,'String')));     
-        huvmat=findobj('Tag','uvmat');%find the current uvmat interface handle
-        UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
-        Field=UvData.Field;
+%         Field=UvData.Field;
         if  isfield(UvData.Field,'CoordMesh')&&~isempty(UvData.Field.CoordMesh)
             set(handles.num_DX,'String',num2str(UvData.Field.CoordMesh))
@@ -387 +390 @@
             set(handles.CoordUnit,'String',Field.CoordUnit)
         end       
+    end
+    if isempty(str2num(get(handles.num_RangeInterp,'String')))
+     set(handles.num_RangeInterp,'String',num2str(3*UvData.Field.CoordMesh))% default interpolationlength= 3 meshes
     end
 end
@@ -416 +422 @@
 huvmat=findobj('Tag','uvmat');%find the current uvmat interface handle
 UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
-if isfield(UvData,'X') & isfield(UvData,'Y') & isfield(UvData,'Z')
+if isfield(UvData,'X') && isfield(UvData,'Y') && isfield(UvData,'Z')
     Z=norm_plane(1)*(UvData.X)+norm_plane(2)*(UvData.Y)+norm_plane(3)*(UvData.Z);
     set(handles.z_slider,'Min',min(Z))
@@ -691 +697 @@
         t=struct2xml(Object);
         t=set(t,1,'name','ProjObject');
-        save(t,FullName)
-        msgbox_uvmat('CONFIRMATION',[FullName  ' saved'])
+        try
+            save(t,FullName)
+            msgbox_uvmat('CONFIRMATION',[FullName  ' saved'])
+        catch ME
+            msgbox_uvmat('ERROR',ME.message)
+        end
     end
 end
@@ -801 +811 @@
 
 function num_RangeInterp_Callback(hObject, eventdata, handles)
-% hObject    handle to num_RangeInterp (see GCBO)
-% eventdata  reserved - to be defined in a future version of MATLAB
-% handles    structure with handles and user data (see GUIDATA)
-
-% Hints: get(hObject,'String') returns contents of num_RangeInterp as text
-%        str2double(get(hObject,'String')) returns contents of num_RangeInterp as a double
-
-
-% --- Executes during object creation, after setting all properties.
-function num_RangeInterp_CreateFcn(hObject, eventdata, handles)
-% hObject    handle to num_RangeInterp (see GCBO)
-% eventdata  reserved - to be defined in a future version of MATLAB
-% handles    empty - handles not created until after all CreateFcns called
-
-% Hint: edit controls usually have a white background on Windows.
-%       See ISPC and COMPUTER.
-if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
-    set(hObject,'BackgroundColor','white');
-end