开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 波变换 > 查看源码
wfustool.m
资源名称：wavelet_toolbox.rar　[点击查看]
上传用户：haiyisale
上传日期：2013-01-09
资源大小：3246k
文件大小：57k
源码类别：

波变换

开发平台：

Matlab

wfustool.m：源码内容
  1. function varargout = wfustool(varargin)
  2. %WFUSTOOL Discrete wavelet 2D tool for image fusion.
  3. %   VARARGOUT = WFUSTOOL(VARARGIN)
  5. % WFUSTOOL M-file for wfustool.fig
  6. %      WFUSTOOL, by itself, creates a new WFUSTOOL or raises the existing
  7. %      singleton*.
  8. %
  9. %      H = WFUSTOOL returns the handle to a new WFUSTOOL or the handle to
  10. %      the existing singleton*.
  11. %
  12. %      WFUSTOOL('CALLBACK',hObject,eventData,handles,...) calls the local
  13. %      function named CALLBACK in WFUSTOOL.M with the given input arguments.
  14. %
  15. %      WFUSTOOL('Property','Value',...) creates a new WFUSTOOL or raises the
  16. %      existing singleton*.  Starting from the left, property value pairs are
  17. %      applied to the GUI before wfustool_OpeningFunction gets called.  An
  18. %      unrecognized property name or invalid value makes property application
  19. %      stop.  All inputs are passed to wfustool_OpeningFcn via varargin.
  20. %
  21. %      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
  22. %      instance to run (singleton)".
  23. %
  24. % See also: GUIDE, GUIDATA, GUIHANDLES
  26. % Edit the above text to modify the response to help wfustool
  28. % Last Modified by GUIDE v2.5 15-Dec-2003 15:23:00
  29. %
  30. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-Feb-2003.
  31. %   Last Revision: 12-Nov-2003.
  32. %   Copyright 1995-2004 The MathWorks, Inc.
  33. %   $Revision: 1.1.6.2 $ $Date: 2004/03/15 22:42:54 $ 
  36. %*************************************************************************%
  37. %                BEGIN initialization code - DO NOT EDIT                  %
  38. %                ----------------------------------------                 %
  39. %*************************************************************************%
  41. gui_Singleton = 0;
  42. gui_State = struct('gui_Name',       mfilename, ...
  43.                    'gui_Singleton',  gui_Singleton, ...
  44.                    'gui_OpeningFcn', @wfustool_OpeningFcn, ...
  45.                    'gui_OutputFcn',  @wfustool_OutputFcn, ...
  46.                    'gui_LayoutFcn',  [] , ...
  47.                    'gui_Callback',   []);
  48. if nargin & isstr(varargin{1})
  49.     gui_State.gui_Callback = str2func(varargin{1});
  50. end
  52. if nargout
  53.     [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
  54. else
  55.     gui_mainfcn(gui_State, varargin{:});
  56. end
  58. %*************************************************************************%
  59. %                END initialization code - DO NOT EDIT                    %
  60. %*************************************************************************%
  63. %*************************************************************************%
  64. %                BEGIN Opening Function                                   %
  65. %                ----------------------                                   %
  66. % --- Executes just before wfustool is made visible.                      %
  67. %*************************************************************************%
  69. function wfustool_OpeningFcn(hObject, eventdata, handles, varargin)
  70. % This function has no output args, see OutputFcn.
  71. % hObject    handle to figure
  72. % eventdata  reserved - to be defined in a future version of MATLAB
  73. % handles    structure with handles and user data (see GUIDATA)
  74. % varargin   command line arguments to wfustool (see VARARGIN)
  76. % Choose default command line output for wfustool
  77. handles.output = hObject;
  79. % Update handles structure
  80. guidata(hObject, handles);
  82. % UIWAIT makes wfustool wait for user response (see UIRESUME)
  83. % uiwait(handles.wfustool_Win);
  85. %%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%
  86. % TOOL INITIALISATION Intodruced manualy in the automatic generated code  %
  87. %%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%
  88. Init_Tool(hObject,eventdata,handles);
  90. %*************************************************************************%
  91. %                END Opening Function                                     %
  92. %*************************************************************************%
  94. %*************************************************************************%
  95. %                BEGIN Output Function                                    %
  96. %                ---------------------                                    %
  97. % --- Outputs from this function are returned to the command line.        %
  98. %*************************************************************************%
  100. function varargout = wfustool_OutputFcn(hObject, eventdata, handles)
  101. % varargout  cell array for returning output args (see VARARGOUT);
  102. % hObject    handle to figure
  103. % eventdata  reserved - to be defined in a future version of MATLAB
  104. % handles    structure with handles and user data (see GUIDATA)
  106. % Get default command line output from handles structure
  107. varargout{1} = handles.output;
  109. %*************************************************************************%
  110. %                END Output Function                                      %
  111. %*************************************************************************%
  114. %=========================================================================%
  115. %                BEGIN Create Functions                                   %
  116. %                ----------------------                                   %
  117. % --- Executes during object creation, after setting all properties.      %
  118. %=========================================================================%
  120. function EdiPop_CreateFcn(hObject,eventdata,handles)
  121. % hObject    handle to Edi_Object or Pop_Object (see GCBO)
  122. % eventdata  reserved - to be defined in a future version of MATLAB
  123. % handles    empty - handles not created until after all CreateFcns called
  125. % Hint: edit controls usually have a white background on Windows.
  126. % Hint: popupmenu controls usually have a white background on Windows.
  127. % See ISPC and COMPUTER.
  128. if ispc
  129.     % set(hObject,'BackgroundColor','white');
  130.     set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
  131. else
  132.     set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
  133. end
  134. %--------------------------------------------------------------------------
  136. function Sli_CreateFcn(hObject, eventdata, handles)
  137. % hObject    handle to Sli_Object (see GCBO)
  138. % eventdata  reserved - to be defined in a future version of MATLAB
  139. % handles    empty - handles not created until after all CreateFcns called
  141. % Hint: slider controls usually have a light gray background, change
  142. %       'usewhitebg' to 0 to use default.  See ISPC and COMPUTER.
  143. usewhitebg = 1;
  144. if usewhitebg
  145.     set(hObject,'BackgroundColor',[.9 .9 .9]);
  146. else
  147.     set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));
  148. end
  149. %--------------------------------------------------------------------------
  151. %=========================================================================%
  152. %                END Create Functions                                     %
  153. %=========================================================================%
  156. %=========================================================================%
  157. %                BEGIN Callback Functions                                 %
  158. %                ------------------------                                 %
  159. %=========================================================================%
  161. % --- Executes on button press in Pus_CloseWin.
  162. function Pus_CloseWin_Callback(hObject, eventdata, handles)
  163. % hObject    handle to Pus_CloseWin (see GCBO)
  164. % eventdata  reserved - to be defined in a future version of MATLAB
  165. % handles    structure with handles and user data (see GUIDATA)
  167. hdl_Menus = wtbxappdata('get',hObject,'hdl_Menus');
  168. m_save = hdl_Menus.m_save;
  169. ena_Save = get(m_save,'Enable');
  170. if isequal(lower(ena_Save),'on')
  171.     hFig = get(hObject,'Parent');
  172.     status = wwaitans({hFig,'Image Fusion'},...
  173.         'Save the synthesized image ?',2,'Cancel');
  174.     switch status
  175.         case -1 , return;
  176.         case  1
  177.             wwaiting('msg',hFig,'Wait ... computing');
  178.             save_FUN(m_save,eventdata,handles)
  179.             wwaiting('off',hFig);
  180.         otherwise
  181.     end
  182. end
  183. close(gcbf)
  184. %--------------------------------------------------------------------------
  186. % --- Executes Menu Load_Img1.
  187. function Load_Img1_Callback(hObject,eventdata,handles)
  189. % Get figure handle.
  190. %-------------------
  191. hFig = handles.output;
  193. % Testing file.
  194. %--------------
  195. def_nbCodeOfColors = 255;
  196. imgFileType = ['*.mat;*.bmp;*.hdf;*.jpg;*.jpeg;*.pcx;*.tif;*.tiff;*.gif'];
  197. [imgInfos,img_anal,map,ok] = ...
  198.     utguidiv('load_img',hFig,imgFileType,'Load Image',def_nbCodeOfColors);
  199. if ~ok, return; end
  200. okSize = tst_ImageSize(hFig,1,imgInfos);
  202. % Cleaning.
  203. %----------
  204. wwaiting('msg',hFig,'Wait ... cleaning');
  205. CleanTOOL(hFig,eventdata,handles,'Load_Img1_Callback','beg');
  207. % Setting GUI values and Analysis parameters.
  208. %--------------------------------------------
  209. max_lev_anal = 8;
  210. levm   = wmaxlev(imgInfos.size,'haar');
  211. levmax = min(levm,max_lev_anal);
  212. [curlev,curlevMAX] = cbanapar('get',hFig,'lev','levmax');
  213. if levmax<curlevMAX
  214.     cbanapar('set',hFig, ...
  215.         'lev',{'String',int2str([1:levmax]'),'Value',min(levmax,curlev)} ...
  216.         );
  217. end
  218. %---------------------------------
  219. if isequal(imgInfos.true_name,'X')
  220.     img_Name = imgInfos.name;
  221. else
  222.     img_Name = imgInfos.true_name;
  223. end
  224. img_Size = imgInfos.size;
  225. %---------------------------------
  226. NB_ColorsInPal = size(map,1);
  227. if imgInfos.self_map , arg = map; else , arg = []; end
  228. curMap = get(hFig,'Colormap');
  229. NB_ColorsInPal = max([NB_ColorsInPal,size(curMap,1)]);
  230. cbcolmap('set',hFig,'pal',{'pink',NB_ColorsInPal,'self',arg});
  231. %---------------------------------
  232. n_s = [img_Name '  (' , int2str(img_Size(2)) 'x' int2str(img_Size(1)) ')'];
  233. set(handles.Edi_Data_NS,'String',n_s);                
  234. axes(handles.Axe_Image_1); 
  235. image(img_anal); 
  236. setAxesTitle(handles.Axe_Image_1,'Image 1');
  238. % End waiting.
  239. %-------------
  240. CleanTOOL(hFig,eventdata,handles,'Load_Img1_Callback','end');
  241. wwaiting('off',hFig);
  242. %--------------------------------------------------------------------------
  243. % --- Executes on Menu or Load_Img2.
  244. function Load_Img2_Callback(hObject, eventdata, handles)
  246. % Get figure handle.
  247. %-------------------
  248. hFig = handles.output;
  250. % Testing file.
  251. %--------------
  252. def_nbCodeOfColors = 255;
  253. imgFileType = ['*.mat;*.bmp;*.hdf;*.jpg;*.jpeg;*.pcx;*.tif;*.tiff;*.gif'];
  254. [imgInfos,img_anal,map,ok] = ...
  255.     utguidiv('load_img',hFig,imgFileType,'Load Image',def_nbCodeOfColors);
  256. if ~ok, return; end
  257. okSize = tst_ImageSize(hFig,2,imgInfos);
  258. % if ~okSize, return; end
  260. % Cleaning.
  261. %----------
  262. wwaiting('msg',hFig,'Wait ... cleaning');
  263. CleanTOOL(hFig,eventdata,handles,'Load_Img2_Callback','beg');
  265. % Setting GUI values and Analysis parameters.
  266. %--------------------------------------------
  267. max_lev_anal = 8;
  268. levm   = wmaxlev(imgInfos.size,'haar');
  269. levmax = min(levm,max_lev_anal);
  270. [curlev,curlevMAX] = cbanapar('get',hFig,'lev','levmax');
  271. if levmax<curlevMAX
  272.     cbanapar('set',hFig, ...
  273.         'lev',{'String',int2str([1:levmax]'),'Value',min(levmax,curlev)} ...
  274.         );
  275. end
  276. %---------------------------------
  277. if isequal(imgInfos.true_name,'X')
  278.     img_Name = imgInfos.name;
  279. else
  280.     img_Name = imgInfos.true_name;
  281. end
  282. img_Size = imgInfos.size;
  283. %---------------------------------
  284. NB_ColorsInPal = size(map,1);
  285. if imgInfos.self_map , arg = map; else , arg = []; end
  286. curMap = get(hFig,'Colormap');
  287. NB_ColorsInPal = max([NB_ColorsInPal,size(curMap,1)]);
  288. cbcolmap('set',hFig,'pal',{'pink',NB_ColorsInPal,'self',arg});
  289. %---------------------------------
  290. n_s = [img_Name '  (' , int2str(img_Size(2)) 'x' int2str(img_Size(1)) ')'];
  291. set(handles.Edi_Image_2,'String',n_s);                
  292. axes(handles.Axe_Image_2); 
  293. image(img_anal); 
  294. setAxesTitle(handles.Axe_Image_2,'Image 2');
  295. setAxesXlabel(handles.Axe_Image_Fus,'Synthesized Image');
  297. % End waiting.
  298. %-------------
  299. CleanTOOL(hFig,eventdata,handles,'Load_Img2_Callback','end');
  300. wwaiting('off',hFig);
  301. %--------------------------------------------------------------------------
  303. % --- Executes on button press in Pus_Decompose.
  304. function Pus_Decompose_Callback(hObject, eventdata, handles)
  306. hFig = handles.output;
  307. axe_IND = [...
  308.         handles.Axe_ImgDec_1 , ...
  309.         handles.Axe_ImgDec_2 , ...
  310.         handles.Axe_ImgDec_Fus ...
  311.     ];
  312. axe_CMD = [...
  313.         handles.Axe_Image_1 , ...
  314.         handles.Axe_Image_2 , ...
  315.         handles.Axe_Image_Fus ...
  316.     ];
  317. axe_ACT = [];
  319. % Cleaning.
  320. %----------
  321. wwaiting('msg',hFig,'Wait ... cleaning');
  322. CleanTOOL(hFig,eventdata,handles,'Pus_Decompose_Callback','beg');
  324. % Decomposition.
  325. %---------------
  326. [wname,level] = cbanapar('get',hFig,'wav','lev');
  327. Image_1 = findobj(handles.Axe_Image_1,'type','image');
  328. X = get(Image_1,'Cdata');
  329. tree_1 = wfustree(X,level,wname);
  330. Image_2 = findobj(handles.Axe_Image_2,'type','image');
  331. X = get(Image_2,'Cdata');
  332. tree_2 = wfustree(X,level,wname);
  334. % Store Decompositions Parameters.
  335. %--------------------------------
  336. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  337. tool_PARAMS.DecIMG_1 = tree_1;
  338. tool_PARAMS.DecIMG_2 = tree_2;
  339. dwt_ATTRB = struct('type','dwt','wname',wname,'level',level);
  340. tool_PARAMS.dwt_ATTRB = dwt_ATTRB;
  341. wtbxappdata('set',hFig,'tool_PARAMS',tool_PARAMS);
  343. % Show Decompositions.
  344. %---------------------
  345. axes(handles.Axe_ImgDec_1);
  346. DecIMG_1 = getdec(tree_1);
  347. image(DecIMG_1);
  348. setAxesTitle(handles.Axe_ImgDec_1,'Decomposition 1');
  349. axes(handles.Axe_ImgDec_2);
  350. DecIMG_2 = getdec(tree_2);
  351. image(DecIMG_2);
  352. setAxesTitle(handles.Axe_ImgDec_2,'Decomposition 2');
  353. dynvtool('init',hFig,axe_IND,axe_CMD,axe_ACT,[1 1],'','','','int');
  355. % End waiting.
  356. %-------------
  357. CleanTOOL(hFig,eventdata,handles,'Pus_Decompose_Callback','end');
  358. wwaiting('off',hFig);
  359. %--------------------------------------------------------------------------
  361. % --- Executes on selection change in Pop_Fus_App.
  362. function Pop_Fus_App_Callback(hObject, eventdata, handles)
  364. Edi = handles.Edi_Fus_App;
  365. Txt = handles.Txt_Edi_App;
  366. set_Fus_Param(hObject,Edi,Txt,eventdata,handles)
  367. set(handles.Tog_Inspect,'Enable','Off');
  368. %--------------------------------------------------------------------------
  370. % --- Executes on selection change in Pop_Fus_Det.
  371. function Pop_Fus_Det_Callback(hObject, eventdata, handles)
  373. Edi = handles.Edi_Fus_Det;
  374. Txt = handles.Txt_Edi_Det;
  375. set_Fus_Param(hObject,Edi,Txt,eventdata,handles)
  376. set(handles.Tog_Inspect,'Enable','Off');
  377. %--------------------------------------------------------------------------
  379. % --- Executes on selection change in Edi_Fus_Det.
  380. function Edi_Fus_App_Callback(hObject, eventdata, handles)
  382. Pop = handles.Pop_Fus_App;
  383. Edi = handles.Edi_Fus_App;
  384. ok  = tst_Fus_Param(Pop,Edi,eventdata,handles);
  385. %--------------------------------------------------------------------------
  387. % --- Executes on selection change in Edi_Fus_Det.
  388. function Edi_Fus_Det_Callback(hObject, eventdata, handles)
  390. Pop = handles.Pop_Fus_Det;
  391. Edi = handles.Edi_Fus_Det;
  392. ok  = tst_Fus_Param(Pop,Edi,eventdata,handles);
  393. %--------------------------------------------------------------------------
  395. % --- Executes on button press in Pus_Fusion.
  396. function Pus_Fusion_Callback(hObject, eventdata, handles)
  398. hFig = handles.output;
  400. % Cleaning.
  401. %----------
  402. wwaiting('msg',hFig,'Wait ... cleaning');
  403. CleanTOOL(hFig,eventdata,handles,'Pus_Fusion_Callback','beg');
  405. % Get Decompositions Parameters.
  406. %-------------------------------
  407. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  408. tree_1 = tool_PARAMS.DecIMG_1;
  409. tree_2 = tool_PARAMS.DecIMG_2;
  410. dwt_ATTRB = tool_PARAMS.dwt_ATTRB;
  411. type  = dwt_ATTRB.type;
  412. wname = dwt_ATTRB.wname;
  413. level = dwt_ATTRB.level;
  415. % Get Fusion Parameters.
  416. %-----------------------
  417. AfusMeth = get_Fus_Param('app',handles);
  418. DfusMeth = get_Fus_Param('det',handles);
  420. % Make Fusion.
  421. %-------------
  422. [XFus,tree_F] = wfusdec(tree_1,tree_2,AfusMeth,DfusMeth);
  423. DecImgFus = getdec(tree_F);
  424. tool_PARAMS.DecIMG_F = tree_F;
  425. wtbxappdata('set',hFig,'tool_PARAMS',tool_PARAMS);
  427. % Plot Decomposition and Image.
  428. %------------------------------
  429. axes(handles.Axe_ImgDec_Fus); 
  430. image(DecImgFus);
  431. setAxesXlabel(handles.Axe_ImgDec_Fus,'Fusion of Decompositions');
  432. axes(handles.Axe_Image_Fus);
  433. image(XFus);
  434. setAxesXlabel(handles.Axe_Image_Fus,'Synthesized Image');
  435. %---------------------------------------------
  436. axe_IND = [...
  437.         handles.Axe_ImgDec_1 , ...
  438.         handles.Axe_ImgDec_2 , ...
  439.         handles.Axe_ImgDec_Fus ...
  440.     ];
  441. axe_CMD = [...
  442.         handles.Axe_Image_1 , ...
  443.         handles.Axe_Image_2 , ...
  444.         handles.Axe_Image_Fus ...
  445.     ];
  446. axe_ACT = [];
  447. dynvtool('init',hFig,axe_IND,axe_CMD,axe_ACT,[1 1],'','','','int');
  449. % End waiting.
  450. %-------------
  451. set(handles.Tog_Inspect,'Enable','On');
  452. CleanTOOL(hFig,eventdata,handles,'Pus_Fusion_Callback','end');
  453. wwaiting('off',hFig);
  454. %--------------------------------------------------------------------------
  456. % --- Executes on button press in Tog_Inspect.
  457. function Tog_Inspect_Callback(hObject,eventdata,handles)
  459. hFig = handles.output;
  460. Val_Inspect = get(hObject,'Value');
  462. % Cleaning.
  463. %----------
  464. wwaiting('msg',hFig,'Wait ... cleaning');
  465. CleanTOOL(hFig,eventdata,handles,'Tog_Inspect_Callback','beg',Val_Inspect);
  467. axe_INI = [...
  468.         handles.Axe_ImgDec_1 , handles.Axe_ImgDec_2 , handles.Axe_ImgDec_Fus ,...
  469.         handles.Axe_Image_1  , handles.Axe_Image_2 ,  handles.Axe_Image_Fus...
  470.     ];
  471. child = allchild(axe_INI);
  472. child = cat(1,child{:})';
  473. child_INI = findobj(child)';
  474. axe_TREE = [...
  475.         handles.Axe_Tree_Dec , ...
  476.         handles.Axe_Tree_Img1  , handles.Axe_Tree_Img2 ,  handles.Axe_Tree_ImgF...
  477.     ];
  478. child = allchild(axe_TREE);
  479. child_DEC = cat(1,child{:})';
  480. child_DEC = findobj(child_DEC)';
  482. hdl_Arrows = wtbxappdata('get',hFig,'hdl_Arrows');
  483. switch Val_Inspect
  484.     case 0 ,
  485.         set([axe_TREE , child_DEC],'Visible','Off');
  486.         delete(child_DEC);
  487.         set([axe_INI  , child_INI , hdl_Arrows(:)'],'Visible','On');
  488.         dynvtool('init',hFig,axe_INI(1:3),axe_INI,[],[1 1],'','','','int');
  489.         set(hObject,'String','Inspect Fusion Tree');
  490.         set(handles.Pus_CloseWin,'Enable','On');
  491.     case 1 ,
  492.         dynvtool('ini_his',hFig,-1);
  493.         set([axe_INI  , child_INI , hdl_Arrows(:)'],'Visible','Off');        
  494.         set([axe_TREE , child_DEC],'Visible','On');
  495.         Tree_MANAGER('create',hFig,eventdata,handles);
  496.         set(hObject,'String','Return to Decompositions');
  497.         set(handles.Pus_CloseWin,'Enable','Off');
  498. end
  500. % End waiting.
  501. %-------------
  502. CleanTOOL(hFig,eventdata,handles,'Tog_Inspect_Callback','end',Val_Inspect);
  503. wwaiting('off',hFig);
  504. %--------------------------------------------------------------------------
  506. % --- Executes on selection change in Pop_Nod_Lab.
  507. function Pop_Nod_Lab_Callback(hObject,eventdata,handles)
  509. hFig = handles.output;
  510. lab_Value  = get(hObject,'Value');
  511. lab_String = get(hObject,'String');
  512. NodeLabType = deblank(lab_String{lab_Value,:});
  513. node_PARAMS = wtbxappdata('get',hFig,'node_PARAMS');
  514. if isequal(NodeLabType,node_PARAMS.nodeLab) , return; end
  515. node_PARAMS.nodeLab = NodeLabType;
  516. wtbxappdata('set',hFig,'node_PARAMS',node_PARAMS);
  517. Tree_MANAGER('setNodeLab',hFig,eventdata,handles,lab_Value)
  518. %--------------------------------------------------------------------------
  520. % --- Executes on selection change in Pop_Nod_Act.
  521. function Pop_Nod_Act_Callback(hObject,eventdata, handles)
  523. hFig = handles.output;
  524. act_Value = get(hObject,'Value');
  525. act_String = get(hObject,'String');
  526. NodeActType = deblank(act_String{act_Value,:});
  527. node_PARAMS = wtbxappdata('get',hFig,'node_PARAMS');
  528. if isequal(NodeActType,node_PARAMS.nodeAct) , return; end
  529. node_PARAMS.nodeAct = NodeActType;
  530. wtbxappdata('set',hFig,'node_PARAMS',node_PARAMS);
  531. Tree_MANAGER('setNodeAct',hFig,eventdata,handles,act_Value)
  533. %=========================================================================%
  534. %                END Callback Functions                                   %
  535. %=========================================================================%
  539. %=========================================================================%
  540. %                    TREE MANAGEMENT and CALLBACK FUNCTIONS               %
  541. %-------------------------------------------------------------------------%
  542. function varargout = Tree_MANAGER(option,hFig,eventdata,handles,varargin)
  544. % Miscelleanous Values.
  545. %----------------------
  546. line_color = [0 0 0];
  547. actColor   = 'b';
  548. inactColor = 'r';
  550. % MemBloc of stored values.
  551. %--------------------------
  552. n_stored_val = 'NTREE_Plot';
  553. ind_tree     = 1;
  554. ind_Class    = 2;
  555. ind_hdls_txt = 3;
  556. ind_hdls_lin = 4;
  557. ind_menu_NodeLab =  5;
  558. ind_type_NodeLab =  6;
  559. ind_menu_NodeAct =  7;
  560. ind_type_NodeAct =  8;
  561. ind_menu_TreeAct =  9;
  562. ind_type_TreeAct = 10;
  563. nb1_stored = 10;
  565. % Handles.
  566. %---------
  567. tool_hdl_AXES = wtbxappdata('get',hFig,'tool_hdl_AXES');
  568. axe_TREE = tool_hdl_AXES.axe_TREE;
  569. Axe_Tree_Dec  = axe_TREE(1);
  570. Axe_Tree_Img1 = axe_TREE(2);
  571. Axe_Tree_Img2 = axe_TREE(3);
  572. Axe_Tree_ImgF = axe_TREE(4);
  574. % tool_PARAMS.
  575. %-------------
  576. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  577. tree_F = tool_PARAMS.DecIMG_F;
  579. str_numf = sprintf('%20.15f',hFig);
  580. switch option
  581.     case 'create'
  582.         % node_PARAMS.
  583.         %-------------
  584.         node_PARAMS = wtbxappdata('get',hFig,'node_PARAMS');
  585.         type_NodeLab = node_PARAMS.nodeLab;
  586.         type_NodeAct = node_PARAMS.nodeAct;
  587.         
  588.         Tree_Colors = struct(...
  589.             'line_color',line_color, ...
  590.             'actColor',actColor,     ...
  591.             'inactColor',inactColor);  
  592.         wtbxappdata('set',hFig,'Tree_Colors',Tree_Colors);
  593.         set(Axe_Tree_Dec,'DefaultTextFontSize',8)
  594.         order = treeord(tree_F);
  595.         depth = treedpth(tree_F);
  596.         allN  = allnodes(tree_F);
  597.         NBnod = (order^(depth+1)-1)/(order-1);
  598.         table_node = -ones(1,NBnod);
  599.         table_node(allN+1) = allN;
  600.         [xnpos,ynpos] = xynodpos(table_node,order,depth);
  601.         
  602.         hdls_lin = zeros(1,NBnod);
  603.         hdls_txt = zeros(1,NBnod);
  604.         i_fath  = 1;
  605.         i_child = i_fath+[1:order];
  606.         for d=1:depth
  607.             ynT = ynpos(d,:);
  608.             ynL = ynT+[0.01 -0.01];
  609.             for p=0:order^(d-1)-1
  610.                 if table_node(i_child(1)) ~= -1
  611.                     for k=1:order
  612.                         ic = i_child(k);
  613.                         hdls_lin(ic) = line(...
  614.                             'Parent',Axe_Tree_Dec, ...
  615.                             'XData',[xnpos(i_fath) xnpos(ic)],...
  616.                             'YData',ynL,...
  617.                             'Color',line_color);
  618.                     end
  619.                 end
  620.                 i_child = i_child+order;
  621.                 i_fath  = i_fath+1;
  622.             end
  623.         end
  624.         labels = tlabels(tree_F,'i'); % Indices
  625.         textProp = {...
  626.                 'Parent',Axe_Tree_Dec,          ...
  627.                 'FontWeight','bold',            ...
  628.                 'Color',actColor,               ...
  629.                 'HorizontalAlignment','center', ...
  630.                 'VerticalAlignment','middle',   ...
  631.                 'Clipping','on'                 ...
  632.             };    
  633.         
  634.         i_node = 1;   
  635.         hdls_txt(i_node) = ...
  636.             text(textProp{:},...
  637.             'String', labels(i_node,:),   ...
  638.             'Position',[0 0.1 0],         ...
  639.             'UserData',table_node(i_node) ...
  640.             );
  641.         i_node = i_node+1;
  642.         
  643.         i_fath  = 1;
  644.         i_child = i_fath+[1:order];
  645.         for d=1:depth
  646.             for p=0:order:order^d-1
  647.                 if table_node(i_child(1)) ~= -1
  648.                     p_child = p + [0:order-1];
  649.                     for k=1:order
  650.                         ic = i_child(k);
  651.                         hdls_txt(ic) = text(...
  652.                             textProp{:},...
  653.                             'String',labels(i_node,:), ...
  654.                             'Position',[xnpos(ic) ynpos(d,2) 0],...
  655.                             'Userdata',table_node(ic)...
  656.                             );
  657.                         i_node = i_node+1;
  658.                     end
  659.                 end
  660.                 i_child = i_child+order;
  661.             end
  662.         end
  663.         nodeAction = ...
  664.             [mfilename '(''nodeAction_CallBack'',gco,[],' num2mstr(hFig) ');'];
  665.         set(hdls_txt(hdls_txt~=0),'ButtonDownFcn',nodeAction);
  666.         [nul,notAct] = findactn(tree_F,allN,'na');
  667.         set(hdls_txt(notAct+1),'Color',inactColor);
  668.         %----------------------------------------------
  669.         switch type_NodeLab
  670.             case 'Index' ,
  671.             otherwise    , plot(tree_F,'setNodeLabel',hFig,type_NodeLab);
  672.         end        
  673.         %----------------------------------------------
  674.         m_lab = [];
  675.         wmemtool('wmb',hFig,n_stored_val, ...
  676.             ind_tree,tree_F,      ...
  677.             ind_hdls_txt,hdls_txt, ...
  678.             ind_hdls_lin,hdls_lin, ...
  679.             ind_menu_NodeLab,m_lab, ...
  680.             ind_type_NodeLab,'Index', ...
  681.             ind_type_NodeAct,'' ...
  682.             );        
  683.         %----------------------------------------------
  684.         setAxesTitle(Axe_Tree_Dec,'Wavelet Decomposition Tree');
  685.         %================ BUG for Title ==================
  686.         h_Title = get(Axe_Tree_Dec,'title');
  687.         pos = get(h_Title,'Position');
  688.         set(h_Title,'Position',[0  0.0354  1.000]);
  689.         %=================================================
  690.         show_Node_IMAGES(hFig,'Visualize',0)
  691.         
  692.     case 'setNodeLab'
  693.         if length(varargin)>1
  694.             labValue = varargin{1};
  695.         else
  696.             handles = guihandles(hFig);
  697.             labValue = get(handles.Pop_Nod_Lab,'Value');
  698.         end
  699.         switch labValue
  700.             case 1 , labtype = 'i'; 
  701.             case 2 , labtype = 'dp';
  702.             case 3 , labtype = 's';
  703.             case 4 , labtype = 't';
  704.         end
  705.         labels = tlabels(tree_F,labtype);
  706.         hdls_txt = wmemtool('rmb',hFig,n_stored_val,ind_hdls_txt);
  707.         hdls_txt = hdls_txt(hdls_txt~=0);
  708.         for k=1:length(hdls_txt), set(hdls_txt(k),'String',labels(k,:)); end
  710.     case 'setNodeAct'
  711.         actValue = varargin{1};
  712.         nodeAction = ...
  713.             [mfilename '(''nodeAction_CallBack'',gco,[],' num2mstr(hFig) ');'];
  714.         hdls_txt = wmemtool('rmb',hFig,n_stored_val,ind_hdls_txt);
  715.         set(hdls_txt(hdls_txt~=0),'ButtonDownFcn',nodeAction);        
  716. end
  717. %-------------------------------------------------------------------------%
  718. function nodeAction_CallBack(hObject,eventdata,hFig)
  720. node = plot(ntree,'getNode',hFig);
  721. if isempty(node) , return; end
  722. node_PARAMS = wtbxappdata('get',hFig,'node_PARAMS');
  723. nodeAct = node_PARAMS.nodeAct;
  724. if isequal(nodeAct,'Split_Merge') | isequal(nodeAct,'Split / Merge')
  725.     tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  726.     tree_F = tool_PARAMS.DecIMG_F;
  727.     tnrank = findactn(tree_F,node);
  728.     if isnan(tnrank) , return;  end
  729.     plot(tree_F,'Split-Merge',hFig);
  730.     tree_1 = tool_PARAMS.DecIMG_1;
  731.     tree_2 = tool_PARAMS.DecIMG_2;
  732.     if tnrank>0
  733.         tree_1 = nodesplt(tree_1,node);
  734.         tree_2 = nodesplt(tree_2,node);
  735.         tree_F = nodesplt(tree_F,node);
  736.     else
  737.         tree_1 = nodejoin(tree_1,node);
  738.         tree_2 = nodejoin(tree_2,node);
  739.         tree_F = nodejoin(tree_F,node);
  740.     end
  741.     tool_PARAMS.DecIMG_1 = tree_1;
  742.     tool_PARAMS.DecIMG_2 = tree_2;
  743.     tool_PARAMS.DecIMG_F = tree_F;
  744.     wtbxappdata('set',hFig,'tool_PARAMS',tool_PARAMS);
  745.     Tree_MANAGER('setNodeLab',hFig,eventdata,guihandles(hFig))
  746. else
  747.     show_Node_IMAGES(hFig,nodeAct,node);
  748. end
  749. %-------------------------------------------------------------------------%
  750. function show_Node_IMAGES(hFig,nodeAct,node)
  752. tool_hdl_AXES = wtbxappdata('get',hFig,'tool_hdl_AXES');
  753. axe_TREE = tool_hdl_AXES.axe_TREE;
  754. Axe_Tree_Img1 = axe_TREE(2);
  755. Axe_Tree_Img2 = axe_TREE(3);
  756. Axe_Tree_ImgF = axe_TREE(4);
  757. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  758. tree_1 = tool_PARAMS.DecIMG_1;
  759. tree_2 = tool_PARAMS.DecIMG_2;
  760. tree_F = tool_PARAMS.DecIMG_F;
  762. mousefrm(hFig,'watch')
  763. NBC = cbcolmap('get',hFig,'nbColors');
  764. flag_INVERSE = false;
  765. show_One_IMAGE(nodeAct,tree_1,node,NBC,flag_INVERSE,Axe_Tree_Img1,'Image 1')
  766. show_One_IMAGE(nodeAct,tree_2,node,NBC,flag_INVERSE,Axe_Tree_Img2,'Image 2')
  767. show_One_IMAGE(nodeAct,tree_F,node,NBC,flag_INVERSE,Axe_Tree_ImgF,'Synthesized Image')
  768. lind = tlabels(tree_F,'i',node);
  769. ldep = tlabels(tree_F,'p',node);
  770. axeTitle = ['Coefficients: node ' lind ' or ' ldep];
  771. if isequal(nodeAct,'Reconstruct')
  772.     axeTitle = ['Reconstructed ' axeTitle];
  773. end
  775. setAxesTitle(Axe_Tree_ImgF,axeTitle);
  776. mousefrm(hFig,'arrow')
  777. dynvtool('init',hFig,axe_TREE(1),axe_TREE(2:4),[],[1 1],'','','','int');
  778. %-------------------------------------------------------------------------%
  779. function show_One_IMAGE(nodeAct,treeOBJ,node,NBC,flag_INVERSE,axe,xlab)
  781. X = getCoded_IMAGE(nodeAct,treeOBJ,node,NBC,flag_INVERSE);
  782. axes(axe); 
  783. image(X);
  784. setAxesXlabel(axe,xlab);
  785. %-------------------------------------------------------------------------%
  786. function X = getCoded_IMAGE(nodeAct,treeOBJ,node,NBC,flag_INVERSE)
  788. switch nodeAct
  789.     case 'Visualize' , [nul,X] = nodejoin(treeOBJ,node);
  790.     case 'Reconstruct' , X = rnodcoef(treeOBJ,node);
  791. end
  792. if node>0 , 
  793.     X = wcodemat(X,NBC,'mat',1);
  794.     if flag_INVERSE & rem(node,4)~=1 , X = max(max(X))-X; end
  795. end
  796. %==========================================================================
  799. %=========================================================================%
  800. %                BEGIN Callback Menus                                     %
  801. %                --------------------                                     %
  802. %=========================================================================%
  804. function demo_FUN(hObject,eventdata,handles,numDEM)
  806. switch numDEM
  807.     case 1 
  808.         I_1 = 'detail_1'; I_2 = 'detail_2';
  809.         wname = 'db1' ; level = 2;
  810.         AfusMeth = 'max';
  811.         DfusMeth = 'max'; 
  812.     case 2
  813.         I_1 = 'cathe_1'; I_2 = 'cathe_2';
  814.         wname = 'db1' ; level = 2;
  815.         AfusMeth = 'max'; 
  816.         DfusMeth = 'max';       
  817.     case 3
  818.         I_1 = 'mask'; I_2 = 'bust';
  819.         wname = 'db1' ; level = 2;
  820.         AfusMeth = 'max';
  821.         DfusMeth = 'max';
  822.     case 4
  823.         I_1 = 'mask'; I_2 = 'bust';
  824.         wname = 'bior6.8' ; level = 3;
  825.         AfusMeth = 'rand';
  826.         DfusMeth = 'max';         
  827.     case 5
  828.         I_1 = 'mask'; I_2 = 'bust';
  829.         wname = 'db1' ; level = 3;
  830.         AfusMeth = struct('name','UD_fusion','param',4);
  831.         DfusMeth = struct('name','UD_fusion','param',1);
  832.     case 6
  833.         I_1 = 'mask'; I_2 = 'bust';
  834.         wname = 'db1' ; level = 3;
  835.         AfusMeth = 'DU_fusion'; DfusMeth = 'DU_fusion';
  836.     case 7
  837.         I_1 = 'mask'; I_2 = 'bust';
  838.         wname = 'db1' ; level = 3;
  839.         AfusMeth = 'LR_fusion'; DfusMeth = 'LR_fusion';
  840.     case 8
  841.         I_1 = 'mask'; I_2 = 'bust';
  842.         wname = 'db1' ; level = 3;
  843.         AfusMeth = 'RL_fusion'; DfusMeth = 'RL_fusion';
  844.     case 9
  845.         I_1 = 'mask'; I_2 = 'bust';
  846.         wname = 'sym6' ; level = 3;
  847.         AfusMeth = struct('name','UD_fusion','param',2);
  848.         DfusMeth = struct('name','UD_fusion','param',4);
  849.     case 10
  850.         I_1 = 'face_mos'; I_2 = 'mask';
  851.         wname = 'sym4' ; level = 3;
  852.         AfusMeth = 'mean';
  853.         DfusMeth = 'max'; 
  854.     case 11
  855.         I_1 = 'face_pai'; I_2 = 'mask';
  856.         wname = 'sym4' ; level = 3;
  857.         AfusMeth = 'mean';
  858.         DfusMeth = 'max';
  859.     case 12
  860.         I_1 = 'fond_bou'; I_2 = 'mask';
  861.         wname = 'sym4' ; level = 3;
  862.         AfusMeth = struct('name','UD_fusion','param',1);
  863.         DfusMeth = 'max'; 
  864.     case 13
  865.         I_1 = 'fond_mos'; I_2 = 'mask';
  866.         wname = 'sym4' ; level = 3;
  867.         AfusMeth = struct('name','UD_fusion','param',1);
  868.         DfusMeth = 'max'; 
  869.     case 14
  870.         I_1 = 'fond_pav'; I_2 = 'mask';
  871.         wname = 'sym4' ; level = 3;
  872.         AfusMeth = struct('name','UD_fusion','param',0.5);
  873.         DfusMeth = 'max';
  874.     case 15
  875.         I_1 = 'fond_tex'; I_2 = 'mask';
  876.         wname = 'sym4' ; level = 3;
  877.         AfusMeth  = struct('name','UD_fusion','param',0.5);
  878.         DfusMeth = 'img1';
  879.     case 16
  880.         I_1 = 'pile_mos'; I_2 = 'mask';
  881.         wname = 'sym4' ; level = 3;
  882.         AfusMeth  = struct('name','UD_fusion','param',0.5);
  883.         DfusMeth = 'img1'; 
  884.     case 17
  885.         I_1 = 'arms.jpg'; I_2 = 'fond_tex';
  886.         wname = 'sym4' ; level = 3;
  887.         AfusMeth = 'img1'; 
  888.         DfusMeth = 'max'; 
  889. end
  891. % Get figure handle.
  892. %-------------------
  893. hFig = handles.output;
  895. % Testing file.
  896. %--------------
  897. def_nbCodeOfColors = 255;
  898. filename = I_1;
  899. idx = findstr(filename,'.');
  900. if isempty(idx) , filename = [filename '.mat']; end
  901. pathname = utguidiv('WTB_DemoPath',filename);
  902. [imgInfos_1,X_1,map,ok] = ...
  903.     utguidiv('load_dem2D',hFig,pathname,filename,def_nbCodeOfColors);
  904. if ~ok, return; end
  905. okSize = tst_ImageSize(hFig,1,imgInfos_1);
  907. filename = I_2;
  908. idx = findstr(filename,'.');
  909. if isempty(idx) , filename = [filename '.mat']; end
  910. [imgInfos_2,X_2,map,ok] = ...
  911.     utguidiv('load_dem2D',hFig,pathname,filename,def_nbCodeOfColors);
  912. if ~ok, return; end
  913. okSize = tst_ImageSize(hFig,2,imgInfos_2);
  915. % Cleaning.
  916. %----------
  917. wwaiting('msg',hFig,'Wait ... cleaning');
  918. CleanTOOL(hFig,eventdata,handles,'demo_FUN');
  920. % Setting Analysis parameters
  921. %----------------------------
  922. cbanapar('set',hFig,'wav',wname,'lev',level);
  923. set_Fus_Methode('app',AfusMeth,eventdata,handles);
  924. set_Fus_Methode('det',DfusMeth,eventdata,handles);
  926. % Loading Images and Setting GUI.
  927. %-------------------------------
  928. if isequal(imgInfos_1.true_name,'X')
  929.     img_Name_1 = imgInfos_1.name;
  930. else
  931.     img_Name_1 = imgInfos_1.true_name;
  932. end
  933. img_Size_1 = imgInfos_1.size;
  934. NB_ColorsInPal = size(map,1);
  935. if imgInfos_1.self_map , arg = map; else , arg = []; end
  936. cbcolmap('set',hFig,'pal',{'pink',NB_ColorsInPal,'self',arg});
  937. n_s = [img_Name_1 '  (' , int2str(img_Size_1(2)) 'x' int2str(img_Size_1(1)) ')'];
  938. set(handles.Edi_Data_NS,'String',n_s);                
  939. axes(handles.Axe_Image_1); 
  940. image(X_1);
  941. setAxesTitle(handles.Axe_Image_1,'Image 1');
  942. %--------------------------------------------
  943. if isequal(imgInfos_2.true_name,'X')
  944.     img_Name_2 = imgInfos_2.name;
  945. else
  946.     img_Name_2 = imgInfos_2.true_name;
  947. end
  948. img_Size_2 = imgInfos_2.size;
  949. NB_ColorsInPal = size(map,1);
  950. if imgInfos_2.self_map , arg = map; else , arg = []; end
  951. cbcolmap('set',hFig,'pal',{'pink',NB_ColorsInPal,'self',arg});
  952. n_s = [img_Name_2 '  (' , int2str(img_Size_2(2)) 'x' int2str(img_Size_2(1)) ')'];
  953. set(handles.Edi_Image_2,'String',n_s);                
  954. axes(handles.Axe_Image_2); 
  955. image(X_2);
  956. setAxesTitle(handles.Axe_Image_2,'Image 2');
  957. %--------------------------------------------
  959. % Decomposition and Fusion.
  960. %--------------------------
  961. Pus_Decompose_Callback(handles.Pus_Decompose,eventdata,handles);
  962. Pus_Fusion_Callback(handles.Pus_Fusion,eventdata,handles);
  963. %--------------------------------------------------------------------------
  965. function set_Fus_Methode(type,fusMeth,eventdata,handles)
  967. switch type
  968.     case 'app'
  969.         Pop = handles.Pop_Fus_App;
  970.         Edi = handles.Edi_Fus_App;
  971.     case 'det'
  972.         Pop = handles.Pop_Fus_Det;
  973.         Edi = handles.Edi_Fus_Det;
  974. end
  975. if ischar(fusMeth)
  976.     fusMeth.name  = fusMeth;
  977.     fusMeth.param = '';
  978. end
  979. methName = fusMeth.name;
  980. tabMeth = get(Pop,'String');
  981. numMeth = strmatch(methName,tabMeth);
  982. set(Pop,'Value',numMeth);
  983. switch type
  984.     case 'app'
  985.         Pop_Fus_App_Callback(Pop,eventdata,handles);
  986.     case 'det'
  987.         Pop_Fus_Det_Callback(Pop,eventdata,handles);
  988. end
  989. ediVAL = get(Edi,'String');
  990. newVAL = num2str(fusMeth.param);
  991. if isempty(newVAL) , newVAL = ediVAL; end
  992. set(Edi,'String',newVAL);
  993. %-------------------------------------------------------------------------%
  995. function save_FUN(hObject,eventdata,handles)
  997. % Get figure handle.
  998. %-------------------
  999. hFig = handles.output;
  1001. % Testing file.
  1002. %--------------
  1003. [filename,pathname,ok] = utguidiv('test_save',hFig, ...
  1004.     '*.mat','Save Synthesized Image');
  1005. if ~ok, return; end
  1007. % Begin waiting.
  1008. %--------------
  1009. wwaiting('msg',hFig,'Wait ... saving');
  1011. % Getting Synthesized Image.
  1012. %---------------------------
  1013. axe = handles.Axe_Image_Fus;
  1014. img_Fus = findobj(axe,'Type','image');
  1015. X = round(get(img_Fus,'Cdata'));
  1016. map = cbcolmap('get',hFig,'self_pal');
  1017. if isempty(map)
  1018.     mi = round(min(min(X)));
  1019.     ma = round(max(max(X)));
  1020.     if mi<=0 , ma = ma-mi+1; end
  1021.     ma  = min([default_nbcolors,max([2,ma])]);
  1022.     map = pink(ma);
  1023. end
  1025. % Saving file.
  1026. %--------------
  1027. [name,ext] = strtok(filename,'.');
  1028. if isempty(ext) | isequal(ext,'.')
  1029.     ext = '.mat'; filename = [name ext];
  1030. end
  1032. wwaiting('off',hFig);
  1033. try
  1034.     save([pathname filename],'X','map');
  1035. catch
  1036.     errargt(mfilename,'Save FAILED !','msg');
  1037. end
  1038. %-------------------------------------------------------------------------%
  1040. function close_FUN(hObject,eventdata,handles)
  1042. Pus_CloseWin = handles.Pus_CloseWin;
  1043. Pus_CloseWin_Callback(Pus_CloseWin,eventdata,handles);
  1044. %--------------------------------------------------------------------------
  1046. %=========================================================================%
  1047. %                END Callback Menus                                       %
  1048. %=========================================================================%
  1051. %=========================================================================%
  1052. %                BEGIN CleanTOOL function                                 %
  1053. %                ------------------------                                 %
  1054. %=========================================================================%
  1056. function CleanTOOL(hFig,eventdata,handles,callName,option,varargin)
  1058. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');
  1059. hdl_Menus   = wtbxappdata('get',hFig,'hdl_Menus');
  1060. ena_LOAD_DEC = 'On';
  1061. switch callName
  1062.     case 'demo_FUN'
  1063.         tool_PARAMS.flagIMG_1 = true;
  1064.         tool_PARAMS.flagIMG_2 = true;
  1065.         tool_PARAMS.flagDEC   = false;
  1066.         tool_PARAMS.flagFUS   = false;
  1067.         tool_PARAMS.flagINS   = false;
  1068.         hAXE = [handles.Axe_ImgDec_1,  handles.Axe_ImgDec_2,...
  1069.                 handles.Axe_Image_Fus, handles.Axe_ImgDec_Fus];
  1070.         hIMG = findobj(hAXE,'type','image');
  1071.         delete(hIMG);
  1072.                 
  1073.     case 'Load_Img1_Callback'
  1074.         switch option
  1075.             case 'beg'
  1076.                 tool_PARAMS.flagIMG_1 = true;
  1077.                 tool_PARAMS.flagDEC   = false;
  1078.                 tool_PARAMS.flagFUS   = false;
  1079.                 tool_PARAMS.flagINS   = false;
  1080.                 hAXE = [handles.Axe_ImgDec_1,handles.Axe_ImgDec_2 ...
  1081.                         handles.Axe_Image_Fus,handles.Axe_ImgDec_Fus ...
  1082.                         ];
  1083.                 hIMG = findobj(hAXE,'type','image');
  1084.                 delete(hIMG);
  1085.             case 'end'
  1086.         end
  1087.         
  1088.     case 'Load_Img2_Callback'
  1089.         switch option
  1090.             case 'beg' 
  1091.                 tool_PARAMS.flagIMG_2 = true;
  1092.                 tool_PARAMS.flagDEC   = false;
  1093.                 tool_PARAMS.flagFUS   = false;
  1094.                 tool_PARAMS.flagINS   = false;
  1095.                 hAXE = [handles.Axe_ImgDec_1,handles.Axe_ImgDec_2 ...
  1096.                         handles.Axe_Image_Fus,handles.Axe_ImgDec_Fus ...
  1097.                         ];
  1098.                 hIMG = findobj(hAXE,'type','image');
  1099.                 delete(hIMG);
  1100.             case 'end'
  1101.         end
  1102.         
  1103.     case 'Pus_Decompose_Callback'
  1104.         switch option
  1105.             case 'beg' , 
  1106.                 tool_PARAMS.flagDEC = true;
  1107.                 tool_PARAMS.flagFUS = false;
  1108.                 hAXE = [handles.Axe_Image_Fus,handles.Axe_ImgDec_Fus];
  1109.                 hIMG = findobj(hAXE,'type','image');
  1110.                 delete(hIMG);
  1111.             case 'end'
  1112.         end
  1113.         
  1114.     case 'Pus_Fusion_Callback'
  1115.         switch option
  1116.             case 'beg' ,
  1117.             case 'end' , tool_PARAMS.flagFUS = true;
  1118.         end
  1119.         
  1120.     case 'Tog_Inspect_Callback'
  1121.         Val_Inspect = varargin{1};
  1122.         flag_Enable = logical(1-Val_Inspect);
  1123.         switch option
  1124.             case 'beg' ,
  1125.                 tool_PARAMS.flagDEC = false;
  1126.                 ena_LOAD_DEC = 'Off';
  1127.                 ena_FUS_PAR  = 'Off';
  1128.                 ena_NOD_OPT  = 'Off';
  1129.             case 'end' ,
  1130.                 tool_PARAMS.flagDEC = flag_Enable;
  1131.                 if flag_Enable
  1132.                     ena_LOAD_DEC = 'On';
  1133.                     ena_FUS_PAR  = 'On';
  1134.                     ena_NOD_OPT  = 'Off';
  1135.                 else
  1136.                     ena_LOAD_DEC = 'Off';
  1137.                     ena_FUS_PAR  = 'Off';
  1138.                     ena_NOD_OPT  = 'On';
  1139.                 end
  1140.         end
  1141.         m_Load_Img1 = hdl_Menus.m_Load_Img1;
  1142.         m_Load_Img2 = hdl_Menus.m_Load_Img2;
  1143.         m_demo = hdl_Menus.m_demo;
  1144.         set([m_Load_Img1,m_Load_Img2,m_demo....
  1145.              handles.Pus_Decompose],'Enable',ena_LOAD_DEC);
  1146.         set([handles.Txt_Fus_Params, ...
  1147.              handles.Txt_Fus_App,handles.Pop_Fus_App,  ...
  1148.              handles.Txt_Edi_App,handles.Edi_Fus_App,  ...
  1149.              handles.Txt_Fus_Det,handles.Pop_Fus_Det,  ...
  1150.              handles.Txt_Edi_Det,handles.Edi_Fus_Det],  ...         
  1151.             'Enable',ena_FUS_PAR);
  1152.         set([handles.Txt_Nod_Lab,handles.Pop_Nod_Lab, ...
  1153.              handles.Txt_Nod_Act,handles.Pop_Nod_Act,], ...
  1154.             'Enable',ena_NOD_OPT);
  1155. end
  1156. Ok_DEC = tool_PARAMS.flagIMG_1 & tool_PARAMS.flagIMG_2;
  1157. if Ok_DEC & isequal(ena_LOAD_DEC,'On')
  1158.     set(handles.Pus_Decompose,'Enable','On');
  1159. else
  1160.     set(handles.Pus_Decompose,'Enable','Off');
  1161. end
  1162. if tool_PARAMS.flagDEC
  1163.     set(handles.Pus_Fusion,'Enable','On');
  1164. else
  1165.     set(handles.Pus_Fusion,'Enable','Off');
  1166. end
  1168. m_save = hdl_Menus.m_save;
  1169. if tool_PARAMS.flagFUS
  1170.     set(handles.Tog_Inspect,'Enable','On');
  1171.     set(m_save,'Enable','On')
  1172. else
  1173.     set(handles.Tog_Inspect,'Enable','Off');
  1174.     set(m_save,'Enable','Off')
  1175. end
  1177. wtbxappdata('set',hFig,'tool_PARAMS',tool_PARAMS);
  1178. %--------------------------------------------------------------------------
  1180. %=========================================================================%
  1181. %                END CleanTOOL function                                   %
  1182. %=========================================================================%
  1186. %=========================================================================%
  1187. %                BEGIN Tool Initialization                                %
  1188. %                -------------------------                                %
  1189. %=========================================================================%
  1191. function Init_Tool(hObject,eventdata,handles)
  1193. % WTBX -- Install DynVTool
  1194. %-------------------------
  1195. dynvtool('Install_V3',hObject,handles);
  1197. % WTBX MENUS -- Install
  1198. %----------------------
  1199. wfigmngr('extfig',hObject,'ExtFig_GUIDE')
  1200. wfigmngr('attach_close',hObject);
  1201. set(hObject,'HandleVisibility','On')
  1203. % WTBX -- Install ANAPAR FRAME
  1204. %-----------------------------
  1205. wnameDEF  = 'db1';
  1206. maxlevDEF = 5;
  1207. levDEF    = 2;
  1208. utanapar('Install_V3_CB',hObject,'maxlev',maxlevDEF,'deflev',levDEF);
  1209. set(hObject,'Visible','On'); pause(0.01) %%% MiMi : BUG MATLAB %%%
  1210. cbanapar('set',hObject,'wav',wnameDEF,'lev',levDEF);
  1212. % WTBX -- Install COLORMAP FRAME
  1213. %-------------------------------
  1214. utcolmap('Install_V3',hObject,'enable','On');
  1215. default_nbcolors = 128;
  1216. cbcolmap('set',hObject,'pal',{'pink',default_nbcolors})
  1218. %-------------------------------------------------------------------------
  1219. % TOOL INITIALISATION
  1220. %-------------------------------------------------------------------------
  1221. % UIMENU INSTALLATION
  1222. %--------------------
  1223. hdl_Menus = Install_MENUS(hObject);
  1224. wtbxappdata('set',hObject,'hdl_Menus',hdl_Menus);
  1225. %------------------------------------------------
  1226. set(hObject,'DefaultAxesXtick',[],'DefaultAxesYtick',[])
  1227. hdl_Arrows = arrowfus(hObject,handles);
  1228. wtbxappdata('set',hObject,'hdl_Arrows',hdl_Arrows);
  1229. %-------------------------------------------------------------------------
  1230. axe_INI = [...
  1231.     handles.Axe_ImgDec_1 , handles.Axe_ImgDec_2 , handles.Axe_ImgDec_Fus ,...
  1232.     handles.Axe_Image_1  , handles.Axe_Image_2 ,  handles.Axe_Image_Fus...
  1233.     ];
  1234. axe_TREE = [...
  1235.     handles.Axe_Tree_Dec , ...
  1236.     handles.Axe_Tree_Img1  , handles.Axe_Tree_Img2 ,  handles.Axe_Tree_ImgF...
  1237.     ];
  1238. tool_hdl_AXES = struct('axe_INI',axe_INI,'axe_TREE',axe_TREE);
  1239. wtbxappdata('set',hObject,'tool_hdl_AXES',tool_hdl_AXES);
  1240. %-------------------------------------------------------------------------
  1241. setAxesTitle(handles.Axe_Image_1,'Image 1');
  1242. setAxesTitle(handles.Axe_Image_2,'Image 2');
  1243. setAxesXlabel(handles.Axe_Image_Fus,'Synthesized Image');
  1244. setAxesTitle(handles.Axe_ImgDec_1,'Decomposition 1');
  1245. setAxesTitle(handles.Axe_ImgDec_2,'Decomposition 2');
  1246. setAxesXlabel(handles.Axe_ImgDec_Fus,'Fusion of Decompositions');
  1247. %----------------------------------------------------------------
  1248. dwt_ATTRB   = struct('type','lwt','wname','','level',[]);
  1249. tool_PARAMS = struct(...
  1250.     'infoIMG_1',[],'infoIMG_2',[],...    
  1251.     'flagIMG_1',false,'flagIMG_2',false,...
  1252.     'flagDEC',false,'flagFUS',false, 'flagINS',false, ...
  1253.     'DecIMG_1',[],'DecIMG_2',[],'DecIMG_F',[], ...
  1254.     'dwt_ATTRB',dwt_ATTRB);
  1255. wtbxappdata('set',hObject,'tool_PARAMS',tool_PARAMS);
  1256. %-------------------------------------------------------------
  1257. node_PARAMS = struct('nodeLab','Index','nodeAct','Visualize');
  1258. wtbxappdata('set',hObject,'node_PARAMS',node_PARAMS);
  1259. %--------------------------------------------------------------
  1261. % End Of initialization.
  1262. %-----------------------
  1263. redimfig('On',hObject);
  1264. set(hObject,'HandleVisibility','Callback')
  1266. %=========================================================================%
  1267. %                END Tool Initialization                                  %
  1268. %=========================================================================%
  1271. %=========================================================================%
  1272. %                BEGIN Internal Functions                                 %
  1273. %                ------------------------                                 %
  1274. %=========================================================================%
  1276. function hdl_Menus = Install_MENUS(hFig)
  1278. m_files = wfigmngr('getmenus',hFig,'file');
  1279. m_close = wfigmngr('getmenus',hFig,'close');
  1280. cb_close = [mfilename '(''close_FUN'',gcbo,[],guidata(gcbo));'];
  1281. set(m_close,'Callback',cb_close);
  1283. m_Load_Img1  = uimenu(m_files, ...
  1284.     'Label','&Load Image 1',   ...
  1285.     'Position',1,              ...
  1286.     'Enable','On',             ...
  1287.     'Callback',                ...
  1288.     [mfilename '(''Load_Img1_Callback'',gcbo,[],guidata(gcbo));']  ...
  1289.     );
  1291. m_Load_Img2  = uimenu(m_files, ...
  1292.     'Label','&Load Image 2',   ...
  1293.     'Position',2,              ...
  1294.     'Enable','On',             ...
  1295.     'Callback',                ...
  1296.     [mfilename '(''Load_Img2_Callback'',gcbo,[],guidata(gcbo));']  ...
  1297.     );
  1299. m_save  = uimenu(m_files,...
  1300.     'Label','&Save Synthesized Image ', ...
  1301.     'Position',3,    ...
  1302.     'Enable','Off',  ...
  1303.     'Callback',      ...
  1304.     [mfilename '(''save_FUN'',gcbo,[],guidata(gcbo));'] ...
  1305.     );
  1306. m_demo  = uimenu(m_files,'Label','&Example ','Position',4,'Separator','On');
  1307. tab = setstr(9);
  1308. demoSET = {...
  1309.         ['Magic Square' tab '- wavelet: db1 - level: 2 - fusion method (max,max)'];       ...
  1310.         ['Catherine' tab  '- wavelet: db1 - level: 2 - fusion method (max,max)'];         ...
  1311.         ['Mask and Bust' tab  '- wavelet: db1 - level: 2 - fusion method (max,max)'];  ...
  1312.         ['Mask and Bust' tab  '- wavelet: bior6.8 - level: 3 - fusion method (rand,max)'];  ...
  1313.         ['Mask and Bust' tab  '- wavelet: db1 - level: 3 - fusion method (UD_fusion,UD_fusion)'];  ...    
  1314.         ['Mask and Bust' tab  '- wavelet: db1 - level: 3 - fusion method (DU_fusion,DU_fusion)'];  ... 
  1315.         ['Mask and Bust' tab  '- wavelet: db1 - level: 3 - fusion method (LR_fusion,LR_fusion)'];  ...    
  1316.         ['Mask and Bust' tab  '- wavelet: db1 - level: 3 - fusion method (RL_fusion,RL_fusion)'];   ...
  1317.         ['Mask and Bust' tab  '- wavelet: sym6 - level: 3 - fusion method ( [UD_fusion,2] , [UD_fusion,4] )'];  ...
  1318.         ['Texture (1) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method (mean,max)'];  ...
  1319.         ['Texture (2) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method (mean,max)'];  ...
  1320.         ['Texture (3) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method ( [UD_fusion,1] , max)']; ... 
  1321.         ['Texture (4) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method ( [UD_fusion,1] , max)']; ... 
  1322.         ['Texture (5) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method ( [UD_fusion,0.5] , max)']; ... 
  1323.         ['Texture (6) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method  ( [UD_fusion,0.5] , img1)'];  ...
  1324.         ['Texture (7) and Mask' tab  '- wavelet: sym4 - level: 3 - fusion method  ( [UD_fusion,0.5] , img1)'];  ...
  1325.         ['Texture (8) and Arms' tab  '- wavelet: sym4 - level: 3 - fusion method  (img1,max)']  ...        
  1326.     };
  1327. nbDEM = size(demoSET,1);
  1328. sepSET = [3,10];
  1329. for k = 1:nbDEM
  1330.     strNUM = int2str(k);
  1331.     action = [mfilename '(''demo_FUN'',gcbo,[],guidata(gcbo),' strNUM ');'];
  1332.     if find(k==sepSET) , Sep = 'On'; else , Sep = 'Off'; end
  1333.     uimenu(m_demo,'Label',[demoSET{k,1}],'Separator',Sep,'Callback',action);
  1334. end
  1335. hdl_Menus = struct('m_files',m_files,'m_close',m_close,...
  1336.     'm_Load_Img1',m_Load_Img1,'m_Load_Img2',m_Load_Img2,...
  1337.     'm_save',m_save,'m_demo',m_demo);
  1339. % Add Help for Tool.
  1340. %------------------
  1341. wfighelp('addHelpTool',hFig,'&Image Fusion','WFUS_GUI');
  1343. %-------------------------------------------------------------------------
  1345. % BEGIN: Arrows for WTBX FUSION TOOL %
  1346. %------------------------------------%
  1347. function hdl_Arrows = arrowfus(fig,handles)
  1348. %ARROWFUS Plot the arrows for WFUSTOOL.
  1350. colArrowDir = [0.925 0.925 0.925]; % Gray 
  1351. colArrowRev = colArrowDir;
  1352. axe_arrow = handles.Axe_Utils;
  1353. axes(axe_arrow);
  1354. Axe_Image_1    = handles.Axe_Image_1;
  1355. Axe_ImgDec_1   = handles.Axe_ImgDec_1;
  1356. Axe_Image_2    = handles.Axe_Image_2;
  1357. Axe_ImgDec_2   = handles.Axe_ImgDec_2;
  1358. Axe_Image_Fus  = handles.Axe_Image_Fus;
  1359. Axe_ImgDec_Fus = handles.Axe_ImgDec_Fus;
  1360. [ar1,t1] = PlotArrow('direct',axe_arrow, ...
  1361.     Axe_Image_1,Axe_ImgDec_1,colArrowDir,'On');
  1362. [ar2,t2] = PlotArrow('direct',axe_arrow, ...
  1363.     Axe_Image_2,Axe_ImgDec_2,colArrowDir,'On');
  1364. [ar3,t3] = PlotArrow('reverse',axe_arrow, ...
  1365.     Axe_Image_Fus,Axe_ImgDec_Fus,colArrowRev,'On');
  1366. [ar4,t4] = PlotArrowVER('direct',axe_arrow, ...
  1367.     Axe_ImgDec_1,Axe_ImgDec_2,Axe_ImgDec_Fus,colArrowDir,'On');
  1368. set(axe_arrow,'Xlim',[0,1],'Ylim',[0,1])
  1369. hdl_Arrows = [ [ar1,t1] ; [ar2,t2] ; [ar3,t3] ; [ar4,t4]];        
  1370. %----------------------------------------------------------------
  1371. function [ar,t] = ...
  1372.     PlotArrow(option,axe_arrow,axeINI,axeEND,colArrow,visible)
  1374. pImg = get(axeINI,'Position');
  1375. pDec = get(axeEND,'Position');
  1376. xAR_ini = pImg(1) + pImg(3);
  1377. xAR_end = pDec(1);
  1378. dx      = (xAR_end - xAR_ini);
  1379. yAR     = pImg(2) + pImg(4)/2;
  1380. pt1 = [xAR_ini+dx/6 yAR];
  1381. pt2 = [xAR_end-dx/6 yAR];
  1382. if isequal(option,'reverse')
  1383.     rot = pi; Pini = pt2; strTXT = 'idwt'; colorTXT = 'r';
  1384. else
  1385.     rot = 0;  Pini = pt1; strTXT = 'dwt';  colorTXT = 'b';
  1386. end
  1387. ar = wtbarrow('create','axes',axe_arrow,...
  1388.     'Scale',[pt2(1)-pt1(1) 1/9],'Trans',Pini,'Rotation',rot, ...
  1389.     'Color',colArrow,'Visible',visible);
  1390. t = text(...
  1391.     'Position',[xAR_ini + dx/3 yAR],...
  1392.     'String',strTXT,'FontSize',12,'FontWeight','demi','Color',colorTXT);
  1393. %----------------------------------------------------------------
  1394. function [ar,t] = PlotArrowVER(option,axe_arrow,...
  1395.     Axe_ImgDec_1,Axe_ImgDec_2,Axe_ImgDec_Fus,colArrow,visible)
  1397. pDec1 = get(Axe_ImgDec_1,'Position');
  1398. pDec2 = get(Axe_ImgDec_2,'Position');
  1399. pDecF = get(Axe_ImgDec_Fus,'Position');
  1400. dx = pDec1(3)/4;
  1401. dy = pDec1(4)/4;
  1402. E  = 11*dy/60; 
  1404. xAR_ini = pDec1(1) + pDec1(3);
  1405. yAR_ini = pDec1(2) + pDec1(4)/2;
  1406. Pini  = [xAR_ini , yAR_ini];
  1408. x1 = 0;
  1409. x2 = pDec1(2)-pDec2(2);
  1410. x3 = pDec1(2)-pDecF(2);
  1411. XVal = [x1 , x2 , x3];
  1412. YVal = [E , 2.5*E , 6*E];
  1414. typeARROW_VER = 'special_1';
  1415. ar = wtbarrow(typeARROW_VER,'axes',axe_arrow,...
  1416.     'XVal',XVal,'YVal',YVal, ...
  1417.     'HArrow',dy/4,'WArrow',dy/5,'Width',E, ...
  1418.     'Trans',Pini,'Rotation',pi/2, ...   
  1419.     'Color',colArrow,'Visible',visible);
  1420. xT = xAR_ini + 7*E;
  1421. yT = ((pDec1(2) + pDec1(2) + pDec1(4)/2)/2 + pDecF(2)+pDecF(4)/2)/2;
  1422. t = text(...
  1423.     'Position',[xT yT],...
  1424.     'String','FUSION', ...
  1425.     'FontWeight','bold','FontSize',10,'Rotation',-90);
  1427. %-------------------------------------------------------------------------
  1428. % END: Arrows for WTBX FUSION TOOL 
  1429. %-------------------------------------------------------------------------
  1431. %--------------------------------------------------------------------------
  1432. function method = get_Fus_Param(type,handles)
  1434. switch type
  1435.     case 'app'
  1436.         Pop = handles.Pop_Fus_App;
  1437.         Edi = handles.Edi_Fus_App;
  1438.     case 'det'
  1439.         Pop = handles.Pop_Fus_Det;
  1440.         Edi = handles.Edi_Fus_Det;
  1441. end
  1442. numMeth = get(Pop,'Value');
  1443. tabMeth = get(Pop,'String');
  1444. methName = tabMeth{numMeth};
  1445. switch methName
  1446.     case {'max','min','mean','rand','img1','img2'} , 
  1447.         param = get(Edi,'String');
  1448.     case 'linear' ,  
  1449.         param = str2double(get(Edi,'String'));
  1450.     case {'UD_fusion','DU_fusion','LR_fusion','RL_fusion'}
  1451.         param = str2double(get(Edi,'String'));
  1452.     case 'userDEF' 
  1453.         ok = tst_Fus_Param(Pop,Edi,[],handles);
  1454.         param = get(Edi,'String');
  1455.         
  1456. end
  1457. method  = struct('name',methName,'param',param);
  1458. %--------------------------------------------------------------------------
  1460. function set_Fus_Param(Pop,Edi,Txt,eventdata,handles)
  1462. numMeth = get(Pop,'Value');
  1463. tabMeth = get(Pop,'String');
  1464. methName = tabMeth{numMeth};
  1465. switch methName
  1466.     case {'max','min','mean','rand','img1','img2'} , 
  1467.         vis = 'Off'; ediVAL = ''; txtSTR = '';
  1468.     case 'linear' ,  
  1469.         vis = 'On'; ediVAL = 0.5; txtSTR = '0 <= Param. <= 1';
  1470.     case {'UD_fusion','DU_fusion','LR_fusion','RL_fusion'}
  1471.         vis = 'On'; ediVAL = 1;   txtSTR = '0 <= Param.';
  1472.     case 'userDEF' 
  1473.         vis = 'On'; ediVAL = '';  txtSTR = 'Func. Name';
  1474. end
  1475. set(Txt,'String',txtSTR);
  1476. set(Edi,'String',num2str(ediVAL));
  1477. set([Edi,Txt],'Visible',vis);
  1478. %--------------------------------------------------------------------------
  1480. function ok = tst_Fus_Param(Pop,Edi,eventdata,handles)
  1482. numMeth = get(Pop,'Value');
  1483. tabMeth = get(Pop,'String');
  1484. methName = tabMeth{numMeth};
  1485. switch methName
  1486.     case 'linear' ,  
  1487.         def_ediVAL = 0.5;
  1488.         param = str2double(get(Edi,'String'));
  1489.         ok = ~isnan(param);
  1490.         if ok , ok = (0 <= param) & (param <= 1); end
  1491.         
  1492.     case {'UD_fusion','DU_fusion','LR_fusion','RL_fusion'}
  1493.         def_ediVAL = 1;
  1494.         param = str2double(get(Edi,'String'));
  1495.         ok = ~isnan(param);
  1496.         if ok , ok = (0 <= param); end
  1497.         
  1498.     case 'userDEF' 
  1499.         def_ediVAL = 'wfusfun';
  1500.         param = get(Edi,'String');
  1501.         ok = ~isempty(param) & ischar(param);
  1502.         if ok ,
  1503.             userFusFUN = which(param);
  1504.             ok = ~isempty(userFusFUN);
  1505.         end
  1506.         
  1507.     otherwise
  1508.         ok = true; param = get(Edi,'String');
  1509. end
  1510. if ok , def_ediVAL = param; end
  1511. set(Edi,'String',num2str(def_ediVAL));
  1513. %--------------------------------------------------------------------------
  1515. function okSize = tst_ImageSize(hFig,numIMG,info_IMG)
  1517. tool_PARAMS = wtbxappdata('get',hFig,'tool_PARAMS');  
  1518. switch numIMG
  1519.     case 1 , info_OTHER = tool_PARAMS.infoIMG_2;
  1520.     case 2 , info_OTHER = tool_PARAMS.infoIMG_1;
  1521. end
  1522. if isempty(info_OTHER)
  1523.     okSize = true;
  1524. else
  1525.     okSize = isequal(info_IMG.size,info_OTHER.size);
  1526. end
  1527. if ~okSize
  1528.     h = warndlg('The two images must be of the same size','Caution','modal');
  1529.     waitfor(h);
  1530.     wwaiting('off',hFig);
  1531. else
  1532.     switch numIMG
  1533.         case 1 , tool_PARAMS.infoIMG_1 = info_IMG;
  1534.         case 2 , tool_PARAMS.infoIMG_2 = info_IMG;
  1535.     end
  1536.     wtbxappdata('set',hFig,'tool_PARAMS',tool_PARAMS);
  1537. end
  1539. %=========================================================================%
  1540. %                END Internal Functions                                   %
  1541. %=========================================================================%
  1544. %=========================================================================%
  1545. %                BEGIN General Utilities                                  %
  1546. %                -----------------------                                  %
  1547. %=========================================================================%
  1548. function h = setAxesTitle(axe,label)
  1549. axes(axe); 
  1550. h = title(label,'Color','k','FontWeight','demi');
  1551. %----------------------------------------------------------
  1552. function h = setAxesXlabel(axe,label)
  1553. axes(axe); 
  1554. h = xlabel(label,'Color','k','FontWeight','demi');
  1555. %=========================================================================%
  1556. %                END Tool General Utilities                               %
  1557. %=========================================================================%
  1560. %=========================================================================%
  1561. %                      BEGIN Demo Utilities                               %
  1562. %                      ---------------------                              %
  1563. %=========================================================================%
  1564. function closeDEMO(hFig,eventdata,handles,varargin)
  1565. close(hFig);
  1566. %----------------------------------------------------------
  1567. function demoPROC(hFig,eventdata,handles,varargin)
  1568. handles = guidata(hFig);
  1569. numDEM  = varargin{1};
  1570. demo_FUN(hFig,eventdata,handles,numDEM);
  1571. %=========================================================================%
  1572. %                   END Tool Demo Utilities                               %
  1573. %=========================================================================%