source: trunk/src/view_field.m @ 356

Last change on this file since 356 was 356, checked in by sommeria, 13 years ago

civ updated with new functions for opening files, consistently with uvmat
Bugs to be expected (use previous version then)

File size: 31.5 KB
Line 
1%'view_field': function associated with the GUI 'view_field.fig' for images and data field visualization
2%------------------------------------------------------------------------
3% function huvmat=view_field(input)
4%
5%OUTPUT
6% huvmat=current handles of the GUI view_field.fig
7%%
8%
9%INPUT:
10% input: input file name (if character chain), or input image matrix to
11% visualize, or Matlab structure representing  netcdf fields (with fields
12% ListVarName....)
13%
14%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
15%  Copyright Joel Sommeria,  2008, LEGI / CNRS-UJF-INPG, joel.sommeria@legi.grenoble-inp.fr.
16%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
17%     This open is part of the toolbox VIEW_FIELD.
18%
19%     VIEW_FIELD is free software; you can redistribute it and/or modify
20%     it under the terms of the GNU General Public License as published by
21%     the Free Software Foundation; either version 2 of the License, or
22%     (at your option) any later version.
23%
24%     VIEW_FIELD is distributed in the hope that it will be useful,
25%     but WITHOUT ANY WARRANTY; without even the implied warranty of
26%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
27%     GNU General Public License (open VIEW_FIELD/COPYING.txt) for more details.
28%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
29
30%-------------------------------------------------------------------
31%  I - MAIN FUNCTION VIEW_FIELD (DO NOT MODIFY)
32%-------------------------------------------------------------------
33%-------------------------------------------------------------------
34function varargout = view_field(varargin)
35
36% Begin initialization code - DO NOT EDIT
37gui_Singleton = 1;
38gui_State = struct('gui_Name',          mfilename, ...
39                   'gui_Singleton',     gui_Singleton, ...
40                   'gui_OpeningFcn',    @view_field_OpeningFcn, ...
41                   'gui_OutputFcn',     @view_field_OutputFcn, ...
42                   'gui_LayoutFcn',     [], ...
43                   'gui_Callback',      []);
44if nargin && ischar(varargin{1})
45    gui_State.gui_Callback = str2func(varargin{1});
46end
47
48if nargout
49    varargout{1:nargout} = gui_mainfcn(gui_State, varargin{:});
50else
51    gui_mainfcn(gui_State, varargin{:});
52end
53% End initialization code - DO NOT EDIT
54
55%-------------------------------------------------------------------
56% --- Executes just before view_field is made visible.
57function view_field_OpeningFcn(hObject, eventdata, handles, Field )
58%-------------------------------------------------------------------
59
60% Choose default command menuline output for view_field
61handles.output = handles.view_field;
62
63% Update handles structure
64guidata(hObject, handles);
65
66dircur=pwd; %current working directory
67dir_opening=dircur;
68
69% set the position of colorbar and ancillary GUIs:
70set(hObject,'Units','Normalized')
71handles_mouse=handles;
72huvmat=findobj(allchild(0),'Name','uvmat');
73if ~isempty(huvmat)
74    hhuvmat=guidata(huvmat);
75%     set(hhuvmat.list_object_2,'Visible','on')
76%     set(hhuvmat.view_field_title,'Visible','on')
77    % handles_mouse.create=hhuvmat.create;
78    handles_mouse.edit=hhuvmat.edit_object;
79    pos_view_field=get(hObject,'Position');
80    pos_uvmat=get(huvmat,'Position');
81    pos_view_field(1)=pos_uvmat(1)+pos_uvmat(3)/2;
82    pos_view_field(2)=pos_uvmat(2)-pos_uvmat(3)/4;
83%      pos_view_field(3:4)=pos_uvmat(3:4);
84    set(hObject,'Position',pos_view_field)
85end
86
87%functions for the mouse and keyboard
88set(hObject,'KeyPressFcn',{'keyboard_callback',handles_mouse})%set keyboard action function
89set(hObject,'WindowButtonMotionFcn',{'mouse_motion',handles_mouse})%set mouse action functio
90set(hObject,'WindowButtonDownFcn',{'mouse_down'})%set mouse click action function
91set(hObject,'WindowButtonUpFcn',{'mouse_up',handles_mouse})
92set(hObject,'CloseRequestFcn',{@closefcn})%
93ViewFieldData.axes3=[];%initiates the record of the current field (will be updated by plot_field)
94set(handles.view_field,'UserData',ViewFieldData);%store the current field
95AxeData.LimEditBox=1; %initialise AxeData, the parent figure sets plot parameters
96set(handles.axes3,'UserData',AxeData)
97if ~exist('Field','var')
98    return
99end
100[PlotType,PlotParamOut]= plot_field(Field,handles.axes3);%,PlotParam,KeepLim,PosColorbar)
101
102if isfield(PlotParamOut,'Vectors')
103    set(handles.Vectors,'Visible','on')
104end
105write_plot_param(handles,PlotParamOut);% update the display of the plotting parameters
106
107%-------------------------------------------------------------------
108% --- Outputs from this function are returned to the command menuline.
109function varargout = view_field_OutputFcn(hObject, eventdata, handles)
110varargout{1} = handles.output;% the only output argument is the handle to the GUI figure
111
112
113%-------------------------------------------------------------------
114%-------------------------------------------------------------------
115% II - FUNCTIONS FOR INTRODUCING THE INPUT FILES
116% automatically sets the global properties when the rootfile name is introduced
117% then activate the view-field action if selected
118% it is activated either by clicking on the RootPath window or by the
119% browser
120%------------------------------------------------------------------
121%------------------------------------------------------------------
122
123%-------------------------------------------------------------------
124function update_mask(handles,num_i1,num_j1)
125%-------------------------------------------------------------------
126
127MaskData=get(handles.mask_test,'UserData');
128if isfield(MaskData,'maskhandle')&& ishandle(MaskData.maskhandle)
129    uistack(MaskData.maskhandle,'top');
130end
131num_i1_mask=mod(num_i1-1,MaskData.NbSlice)+1;
132[RootPath,RootFile]=fullfile(MaskData.Base);
133MaskName=fullfile_uvmat(RootPath,'',RootFile,'.png',MaskData.NomType,num_i1_mask,[],num_j1);
134%[MaskName,mdetect]=name_generator(MaskData.Base,num_i1_mask,num_j1,'.png',MaskData.NomType);
135huvmat=get(handles.mask_test,'parent');
136UvData=get(huvmat,'UserData');
137
138%update mask image if the mask is new
139if ~ (isfield(UvData,'MaskName') && isequal(UvData.MaskName,MaskName))
140    UvData.MaskName=MaskName; %update the recorded name on UvData
141    set(huvmat,'UserData',UvData);
142    if mdetect==0
143        if isfield(MaskData,'maskhandle')&& ishandle(MaskData.maskhandle)
144            delete(MaskData.maskhandle)   
145        end
146    else
147        %read mask image
148        Mask.AName='image';
149        Mask.A=imread(MaskName);
150        npxy=size(Mask.A);
151        Mask.AX=[0.5 npxy(2)-0.5];
152        Mask.AY=[npxy(1)-0.5 0.5 ];
153        Mask.CoordUnit='pixel';
154        if isequal(get(handles.slices,'Value'),1)
155           NbSlice=str2num(get(handles.nb_slice,'String'));
156           num_i1=str2num(get(handles.i1,'String'));
157           Mask.ZIndex=mod(num_i1-1,NbSlice)+1;
158        end
159        %px to phys or other transform on field
160         menu_transform=get(handles.transform_fct,'String');
161        choice_value=get(handles.transform_fct,'Value');
162        transform_name=menu_transform{choice_value};%name of the transform fct  given by the menu 'transform_fct'
163        transform_list=get(handles.transform_fct,'UserData');
164        transform=transform_list{choice_value};
165        if  ~isequal(transform_name,'') && ~isequal(transform_name,'px')
166            if isfield(UvData,'XmlData') && isfield(UvData.XmlData,'GeometryCalib')%use geometry calib recorded from the ImaDoc xml file as first priority
167                Calib=UvData.XmlData.GeometryCalib;
168                Mask=transform(Mask,UvData.XmlData);
169            end
170        end
171        flagmask=Mask.A < 200;
172       
173        %make brown color image
174        imflag(:,:,1)=0.9*flagmask;
175        imflag(:,:,2)=0.7*flagmask;
176        imflag(:,:,3)=zeros(size(flagmask));
177       
178        %update mask image
179        hmask=[]; %default
180        if isfield(MaskData,'maskhandle')&& ishandle(MaskData.maskhandle)
181            hmask=MaskData.maskhandle;
182        end
183        if ~isempty(hmask)
184            set(hmask,'CData',imflag)   
185            set(hmask,'AlphaData',flagmask*0.6)
186            set(hmask,'XData',Mask.AX);
187            set(hmask,'YData',Mask.AY);
188%             uistack(hmask,'top')
189        else
190            axes(handles.axes3)
191            hold on   
192            MaskData.maskhandle=image(Mask.AX,Mask.AY,imflag,'Tag','mask','HitTest','off','AlphaData',0.6*flagmask);
193%             set(MaskData.maskhandle,'AlphaData',0.6*flagmask)
194            set(handles.mask_test,'UserData',MaskData)
195        end
196    end
197end
198
199
200%-------------------------------------------------------------------
201function MenuExportFigure_Callback(hObject, eventdata, handles)
202%-------------------------------------------------------------------
203huvmat=get(handles.MenuExport,'parent');
204UvData=get(huvmat,'UserData');
205hfig=figure;
206newaxes=copyobj(handles.axes3,hfig);
207map=colormap(handles.axes3);
208colormap(map);%transmit the current colormap to the zoom fig
209colorbar
210
211%-------------------------------------------------------------------
212%-------------------------------------------------------------------
213% III - MAIN REFRESH FUNCTIONS : 'FRAME PLOT'
214%-------------------------------------------------------------------
215%-------------------------------------------------------------------
216
217%Executes on button press in runplus: make one step forward and call
218%run0. The step forward is along the fields series 1 or 2 depending on
219%the scan_i and scan_j check box (exclusive each other)
220%-------------------------------------------------------------------
221function runplus_Callback(hObject, eventdata, handles)
222increment=str2num(get(handles.increment_scan,'String')); %get the field increment d
223runpm(hObject,eventdata,handles,increment)
224
225%-------------------------------------------------------------------
226%Executes on button press in runmin: make one step backward and call
227%run0. The step backward is along the fields series 1 or 2 depending on
228%the scan_i and scan_j check box (exclusive each other)
229%-------------------------------------------------------------------
230function runmin_Callback(hObject, eventdata, handles)
231increment=-str2num(get(handles.increment_scan,'String')); %get the field increment d
232runpm(hObject,eventdata,handles,increment)
233
234%-------------------------------------------------------------------
235%Executes on button press in runmin: make one step backward and call
236%run0. The step backward is along the fields series 1 or 2 depending on
237%the scan_i and scan_j check box (exclusive each other)
238%-------------------------------------------------------------------
239function RunMovie_Callback(hObject, eventdata, handles)
240%------------------------------------------------------------------
241set(handles.RunMovie,'BackgroundColor',[1 1 0])%paint the command button in yellow
242drawnow
243increment=str2num(get(handles.increment_scan,'String')); %get the field increment d
244set(handles.STOP,'Visible','on')
245set(handles.speed,'Visible','on')
246set(handles.speed_txt,'Visible','on')
247set(handles.RunMovie,'BusyAction','queue')
248testavi=0;
249UvData=get(handles.view_field,'UserData');
250
251while get(handles.speed,'Value')~=0 & isequal(get(handles.RunMovie,'BusyAction'),'queue') % enable STOP command
252        runpm(hObject,eventdata,handles,increment)
253        pause(1.02-get(handles.speed,'Value'))% wait for next image
254end
255if isfield(UvData,'aviobj') && ~isempty( UvData.aviobj),
256    UvData.aviobj=close(UvData.aviobj);
257   set(handles.view_field,'UserData',UvData);
258end
259set(handles.RunMovie,'BackgroundColor',[1 0 0])%paint the command buttonback to red
260
261
262
263%-------------------------------------------------------------------
264% --- translate coordinate to matrix index
265%-------------------------------------------------------------------
266function [indx,indy]=pos2ind(x0,rangx0,nxy)
267indx=1+round((nxy(2)-1)*(x0-rangx0(1))/(rangx0(2)-rangx0(1)));% index x of pixel 
268indy=1+round((nxy(1)-1)*(y12-rangy0(1))/(rangy0(2)-rangy0(1)));% index y of pixel
269
270%-------------------------------------------------------------------
271% --- Executes on button press in 'FixLimits'.
272%-------------------------------------------------------------------
273function CheckFixLimits_Callback(hObject, eventdata, handles)
274test=get(handles.CheckFixLimits,'Value');
275if test
276    set(handles.CheckFixLimits,'BackgroundColor',[1 1 0])
277else
278    set(handles.CheckFixLimits,'BackgroundColor',[0.7 0.7 0.7])
279end
280update_plot(handles)
281
282%-------------------------------------------------------------------
283% --- Executes on button press in FixEqual.
284function CheckFixEqual_Callback(hObject, eventdata, handles)
285test=get(handles.CheckFixEqual,'Value');
286if test
287    set(handles.CheckFixEqual,'BackgroundColor',[1 1 0])
288    cla(handles.axes3)
289else
290    set(handles.CheckFixEqual,'BackgroundColor',[0.7 0.7 0.7])
291end
292 update_plot(handles)
293
294%-------------------------------------------------------------------
295
296%-------------------------------------------------------------------
297% --- Executes on button press in 'zoom'.
298%-------------------------------------------------------------------
299function zoom_Callback(hObject, eventdata, handles)
300if (get(handles.zoom,'Value') == 1);
301    set(handles.zoom,'BackgroundColor',[1 1 0])
302    set(handles.FixLimits,'Value',1)% propose by default fixed limits for the plotting axes
303    set(handles.FixLimits,'BackgroundColor',[1 1 0])
304else
305    set(handles.zoom,'BackgroundColor',[0.7 0.7 0.7])
306end
307
308%-------------------------------------------------------------------
309%----Executes on button press in 'record': records the current flags of manual correction.
310%-------------------------------------------------------------------
311function record_Callback(hObject, eventdata, handles)
312% [filebase,num_i1,num_j1,num_i2,num_j2,Ext,NomType,SubDir]=read_input_file(handles);
313filename=read_file_boxes(handles);
314AxeData=get(gca,'UserData');
315[erread,message]=fileattrib(filename);
316if ~isempty(message) && ~isequal(message.UserWrite,1)
317     msgbox_view_field('ERROR',['no writting access to ' filename])
318     return
319end
320test_civ2=isequal(get(handles.civ2,'BackgroundColor'),[1 1 0]);
321test_civ1=isequal(get(handles.civ1,'BackgroundColor'),[1 1 0]);
322if ~test_civ2 && ~test_civ1
323    msgbox_view_field('ERROR','manual correction only possible for CIV1 or CIV2 velocity fields')
324end
325if test_civ2
326    nbname='nb_vectors2';
327   flagname='vec2_FixFlag';
328   attrname='fix2';
329end
330if test_civ1
331    nbname='nb_vectors';
332   flagname='vec_FixFlag';
333   attrname='fix';
334end
335%write fix flags in the netcdf file
336hhh=which('netcdf.open');% look for built-in matlab netcdf library
337if ~isequal(hhh,'')% case of new builtin Matlab netcdf library
338    nc=netcdf.open(filename,'NC_WRITE');
339    netcdf.reDef(nc)
340    netcdf.putAtt(nc,netcdf.getConstant('NC_GLOBAL'),attrname,1)
341    dimid = netcdf.inqDimID(nc,nbname);
342    try
343        varid = netcdf.inqVarID(nc,flagname);% look for already existing fixflag variable
344    catch
345        varid=netcdf.defVar(nc,flagname,'double',dimid);%create fixflag variable if it does not exist
346    end
347    netcdf.endDef(nc)
348    netcdf.putVar(nc,varid,AxeData.FF);
349    netcdf.close(nc) 
350else %old netcdf library
351    netcdf_toolbox(filename,AxeData,attrname,nbname,flagname)
352end
353
354function netcdf_toolbox(filename,AxeData,attrname,nbname,flagname)
355nc=netcdf(filename,'write'); %open netcdf file
356result=redef(nc);
357eval(['nc.' attrname '=1;']);
358theDim=nc(nbname) ;% get the number of velocity vectors
359nb_vectors=size(theDim);
360var_FixFlag=ncvar(flagname,nc);% var_FixFlag will be written as the netcdf variable vec_FixFlag
361var_FixFlag(1:nb_vectors)=AxeData.FF;%
362fin=close(nc);
363
364
365%-------------------------------------------------------------------
366%-------------------------------------------------------------------
367%  - FUNCTIONS FOR SETTING PLOTTING PARAMETERS
368
369%------------------------------------------------------------------
370
371
372%------------------------------------------------------------------
373% --- Executes on selection change in col_vec: choice of the color code.
374%
375function col_vec_Callback(hObject, eventdata, handles)
376%------------------------------------------------------------------
377% edit the choice for color code
378list_code=get(handles.col_vec,'String');% list menu fields
379index_code=get(handles.col_vec,'Value');% selected string index
380col_code= list_code{index_code(1)}; % selected field
381if isequal(col_code,'black') | isequal(col_code,'white')
382   set(handles.slider1,'Visible','off')
383   set(handles.slider2,'Visible','off')
384   set(handles.colcode1,'Visible','off')
385   set(handles.colcode2,'Visible','off')
386   set(handles.AutoVecColor,'Visible','off')
387   set_vec_col_bar(handles)
388else
389   set(handles.slider1,'Visible','on')
390   set(handles.slider2,'Visible','on')
391   set(handles.colcode1,'Visible','on')
392   set(handles.colcode2,'Visible','on')
393   set(handles.AutoVecColor,'Visible','on') 
394   if isequal(col_code,'ima_cor')
395       set(handles.AutoVecColor,'Value',0)%fixed scale by default
396       set(handles.vec_col_bar,'Value',0)% 3 colors r,g,b by default
397       set(handles.slider1,'Min',0);
398       set(handles.slider1,'Max',1);
399       set(handles.slider2,'Min',0);
400       set(handles.slider2,'Max',1);
401 %      set(handles.min_C_title_vec,'String','0')
402       set(handles.max_vec,'String','1')
403       set(handles.colcode1,'String','0.333')
404       colcode1_Callback(hObject, eventdata, handles)
405       set(handles.colcode2,'String','0.666')
406       colcode2_Callback(hObject, eventdata, handles)
407   else
408       set(handles.AutoVecColor,'Value',1)%auto scale between min,max by default
409       set(handles.vec_col_bar,'Value',1)% colormap 'jet' by default
410       minval=get(handles.slider1,'Min');
411       maxval=get(handles.slider1,'Max');
412       set(handles.slider1,'Value',minval)
413       set(handles.slider2,'Value',maxval)
414       set_vec_col_bar(handles)
415   end
416%    slider_update(handles)
417end
418%replot the current graph
419run0_Callback(hObject, eventdata, handles)
420
421
422%----------------------------------------------------------------
423% -- Executes on slider movement to set the color code
424%
425function slider1_Callback(hObject, eventdata, handles)
426%------------------------------------------------------------------
427slider1=get(handles.slider1,'Value');
428min_val=str2num(get(handles.min_vec,'String'));
429max_val=str2num(get(handles.max_vec,'String'));
430col=min_val+(max_val-min_val)*slider1;
431set(handles.colcode1,'String',num2str(col))
432if(get(handles.slider2,'Value') < col)%move also the second slider at the same value if needed
433    set(handles.slider2,'Value',col)
434    set(handles.colcode2,'String',num2str(col))
435end
436colcode1_Callback(hObject, eventdata, handles)
437
438%----------------------------------------------------------------
439% Executes on slider movement to set the color code
440%----------------------------------------------------------------
441function slider2_Callback(hObject, eventdata, handles)
442slider2=get(handles.slider2,'Value');
443min_val=str2num(get(handles.min_vec,'String'));
444max_val=str2num(get(handles.max_vec,'String'));
445col=min_val+(max_val-min_val)*slider2;
446set(handles.colcode2,'String',num2str(col))
447if(get(handles.slider1,'Value') > col)%move also the first slider at the same value if needed
448    set(handles.slider1,'Value',col)
449    set(handles.colcode1,'String',num2str(col))
450end
451colcode2_Callback(hObject, eventdata, handles)
452
453%----------------------------------------------------------------
454%execute on return carriage on the edit box corresponding to slider 1
455%----------------------------------------------------------------
456function colcode1_Callback(hObject, eventdata, handles)
457% col=str2num(get(handles.colcode1,'String'));
458% set(handles.slider1,'Value',col)
459set_vec_col_bar(handles)
460update_plot(handles)
461
462%----------------------------------------------------------------
463%execute on return carriage on the edit box corresponding to slider 2
464%----------------------------------------------------------------
465function colcode2_Callback(hObject, eventdata, handles)
466% col=str2num(get(handles.colcode2,'String'));
467% set(handles.slider2,'Value',col)
468% slider2_Callback(hObject, eventdata, handles)
469set_vec_col_bar(handles)
470update_plot(handles)
471%------------------------------------------------------------
472%update the slider values after displaying vectors
473%--------------------------------------------------------
474% function slider_update(handles,auto,minC,colcode1,colcode2,maxC)
475% set(handles.slider1,'Min',minC)
476% set(handles.slider1,'Max',maxC)
477% set(handles.slider2,'Min',minC)
478% set(handles.slider2,'Max',maxC)
479% set(handles.min_C_title_vec,'String',num2str(minC))
480% set(handles.max_vec,'String',num2str(maxC))
481% if auto
482%         set(handles.colcode1,'String',num2str(colcode1,3))%update display
483%         set(handles.colcode2,'String',num2str(colcode2,3))
484% end
485% set(handles.slider1,'Value',colcode1)%update slider with constant display
486% set(handles.slider2,'Value',colcode2)
487% set_vec_col_bar(handles)
488
489
490%-------------------------------------------------------
491% --- Executes on button press in AutoVecColor.
492%-------------------------------------------------------
493function vec_col_bar_Callback(hObject, eventdata, handles)
494set_vec_col_bar(handles)
495
496%------------------------------------------------
497%CALLBACKS FOR PLOTTING PARAMETERS
498%-------------------------------------------------
499
500%------------------------------------------------------------------------
501function num_MinX_Callback(hObject, eventdata, handles)
502%------------------------------------------------------------------------
503set(handles.CheckFixLimits,'Value',1) %suppress auto mode
504set(handles.CheckFixLimits,'BackgroundColor',[1 1 0])
505update_plot(handles);
506
507%------------------------------------------------------------------------
508function num_MaxX_Callback(hObject, eventdata, handles)
509%------------------------------------------------------------------------
510set(handles.CheckFixLimits,'Value',1) %suppress auto mode
511set(handles.CheckFixLimits,'BackgroundColor',[1 1 0])
512update_plot(handles);
513
514%------------------------------------------------------------------------
515function num_MinY_Callback(hObject, eventdata, handles)
516%------------------------------------------
517set(handles.CheckFixLimits,'Value',1) %suppress auto mode
518set(handles.CheckFixLimits,'BackgroundColor',[1 1 0])
519update_plot(handles);
520
521%------------------------------------------------------------------------
522function num_MaxY_Callback(hObject, eventdata, handles)
523%------------------------------------------------------------------------
524set(handles.CheckFixLimits,'Value',1) %suppress auto mode
525set(handles.CheckFixLimits,'BackgroundColor',[1 1 0])
526update_plot(handles);
527
528%-----------------------------------------------------------------
529function num_MinA_Callback(hObject, eventdata, handles)
530%------------------------------------------
531set(handles.CheckFixScalar,'Value',1) %suppress auto mode
532set(handles.CheckFixScalar,'BackgroundColor',[1 1 0])
533update_plot(handles)
534
535%-----------------------------------------------------------------
536function num_MaxA_Callback(hObject, eventdata, handles)
537%--------------------------------------------
538set(handles.CheckFixScalar,'Value',1) %suppress auto mode
539set(handles.CheckFixScalar,'BackgroundColor',[1 1 0])
540update_plot(handles)
541
542%-----------------------------------------------
543function CheckFixScalar_Callback(hObject, eventdata, handles)
544%--------------------------------------------
545test=get(handles.CheckFixScalar,'Value');
546if test
547    set(handles.CheckFixScalar,'BackgroundColor',[1 1 0])
548else
549    set(handles.CheckFixScalar,'BackgroundColor',[0.7 0.7 0.7])
550    update_plot(handles);
551%     set(handles.MinA,'String',num2str(ScalOut.MinA,3))
552%     set(handles.MaxA,'String',num2str(ScalOut.MaxA,3))
553end
554
555%-------------------------------------------------------------------
556function CheckBW_Callback(hObject, eventdata, handles)
557%-------------------------------------------------------------------
558update_plot(handles)
559
560%-------------------------------------------------------------------
561function ListContour_Callback(hObject, eventdata, handles)
562%-------------------------------------------------------------------
563val=get(handles.Contours,'Value');
564if val==2
565    set(handles.interval_txt,'Visible','on')
566    set(handles.IncrA,'Visible','on')
567else
568    set(handles.interval_txt,'Visible','off')
569    set(handles.IncrA,'Visible','off')
570end
571update_plot(handles)
572
573%-------------------------------------------------------------------
574function IncrA_Callback(hObject, eventdata, handles)
575%-------------------------------------------------------------------
576update_plot(handles)
577
578%-------------------------------------------------------------------
579function HideWarning_Callback(hObject, eventdata, handles)
580%-------------------------------------------------------------------
581update_plot(handles)
582
583%-------------------------------------------------------------------
584function HideFalse_Callback(hObject, eventdata, handles)
585%-------------------------------------------------------------------
586update_plot(handles)
587
588%-------------------------------------------------------------------
589function VecScale_Callback(hObject, eventdata, handles)
590%-------------------------------------------------------------------
591set(handles.FixVec,'Value',1);
592set(handles.FixVec,'BackgroundColor',[1 1 0])
593update_plot(handles)
594
595%-------------------------------------------------------------------
596function FixVec_Callback(hObject, eventdata, handles)
597%-------------------------------------------------------------------
598test=get(handles.FixVec,'Value');
599if test
600    set(handles.FixVec,'BackgroundColor',[1 1 0])
601else
602    update_plot(handles);
603    %set(handles.VecScale,'String',num2str(ScalOut.VecScale,3))
604    set(handles.FixVec,'BackgroundColor',[0.7 0.7 0.7])
605end
606
607%-------------------------------------------------------
608% --- Executes on selection change in decimate4 (nb_vec/4).
609%-------------------------------------------------------
610function CheckDecimate4_Callback(hObject, eventdata, handles)
611update_plot(handles)
612
613
614%-------------------------------------------------------
615% --- Executes on selection change in color_code menu
616%-------------------------------------------------------
617function color_code_Callback(hObject, eventdata, handles)
618set_vec_col_bar(handles)
619update_plot(handles);
620
621%-------------------------------------------------------
622% --- Executes on button press in AutoVecColor.
623%-------------------------------------------------------
624function AutoVecColor_Callback(hObject, eventdata, handles)
625test=get(handles.AutoVecColor,'Value');
626if test
627    set(handles.AutoVecColor,'BackgroundColor',[1 1 0])
628else
629    update_plot(handles);
630    %set(handles.VecScale,'String',num2str(ScalOut.VecScale,3))
631    set(handles.AutoVecColor,'BackgroundColor',[0.7 0.7 0.7])
632end
633%set_vec_col_bar(handles)
634
635%-------------------------------------------------------
636% --- Executes on selection change in max_vec.
637%-------------------------------------------------------
638function min_vec_Callback(hObject, eventdata, handles)
639max_vec_Callback(hObject, eventdata, handles)
640
641% --- Executes on selection change in max_vec.
642function max_vec_Callback(hObject, eventdata, handles)
643set(handles.AutoVecColor,'Value',1)
644AutoVecColor_Callback(hObject, eventdata, handles)
645min_val=str2num(get(handles.min_vec,'String'));
646max_val=str2num(get(handles.max_vec,'String'));
647slider1=get(handles.slider1,'Value');
648slider2=get(handles.slider2,'Value');
649colcode1=min_val+(max_val-min_val)*slider1;
650colcode2=min_val+(max_val-min_val)*slider2;
651set(handles.colcode1,'String',num2str(colcode1))
652set(handles.colcode2,'String',num2str(colcode2))
653update_plot(handles);
654
655%-------------------------------------------------------------------
656%update the display of color code for vectors
657function set_vec_col_bar(handles)
658%-------------------------------------------------------------------
659%get the image of the color display button 'vec_col_bar' in pixels
660set(handles.vec_col_bar,'Unit','pixel');
661pos_vert=get(handles.vec_col_bar,'Position');
662set(handles.vec_col_bar,'Unit','Normalized');
663width=ceil(pos_vert(3));
664height=ceil(pos_vert(4));
665
666%get slider indications
667list=get(handles.color_code,'String');
668ichoice=get(handles.color_code,'Value');
669colcode.ColorCode=list{ichoice};
670colcode.MinC=str2num(get(handles.min_vec,'String'));
671colcode.MaxC=str2num(get(handles.max_vec,'String'));
672test3color=strcmp(colcode.ColorCode,'rgb') || strcmp(colcode.ColorCode,'bgr');
673if test3color
674    colcode.colcode1=str2num(get(handles.colcode1,'String'));
675    colcode.colcode2=str2num(get(handles.colcode2,'String'));
676end
677colcode.FixedCbounds=0;
678colcode.FixedCbounds=1;
679vec_C=colcode.MinC+(colcode.MaxC-colcode.MinC)*[0.5:width-0.5]/width;%sample of vec_C values from min to max
680[colorlist,col_vec]=set_col_vec(colcode,vec_C);
681oneheight=ones(1,height);
682A1=colorlist(col_vec,1)*oneheight;
683A2=colorlist(col_vec,2)*oneheight;
684A3=colorlist(col_vec,3)*oneheight;
685A(:,:,1)=A1';
686A(:,:,2)=A2';
687A(:,:,3)=A3';
688set(handles.vec_col_bar,'Cdata',A)
689
690% %------------------------------------------------------------------------
691% function PlotType=update_plot(handles)
692% %------------------------------------------------------------------------
693% haxes= handles.axes3;
694%
695% %ProjField=get(haxes,'UserData');
696% ViewFieldData=get(handles.view_field,'UserData');
697% ProjField=ViewFieldData.axes3;
698% %ProjField=get(haxes,'UserData');
699% PlotParam=read_GUI(handles.view_field);
700% [PlotType,PlotParamOut]= plot_field(ProjField,haxes,PlotParam,1);
701% write_plot_param(handles,PlotParamOut); %update the auto plot parameters
702
703%-------------------------------------------------------------------
704function update_plot(handles)
705%-------------------------------------------------------------------
706Data=get(handles.view_field,'UserData');
707AxeData=Data.axes3;% retrieve the current plotted data
708PlotParam=read_GUI(handles.view_field);
709[PP,PlotParamOut]= plot_field(AxeData,handles.axes3,PlotParam);
710write_plot_param(handles,PlotParamOut); %update the auto plot parameters
711
712%------------------------------------------------------------------------
713% --- Executes on button press in Menu/Export/field in workspace.
714function MenuExportField_Callback(hObject, eventdata, handles)
715%------------------------------------------------------------------------
716global Data_view_field
717% huvmat=findobj(allchild(0),'Name','uvmat');
718Data_view_field=get(handles.view_field,'UserData');
719Data_view_field=Data_view_field.axes3;
720% Data_view_field=UvData.ProjField_2;
721evalin('base','global Data_view_field')%make CurData global in the workspace
722display(['UserData of view_field :'])
723evalin('base','Data_view_field') %display CurData in the workspace
724commandwindow;
725
726%------------------------------------------------------------------------
727% --- Executes on button press in Menu/Export/extract figure.
728function MenuExport_plot_Callback(hObject, eventdata, handles)
729%------------------------------------------------------------------------
730huvmat=get(handles.MenuExport_plot,'parent');
731UvData=get(huvmat,'UserData');
732hfig=figure;
733newaxes=copyobj(handles.axes3,hfig);
734map=colormap(handles.axes3);
735colormap(map);%transmit the current colormap to the zoom fig
736colorbar
737
738%------------------------------------------------------------------------
739function closefcn(hObject, eventdata, handles)
740%------------------------------------------------------------------------
741huvmat=findobj(allchild(0),'Name','uvmat');
742if ~isempty(huvmat)
743hhuvmat=guidata(huvmat);
744% list_object_2=get(hhuvmat.list_object_2,'String');
745% set(hhuvmat.list_object_2,'Value',1)%select the last value ('...')
746end
747delete(hObject)
748
Note: See TracBrowser for help on using the repository browser.