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

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

波变换

开发平台：

Matlab

dw2dmngr.m：源码内容
  1. function out1 = dw2dmngr(option,win_dw2dtool,in3,in4,in5)
  2. %DW2DMNGR Discrete wavelet 2-D general manager.
  3. %   OUT1 = DW2DMNGR(OPTION,WIN_DW2DTOOL,IN3,IN4,IN5)
  4. %
  5. %   option = 'load_img'
  6. %   option = 'load_dec'
  7. %   option = 'load_cfs'
  8. %   option = 'demo'
  9. %   option = 'save_synt'
  10. %   option = 'save_cfs'
  11. %   option = 'save_dec'
  12. %   option = 'analyze'
  13. %   option = 'synthesize'
  14. %   option = 'step2'
  15. %   option = 'view_dec'
  16. %   option = 'select'
  17. %   option = 'view_mode'
  18. %   option = 'fullsize'
  19. %   option = 'return_comp'
  20. %   option = 'return_deno'
  21. %   option = 'set_graphic'
  23. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  24. %   Last Revision: 16-Apr-2003.
  25. %   Copyright 1995-2004 The MathWorks, Inc.
  26. %   $Revision: 1.24.4.2 $ $Date: 2004/03/15 22:40:20 $
  28. % Get Globals.
  29. %-------------
  30. [Def_AxeFontSize,Terminal_Prop,Def_TxtBkColor] = ...
  31.     mextglob('get','Def_AxeFontSize','Terminal_Prop','Def_TxtBkColor');
  33. % Default values.
  34. %----------------
  35. max_lev_anal = 5;
  36. def_nbCodeOfColors = 255;
  38. % Image Coding Value.
  39. %-------------------
  40. codemat_v = wimgcode('get',win_dw2dtool);
  42. % Tag property of objects.
  43. %-------------------------
  44. tag_m_savesyn  = 'Save_Syn';
  45. tag_m_savecfs  = 'Save_Cfs';
  46. tag_m_savedec  = 'Save_Dec';
  47. tag_cmd_frame  = 'Cmd_Frame';
  48. tag_pus_anal   = 'Pus_Anal';
  49. tag_pus_deno   = 'Pus_Deno';
  50. tag_pus_comp   = 'Pus_Comp';
  51. tag_pus_hist   = 'Pus_Hist';
  52. tag_pus_stat   = 'Pus_Stat';
  53. tag_pop_declev = 'Pop_DecLev';
  54. tag_pus_visu   = 'Pus_Visu';
  55. tag_pus_big    = 'Pus_Big';
  56. tag_pus_rec    = 'Pus_Rec';
  57. tag_pop_viewm  = 'Pop_ViewM';
  58. tag_txt_full   = 'Txt_Full';
  59. tag_pus_full   = ['Pus_Full.1';'Pus_Full.2';'Pus_Full.3';'Pus_Full.4'];
  60. tag_btnaxeset  = 'Btn_Axe_Set';
  61. tag_axefigutil = 'Axe_FigUtil';
  62. tag_linetree   = 'Tree_lines';
  63. tag_txttree    = 'Tree_txt';
  64. tag_axeimgbig  = 'Axe_ImgBig';
  65. tag_axeimgini  = 'Axe_ImgIni';
  66. tag_axeimgvis  = 'Axe_ImgVis';
  67. tag_axeimgsel  = 'Axe_ImgSel';
  68. tag_axeimgdec  = 'Axe_ImgDec';
  69. tag_axeimgsyn  = 'Axe_ImgSyn';
  70. tag_axeimghdls = 'Img_Handles';
  71. tag_imgdec     = 'Img_Dec';
  73. % Memory Blocks of stored values.
  74. %================================
  75. % MB0.
  76. %-----
  77. n_InfoInit   = 'DW2D_InfoInit';
  78. ind_filename = 1;
  79. ind_pathname = 2;
  80. nb0_stored   = 2;
  82. % MB1.
  83. %-----
  84. n_param_anal   = 'DWAn2d_Par_Anal';
  85. ind_img_name   = 1;
  86. ind_wav_name   = 2;
  87. ind_lev_anal   = 3;
  88. ind_img_t_name = 4;
  89. ind_img_size   = 5;
  90. ind_nbcolors   = 6;
  91. ind_act_option = 7;
  92. ind_simg_type  = 8;
  93. ind_thr_val    = 9;
  94. nb1_stored     = 9;
  96. % MB2.1 and 2.2.
  97. %---------------
  98. n_coefs = 'MemCoefs';
  99. n_sizes = 'MemSizes';
  101. % MB3.
  102. %-----
  103. n_miscella      = 'DWAn2d_Miscella';
  104. ind_graph_area  =  1;
  105. ind_pos_axebig  =  2;
  106. ind_pos_axeini  =  3;
  107. ind_pos_axevis  =  4;
  108. ind_pos_axedec  =  5;
  109. ind_pos_axesyn  =  6;
  110. ind_pos_axesel  =  7;
  111. ind_view_status =  8;
  112. ind_save_status =  9;
  113. ind_sel_funct   = 10;
  114. nb3_stored      = 10;
  116. % Miscellaneous values.
  117. %----------------------
  118. square_viewm    = 1;
  119. tree_viewm      = 2;
  120. [Col_BoxAxeSel,Col_Selected,BoxTitleSel_Col] = wtbutils('colors','dw2d');
  121. Width_LineSel   = 3;
  123. % View Status
  124. %--------------------------------------------------------%
  125. % 'none' : init
  126. % 's_l*' : square        * = lev_dec (1 --> Level_Anal)
  127. % 'f1l*' : full ini      * = lev_dec (1 --> Level_Anal)
  128. % 'f2l*' : full syn      * = lev_dec (1 --> Level_Anal)
  129. % 'f3l*' : full vis      * = lev_dec (1 --> Level_Anal)
  130. % 'f4l*' : full dec      * = lev_dec (1 --> Level_Anal)
  131. % 'b*l*' : big
  132. %            first   * = index   (1 --> 4*Level_Anal)
  133. %            second  * = lev_dec (1 --> Level_Anal)
  134. % 't_l*' : tree          * = lev_dec (1 --> Level_Anal)
  135. %--------------------------------------------------------%
  137. % Handles of tagged objects.
  138. %---------------------------
  139. str_numwin  = sprintf('%.0f',win_dw2dtool);
  140. children    = get(win_dw2dtool,'Children');
  141. uic_handles = findobj(children,'flat','type','uicontrol');
  142. axe_handles = findobj(children,'flat','type','axes');
  143. txt_handles = findobj(uic_handles,'Style','text');
  144. pop_handles = findobj(uic_handles,'Style','popupmenu');
  145. pus_handles = findobj(uic_handles,'Style','pushbutton');
  147. m_files   = wfigmngr('getmenus',win_dw2dtool,'file');
  148. m_savesyn = findobj(m_files,'Tag',tag_m_savesyn);
  149. m_savecfs = findobj(m_files,'Tag',tag_m_savecfs);
  150. m_savedec = findobj(m_files,'Tag',tag_m_savedec);
  152. pus_anal   = findobj(pus_handles,'Tag',tag_pus_anal);
  153. pus_deno   = findobj(pus_handles,'Tag',tag_pus_deno);
  154. pus_comp   = findobj(pus_handles,'Tag',tag_pus_comp);
  155. pus_hist   = findobj(pus_handles,'Tag',tag_pus_hist);
  156. pus_stat   = findobj(pus_handles,'Tag',tag_pus_stat);
  157. pop_declev = findobj(pop_handles,'Tag',tag_pop_declev);
  158. pus_visu   = findobj(pus_handles,'Tag',tag_pus_visu);
  159. pus_big    = findobj(pus_handles,'Tag',tag_pus_big);
  160. pus_rec    = findobj(pus_handles,'Tag',tag_pus_rec);
  161. pop_viewm  = findobj(pop_handles,'Tag',tag_pop_viewm);
  162. txt_full   = findobj(txt_handles,'Tag',tag_txt_full);
  163. for k =1:size(tag_pus_full,1)
  164.     pus_full(k) = (findobj(pus_handles,'Tag',tag_pus_full(k,:)))';
  165. end
  167. Axe_ImgBig = findobj(axe_handles,'flat','Tag',tag_axeimgbig);
  168. Axe_ImgIni = findobj(axe_handles,'flat','Tag',tag_axeimgini);
  169. Axe_ImgVis = findobj(axe_handles,'flat','Tag',tag_axeimgvis);
  170. Axe_ImgSel = findobj(axe_handles,'flat','Tag',tag_axeimgsel);
  171. Axe_ImgSyn = findobj(axe_handles,'flat','Tag',tag_axeimgsyn);
  173. switch option
  174.     case 'load_img'
  175.         % Testing file.
  176.         %--------------
  177.         imgFileType = ['*.mat;*.bmp;*.hdf;*.jpg;' ...
  178.                 '*.jpeg;*.pcx;*.tif;*.tiff;*.gif'];
  179.         [imgInfos,img_anal,map,ok] = ...
  180.             utguidiv('load_img',win_dw2dtool, ...
  181.                 imgFileType,'Load Image',def_nbCodeOfColors);
  182.         if ~ok, return; end
  184.         % Cleaning.
  185.         %----------
  186.         wwaiting('msg',win_dw2dtool,'Wait ... cleaning');
  187.         dw2dutil('clean',win_dw2dtool,option);
  189.         % Setting Analysis parameters.
  190.         %-----------------------------
  191.         NB_ColorsInPal = size(map,1);
  192.         wmemtool('wmb',win_dw2dtool,n_param_anal,   ...
  193.                        ind_act_option,option,       ...
  194.        ind_img_name,imgInfos.name,  ...
  195.        ind_img_t_name,imgInfos.true_name, ...
  196.        ind_img_size,imgInfos.size,  ...
  197.                        ind_nbcolors,NB_ColorsInPal, ...
  198.                        ind_simg_type,'ss'           ...
  199.                        );
  200.         wmemtool('wmb',win_dw2dtool,n_InfoInit, ...
  201.        ind_filename,imgInfos.filename, ...
  202.        ind_pathname,imgInfos.pathname  ...
  203.                        );
  205.         % Setting GUI values.
  206.         %--------------------
  207.         levm   = wmaxlev(imgInfos.size,'haar');
  208.         levmax = min(levm,max_lev_anal);
  209.         if isequal(imgInfos.true_name,'X')
  210.             img_Name = imgInfos.name;
  211.         else
  212.         img_Name = imgInfos.true_name;
  213.         end
  214.         img_Size = imgInfos.size;
  215.         cbanapar('set',win_dw2dtool, ...
  216.             'n_s',{img_Name,img_Size}, ...
  217.             'lev',{'String',int2str([1:levmax]'),'Value',min(levmax,2)} ...
  218.             );
  219.         if imgInfos.self_map , arg = map; else , arg = []; end
  220.         cbcolmap('set',win_dw2dtool,'pal',{'pink',NB_ColorsInPal,'self',arg});
  222.         % Drawing axes.
  223.         %--------------
  224.         dw2dutil('pos_axe_init',win_dw2dtool,option);
  226.         % Drawing Original Image
  227.         %-----------------------
  228.         img_anal = wimgcode('cod',0,img_anal,NB_ColorsInPal,codemat_v);
  229.         image([1 img_Size(1)],[1 img_Size(2)],img_anal,'Parent',Axe_ImgIni);
  230.         wtitle('Original Image','Parent',Axe_ImgIni);
  231.         set(Axe_ImgIni,'Tag',tag_axeimgini)
  233.         % Setting enabled values.
  234.         %------------------------
  235.         dw2dutil('enable',win_dw2dtool,option);
  237.         % End waiting.
  238.         %-------------
  239.         wwaiting('off',win_dw2dtool);
  241.     case 'load_dec'
  242.         % Testing file.
  243.         %--------------
  244.          fileMask = {...
  245.                '*.wa2;*.mat' , 'Decomposition  (*.wa2;*.mat)';
  246.                '*.*','All Files (*.*)'};        
  247.         [filename,pathname,ok] = utguidiv('load_var',win_dw2dtool, ...
  248.                                    fileMask,'Load Wavelet Analysis (2D)',...
  249.                                    {'coefs','sizes','wave_name'});
  250.         if ~ok, return; end
  252.         % Loading file.
  253.         %--------------
  254.         load([pathname filename],'-mat');
  255.         if ~exist('map','var'), map = pink(def_nbCodeOfColors); end
  256.         if ~exist('data_name','var') , data_name = 'no name'; end
  257.         lev = size(sizes,1)-2;
  258.         if lev>max_lev_anal
  259.             msg = sprintf('The level of the decomposition nis too large (max = %.0f).', max_lev_anal);
  260.             wwarndlg(msg,'Load Wavelet Analysis (2D)','block');
  261.             return  
  262.         end
  264.         % Cleaning.
  265.         %----------
  266.         wwaiting('msg',win_dw2dtool,'Wait ... cleaning');
  267.         dw2dutil('clean',win_dw2dtool,option);
  269.         % Getting Analysis parameters.
  270.         %-----------------------------
  271.         s_img          = size(sizes);
  272.         Img_Size       = fliplr(sizes(s_img(1),:));
  273.         Level_Anal     = s_img(1)-2;
  274.         NB_ColorsInPal = size(map,1);
  276.         % Setting coefs and sizes.
  277.         %-------------------------
  278.         wmemtool('wmb',win_dw2dtool,n_coefs,1,coefs);
  279.         wmemtool('wmb',win_dw2dtool,n_sizes,1,sizes);
  281.         % Setting GUI values.
  282.         %--------------------
  283.         levm   = wmaxlev(Img_Size,'haar');
  284.         levmax = min(levm,max_lev_anal);
  285.         cbanapar('set',win_dw2dtool, ...
  286.                  'n_s',{data_name,Img_Size},'wav',wave_name, ...
  287.                  'lev',{'String',int2str([1:levmax]'),'Value',Level_Anal});
  288.         levels = int2str([1:Level_Anal]');
  289.         set(pop_declev,'String',levels,'Value',Level_Anal);
  290.         pink_map = pink(NB_ColorsInPal);
  291.         self_map = max(max(abs(map-pink_map)));
  292.         if self_map , arg = map; else , arg = []; end
  293.         cbcolmap('set',win_dw2dtool,'pal',{'pink',NB_ColorsInPal,'self',arg});
  295.         % Setting Analysis parameters.
  296.         %-----------------------------
  297.         wmemtool('wmb',win_dw2dtool,n_param_anal,   ...
  298.                        ind_act_option,option,       ...
  299.                        ind_wav_name,wave_name,      ...
  300.                        ind_lev_anal,Level_Anal,     ...
  301.                        ind_img_name,data_name,      ...
  302.                        ind_img_t_name,'',           ...
  303.                        ind_img_size,Img_Size,       ...
  304.                        ind_nbcolors,NB_ColorsInPal, ...
  305.                        ind_simg_type,'ss'           ...
  306.                        );
  307.         wmemtool('wmb',win_dw2dtool,n_InfoInit, ...
  308.                        ind_filename,filename,   ...
  309.                        ind_pathname,pathname    ...
  310.                        );
  312.         % Drawing axes.
  313.         %--------------
  314.         dw2dutil('pos_axe_init',win_dw2dtool,option);
  316.         % Calling Analysis
  317.         %-----------------
  318.         dw2dmngr('step2',win_dw2dtool,option);
  320.         % Computing Original Image.
  321.         %--------------------------
  322.         X = appcoef2(coefs,sizes,wave_name,0);
  324.         % Drawing Original Image
  325.         %-----------------------
  326.         X = wimgcode('cod',0,X,NB_ColorsInPal,codemat_v);
  327.         image([1 Img_Size(1)],[1,Img_Size(2)],X,'Parent',Axe_ImgIni);
  328.         wtitle('Reconstructed Image','Parent',Axe_ImgIni);
  329.         set(Axe_ImgIni,'Tag',tag_axeimgini)
  330.         image([1 Img_Size(1)],[1 Img_Size(2)],X,'Parent',Axe_ImgSyn);
  331.         set(Axe_ImgSyn,...
  332.             'XTicklabelMode','manual', ...
  333.             'YTicklabelMode','manual', ...
  334.             'XTicklabel',[],           ...
  335.             'YTicklabel',[],           ...
  336.             'Box','On',                ...
  337.             'Tag',tag_axeimgsyn        ...
  338.             );
  339.         wtitle('Synthesized Image','Parent',Axe_ImgSyn);
  341.         % Setting enabled values.
  342.         %------------------------
  343.         dw2dutil('enable',win_dw2dtool,option);
  345.         % End waiting.
  346.         %-------------
  347.         wwaiting('off',win_dw2dtool);
  349.     case 'load_cfs'
  350.         % in3 = 'new_synt' (optional).
  351.         %----------------------------
  352.         if nargin==2
  353.             % Testing file.
  354.             %--------------
  355.             [filename,pathname,ok] = utguidiv('load_var',win_dw2dtool,  ...
  356.                                        '*.mat','Load Coefficients (2D)',...
  357.                                        {'coefs','sizes'});
  358.             if ~ok, return; end
  360.             % Loading file.
  361.             %--------------
  362.             load([pathname filename],'-mat');
  363.             lev = size(sizes,1)-2;
  364.             if lev>max_lev_anal
  365.                 msg = sprintf(...
  366.    'The level of the decomposition nis too large (max = %d).',max_lev_anal);
  367.                 wwarndlg(msg,'Load Coefficients (2D)','block');
  368.                 return  
  369.             end
  370.             in3 = '';
  371.             [Img_Name,ext] = strtok(filename,'.');
  373.             % Cleaning.
  374.             %----------
  375.             wwaiting('msg',win_dw2dtool,'Wait ... cleaning');
  376.             dw2dutil('clean',win_dw2dtool,option);
  378.             % Getting Analysis parameters.
  379.             %-----------------------------
  380.             s_img      = size(sizes);
  381.             Img_Size   = fliplr(sizes(s_img(1),:));
  382.             Level_Anal = s_img(1)-2;
  384.             % Setting coefs and sizes.
  385.             %-------------------------
  386.             wmemtool('wmb',win_dw2dtool,n_coefs,1,coefs);
  387.             wmemtool('wmb',win_dw2dtool,n_sizes,1,sizes);
  389.             % Setting GUI values.
  390.             %--------------------
  391.             cbanapar('set',win_dw2dtool, ...
  392.                'n_s',{Img_Name,Img_Size}, ...
  393.                'lev',{'String',int2str(Level_Anal),'Value',1} ...
  394.                );
  395.             levels = int2str([1:Level_Anal]');
  396.             set(pop_declev,'String',levels,'Value',Level_Anal);
  398.             % Computing (approximate) colormap.
  399.             %----------------------------------
  400.             tmp = appcoef2(coefs,sizes,'haar',Level_Anal);
  401.             NB_ColorsInPal = ceil(max(max(tmp))/(2^Level_Anal));
  402.             NB_ColorsInPal = min([max([2,NB_ColorsInPal]),def_nbCodeOfColors]);
  403.             cbcolmap('set',win_dw2dtool,'pal',{'pink',NB_ColorsInPal});
  405.             % Setting Analysis parameters.
  406.             %-----------------------------
  407.             wmemtool('wmb',win_dw2dtool,n_param_anal,   ...
  408.                            ind_act_option,option,       ...
  409.                            ind_lev_anal,Level_Anal,     ...
  410.                            ind_img_size,Img_Size,       ...
  411.                            ind_img_name,Img_Name,       ...
  412.                            ind_nbcolors,NB_ColorsInPal, ...
  413.                            ind_simg_type,'ss'           ...
  414.                            );
  415.             wmemtool('wmb',win_dw2dtool,n_InfoInit, ...
  416.                            ind_filename,filename,   ...
  417.                            ind_pathname,pathname    ...
  418.                            );
  419.         else
  420.             % Cleaning.
  421.             %----------
  422.             wwaiting('msg',win_dw2dtool,'Wait ... cleaning');
  423.             dw2dutil('clean',win_dw2dtool,option,in3);
  424.         end
  426.         % Drawing axes.
  427.         %--------------
  428.         dw2dutil('pos_axe_init',win_dw2dtool,option);
  430.         % Calling Analysis
  431.         %-----------------
  432.         dw2dmngr('step2',win_dw2dtool,option);
  434.         % Setting enabled values.
  435.         %------------------------
  436.         dw2dutil('enable',win_dw2dtool,option);
  438.         % End waiting.
  439.         %-------------
  440.         wwaiting('off',win_dw2dtool);
  442.     case 'demo'
  443.         Img_Name   = deblank(in3);
  444.         Wave_Name  = deblank(in4);
  445.         Level_Anal = in5;
  447.         % Loading file.
  448.         %--------------
  449.         filename = [Img_Name '.mat'];
  450.         pathname = utguidiv('WTB_DemoPath',filename);
  451.         [imgInfos,img_anal,map,ok] = utguidiv('load_dem2D',win_dw2dtool, ...
  452.                                        pathname,filename,def_nbCodeOfColors);
  453.         if ~ok, return; end
  455.         % Cleaning.
  456.         %----------
  457.         wwaiting('msg',win_dw2dtool,'Wait ... cleaning');
  458.         dw2dutil('clean',win_dw2dtool,option);
  460.         % Setting GUI values.
  461.         %--------------------
  462.         NB_ColorsInPal = size(map,1);
  463.         if isequal(imgInfos.true_name,'X')
  464.             img_Name = imgInfos.name;
  465.         else
  466.             img_Name = imgInfos.true_name;
  467.         end
  468.         cbanapar('set',win_dw2dtool, ...
  469.             'n_s',{img_Name,imgInfos.size}, ...
  470.             'wav',Wave_Name, ...
  471.             'lev',Level_Anal ...
  472.             );
  473.         levels = int2str([1:Level_Anal]');
  474.         set(pop_declev,'String',levels,'Value',Level_Anal);
  475.         if imgInfos.self_map , arg = map; else , arg = []; end
  476.         cbcolmap('set',win_dw2dtool,'pal',{'pink',NB_ColorsInPal,'self',arg});
  478.         % Setting Analysis parameters
  479.         %-----------------------------
  480.         NB_ColorsInPal = size(map,1);
  481.         wmemtool('wmb',win_dw2dtool,n_param_anal,  ...
  482.                        ind_act_option,option,      ...
  483.                        ind_img_name,imgInfos.name, ...
  484.                        ind_wav_name,Wave_Name,     ...
  485.                        ind_lev_anal,Level_Anal,    ...
  486.                        ind_img_t_name,imgInfos.true_name, ...
  487.                        ind_img_size,imgInfos.size, ...
  488.                        ind_nbcolors,NB_ColorsInPal,...
  489.                        ind_simg_type,'ss'          ...
  490.                        );
  491.         wmemtool('wmb',win_dw2dtool,n_InfoInit, ...
  492.                        ind_filename,imgInfos.filename, ...
  493.                        ind_pathname,imgInfos.pathname  ...
  494.                        );
  496.         % Drawing axes.
  497.         %--------------
  498.         dw2dutil('pos_axe_init',win_dw2dtool,option);
  500.         % Drawing Original Image
  501.         %-----------------------
  502.         X = wimgcode('cod',0,img_anal,NB_ColorsInPal,codemat_v);
  503.         image([1 imgInfos.size(1)],[1,imgInfos.size(2)],X,...
  504.                 'Parent',Axe_ImgIni);
  505.         wtitle('Original Image','Parent',Axe_ImgIni);
  506.         set(Axe_ImgIni,'Tag',tag_axeimgini)
  508.         % Calling Analysis.
  509.         %-----------------
  510.         dw2dmngr('step2',win_dw2dtool,option);
  512.         % Setting enabled values.
  513.         %------------------------
  514.         dw2dutil('enable',win_dw2dtool,option);
  516.         % End waiting.
  517.         %-------------
  518.         wwaiting('off',win_dw2dtool);
  520.     case 'save_synt'
  521.         % Testing file.
  522.         %--------------        
  523.         [filename,pathname,ok] = utguidiv('test_save',win_dw2dtool, ...
  524.                                      '*.mat','Save Synthesized Image');
  525.         if ~ok, return; end
  527.         % Begin waiting.
  528.         %--------------
  529.         wwaiting('msg',win_dw2dtool,'Wait ... saving');
  531.         % Getting Analysis values.
  532.         %-------------------------
  533.         [wname,valTHR] = wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  534.                                   ind_wav_name,ind_thr_val);
  535.         map = cbcolmap('get',win_dw2dtool,'self_pal');
  536.         if isempty(map)
  537.             nb_colors = wmemtool('rmb',win_dw2dtool,n_param_anal,ind_nbcolors);
  538.             map = pink(nb_colors);
  539.         end
  541.         % Getting Synthesized Image.
  542.         %---------------------------
  543.         img = dw2drwcd('r_synt',win_dw2dtool);
  544.         X = round(get(img,'Cdata'));
  546.         % Saving file.
  547.         %--------------
  548.         [name,ext] = strtok(filename,'.');
  549.         if isempty(ext) | isequal(ext,'.')
  550.             ext = '.mat'; filename = [name ext];
  551.         end
  552.         saveStr = {'X','map','valTHR','wname'};
  553.         wwaiting('off',win_dw2dtool);
  554.         try
  555.           save([pathname filename],saveStr{:});
  556.         catch
  557.           errargt(mfilename,'Save FAILED !','msg');
  558.         end
  560.     case 'save_cfs'
  561.         % Testing file.
  562.         %--------------
  563.         [filename,pathname,ok] = utguidiv('test_save',win_dw2dtool, ...
  564.                                      '*.mat','Save Coefficients (2D)');
  565.         if ~ok, return; end
  567.         % Begin waiting.
  568.         %--------------
  569.         wwaiting('msg',win_dw2dtool,'Wait ... saving coefficients');
  571.         % Getting Analysis values.
  572.         %-------------------------
  573.         [wname,valTHR] = wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  574.                                   ind_wav_name,ind_thr_val);
  575.         map = cbcolmap('get',win_dw2dtool,'self_pal');
  576.         if isempty(map)
  577.             nb_colors = wmemtool('rmb',win_dw2dtool,n_param_anal,ind_nbcolors);
  578.             map = pink(nb_colors);
  579.         end
  580.         coefs = wmemtool('rmb',win_dw2dtool,n_coefs,1);
  581.         sizes = wmemtool('rmb',win_dw2dtool,n_sizes,1);
  583.         % Saving file.
  584.         %--------------
  585.         [name,ext] = strtok(filename,'.');
  586.         if isempty(ext) | isequal(ext,'.')
  587.             ext = '.mat'; filename = [name ext];
  588.         end
  589.         saveStr = {'coefs','sizes','map','valTHR','wname'};
  590.         wwaiting('off',win_dw2dtool);
  591.         try
  592.           save([pathname filename],saveStr{:});
  593.         catch
  594.           errargt(mfilename,'Save FAILED !','msg');
  595.         end
  597.     case 'save_dec'
  598.         % Testing file.
  599.         %--------------
  600.          fileMask = {...
  601.                '*.wa2;*.mat' , 'Decomposition  (*.wa2;*.mat)';
  602.                '*.*','All Files (*.*)'};                
  603.         [filename,pathname,ok] = utguidiv('test_save',win_dw2dtool, ...
  604.                                      fileMask,'Save Wavelet Analysis (2D)');
  605.         if ~ok, return; end
  607.         % Begin waiting.
  608.         %--------------
  609.         wwaiting('msg',win_dw2dtool,'Wait ... saving decomposition');
  611.         % Getting Analysis parameters.
  612.         %-----------------------------
  613.         [wave_name,data_name,level_anal,nb_colors,valTHR] = ...
  614.                 wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  615.                                ind_wav_name, ...
  616.                                ind_img_name, ...
  617.                                ind_lev_anal, ...
  618.                                ind_nbcolors, ...
  619.                                ind_thr_val   ...
  620.                                );
  622.         map = cbcolmap('get',win_dw2dtool,'self_pal');
  623.         if isempty(map) , map = pink(nb_colors); end
  624.         coefs = wmemtool('rmb',win_dw2dtool,n_coefs,1);
  625.         sizes = wmemtool('rmb',win_dw2dtool,n_sizes,1);
  627.         % Saving file.
  628.         %--------------
  629.         [name,ext] = strtok(filename,'.');
  630.         if isempty(ext) | isequal(ext,'.')
  631.             ext = '.wa2'; filename = [name ext];
  632.         end
  633.         saveStr = {'coefs','sizes','wave_name','map','valTHR','data_name'};
  634.         wwaiting('off',win_dw2dtool);
  635.         try
  636.           save([pathname filename],saveStr{:});
  637.         catch
  638.           errargt(mfilename,'Save FAILED !','msg');
  639.         end
  641.     case 'analyze'
  642.         active_option = wmemtool('rmb',win_dw2dtool,n_param_anal,ind_act_option);        
  644.         if ~strcmp(active_option,'load_img')
  645.             wwaiting('msg',win_dw2dtool,'Wait ... computing');
  646.             dw2dutil('clean2',win_dw2dtool,option);
  647.             wmemtool('wmb',win_dw2dtool,n_param_anal,ind_simg_type,'ss');
  648.         end
  650.         % Reading Analysis Parameters.
  651.         %----------------------------
  652.         [Wave_Name,Level_Anal] = cbanapar('get',win_dw2dtool,'wav','lev');
  654.         % Setting GUI values.
  655.         %--------------------
  656.         levels = int2str([1:Level_Anal]');
  657.         set(pop_declev,'String',levels,'Value',Level_Anal);
  659.         % Setting Analysis parameters.
  660.         %-----------------------------
  661.         wmemtool('wmb',win_dw2dtool,n_param_anal, ...
  662.                        ind_act_option,option,  ...
  663.                        ind_wav_name,Wave_Name, ...
  664.                        ind_lev_anal,Level_Anal ...
  665.                        );
  667.         % Calling Analysis.
  668.         %------------------
  669.         dw2dmngr('step2',win_dw2dtool,option);
  671.         % Setting enabled values.
  672.         %------------------------
  673.         dw2dutil('enable',win_dw2dtool,option);
  675.     case 'synthesize'
  676.         active_option = wmemtool('rmb',win_dw2dtool,n_param_anal,ind_act_option);
  677.         if ~strcmp(active_option,'load_cfs')
  678.             wwaiting('msg',win_dw2dtool,'Wait ... computing');
  679.             dw2dmngr('load_cfs',win_dw2dtool,'new_synt');
  680.         end
  682.         % Begin waiting.
  683.         %--------------
  684.         wwaiting('msg',win_dw2dtool,'Wait ... computing');
  686.         % Reading Analysis Parameters.
  687.         %----------------------------
  688.         Wave_Name  = cbanapar('get',win_dw2dtool,'wav');
  690.         % Getting & Setting Analysis parameters.
  691.         %---------------------------------------
  692.         [Img_Size,NB_ColorsInPal,Level_Anal] = ...
  693.                 wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  694.                                ind_img_size, ...
  695.                                ind_nbcolors, ...
  696.                                ind_lev_anal  ...
  697.                                );
  698.         wmemtool('wmb',win_dw2dtool,n_param_anal, ...
  699.                        ind_act_option,option, ...
  700.                        ind_wav_name,Wave_Name ...
  701.                        );
  703.         % Setting GUI values.
  704.         %--------------------
  705.         cbanapar('set',win_dw2dtool, ...
  706.             'lev',{'String',sprintf('%.0f',Level_Anal)});
  707.         levels  = int2str([1:Level_Anal]');
  708.         set(pop_declev,'String',levels,'Value',Level_Anal);
  710.         % Getting Analysis values.
  711.         %-------------------------
  712.         coefs = wmemtool('rmb',win_dw2dtool,n_coefs,1);
  713.         sizes = wmemtool('rmb',win_dw2dtool,n_sizes,1);
  715.         % Getting Select Function.
  716.         %------------------------
  717.         [view_status,select_funct] = wmemtool('rmb',win_dw2dtool,n_miscella,...
  718.                                         ind_view_status,ind_sel_funct);
  720.         % Setting axes properties.
  721.         %-------------------------
  722.         Axe_ImgDec  = wmemtool('rmb',win_dw2dtool,tag_axeimgdec,1);
  723.         Axe_ImgDec  = Axe_ImgDec(1:4*Level_Anal);
  724.         Img_Handles = wmemtool('rmb',win_dw2dtool,tag_axeimghdls,1);
  726.         % Computing Synthesized Image.
  727.         %-----------------------------
  728.         view_mode = view_status(1);
  729.         for k=Level_Anal-1:-1:1
  730.             X = appcoef2(coefs,sizes,Wave_Name,k);
  731.             if (k~=Level_Anal) & ( view_mode=='s' | view_mode=='f')
  732.                 vis = 'Off';
  733.             else
  734.                 vis = 'On';
  735.             end
  736.             num_img = 4*k;
  737.             axeAct  = Axe_ImgDec(num_img);
  738.             axes(axeAct)
  739.             %--------------------------------%
  740.             %-   k = level ;
  741.             %-   m = 1 : v ;    m = 2 : d ;         
  742.             %-   m = 3 : h ;    m = 4 : a ; 
  743.             %--------------------------------%
  744.             trunc_p = [k Img_Size(2) Img_Size(1)];
  745.             X = wimgcode('cod',1,X,NB_ColorsInPal,codemat_v,trunc_p);
  746.             Img_Handles(num_img) = ...
  747.                             image([1 Img_Size(1)],[1,Img_Size(2)],X,...
  748.                                     'Parent',axeAct,...
  749.                                     'Visible',vis,...
  750.                                     'UserData',[0;k;4],...
  751.                                     'Tag',tag_imgdec,...
  752.                                     'ButtonDownFcn',select_funct...
  753.                                     );
  754.             set(axeAct, ...
  755.                   'Visible',vis,                   ...
  756.                   'Xcolor',Col_BoxAxeSel,          ...
  757.                   'Ycolor',Col_BoxAxeSel,          ...
  758.                   'XTicklabelMode','manual',       ...
  759.                   'YTicklabelMode','manual',       ...
  760.                   'XTicklabel',[],'YTicklabel',[], ...
  761.                   'XTick',[],'YTick',[],           ...
  762.                   'Box','On',                      ...
  763.                   'Tag',tag_axeimgdec              ...
  764.                   );
  765.         end
  766.         wmemtool('wmb',win_dw2dtool,tag_axeimghdls,1,Img_Handles);
  768.         % Drawing Synthesized Image.
  769.         %--------------------------
  770.         X = appcoef2(coefs,sizes,Wave_Name,0);
  771.         X = wimgcode('cod',0,X,NB_ColorsInPal,codemat_v);
  772.         if (view_mode=='f') , vis = 'Off'; else , vis = 'On'; end
  773.         axes(Axe_ImgIni);
  774.         image([1 Img_Size(1)],[1 Img_Size(2)],X, ...
  775.                 'Visible',vis,'Parent',Axe_ImgIni);
  776.         set(Axe_ImgIni,'Visible',vis,'Tag',tag_axeimgini);
  777.         wtitle('Original Synthesized Image','Parent',Axe_ImgIni);
  778.         axes(Axe_ImgSyn);
  779.         image([1 Img_Size(1)],[1 Img_Size(2)],X, ...
  780.                 'Visible',vis,'Parent',Axe_ImgSyn);
  781.         set(Axe_ImgSyn,'Visible',vis,'Tag',tag_axeimgsyn);
  782.         wtitle('Synthesized Image','Parent',Axe_ImgSyn);
  784.         delete(findobj(Axe_ImgVis,'Type','image'));
  786.         % Setting enabled values.
  787.         %------------------------
  788.         dw2dutil('enable',win_dw2dtool,option);
  790.         % End waiting.
  791.         %-------------
  792.         wwaiting('off',win_dw2dtool);
  794.     case 'step2'
  795.         %*****************************************************%
  796.         %** OPTION = 'step2' - (load_dec & demo & analyze)  **%
  797.         %*****************************************************%
  798.         % in3 = calling option
  799.         %---------------------
  801.         % Getting  Analysis parameters.
  802.         %------------------------------
  803.         [Img_Name,Img_Size,...
  804.          NB_ColorsInPal,Wave_Name,Level_Anal] = ...
  805.                  wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  806.                                 ind_img_name, ...
  807.                                 ind_img_size, ...
  808.                                 ind_nbcolors, ...
  809.                                 ind_wav_name, ...
  810.                                 ind_lev_anal  ...
  811.                                 );
  813.         % Setting axes properties.
  814.         %-------------------------
  815.         Axe_ImgDec = wmemtool('rmb',win_dw2dtool,tag_axeimgdec,1);
  816.         set(Axe_ImgDec,'Visible','Off');
  817.         Axe_ImgDec = Axe_ImgDec(1:4*Level_Anal);
  818.         indVis = [1:4*Level_Anal];
  819.         indVis = [indVis(mod(indVis,4)~=0),indVis(end)];
  820.         set(Axe_ImgDec(indVis),'Visible','On');
  822.         % Getting Select Function.
  823.         %------------------------
  824.         select_funct = wmemtool('rmb',win_dw2dtool,n_miscella,ind_sel_funct);
  826.         % Begin waiting.
  827.         %---------------
  828.         wwaiting('msg',win_dw2dtool,'Wait ... computing');
  830.         % Computing.
  831.         %-----------
  832.         if strcmp(in3,'demo') | strcmp(in3,'analyze')
  833.             img_anal      = get(dw2drwcd('r_orig',win_dw2dtool),'Cdata');
  834.             [coefs,sizes] = wavedec2(img_anal,Level_Anal,Wave_Name);
  835.             clear img_anal
  837.             % Setting coefs and sizes.
  838.             %-------------------------
  839.             wmemtool('wmb',win_dw2dtool,n_coefs,1,coefs);
  840.             wmemtool('wmb',win_dw2dtool,n_sizes,1,sizes);
  841.         else
  842.             % Getting Analysis values.
  843.             %-------------------------
  844.             coefs = wmemtool('rmb',win_dw2dtool,n_coefs,1);
  845.             sizes = wmemtool('rmb',win_dw2dtool,n_sizes,1);
  846.         end
  847.         
  848.         % App flag.
  849.         %----------
  850.         if strcmp(in3,'load_cfs') | strcmp(in3,'new_synt')
  851.             app_flg = 0;
  852.         else
  853.             app_flg = 1;
  854.         end
  856.         % Decomposition drawing
  857.         %----------------------
  858.         size0 = sizes(1,:);
  859.         Img_Handles = zeros(1,4*Level_Anal);
  860.         for k=1:Level_Anal
  861.             for m=1:4
  862.                 switch m
  863.                     case 1 , Y = detcoef2('v',coefs,sizes,k);
  864.                     case 2 , Y = detcoef2('d',coefs,sizes,k);
  865.                     case 3 , Y = detcoef2('h',coefs,sizes,k);
  866.                     case 4
  867.                         if app_flg | k==Level_Anal
  868.                             Y = appcoef2(coefs,sizes,Wave_Name,k);
  869.                         else
  870.                             Y = zeros(size(Y));
  871.                         end
  872.                    otherwise , error('*');
  873.                 end
  874.                 if (m==4) & (k~=Level_Anal)
  875.                     vis = 'Off'; 
  876.                 else
  877.                     vis = 'On'; 
  878.                 end
  879.                 num_img = 4*(k-1)+m;
  880.                 axeAct  = Axe_ImgDec(num_img);
  881.                 axes(axeAct)
  882.                 %-------------------------------%
  883.                 %-   k = level ;
  884.                 %-   m = 1 : v ;   m = 2 : d ;         
  885.                 %-   m = 3 : h ;   m = 4 : a ; 
  886.                 %-------------------------------%
  887.                 trunc_p = [k Img_Size(2) Img_Size(1)];
  888.                 Y = wimgcode('cod',1,Y,NB_ColorsInPal,codemat_v,trunc_p);
  889.                 Img_Handles(num_img) = ...
  890.                         image([1 Img_Size(1)],[1 Img_Size(2)],Y,...
  891.                               'Parent',axeAct,             ...
  892.                               'Visible',vis,               ...
  893.                               'UserData',[0;k;m],          ...
  894.                               'Tag',tag_imgdec,            ...
  895.                               'ButtonDownFcn',select_funct ...
  896.                               );
  897.                 set(axeAct,...
  898.                     'Visible',vis,                    ...
  899.                     'Xcolor',Col_BoxAxeSel,           ...
  900.                     'Ycolor',Col_BoxAxeSel,           ...
  901.                     'XTicklabelMode','manual',        ...
  902.                     'YTicklabelMode','manual',        ...
  903.                     'XTicklabel',[],'YTicklabel',[],  ...
  904.                     'XTick',[],'YTick',[],'Box','On', ...
  905.                     'Tag',tag_axeimgdec               ...
  906.                     );
  907.             end
  908.         end
  909.         wmemtool('wmb',win_dw2dtool,tag_axeimghdls,1,Img_Handles);
  911.         % Decomposition Title.
  912.         %---------------------
  913.         wsetxlab(Axe_ImgSel,sprintf('Decomposition at level %.0f',Level_Anal));
  915.         % Synthesized Image (same that original).
  916.         %----------------------------------------
  917.         if strcmp(in3,'demo') | strcmp(in3,'analyze')
  918.             X      = appcoef2(coefs,sizes,Wave_Name,0);
  919.             X      = wimgcode('cod',0,X,NB_ColorsInPal,codemat_v);
  920.             gx     = get(Axe_ImgSyn,'Xgrid');
  921.             gy     = get(Axe_ImgSyn,'Ygrid');
  922.             strtit = get(get(Axe_ImgSyn,'title'),'String');
  923.             image([1 Img_Size(1)],[1 Img_Size(2)],X,'Parent',Axe_ImgSyn);
  924.             set(Axe_ImgSyn,...
  925.                 'Visible','On',           ...
  926.                 'Xgrid',gx,'Ygrid',gy,    ...
  927.                 'XTicklabelMode','manual',...
  928.                 'YTicklabelMode','manual',...
  929.                 'XTicklabel',[],          ...
  930.                 'YTicklabel',[],          ...
  931.                 'Box','On',               ...
  932.                 'Tag',tag_axeimgsyn       ...
  933.                 );
  934.             wtitle(strtit,'Parent',Axe_ImgSyn);
  935.         end
  937.         % Setting Dynamic Visualization tool.
  938.         %------------------------------------
  939.         dynvtool('init',win_dw2dtool,...
  940.                         [],...
  941.                         [Axe_ImgIni Axe_ImgBig Axe_ImgSyn Axe_ImgVis],...
  942.                         [Axe_ImgDec],...
  943.                         [1 1],'','','','int');
  945.         % Setting view_status.
  946.         %---------------------
  947.         view_status = ['s_l' sprintf('%.0f',Level_Anal)];
  948.         wmemtool('wmb',win_dw2dtool,n_miscella, ...
  949.                        ind_view_status,view_status,...
  950.                        ind_save_status,view_status ...
  951.                        );
  953.         % End waiting.
  954.         %-------------
  955.         wwaiting('off',win_dw2dtool);
  957.     case 'view_dec'
  958.         %**********************************************%
  959.         %** OPTION = 'view_dec' - view decomposition **%
  960.         %**********************************************%
  961.         % Getting position parameters.
  962.         %-----------------------------
  963.         [view_status,save_status] = ...
  964.                 wmemtool('rmb',win_dw2dtool,n_miscella, ...
  965.                                ind_view_status,ind_save_status ...
  966.                                );
  967.         new_lev_view = get(pop_declev,'Value');
  968.         k = findstr(view_status,'l');
  969.         lev_old = wstr2num(view_status(k+1:length(view_status)));
  970.         if new_lev_view==lev_old , return; end
  971.         dw2dimgs('cleanif',win_dw2dtool,new_lev_view,lev_old);
  972.         view_status = [view_status(1:k) sprintf('%.0f',new_lev_view)];
  973.         wmemtool('wmb',win_dw2dtool,n_miscella,ind_view_status,view_status);
  975.         % Begin waiting.
  976.         %--------------
  977.         wwaiting('msg',win_dw2dtool,'Wait ... drawing');
  979.         % Drawing.
  980.         %---------
  981.         dw2dmngr('set_graphic',win_dw2dtool,option);
  983.         % End waiting.
  984.         %-------------
  985.         wwaiting('off',win_dw2dtool);
  987.     case 'select'
  988.         % Getting active option.
  989.         %------------------------
  990.         active_option = wmemtool('rmb',win_dw2dtool,n_param_anal,ind_act_option);
  992.         Drag_Tools = [pus_visu,pus_big,pus_rec];
  993.         if nargin==3 , in4 = 0; end
  994.         if strcmp(in3,'end_big')
  995.             % End Big Image.
  996.             %---------------
  997.             dw2dmngr('set_graphic',win_dw2dtool,option,'end');
  998.             handles = [pus_anal, pop_declev, pus_visu, ...
  999.                        pus_rec,  pop_viewm,  pus_full  ...
  1000.                        ];
  1001.             set(handles,'Enable','On');
  1002.             cba_pus_big  = ['dw2dmngr(''select'','  ...
  1003.                             str_numwin ','  ...
  1004.                             num2mstr(pus_big) ');'];
  1005.             bk_col = get(pus_visu,'BackGroundColor');
  1006.             set(pus_big,...
  1007.                     'String',xlate('Full Size'),     ...
  1008.                     'BackGroundColor',bk_col, ...
  1009.                     'Callback',cba_pus_big    ...
  1010.                     );
  1011.             val = get(pop_viewm,'Value');
  1012.             if (val==square_viewm)
  1013.                 dw2darro('vis_arrow',win_dw2dtool,'on');
  1014.             end
  1015.             ind = 0;
  1016.     dynvtool('dynvzaxe_BtnOnOff',win_dw2dtool,'On')
  1018.         else
  1019.             obj_sel = dw2dimgs('get',win_dw2dtool);
  1020.             if ~isempty(obj_sel)
  1021.                 ind = find(in3==Drag_Tools);
  1022.             else
  1023.                 ind = 0;
  1024.             end
  1025.         end
  1027.         if ind~=0
  1028.             % Getting  Analysis parameters.
  1029.             %------------------------------
  1030.             if strcmp(get(Drag_Tools(ind),'Enable'),'off') , return; end
  1032.             Img_Handles = wmemtool('rmb',win_dw2dtool,tag_axeimghdls,1);
  1033.             indimg      = find(Img_Handles==obj_sel);
  1034.             if isempty(indimg) , return; end
  1036.             % Begin waiting.
  1037.             %--------------
  1038.             wwaiting('msg',win_dw2dtool,'Wait ... computing');
  1040.             [Img_Size,Wave_Name,Level_Anal] = ...
  1041.                     wmemtool('rmb',win_dw2dtool,n_param_anal, ...
  1042.                                    ind_img_size, ...
  1043.                                    ind_wav_name, ...
  1044.                                    ind_lev_anal  ...
  1045.                                    );
  1047.             Axe_ImgDec = wmemtool('rmb',win_dw2dtool,tag_axeimgdec,1);
  1048.             Axe_ImgDec = Axe_ImgDec(1:4*Level_Anal);
  1050.             % Computing.
  1051.             %----------------------------%
  1052.             %-   m = 1 : v ;   m = 2 : d ;             
  1053.             %-   m = 3 : h ;   m = 4 : a ;     
  1054.             %----------------------------%
  1055.             us = get(Img_Handles(indimg),'UserData');
  1056.             us = get(obj_sel,'UserData');
  1057.             level = us(2,:);
  1058.             m     = us(3,:);
  1059.             str_lev = sprintf('%.0f',level);
  1060.             switch m
  1061.               case 1 , opt = 'v'; typestr = 'Vertical detail';
  1062.               case 2 , opt = 'd'; typestr = 'Diagonal detail';
  1063.               case 3 , opt = 'h'; typestr = 'Horizontal detail';
  1064.               case 4 , opt = 'a'; typestr = 'Approximation';
  1065.             end
  1066.             switch ind
  1067.                 case {1,2}    %-- Visualize or big image
  1068.                     X = get(obj_sel,'CData');
  1069.                     strxlab = [typestr ' coef. at level ' str_lev];
  1070.                     axe = get(obj_sel,'Parent');
  1071.                     xl = get(axe,'Xlim');
  1072.                     yl = get(axe,'Ylim');
  1074.                 case 3   %-- Reconstruction
  1075.                     NB_ColorsInPal = wmemtool('rmb',win_dw2dtool, ...
  1076.                                                     n_param_anal,  ...
  1077.                                                     ind_nbcolors   ...
  1078.                                                     );
  1079.                     coefs = wmemtool('rmb',win_dw2dtool,n_coefs,1);
  1080.                     sizes = wmemtool('rmb',win_dw2dtool,n_sizes,1);
  1082.                     X = wrcoef2(opt,coefs,sizes,Wave_Name,level);
  1083.                     if opt=='a' , flg_code = 0; else , flg_code = 1; end
  1084.                     X = wimgcode('cod',flg_code,X,NB_ColorsInPal,codemat_v);
  1085.                     strxlab = ['Recons. ' typestr ' coef. of level ' str_lev];
  1086.                     xl = get(Axe_ImgIni,'Xlim');
  1087.                     yl = get(Axe_ImgIni,'Ylim');
  1088.             end
  1089.             if ind~=2       % Drawing (little image)
  1090.                 gx = get(Axe_ImgVis,'Xgrid');
  1091.                 gy = get(Axe_ImgVis,'Ygrid');
  1092.                 image([1 Img_Size(1)],[1 Img_Size(2)],X,'Parent',Axe_ImgVis);
  1093.                 set(Axe_ImgVis,...
  1094.                     'Visible','On',            ...
  1095.                     'Xgrid',gx,'Ygrid',gy,     ...
  1096.                     'Xlim',xl,'Ylim',yl,       ...
  1097.                     'XTicklabel',[],           ...
  1098.                     'YTicklabel',[],           ...
  1099.                     'Xcolor',BoxTitleSel_Col,  ...
  1100.                     'Ycolor',BoxTitleSel_Col,  ...
  1101.                     'LineWidth',Width_LineSel, ...
  1102.                     'Box','On',                ...
  1103.                     'Tag',tag_axeimgvis        ...
  1104.                     );
  1105.                 wtitle(strxlab,'Parent',Axe_ImgVis);
  1107.             else            % Drawing (big image)
  1108.                 [row,col] = size(X);
  1109.                 strxlab   = [strxlab '  -- image size : ('        ...
  1110.                              sprintf('%.0f',row) ',' sprintf('%.0f',col) ')'];
  1112.                 % Setting enabled values.
  1113.                 %------------------------
  1114. dynvtool('dynvzaxe_BtnOnOff',win_dw2dtool,'Off')
  1115.                 handles = [ pus_anal, pop_declev, pus_visu, ...
  1116.                             pus_rec,  pop_viewm,  pus_full  ...
  1117.                             ];
  1118.                 set(handles,'Enable','Off');
  1119.                 set(pus_big,                               ...
  1120.                         'String',xlate('End Full Size'),          ...
  1121.                         'BackGroundColor',Def_TxtBkColor,  ...
  1122.                         'Callback',                        ...
  1123.                         ['dw2dmngr(''select'',' str_numwin ...
  1124.                                  ',''end_big'');']         ...
  1125.                         );
  1126.                 axe_figutil = findobj(get(win_dw2dtool,'Children'),...
  1127.                                     'flat','type','axes',      ...
  1128.                                     'Tag',tag_axefigutil...
  1129.                                     );
  1130.                 t_lines = findobj(axe_figutil,'type','line','Tag',tag_linetree);
  1131.                 t_txt   = findobj(axe_figutil,'type','text','Tag',tag_txttree);
  1133.                 for k=1:4*Level_Anal
  1134.                     ax = Axe_ImgDec(k);
  1135.                     set(get(ax,'Children'),'Visible','Off');
  1136.                     set(ax,'Visible','Off');
  1137.                 end
  1138.                 set(findobj([Axe_ImgIni,Axe_ImgVis,...
  1139.                              Axe_ImgSyn,Axe_ImgSel]),'visible','off');
  1140.                 wboxtitl('vis',Axe_ImgSel,'off');
  1141.                 set([t_lines' t_txt'],'Visible','off');
  1142.                 dw2darro('vis_arrow',win_dw2dtool,'off');
  1144.                 gx = get(Axe_ImgBig,'Xgrid');
  1145.                 gy = get(Axe_ImgBig,'Ygrid');
  1146.                 image([1 Img_Size(1)],[1 Img_Size(2)],X,...
  1147.                       'Parent',Axe_ImgBig);
  1148.                 set(Axe_ImgBig, ...
  1149.                     'Visible','On',        ...
  1150.                     'Xgrid',gx,'Ygrid',gy, ...
  1151.                     'XTicklabel',[],       ...
  1152.                     'YTicklabel',[],       ...
  1153.                     'Xlim',xl,'Ylim',yl,   ...
  1154.                     'Tag',tag_axeimgbig    ...
  1155.                     );
  1156.                 wsetxlab(Axe_ImgBig,strxlab);
  1158.                 % Changing View Status.
  1159.                 %----------------------
  1160.                 view_status = wmemtool('rmb',win_dw2dtool, ...
  1161.                                         n_miscella,ind_view_status);
  1162.                 wmemtool('wmb',win_dw2dtool,n_miscella,...
  1163.                                ind_save_status,view_status);
  1164.                 view_status = ['b' sprintf('%.0f',indimg) ...
  1165.                                 'l' sprintf('%.0f',get(pop_declev,'Value'))];
  1166.                 wmemtool('wmb',win_dw2dtool,n_miscella,...
  1167.                                ind_view_status,view_status);
  1168.             end
  1170.             % End waiting.
  1171.             %--------------
  1172.             wwaiting('off',win_dw2dtool);
  1173.         end
  1175.     case 'view_mode'
  1176.         % Getting & Setting View_status.
  1177.         %-------------------------------
  1178.         view_status = wmemtool('rmb',win_dw2dtool,n_miscella,ind_view_status);
  1179.         val = get(pop_viewm,'Value');
  1180.         if view_status(1)=='s'
  1181.             if val==square_viewm , return; end
  1182.             view_status(1) = 't';
  1183.         elseif view_status(1)=='t'
  1184.             if val==tree_viewm , return; end
  1185.             view_status(1) = 's';
  1186.         end
  1187.         wmemtool('wmb',win_dw2dtool,n_miscella, ...
  1188.                        ind_view_status,view_status, ...
  1189.                        ind_save_status,view_status  ...
  1190.                        );
  1191.         % Begin waiting.
  1192.         %--------------
  1193.         wwaiting('msg',win_dw2dtool,'Wait ... drawing');
  1194.         
  1195.         pos = zeros(4,4);
  1196.         pos(1,:) = get(pus_full(1),'Position');
  1197.         if val==square_viewm
  1198.             pos(1,3) = (3*pos(1,3))/2;
  1199.             pos(2,:) = pos(1,:); pos(2,2) = pos(2,2)-pos(2,4);
  1200.             pos(3,:) = pos(1,:); pos(3,1) = pos(3,1)+pos(3,3);
  1201.             pos(4,:) = pos(3,:);
  1202.             pos(4,2) = pos(4,2)-pos(4,4);
  1203.         else
  1204.             pos(1,3) = (2*pos(1,3))/3;
  1205.             pos(2,:) = pos(1,:); pos(2,1) = pos(2,1)+pos(2,3);
  1206.             pos(3,:) = pos(2,:); pos(3,1) = pos(3,1)+pos(3,3);
  1207.             pos(4,:) = pos(1,:);
  1208.             pos(4,3) = 3*pos(4,3);
  1209.             pos(4,2) = pos(4,2)-pos(4,4);
  1210.         end
  1212.         dw2darro('vis_arrow',win_dw2dtool,'off');
  1214.         % Cleaning Selection.
  1215.         %--------------------
  1216.         dw2dimgs('clean',win_dw2dtool);
  1218.         % Drawing.
  1219.         %---------
  1220.         dw2dmngr('set_graphic',win_dw2dtool,option);
  1222.         set([txt_full,pus_full],'Visible','off');
  1223.         for k=1:4 , set(pus_full(k),'Position',pos(k,:)); end
  1224.         pos_txt = get(txt_full,'Position');
  1225.         d_txt   = pos(1,4)-pos_txt(4);
  1226.         if val==square_viewm
  1227.             hdl_on = [txt_full,pus_full];
  1228.             pos_txt(2) = pos(1,2)-pos_txt(1,4)/2;
  1229.         else
  1230.             hdl_on = [txt_full,pus_full(1:3)];
  1231.             pos_txt(2) = pos(1,2)+d_txt/2;
  1232.         end
  1233.         set(txt_full,'Position',pos_txt);
  1234.         set(hdl_on,'Visible','on');
  1236.         if val==square_viewm
  1237.             dw2darro('vis_arrow',win_dw2dtool,'on');
  1238.         end
  1240.         % End waiting.
  1241.         %-------------
  1242.         wwaiting('off',win_dw2dtool);
  1244.     case 'fullsize'
  1245.         % in3 = btn number.
  1246.         %------------------
  1248.         % Begin waiting.
  1249.         %--------------
  1250.         wwaiting('msg',win_dw2dtool,'Wait ... drawing');
  1252.         % Getting active option.
  1253.         %------------------------
  1254.         active_option = wmemtool('rmb',win_dw2dtool,n_param_anal,...
  1255.                                        ind_act_option);
  1257.         % Test begin or end.
  1258.         %-------------------
  1259.         num = in3;
  1260.         btn = pus_full(num);
  1261.         act = get(btn,'Userdata');
  1262.         if act==0
  1263.             % begin full size
  1264.             %----------------
  1265.             dw2darro('vis_arrow',win_dw2dtool,'off');
  1266.             param = 'beg';
  1267.             for k=1:length(pus_full)
  1268.                 act_old = get(pus_full(k),'Userdata');
  1269.                 if act_old==1
  1270.                     other_btn = pus_full(length(pus_full)+1-k);
  1271.                     old_col = get(other_btn,'Backgroundcolor');
  1272.                     set(pus_full(k),...
  1273.                         'Backgroundcolor',old_col,  ...
  1274.                         'String',sprintf('%.0f',k), ...
  1275.                         'Userdata',0);
  1276.                     break;
  1277.                 end
  1278.             end
  1279.             set(btn,'Backgroundcolor',Def_TxtBkColor,      ...
  1280.                     'String',['end ' sprintf('%.0f',num)], ...
  1281.                     'Userdata',1);
  1283. if num==4 , ena_DynV = 'On'; else , ena_DynV = 'Off'; end
  1285.             % Changing View Status.
  1286.             %----------------------
  1287.             view_status = wmemtool('rmb',win_dw2dtool,n_miscella,...
  1288.                                          ind_view_status);
  1289.             if view_status(1)~='f'
  1290.                 wmemtool('wmb',win_dw2dtool,n_miscella,...
  1291.                                     ind_save_status,view_status);
  1292.             end
  1293.             view_status = ['f' sprintf('%.0f',num) 'l' ...
  1294.                                sprintf('%.0f',get(pop_declev,'value'))];
  1295.             wmemtool('wmb',win_dw2dtool,n_miscella,ind_view_status,view_status);
  1296.         else
  1297.             % end full size.
  1298.             %---------------
  1299.             other_btn = pus_full(length(pus_full)+1-num);
  1300.             old_col = get(other_btn,'Backgroundcolor');
  1301.             param = 'end';
  1302.             set(btn,'Backgroundcolor',old_col,    ...
  1303.                     'String',sprintf('%.0f',num), ...
  1304.                     'Userdata',0);
  1305. ena_DynV = 'On'; 
  1306.         end
  1307. dynvtool('dynvzaxe_BtnOnOff',win_dw2dtool,ena_DynV)
  1309.         % Setting enabled values.
  1310.         %------------------------
  1311.         handles = [pus_anal, pus_visu, pus_big, pus_rec, pop_viewm];
  1312.         if strcmp(param,'end')
  1313.             ena = 'on';
  1314.             handles = [handles , pop_declev];
  1315.         elseif find(num==[1 2 3])
  1316.             ena_val = 0; ena = 'off';
  1317.             handles = [handles , pop_declev];
  1318.         elseif num==4
  1319.             ena = 'off';
  1320.         end
  1322.         % Drawing.
  1323.         %---------
  1324.         if strcmp(ena,'off') , set(handles,'Enable',ena); end
  1325.         dw2dmngr('set_graphic',win_dw2dtool,option,param);
  1326.         if strcmp(ena,'on')
  1327.             set(handles,'Enable',ena);
  1328.         elseif num==4
  1329.             set(pop_declev,'Enable','On');
  1330.         end
  1331.         val = get(pop_viewm,'Value');
  1332.         if (val==square_viewm) & strcmp(param,'end')
  1333.             dw2darro('vis_arrow',win_dw2dtool,'on');
  1334.         end
  1336.         % End waiting.
  1337.         %-------------
  1338.         wwaiting('off',win_dw2dtool);
  1340.     case 'stat'
  1341.         set(wfindobj('figure'),'Pointer','watch');
  1342.         out1 = feval('dw2dstat','create',win_dw2dtool);
  1344.     case 'hist'
  1345.         set(wfindobj('figure'),'Pointer','watch');
  1346.         out1 = feval('dw2dhist','create',win_dw2dtool);
  1348.     case 'comp'
  1349.         set(wfindobj('figure'),'Pointer','watch');
  1350.         dw2dutil('enable',win_dw2dtool,option);
  1351.         out1 = feval('dw2dcomp','create',win_dw2dtool);
  1353.     case 'deno'
  1354.         set(wfindobj('figure'),'Pointer','watch');
  1355.         dw2dutil('enable',win_dw2dtool,option);
  1356.         out1 = feval('dw2ddeno','create',win_dw2dtool);
  1358.     case {'return_comp','return_deno'}
  1359.         % in3 = 1 : preserve compression
  1360.         % in3 = 0 : discard compression
  1361.         % in4 = hdl_img (optional)
  1362.         %--------------------------------------
  1364.         if in3==1
  1365.             % Begin waiting.
  1366.             %--------------
  1367.             wwaiting('msg',win_dw2dtool,'Wait ... computing');
  1369.             if strcmp(option,'return_comp')
  1370.                 arro_txt = 'comp';      t_simg = 'cs';
  1371.                 xlab_str = 'Compressed Image';
  1372.             else
  1373.                 arro_txt = 'deno';      t_simg = 'ds';
  1374.                 xlab_str = 'De-noised Image';
  1375.             end
  1376.             wmemtool('wmb',win_dw2dtool,n_param_anal, ...
  1377.                            ind_simg_type,t_simg       ...
  1378.                            );
  1380.             [Wave_Name,Img_Size,NB_ColorsInPal] = ...
  1381.                     wmemtool('rmb',win_dw2dtool,n_param_anal,...
  1382.                                    ind_wav_name,ind_img_size,ind_nbcolors);
  1384.             % Drawing Synthesized Image.
  1385.             %--------------------------
  1386.             view_status = wmemtool('rmb',win_dw2dtool,n_miscella,ind_view_status);
  1387.             view_mode   = view_status(1);
  1389.             if (view_mode=='f') & (view_status(2)~='2')
  1390.                 vis = 'Off';
  1391.             else
  1392.                 vis = 'on';
  1393.             end
  1394.             if (view_mode=='s') , vis_ar = 'On'; else , vis_ar = 'Off'; end
  1395.             xlim = get(Axe_ImgIni,'Xlim');
  1396.             ylim = get(Axe_ImgIni,'Ylim');
  1397.             axes(Axe_ImgSyn);
  1398.             image(...
  1399.                     [1 Img_Size(1)],[1 Img_Size(2)],        ...
  1400.                     wimgcode('cod',0,get(in4,'Cdata'),NB_ColorsInPal,codemat_v), ...
  1401.                     'Visible',vis,                           ...
  1402.                     'Parent',Axe_ImgSyn                      ...
  1403.                     );
  1404.             col = get(get(Axe_ImgSyn,'xlabel'),'Color');
  1405.             set(Axe_ImgSyn,...
  1406.                 'Visible',vis,                  ...
  1407.                 'XTicklabelMode','manual',      ...
  1408.                 'YTicklabelMode','manual',      ...
  1409.                 'XTicklabel',[],'YTicklabel',[],...
  1410.                 'Xlim',xlim,'Ylim',ylim,        ...
  1411.                 'Box','On',                     ...
  1412.                 'Tag',tag_axeimgsyn             ...
  1413.                 );
  1414.             wtitle(xlab_str,'Color',col,...
  1415.                             'Visible',vis,...
  1416.                             'Parent',Axe_ImgSyn);
  1418.             dw2darro('vis_arrow',win_dw2dtool,vis_ar,arro_txt);
  1420.             % End waiting.
  1421.             %-------------
  1422.             wwaiting('off',win_dw2dtool);
  1423.         end
  1424.         dw2dutil('enable',win_dw2dtool,option);
  1426.     case 'set_graphic'
  1427.         % in3 = calling option.
  1428.         %  if in3 = 'fullsize' :
  1429.         %     in4 = 'beg' or 'end'.
  1430.         %  if in3 = 'select' :
  1431.         %     in4 = 'beg' or 'end'.
  1432.         %-----------------------------
  1434.         % Getting Analysis parameters.
  1435.         %-----------------------------
  1436.         [Img_Size,Level_Anal] = wmemtool('rmb',win_dw2dtool,n_param_anal,...
  1437.                                                ind_img_size,ind_lev_anal);
  1438.         level_view = get(pop_declev,'Value');
  1440.         % Getting Axes handles.
  1441.         %----------------------
  1442.         Axe_ImgDec  = wmemtool('rmb',win_dw2dtool,tag_axeimgdec,1);
  1443.         Img_Handles = wmemtool('rmb',win_dw2dtool,tag_axeimghdls,1);
  1445.         % Getting position parameters.
  1446.         %-----------------------------
  1447.         [ pos,pos_axeini,pos_axevis,pos_axesel,   ...
  1448.           pos_axesyn,pos_axebig,pos_axedec,view_status,save_status] = ...
  1449.                   wmemtool('rmb',win_dw2dtool,n_miscella, ...
  1450.                                  ind_graph_area,  ...
  1451.                                  ind_pos_axeini,  ...
  1452.                                  ind_pos_axevis,  ...
  1453.                                  ind_pos_axesel,  ...
  1454.                                  ind_pos_axesyn,  ...
  1455.                                  ind_pos_axebig,  ...
  1456.                                  ind_pos_axedec,  ...
  1457.                                  ind_view_status, ...
  1458.                                  ind_save_status  ...
  1459.                                  );
  1460.         k = findstr(save_status,'l');
  1461.         lev_view_old = wstr2num(save_status(k+1:length(save_status)));
  1463.         % Setting options.
  1464.         %-----------------
  1465.         obj_sel = [];
  1466.         switch in3
  1467.             case 'fullsize'
  1468.                 if strcmp(in4,'beg')
  1469.                     view_attrb = 10+wstr2num(view_status(2));
  1470.                 else
  1471.                     view_status = save_status;
  1472.                     wmemtool('wmb',win_dw2dtool,n_miscella,...
  1473.                                             ind_view_status,view_status);
  1474.                     switch view_status(1)
  1475.                         case 's' , view_attrb = 5;
  1476.                         case 't' , view_attrb = 6;
  1477.                     end
  1478.                     obj_sel = dw2dimgs('get',win_dw2dtool);
  1479.                 end
  1481.             case 'select'       % end big_image
  1482.                 view_status = save_status;
  1483.                 wmemtool('wmb',win_dw2dtool,n_miscella,...
  1484.                                         ind_view_status,view_status);
  1485.                 switch view_status(1)
  1486.                     case 's' , view_attrb = 5;
  1487.                     case 't' , view_attrb = 6;
  1488.                 end
  1489.                 obj_sel = dw2dimgs('get',win_dw2dtool);
  1491.             case 'view_dec'
  1492.                 save_status = [save_status(1:k) sprintf('%.0f',level_view)];
  1493.                 wmemtool('wmb',win_dw2dtool,n_miscella,...
  1494.                                         ind_save_status,save_status);
  1495.                 switch view_status(1) 
  1496.                     case {'s','f'} , view_attrb = 3;
  1497.                     case 't' ,       view_attrb = 4;
  1498.                 end
  1500.             case 'view_mode'
  1501.                 switch view_status(1)
  1502.                     case 's' , view_attrb = 5;
  1503.                     case 't' , view_attrb = 6;
  1504.                 end
  1505.         end
  1507.         % Computing axes positions.
  1508.         %--------------------------
  1509.         if view_status(1)=='t'
  1510.             % Getting position parameters.
  1511.             %-----------------------------
  1512.             term_dim      = Terminal_Prop;
  1513.             [xpixl,ypixl] = wfigutil('prop_size',win_dw2dtool,1,1);
  1515.             % View boundary parameters.
  1516.             %--------------------------
  1517.             mx = 0.73;  my = 0.70;
  1519.             x_marge = 0.05;
  1520.             x_left  = pos(1)+x_marge;
  1521.             width   = pos(3)-x_marge;
  1522.             NBL     = level_view+1; NBC     = 4;
  1523.             w_theo  = width/NBC;    h_theo  = pos(4)/NBL;
  1524.             w_pos   = w_theo*mx;    h_pos = h_theo*my;
  1525.             X_cent  = x_left+(w_theo/2)*[1:2:2*NBC-1];
  1526.             Y_cent  = pos(2)+(h_theo/2)*[1:2:2*NBL-1];
  1527.             alpha   = (term_dim(2)*h_pos*Img_Size(1))/...
  1528.                       (term_dim(1)*w_pos*Img_Size(2));
  1529.             w_used  = w_pos*min(1,alpha);
  1530.             h_used  = h_pos*min(1,1/alpha);
  1532.             dy  = (h_theo-h_used)/2;
  1533.             ind = [2:NBL-1];
  1534.             Y_cent(ind) = Y_cent(ind)-dy*(ind-1); 
  1535.             if NBL>Level_Anal-2
  1536.                 Y_cent(NBL) = Y_cent(NBL)-(level_view*dy)/(NBL-1);
  1537.             end
  1539.             % Correction : Y-Shift
  1540.             %---------------------
  1541.             if level_view>max_lev_anal-2
  1542.                 Y_cent(1:NBL-1) = Y_cent(1:NBL-1)+25*ypixl;
  1543.                 bdy = 3*ypixl;
  1544.             else
  1545.                 bdy = 0*ypixl;
  1546.             end
  1548.             w_u2 = w_used/2;  h_u2 = h_used/2;
  1549.             pos_axeini = [ X_cent(1)-w_u2 , Y_cent(NBL)-h_u2 ,...
  1550.                            w_used         , h_used           ];
  1551.             pos_axesyn = [ X_cent(2)-w_u2 , Y_cent(NBL)-h_u2 ,...
  1552.                            w_used         , h_used           ];
  1553.             pos_axevis = [ X_cent(3)      , Y_cent(NBL)-h_u2 ,...
  1554.                            w_used         , h_used           ];
  1556.             bdy = 0*ypixl;
  1557.             xl  = pos(1)+20*xpixl;
  1558.             wa  = pos(3)-40*xpixl;
  1559.             yd  = Y_cent(1)-h_u2-bdy;
  1560.             ha  = Y_cent(NBL-1)-Y_cent(1)+h_used+bdy;
  1561.             [ha,yd] = depOfMachine(ypixl,ha,yd);
  1562.             pos_axesel = [xl yd wa ha];
  1564.             max_l   = max_lev_anal+1;
  1565.             l_Xdata = zeros(max_l,2);
  1566.             l_Ydata = zeros(max_l,2);
  1567.             for k = 1:level_view
  1568.                 for l = 1:4
  1569.                     ind = 4*(level_view-k+1)+1-l;
  1570.                     pos_axedec(ind,:) = [X_cent(l)-w_u2  ,...
  1571.                                          Y_cent(k)-h_u2  ,...
  1572.                                          w_used          ,...
  1573.                                          h_used  ];
  1574.                 end
  1575.                 l_Xdata(k,:) = [X_cent(1) X_cent(NBC)];
  1576.                 l_Ydata(k,:) = [Y_cent(k) Y_cent(k)];
  1577.             end
  1578.             l_Xdata(max_l,:) = [X_cent(1),  X_cent(1)];
  1579.             l_Ydata(max_l,:) = [Y_cent(NBL),Y_cent(1)];
  1580.             x_left_txt = pos_axeini(1)-0.035;
  1581.         end
  1583.         max_a   = 4*Level_Anal;
  1584.         max_v   = 4*level_view;
  1585.         all_ind = [1:max_a];
  1586.         rem_4   = rem(all_ind,4);
  1587.         switch view_status(1)
  1588.             case 's'
  1589.                 vis_ini = 'on';  vis_vis = 'on';
  1590.                 vis_sel = 'on';  vis_syn = 'on';
  1591.                 vis_big = 'off';
  1592.                 ind_On  = [find(all_ind<max_v & rem_4~=0) , max_v];
  1593.                 ind_Off = [find(all_ind<max_v & rem_4==0) , ...
  1594.                                         find(all_ind>max_v)];
  1596.             case 't'
  1597.                 vis_ini = 'on';  vis_vis = 'on';
  1598.                 vis_sel = 'on';  vis_syn = 'on';
  1599.                 vis_big = 'off';
  1600.                 ind_On  = 1:max_v;  ind_Off = max_v+1:max_a;
  1602.             case 'f'
  1603.                 switch view_status(2)
  1604.                     case '1'
  1605.                         pos_axeini = pos_axebig;
  1606.                         vis_ini = 'on';  vis_vis = 'off';
  1607.                         vis_sel = 'off'; vis_syn = 'off';
  1608.                         vis_big = 'off';
  1609.                         ind_On  = [];    ind_Off = all_ind;
  1611.                     case '2'
  1612.                         pos_axesyn = pos_axebig;
  1613.                         vis_ini = 'off'; vis_vis = 'off';
  1614.                         vis_sel = 'off'; vis_syn = 'on';
  1615.                         vis_big = 'off';
  1616.                         ind_On  = [];    ind_Off = all_ind;
  1618.                     case '3'
  1619.                         pos_axevis = pos_axebig;
  1620.                         vis_ini = 'off'; vis_vis = 'on';
  1621.                         vis_sel = 'off'; vis_syn = 'off';
  1622.                         vis_big = 'off';
  1623.                         ind_On  = [];    ind_Off = all_ind;
  1625.                     case '4'
  1626.                         pos_axesel = pos_axebig;
  1627.                         xl = pos_axesel(1);
  1628.                         yb = pos_axesel(2);
  1629.                         la = pos_axesel(3)/2;
  1630.                         ha = pos_axesel(4)/2;
  1631.                         ind = 1;
  1632.                         for k = 1:max_lev_anal
  1633.                             pos_axedec(ind:ind+3,1:4) = ...
  1634.                                     [xl   , yb   , la, ha;
  1635.                                      xl+la, yb   , la, ha;
  1636.                                      xl+la, yb+ha, la, ha;
  1637.                                      xl   , yb+ha, la, ha ...
  1638.                                     ];
  1639.                             ind = ind+4;
  1640.                             yb = yb+ha; la = la/2; ha = ha/2;
  1641.                         end
  1643.                         vis_ini = 'off'; vis_vis = 'off';
  1644.                         vis_sel = 'on';  vis_syn = 'off';
  1645.                         vis_big = 'off';
  1646.                         ind_On  = [find(all_ind<max_v & rem_4~=0) , max_v];
  1647.                         ind_Off = [find(all_ind<max_v & rem_4==0) , ...
  1648.                                         find(all_ind>max_v)];
  1649.                 end
  1650.         end     
  1652.         % Setting graphic area.
  1653.         %----------------------
  1654.         axe_figutil = findobj(axe_handles,'Tag',tag_axefigutil);
  1655.         t_lines     = findobj(axe_figutil,'type','line','Tag',tag_linetree);
  1656.         t_txt       = findobj(axe_figutil,'type','text','Tag',tag_txttree);
  1657.         set([t_lines' t_txt'],'Visible','off'); 
  1658.         set(Img_Handles,'Visible','Off');
  1659.         ind = 4*lev_view_old;
  1660.         delete([...
  1661.                 get(Axe_ImgDec(ind),'Xlabel'),...
  1662.                 get(Axe_ImgDec(ind-1),'Xlabel'),...
  1663.                 get(Axe_ImgDec(ind-2),'Xlabel'),...
  1664.                 get(Axe_ImgDec(ind-3),'Xlabel'),...
  1665.                 ]);
  1666.         switch view_status(1)
  1667.             case 'f'
  1668.                 switch view_status(2)
  1669.                     case '1' , set(Axe_ImgIni,'Position',pos_axeini);
  1670.                     case '2' , set(Axe_ImgSyn,'Position',pos_axesyn);
  1671.                     case '3' , set(Axe_ImgVis,'Position',pos_axevis);
  1672.                     case '4'
  1673.                         set(Axe_ImgSel,'Position',pos_axesel);
  1674.                         for k = 1:4*max_lev_anal
  1675.                             set(Axe_ImgDec(k),'Position',pos_axedec(k,:));
  1676.                         end
  1677.                 end
  1679.             case {'s','t'}
  1680.                 set(Axe_ImgIni,'Position',pos_axeini);
  1681.                 set(Axe_ImgVis,'Position',pos_axevis);
  1682.                 set(Axe_ImgSyn,'Position',pos_axesyn);
  1683.                 set(Axe_ImgSel,'Position',pos_axesel);
  1684.                 for k = 1:4*max_lev_anal
  1685.                     set(Axe_ImgDec(k),'Position',pos_axedec(k,:));
  1686.                 end
  1687.         end
  1688.         set(findobj(Axe_ImgIni),'visible',vis_ini);
  1689.         set(findobj(Axe_ImgVis),'visible',vis_vis);
  1690.         set(findobj(Axe_ImgSyn),'visible',vis_syn);
  1691.         set(findobj(Axe_ImgSel),'visible',vis_sel);
  1692.         set(findobj(Axe_ImgBig),'visible',vis_big);
  1693.         s_font = Def_AxeFontSize;
  1694.         if view_status(1)=='t'
  1695.             bdy = 18;
  1696.             strxlab = sprintf('Decomposition at level %.0f',level_view); 
  1697.             box_str = ['Image Selection : ' strxlab];
  1698.             wboxtitl('set',Axe_ImgSel,box_str,s_font,9,10,bdy,vis_sel);
  1699.         else
  1700.             bdy = 18;
  1701.             box_str = 'Image Selection';
  1702.             wboxtitl('set',Axe_ImgSel,box_str,s_font,9,18,bdy,vis_sel);
  1703.         end
  1705.         switch view_attrb
  1706.             case 4
  1707.                 for k = [1:level_view,max_lev_anal+1]
  1708.                     l = findobj(t_lines,'Type','line','Userdata',k);
  1709.                     set(l,...
  1710.                          'Xdata',l_Xdata(k,:),...
  1711.                          'Ydata',l_Ydata(k,:),...
  1712.                          'Visible','On'       ...
  1713.                          );
  1714.                 end
  1715.                 for k = [1:level_view]
  1716.                     txt = findobj(t_txt,'Type','text','Userdata',k);
  1717.                     j = level_view+1-k;
  1718.                     set(txt,...
  1719.                            'Position',[x_left_txt ,l_Ydata(j,1)], ...
  1720.                            'Visible','On'                         ...
  1721.                            );
  1722.                 end
  1723.                 set(Axe_ImgSel,'Visible','Off');
  1725.             case 5
  1726.                 set([Axe_ImgDec,Axe_ImgIni,Axe_ImgVis,Axe_ImgSel,Axe_ImgSyn],...
  1727.                                 'Visible','off');
  1728.                 ind = 4*level_view;
  1729.                 delete([...
  1730.                         get(Axe_ImgDec(ind),'Xlabel'),  ...
  1731.                         get(Axe_ImgDec(ind-1),'Xlabel'),...
  1732.                         get(Axe_ImgDec(ind-2),'Xlabel'),...
  1733.                         get(Axe_ImgDec(ind-3),'Xlabel') ...
  1734.                         ]);
  1736.             case 6
  1737.                 set([Axe_ImgDec,Axe_ImgIni,Axe_ImgVis,Axe_ImgSel,Axe_ImgSyn],...
  1738.                                 'Visible','off');
  1739.                 for k = [1:level_view,max_lev_anal+1]
  1740.                     l = findobj(t_lines,'Type','line','Userdata',k);
  1741.                     set(l,...
  1742.                         'Xdata',l_Xdata(k,:),...
  1743.                         'Ydata',l_Ydata(k,:),...
  1744.                         'Visible','On'       ...
  1745.                         );
  1746.                 end
  1747.                 for k = [1:level_view]
  1748.                     txt = findobj(t_txt,'Type','text','Userdata',k);
  1749.                     j = level_view+1-k;
  1750.                     set(txt,...
  1751.                         'Position',[x_left_txt ,l_Ydata(j,1)], ...
  1752.                         'Visible','On'                         ...
  1753.                         );
  1754.                 end
  1755.         end
  1757.         if find(view_attrb==[5 6])
  1758.                 if view_attrb==5
  1759.                     set([Axe_ImgIni,Axe_ImgSel],'Visible','on','Box','On');
  1760.                 else
  1761.                     set(Axe_ImgIni,...
  1762.                         'Visible','on',                 ...
  1763.                         'XTicklabelMode','manual',      ...
  1764.                         'YTicklabelMode','manual',      ...
  1765.                         'XTicklabel',[],'YTicklabel',[],...
  1766.                         'XTick',[],'YTick',[],          ...
  1767.                         'Box','On');
  1768.                 end
  1769.                 for k = 1:length(ind_On) , axes(Axe_ImgDec(k)); end
  1770.                 set(Axe_ImgDec(ind_On),...
  1771.                     'Visible','on',...
  1772.                     'Xcolor',Col_BoxAxeSel,         ...
  1773.                     'Ycolor',Col_BoxAxeSel,         ...
  1774.                     'XTicklabelMode','manual',      ...
  1775.                     'YTicklabelMode','manual',      ...
  1776.                     'XTicklabel',[],'YTicklabel',[],...
  1777.                     'XTick',[],'YTick',[],'Box','On'...
  1778.                     );
  1780.                 if ~isempty(obj_sel)
  1781.                     axe = get(obj_sel,'parent');
  1782.                     set(axe,...
  1783.                         'Xcolor',BoxTitleSel_Col, ...
  1784.                         'Ycolor',BoxTitleSel_Col, ...
  1785.                         'LineWidth',Width_LineSel,...
  1786.                         'Box','On'                ...
  1787.                         );
  1788.                 end
  1789.                                        
  1790.                 set(Axe_ImgVis,...
  1791.                     'Visible','on',                 ...
  1792.                     'XTicklabelMode','manual',      ...
  1793.                     'YTicklabelMode','manual',      ...
  1794.                     'XTicklabel',[],'YTicklabel',[],...
  1795.                     'Xcolor',BoxTitleSel_Col,       ...
  1796.                     'Ycolor',BoxTitleSel_Col,       ...
  1797.                     'LineWidth',Width_LineSel,      ...
  1798.                     'Box','On'                      ...
  1799.                     );
  1800.                 set(Axe_ImgSyn,...
  1801.                     'Visible','on',                 ...
  1802.                     'XTicklabelMode','manual',      ...
  1803.                     'YTicklabelMode','manual',      ...
  1804.                     'XTicklabel',[],'YTicklabel',[],...
  1805.                     'Box','On'                      ...
  1806.                     );
  1807.   
  1808.         end
  1810.         if find(view_attrb==[3 4 5 6 11 12 13 14])
  1811.             set(Img_Handles(ind_On),'Visible','On');
  1812.             set(Axe_ImgDec(ind_On),'Visible','On');
  1813.             if ~isempty(ind_Off)
  1814.                 set(Img_Handles(ind_Off),'Visible','Off');
  1815.                 set(Axe_ImgDec(ind_Off),'Visible','Off');
  1816.             end
  1817.         end
  1819.         if view_attrb==5
  1820.             strxlab = sprintf('Decomposition at level %.0f',level_view); 
  1821.             wsetxlab(Axe_ImgSel,strxlab);
  1823.         elseif find(view_attrb==[4 6])
  1824.             strxlab = '';
  1825.             wsetxlab(Axe_ImgSel,strxlab);
  1826.             ind = 4*level_view;
  1827.             col_lab = get(win_dw2dtool,'DefaultAxesXColor');
  1828.             wsetxlab(Axe_ImgDec(ind),xlate('Approximations'),col_lab);
  1829.             wsetxlab(Axe_ImgDec(ind-1),'Horizontal Details',col_lab);
  1830.             wsetxlab(Axe_ImgDec(ind-2),'Diagonal Details',col_lab);
  1831.             wsetxlab(Axe_ImgDec(ind-3),'Vertical Details',col_lab);
  1833.         elseif find(view_attrb==[3 14])
  1834.             strxlab = sprintf('Decomposition at level %.0f',level_view); 
  1835.             wsetxlab(Axe_ImgSel,strxlab);
  1836.         end
  1838.     otherwise
  1839.         errargt(mfilename,'Unknown Option','msg');
  1840.         error('*');
  1841. end
  1844. %-------------------------------------------------
  1845. function varargout = depOfMachine(varargin)
  1847. ypixl = varargin{1};
  1848. ha    = varargin{2};
  1849. yd    = varargin{3};
  1850. scrSize = get(0,'ScreenSize');
  1851. if (scrSize(4)<700) 
  1852.     dyd = 10*ypixl;
  1853.     ha = ha+dyd; 
  1854.     yd = yd-dyd;
  1855. end
  1856. varargout = {ha,yd};
  1857. %-------------------------------------------------