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

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

波变换

开发平台：

Matlab

wptreeop.m：源码内容
  1. function out1 = wptreeop(option,win_wptool,in3,in4)
  2. %WPTREEOP Operations on wavelet packets tree.
  3. %   OUT1 = WPTREEOP(OPTION,WIN_WPTOOL,IN3,IN4)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  6. %   Last Revision: 03-Sep-2004.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.17.4.2 $
  10. % Local function(s): findnode.
  12. %==========================================================%
  13. switch option
  14.     case {'vis','split_merge','rec','select_on','stat'}
  15. mouseSelect  = get(win_wptool,'SelectionType');
  16. if ~isequal(mouseSelect,'normal')
  17. return; 
  18. end
  19. end
  20. %==========================================================%
  22. % MB2 (main window).
  23. %-------------------
  24. n_wp_utils = 'WP_Utils';
  25. ind_tree_lin  = 1;
  26. ind_tree_txt  = 2;
  27. ind_type_txt  = 3;
  28. ind_sel_nodes = 4;
  29. ind_gra_area  = 5;
  30. ind_nb_colors = 6;
  31. nb2_stored    = 6;
  33. % MB3 (main window).
  34. %-------------------
  35. n_structures = 'Structures';
  36. ind_tree_st  = 1;
  37. ind_data_st  = 2;
  38. nb3_stored   = 2;
  40. % MB4 (main window).
  41. %-------------------
  42. n_sav_struct    = 'Sav_Struct';
  43. ind_sav_tree_st = 1;
  44. ind_sav_data_st = 2;
  45. nb4_stored      = 2;
  47. % Tag property of objects.
  48. %-------------------------
  49. tag_pop_colm  = 'Txt_PopM';  % WP-1D only
  50. tag_axe_t_lin = 'Axe_TreeLines';
  51. tag_txt_in_t  = 'Txt_In_tree';
  52. tag_lin_in_t  = 'Lin_In_tree';
  53. tag_axe_sig   = 'Axe_Sig';
  54. tag_axe_pack  = 'Axe_Pack';
  55. tag_axe_cfs   = 'Axe_Cfs';
  56. tag_curtree   = 'Pop_CurTree';
  57. tag_nodlab    = 'Pop_NodLab';
  58. tag_nodact    = 'Pop_NodAct';
  59. tag_img_cfs   = 'Img_WPCfs';
  60. tag_img_nod   = 'Img_NodCfs';
  62. % Handles.
  63. %---------
  64. children    = get(win_wptool,'Children');
  65. pop_handles = findobj(children,'flat','style','popupmenu');
  66. axe_handles = findobj(children,'flat','type','axes');
  67. WP_Axe_Tree = findobj(axe_handles,'flat','Tag',tag_axe_t_lin);
  68. WP_Axe_Sig  = findobj(axe_handles,'flat','Tag',tag_axe_sig);
  69. WP_Axe_Pack = findobj(axe_handles,'flat','Tag',tag_axe_pack);
  70. WP_Axe_Cfs  = findobj(axe_handles,'flat','Tag',tag_axe_cfs);
  72. % Miscellaneous Values.
  73. %-------------------------
  74. [txt_color,sel_color,pack_color,ftn_size] = ...
  75.                 wtbutils('wputils','tree_op',get(WP_Axe_Tree,'Xcolor'));
  77. switch option
  78.     case 'nodact'
  79.         pop_nodact = findobj(pop_handles,'Tag',tag_nodact);
  80.         v     = get(pop_nodact,'Value');
  81.         old_v = get(pop_nodact,'Userdata');
  82.         if isempty(old_v) , old_v = 0; end
  83.         set(pop_nodact,'Userdata',v);
  84.         if     (find(v==[1:6]) & old_v==7)  , ok = 1;
  85.         elseif (find(old_v==[1:6]) & v==7)  , ok = 1;
  86.         elseif old_v==7 & v==7
  87.             if nargin==3
  88.                if strcmp(in3,'reset')
  89.                     set(pop_nodact,'Value',1);
  90.                     set(pop_nodact,'Userdata',1);
  91.                     v  = 1; ok = 1;
  92.                else
  93.                    return;
  94.                end
  95.             else
  96.                return;
  97.             end
  98.         else
  99.             ok = 0;
  100.         end
  101.         if ok 
  102.             WP_Tree = wmemtool('rmb',win_wptool,n_structures,ind_tree_st);
  103.             order = treeord(WP_Tree);
  104.             img_handles = findobj(WP_Axe_Cfs,'tag',tag_img_cfs);
  105.         end
  107.         Tree_Texts = wmemtool('rmb',win_wptool,n_wp_utils,ind_tree_txt);
  108.         str_win    = sprintf('%.0f',win_wptool);
  109.         switch v
  110.             case 1
  111.                 btndown_fcn = [mfilename '(''vis'',' str_win ');'];
  113.             case 2
  114.                 wptreeop('select_off',win_wptool);
  115.                 btndown_fcn = [mfilename '(''split_merge'',' str_win ');'];
  117.             case 3
  118.                 wptreeop('select_off',win_wptool);
  119.                 btndown_fcn = [mfilename '(''rec'',' str_win ');'];
  121.             case 4
  122.                 btndown_fcn = [mfilename '(''select_on'',' str_win ');'];
  124.             case 5
  125.                 wptreeop('select_off',win_wptool);
  126.                 set(pop_nodact,'Value',1);
  127.                 btndown_fcn = [mfilename '(''vis'',' str_win ');'];
  129.             case 6
  130.                 btndown_fcn = [mfilename '(''stat'',' str_win ');'];
  132.             case 7
  133.                 tn = tnodes(WP_Tree);
  134.                 nodes = [];
  135.                 for k = 1:length(Tree_Texts)
  136.                     us = get(Tree_Texts(k),'Userdata');
  137.                     if ~isempty(us)
  138.                         if isempty(find(tn==us)) , nodes = [nodes k]; end
  139.                     end
  140.                 end
  141.                 set(Tree_Texts(nodes),'Visible','off');
  142.                 btndown_fcn = ['wptreeop(''colcfs'',' str_win ');'];
  143.                 set(img_handles,'Visible','off');
  144.         end
  145.         if find(v==[1:6]) & old_v==7
  146.             if order==2
  147.                 delete(findobj(WP_Axe_Cfs,'tag',tag_img_nod));
  148.                 set(WP_Axe_Cfs,'Nextplot','replace');
  149.             end
  150.             set(Tree_Texts,'Visible','on');
  151.             set(img_handles,'Visible','on');
  152.             drawnow
  153.             if order==2
  154.                 pop_colm = findobj(win_wptool,'style','popupmenu',...
  155.                                 'tag',tag_pop_colm);
  156.                 col_mode = get(pop_colm,'Value');
  157.                 if find(col_mode==[1 2 3 4])
  158.                     strlab = ['frequency ordered coefficients'];
  159.                 else
  160.                     strlab = ...
  161.                     ['(down -> up) for Cfs <==> (left -> right) in Tree'];
  162.                 end
  163.                 wsetxlab(WP_Axe_Cfs,strlab);
  164.             else
  165.                 wsetxlab(WP_Axe_Cfs,'');
  166.             end
  167.         elseif find(old_v==[1:6]) & v==7
  168.             wsetxlab(WP_Axe_Cfs,'');
  169.         end
  170.         set(Tree_Texts,'ButtonDownFcn',btndown_fcn);
  171.         return
  173.     case 'nodlab'
  174.         pop_nodlab = findobj(pop_handles,'Tag',tag_nodlab);
  175.         pop_nodact = findobj(pop_handles,'Tag',tag_nodact);
  176.         v_lab = get(pop_nodlab,'Value');
  177.         v_act = get(pop_nodact,'Value');
  178.         if v_act==7
  179.             txt_in_tree = findobj(WP_Axe_Tree,'tag',tag_txt_in_t);
  180.             txt_off     = findobj(txt_in_tree,'Visible','off');
  181.         end
  182.         Tree_Texts  = wmemtool('rmb',win_wptool,n_wp_utils,ind_tree_txt);
  183.         if v_lab==6
  184.             set(Tree_Texts,'Visible','off'); return
  185.         end
  186.         switch v_lab
  187.            case 1 , labtype = 'p';
  188.            case 2 , labtype = 'i';
  189.            case 3 , labtype = 'e';
  190.            case 4 , labtype = 'eo';
  191.            case 5 , labtype = 's';
  192.            case 7 , labtype = 't';
  193.            case 8 , labtype = 'en';               
  194.         end
  195.         wmemtool('wmb',win_wptool,n_wp_utils,ind_type_txt,labtype);
  196.         WP_Tree = wmemtool('rmb',win_wptool,n_structures,ind_tree_st);
  197.         nodes   = allnodes(WP_Tree);
  198.         if isa(WP_Tree,'wptree')
  199.             labels = tlabels(WP_Tree,labtype,nodes);
  200.         else
  201.             WP_Data = wmemtool('rmb',win_wptool,n_structures,ind_data_st);
  202.             labels  = tlabels(WP_Tree,WP_Data,labtype,nodes);
  203.         end
  204.         for k=1:length(nodes)
  205.             set(Tree_Texts(1+nodes(k)),'String',deblank(labels(k,:)));
  206.         end
  207.         set(Tree_Texts,'Visible','on');
  208.         if v_act==7 , set(txt_off,'Visible','off'); end
  209.         return
  211.     case 'select_off'
  212.         Selected_Nodes = wmemtool('rmb',win_wptool,n_wp_utils,ind_sel_nodes);
  213.         if ~isempty(Selected_Nodes)
  214.             set(Selected_Nodes(2,:),'Color',txt_color);
  215.             wmemtool('wmb',win_wptool,n_wp_utils,ind_sel_nodes,[]);
  216.         end
  217.         return
  219.     case 'select_on'
  220.         [obj,node] = findnode(win_wptool,WP_Axe_Tree);
  221.         if isempty(obj) , return; end
  223.         Selected_Nodes = wmemtool('rmb',win_wptool,n_wp_utils,ind_sel_nodes);
  224.         col = get(obj,'Color');
  225.         if col==txt_color
  226.             Selected_Nodes = [Selected_Nodes [node;obj]];
  227.             set(obj,'Color',sel_color);
  228.         else
  229.             k = find(Selected_Nodes(2,:)==obj);
  230.             Selected_Nodes(:,k) = [];
  231.             set(obj,'Color',txt_color);
  232.         end
  233.         wmemtool('wmb',win_wptool,n_wp_utils,ind_sel_nodes,Selected_Nodes);
  234.         return;
  236.     case 'stat'
  237.         [obj,node] = findnode(win_wptool,WP_Axe_Tree);
  238.         if isempty(obj) , return; end
  240.         set(wfindobj('figure'),'Pointer','watch');
  241.         WP_Tree = wmemtool('rmb',win_wptool,n_structures,ind_tree_st);
  242.         order = treeord(WP_Tree);
  243.         if  order==2
  244.             out1 = feval('wp1dstat','create',win_wptool,node);
  245.         elseif  order==4
  246.             out1 = feval('wp2dstat','create',win_wptool,node);
  247.         end
  248.         set(wfindobj('figure'),'Pointer','arrow');
  249.         return
  251.     case 'colcfs'
  252.         [obj,node] = findnode(win_wptool,WP_Axe_Tree);
  253.         if isempty(obj) , return; end
  255.         set(wfindobj('figure'),'Pointer','watch');
  256.         WP_Tree = wmemtool('rmb',win_wptool,n_structures,ind_tree_st);
  257.         order = treeord(WP_Tree);
  258.         img_handles = findobj(WP_Axe_Cfs,'tag',tag_img_cfs);
  259.         if order==2
  260.             us = get(img_handles,'Userdata');
  261.             tn = depo2ind(order,us(:,1:2));
  262.             num_img = find(node==tn);
  263.             set(img_handles,'Visible','off');
  264.             if num_img~=0
  265.                 xd = get(img_handles,'xdata');
  266.                 yd = get(img_handles,'ydata');
  267.                 nd = get(img_handles,'Cdata');
  268.                 NBrows = size(nd,1);
  269.                 y1 = us(num_img,3);
  270.                 y2 = us(num_img,4); 
  271.                 r1 = ceil(y1*NBrows)+1;
  272.                 r2 = floor(y2*NBrows);
  273.                 nd = nd(r1:r2,:);
  274.                 if r1==r2
  275.                     ydata(1) = (y2+y1)/2;
  276.                     ydata(2) = y2;
  277.                 else
  278.                     alfa = 1/(2*(r2-r1+1));
  279.                     ydata = [(1-alfa)*y1+alfa*y2 (1-alfa)*y2+alfa*y1];
  280.                 end
  281.                 set(WP_Axe_Cfs,'Nextplot','add');
  282.                 axes(WP_Axe_Cfs);
  283.                 delete(findobj(WP_Axe_Cfs,'tag',tag_img_nod));
  284.                 image('Parent',WP_Axe_Cfs, ...
  285.                       'Xdata',xd,'Ydata',ydata, ...
  286.                       'Cdata',nd,'tag',tag_img_nod ...
  287.                       );
  288.                 strlab = ['Packet : (' sprintf('%.0f',us(num_img,1)) ',' ...
  289.                            sprintf('%.0f',us(num_img,2)) ') or (' sprintf('%.0f',node) ')'];
  290.                 wsetxlab(WP_Axe_Cfs,strlab);
  291.                 set(WP_Axe_Cfs,'Tag',tag_axe_cfs)
  292.             end
  294.         elseif order==4
  295.             num_img = 0;
  296.             for k=1:length(img_handles)
  297.                 us = get(img_handles(k),'Userdata');
  298.                 us = us(1:2);
  299.                 if node==depo2ind(order,us) , num_img = k; break; end
  300.             end
  301.             img_on = findobj(img_handles,'Visible','on');
  302.             set(img_on,'Visible','off');
  303.             if num_img~=0
  304.                 set(img_handles(num_img),'Visible','on');
  305.                 strlab = ['Packet : (' sprintf('%.0f',us(1)) ',' ...
  306.                        sprintf('%.0f',us(2)) ') or (' sprintf('%.0f',node) ')'];
  307.                 wsetxlab(WP_Axe_Cfs,strlab);
  308.             end
  309.         end
  310.         set(wfindobj('figure'),'Pointer','arrow');
  311.         return
  313.     case 'slide_size'
  314.         % in3 = slider_size.
  315.         % in4 = slider_pos.
  316.         %--------------------
  317.         v = get(in3,'Value');
  318.         set(in3,'UserData',v);
  319.         half = 1/((2*v)^(v/4));
  321.         % Setting slider-pos properties.
  322.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  323.         if v>1
  324.             old_bound = get(in4,'Max');
  325.             old_val   = get(in4,'Value');
  326.             new_bound = abs(0.5-half);
  327.             if old_bound ~= 0
  328.                 new_val = -new_bound+(old_val+old_bound)*(new_bound/old_bound);
  329.             else
  330.                 new_val = 0;
  331.             end
  332.             delta = 0;
  333.             if new_val>new_bound-delta , new_val = new_bound-delta;
  334.             elseif new_val<-new_bound+delta , new_val = -new_bound+delta;
  335.             end
  336.             set(in4,'Min',-new_bound,'Max',new_bound,...
  337.                 'Value',new_val,'Visible','on');
  338.         else
  339.             new_val = 0;
  340.             set(in4,'Min',0,'Max',0,'Value',0,'Visible','off');
  341.         end
  342.         set(WP_Axe_Tree,'XLim',[new_val-half new_val+half]);
  343.         return
  345.     case 'slide_pos'
  346.         % in3 = slider_pos.
  347.         %------------------
  348.         mVM = get(in3,{'min','val','max'});
  349.         delta = 1E-3; delta = 0; 
  350.         OK = (mVM{2}>mVM{1}+delta) &  (mVM{2}<mVM{3}-delta);
  351.         if ~OK
  352.             set(in3,'Value',mVM{3})
  353.             return;
  354.         end
  355.         x0 = mVM{2};
  356.         
  357.         u  = get(WP_Axe_Tree,'XLim');
  358.         demi_ecart = (u(2)-u(1))/2;
  359.         set(WP_Axe_Tree,'XLim',[x0-demi_ecart x0+demi_ecart]);
  360.         II = [x0-demi_ecart x0+demi_ecart];
  361.         return
  363.     case {'best','blvl','wp2wtree','restore','input_tree','cuttree'}
  364.         % Begin waiting.
  365.         %--------------
  366.         wwaiting('msg',win_wptool,'Wait ... computing');
  368.         pop_nodlab = findobj(pop_handles,'Tag',tag_nodlab);
  369.         wptreeop('select_off',win_wptool);
  370.         if ~strcmp(option,'input_tree')
  371.             WP_Tree = wmemtool('rmb',win_wptool,n_structures,ind_tree_st);
  372.         else
  373.             WP_Tree = in3;
  374.         end
  375.         if isa(WP_Tree,'wptree')
  376.            WP_Data = [];
  377.      switch option
  378.      case 'best'
  379.        WP_Tree = besttree(WP_Tree);
  380.        Axe_TreeTitle = 'Best Tree';
  382.      case 'blvl'
  383.        WP_Tree = bestlevt(WP_Tree);
  384.        Axe_TreeTitle = 'Best Level Tree';
  386.      case 'wp2wtree'
  387.        WP_Tree = wp2wtree(WP_Tree);
  388.        Axe_TreeTitle = 'Wavelet Tree';
  390.      case 'restore'
  391.        WP_Tree = wmemtool('rmb',win_wptool,n_sav_struct,ind_sav_tree_st);
  392.        Axe_TreeTitle = 'Decomposition Tree';
  394.      case 'input_tree'
  395.        Axe_TreeTitle = 'Decomposition Tree';
  397.      case 'cuttree'
  398.        % in3 = pop_hdl
  399.        %--------------
  400.        val = get(in3,'Value');
  401.        lev = val-1;
  402.        depth = treedpth(WP_Tree);
  403.        if lev==depth , wwaiting('off',win_wptool); return; end
  405.        [WP_Tree,n2m] = wpcutree(WP_Tree,lev);
  406.        if isempty(n2m) , wwaiting('off',win_wptool); return; end
  407.        Axe_TreeTitle = 'Cut Tree';
  408.      end
  410.         else
  411.             WP_Data = wmemtool('rmb',win_wptool,n_structures,ind_data_st);
  412.             switch option
  413.               case 'best'
  414.                   [WP_Tree,WP_Data] = besttree(WP_Tree,WP_Data);
  415.                   Axe_TreeTitle = 'Best Tree';
  417.               case 'blvl'
  418.                   [WP_Tree,WP_Data] = bestlevt(WP_Tree,WP_Data);
  419.                   Axe_TreeTitle = 'Best Level Tree';
  421.               case 'wp2wtree'
  422.                   [WP_Tree,WP_Data] = wp2wtree(WP_Tree,WP_Data);
  423.                   Axe_TreeTitle = 'Wavelet Tree';
  425.               case 'restore'
  426.                   [WP_Tree,WP_Data] = wmemtool('rmb',win_wptool,n_sav_struct,...
  427.                                                 ind_sav_tree_st,ind_sav_data_st);
  428.                   Axe_TreeTitle = 'Decomposition Tree';
  430.               case 'input_tree'
  431.                   WP_Data = in4;
  432.                   Axe_TreeTitle = 'Decomposition Tree';
  434.               case 'cuttree'
  435.                   % in3 = pop_hdl
  436.                   %--------------
  437.                   val = get(in3,'Value');
  438.                   lev = val-1;
  439.                   depth = treedpth(WP_Tree);
  440.                   if lev==depth , wwaiting('off',win_wptool); return; end
  442.                   [WP_Tree,WP_Data,n2m] = wpcutree(WP_Tree,WP_Data,lev);
  443.                   if isempty(n2m) , wwaiting('off',win_wptool); return; end
  444.                   Axe_TreeTitle = 'Cut Tree';
  445.             end
  447.         end
  449.         depth = treedpth(WP_Tree);
  450.         str_depth = [];
  451.         for k=0:depth , str_depth = [ str_depth ; sprintf('%2.0f',k) ]; end
  452.         pop_cur = findobj(pop_handles,'Tag',tag_curtree);
  453.         set(pop_cur,'String',str_depth,'Value',depth+1);
  455.         xlab    = get(WP_Axe_Cfs,'xlabel');
  456.         strxlab = get(xlab,'String');
  457.         titl    = get(WP_Axe_Cfs,'title');
  458.         strtitl = get(titl,'String');
  460.         hdl_in_axes = [...
  461.                         get(WP_Axe_Tree,'Children'); ...
  462.                         get(WP_Axe_Cfs,'Children');  ...
  463.                         get(WP_Axe_Pack,'Children')  ...
  464.                         ];
  466.         delete(hdl_in_axes); drawnow
  468.         wmemtool('wmb',win_wptool,n_wp_utils,...
  469.                        ind_tree_lin,[],ind_tree_txt,[]);
  470.         wmemtool('wmb',win_wptool,n_structures, ...
  471.                        ind_tree_st,WP_Tree, ...
  472.                        ind_data_st,WP_Data  ...
  473.                        );
  474.         nb_col = wmemtool('rmb',win_wptool,n_wp_utils,ind_nb_colors);
  475. axes(WP_Axe_Tree);
  476. wtitle(Axe_TreeTitle,'Parent',WP_Axe_Tree);
  477. axes(WP_Axe_Pack);
  478. wtitle('Node Action Result','Parent',WP_Axe_Pack);
  479. wpplottr('first',win_wptool,WP_Tree);
  480. wptreeop('nodlab',win_wptool);
  481. pop_nodact = findobj(pop_handles,'tag',tag_nodact);
  482. act = get(pop_nodact,'Value');
  483. wptreeop('nodact',win_wptool,'reset');
  484. pop_colm = findobj(pop_handles,'tag',tag_pop_colm);
  485.         col_mode = get(pop_colm,'Value');
  486.         if isa(WP_Tree,'wptree')
  487.             wpplotcf(WP_Tree,col_mode,WP_Axe_Cfs,nb_col);
  488.         else
  489.             wpplotcf(WP_Tree,WP_Data,col_mode,WP_Axe_Cfs,nb_col);
  490.         end
  491.         axes(WP_Axe_Cfs)
  492.         wtitle(strtitl,'Parent',WP_Axe_Cfs);
  493.         order = treeord(WP_Tree);
  494.         if order==2
  495.             if act==7
  496.                 xlab = get(WP_Axe_Cfs,'xlabel');
  497.                 strxlab = get(xlab,'String');
  498.             end
  499.             wsetxlab(WP_Axe_Cfs,strxlab);
  500.         end
  501.         if ~strcmp(option,'input_tree') , dynvtool('get',win_wptool,0); end
  503.         % End waiting.
  504.         %-------------
  505.         wwaiting('off',win_wptool);
  506.         return
  508.     case {'vis','rec','split_merge'}
  509.         [obj,node] = findnode(win_wptool,WP_Axe_Tree);
  510.         if isempty(obj) , return; end
  512. end
  514. % Begin waiting.
  515. %--------------
  516. wwaiting('msg',win_wptool,'Wait ... computing');
  518. [WP_Tree,WP_Data] = wmemtool('rmb',win_wptool,n_structures,...
  519.                                    ind_tree_st,ind_data_st);
  520. if ~isempty(WP_Tree) , order = treeord(WP_Tree); end
  522. switch option
  523.     case {'vis','rec'}
  524. [d,p] = ind2depo(order,node);
  525.         if isa(WP_Tree,'wptree')
  526.             size0   = read(WP_Tree,'sizes',0);
  527.             switch option
  528.               case 'vis' , pack = wpcoef(WP_Tree,node);
  529.               case 'rec' , pack = wprcoef(WP_Tree,node);
  530.             end
  531.         else
  532.             sizes = wdatamgr('rsizes',WP_Data);
  533.             size0 = sizes(:,1)';
  534.             switch option
  535.               case 'vis' , pack = wpcoef(WP_Tree,WP_Data,node);
  536.               case 'rec' , pack = wprcoef(WP_Tree,WP_Data,node);
  537.             end
  539.         end
  540.         switch option
  541.           case 'vis'
  542.             flg_code = 1;
  543.             trunc_p  = [d size0];
  544.             str_pck  = [];
  546.           case 'rec'
  547.             if p==0 , flg_code = 0; else , flg_code = 1; end
  548.             trunc_p = [0 size0];
  549.             str_pck = ['Reconstructed '];
  550.         end
  551. str_pck = [str_pck 'Packet : (' sprintf('%.0f',d) ',' sprintf('%.0f',p) ...
  552.       ') or (' sprintf('%.0f',node) ')'];
  553. delete(get(WP_Axe_Pack,'Children'));
  554. dynvtool('ini_his',win_wptool,1)
  555. axes(WP_Axe_Pack)
  556. if order == 2
  557.             xmax = length(pack);
  558.     if xmax==1, xmax = 1+0.01; end
  559.     ymin = min(pack);       ymax = max(pack);
  560. if abs(ymax-ymin)<sqrt(eps) , ymin = ymin-0.0001; ymax = ymax+0.0001; end
  561. if p==0
  562. if d==0 , colNAME = 'sig'; else, colNAME = 'app'; end
  563. else
  564. colNAME = 'det';
  565. end
  566. color = wtbutils('colors',colNAME,1);
  567. plot(pack,'Color',color,'Parent',WP_Axe_Pack);
  568. set(WP_Axe_Pack,'XLim',[1 xmax],'Ylim',[ymin ymax],'Tag',tag_axe_pack);
  569. wtitle(str_pck,...
  570. 'FontSize',ftn_size,...
  571. 'Color',get(WP_Axe_Tree,'Xcolor'),...
  572. 'Parent',WP_Axe_Pack);
  573. else
  574. % Image Coding Value.
  575. %-------------------
  576. codemat_v = wimgcode('get'); 
  578.     NB_Colors2D = wmemtool('rmb',win_wptool,n_wp_utils,ind_nb_colors);
  579.     pack = wimgcode('cod',flg_code,pack,NB_Colors2D,codemat_v,trunc_p);
  580.     image('CData',pack,'Parent',WP_Axe_Pack);
  581.     wtitle(str_pck,...
  582.            'FontSize',ftn_size,...
  583.            'Color',get(WP_Axe_Tree,'Xcolor'),...
  584.            'Parent',WP_Axe_Pack);
  585.     set(WP_Axe_Pack, ...
  586.            'Tag',tag_axe_pack,     ...
  587.            'Layer','top',          ...
  588.            'XLim',[1 size(pack,2)],...
  589.            'Ylim',[1 size(pack,1)],...
  590.            'Ydir','Reverse'        ...
  591.            );
  592. end
  593. dynvtool('put',win_wptool)
  594. axes(WP_Axe_Tree);
  596.     case 'split_merge'
  597.         pack_exist = istnode(WP_Tree,node);     
  598.         if isa(WP_Tree,'wptree')
  599.             WP_Data = [];
  600.             if pack_exist == 0
  601.                 WP_Tree = nodejoin(WP_Tree,node);
  602.                 labels  = [];
  603.             else
  604.                 WP_Tree = wpsplt(WP_Tree,node);
  605.                 child   = node*order+[1:order]';
  606.                 labtype = wmemtool('rmb',win_wptool,n_wp_utils,ind_type_txt);
  607.                 labels  = tlabels(WP_Tree,labtype,child);
  608.             end        
  609.         else
  610.             if pack_exist == 0
  611.                 [WP_Tree,WP_Data] = wpjoin(WP_Tree,WP_Data,node);
  612.                 labels = [];
  613.             else
  614.                 [WP_Tree,WP_Data] = wpsplt(WP_Tree,WP_Data,node);
  615.                 child   = node*order+[1:order]';
  616.                 labtype = wmemtool('rmb',win_wptool,n_wp_utils,ind_type_txt);
  617.                 labels  = tlabels(WP_Tree,WP_Data,labtype,child);
  618.             end
  619.         
  620.         end        
  621.         wmemtool('wmb',win_wptool,n_structures, ...
  622.                        ind_tree_st,WP_Tree, ...
  623.                        ind_data_st,WP_Data  ...
  624.                        );
  625.         depth = treedpth(WP_Tree);
  626.         str_depth = [];
  627.         for k=0:depth , str_depth = [ str_depth ; sprintf('%2.0f',k) ]; end
  628.         pop_cur = findobj(pop_handles,'Tag',tag_curtree);
  629.         set(pop_cur,'String',str_depth,'Value',depth+1);
  631.         % Drawing New Tree.
  632.         %------------------
  633.         axes(WP_Axe_Tree);
  634.         wtitle('Decomposition Tree','Parent',WP_Axe_Tree);
  635.         wpplottr('split_merge',win_wptool,WP_Tree,node,labels);
  636.         wptreeop('cfs',win_wptool);
  638.     case 'cfs'
  639.         xlab    = get(WP_Axe_Cfs,'xlabel');
  640.         strxlab = get(xlab,'String');
  641.         titl    = get(WP_Axe_Cfs,'title');
  642.         strtitl = get(titl,'String');
  643.         delete(get(WP_Axe_Cfs,'Children'));
  644.         nb_col   = wmemtool('rmb',win_wptool,n_wp_utils,ind_nb_colors);
  645.         pop_colm = findobj(pop_handles,'tag',tag_pop_colm);
  646.         col_mode = get(pop_colm,'Value');
  647.         if isa(WP_Tree,'wptree')
  648.             wpplotcf(WP_Tree,col_mode,WP_Axe_Cfs,nb_col);
  649.         else
  650.             wpplotcf(WP_Tree,WP_Data,col_mode,WP_Axe_Cfs,nb_col);
  651.         end
  652.         wtitle(strtitl,'Parent',WP_Axe_Cfs)
  653.         if order==2 , wsetxlab(WP_Axe_Cfs,strxlab); end
  655.     case 'col_mode' % option = 'col_mode' -- only for WP-1D
  656. % b_pop = in3.
  657. %-------------
  658. colorMode = get(in3,'Value');
  659. user = get(in3,'Userdata');
  660. if colorMode~=user
  661.     set(in3,'Userdata',colorMode);
  662.     titl    = get(WP_Axe_Cfs,'title');
  663.     strtitl = get(titl,'String');
  664.     delete(get(WP_Axe_Cfs,'Children'));
  665.     nb_col = wmemtool('rmb',win_wptool,n_wp_utils,ind_nb_colors);
  666.             if isa(WP_Tree,'wptree')
  667.                 wpplotcf(WP_Tree,colorMode,WP_Axe_Cfs,nb_col);
  668.             else
  669.                 wpplotcf(WP_Tree,WP_Data,colorMode,WP_Axe_Cfs,nb_col);
  670.             end
  671.     wtitle(strtitl,'Parent',WP_Axe_Cfs)
  672.     if order==2
  673.         if find(colorMode==[1 2 3 4])
  674.             strxlab = ['frequency ordered coefficients'];
  675.         else
  676.             strxlab = ...
  677.                ['(down -> up) for Cfs <==> (left -> right) in Tree'];
  678.         end
  679.         wsetxlab(WP_Axe_Cfs,strxlab);
  680.     end
  681. end
  683.     case 'recons'
  684.         Selected_Nodes = wmemtool('rmb',win_wptool,n_wp_utils,ind_sel_nodes);
  685.         if isempty(Selected_Nodes) , wwaiting('off',win_wptool); return; end
  687.         nodes   = sort(Selected_Nodes(1,:));
  688.         n2m     = [];
  689.         un_sel  = [];
  690.         ter_nod = [];
  691.         k = 1;
  692.         while k<=length(nodes)
  693.             nod_sel = nodes(k);
  694.             desc    = nodedesc(WP_Tree,nod_sel);
  695.             desc    = desc(2:length(desc));
  696.             if isempty(desc)
  697.                 ter_nod = [ter_nod nod_sel];
  698.             else
  699.                 [xind,yind] = wcommon(nodes,desc);
  700.                 indx = find(xind);
  701.                 un_sel = [un_sel nodes(indx)];
  702.                 nodes(indx) = [];
  703.                 n2m = [n2m nod_sel];
  704.             end
  705.             k = k+1;
  706.         end
  707.         if ~isempty(un_sel)
  708.             [xind,yind] = wcommon(Selected_Nodes(1,:),un_sel);
  709.             indx = find(xind);
  710.             set(Selected_Nodes(2,indx),'Color',txt_color);
  711.             Selected_Nodes(:,indx) = [];
  712.             wmemtool('wmb',win_wptool,n_wp_utils,...
  713.                            ind_sel_nodes,Selected_Nodes);
  714.         end
  716.         Tree_Texts = wmemtool('rmb',win_wptool,n_wp_utils,ind_tree_txt);
  717.         set(Tree_Texts,'Visible','off');
  718.         set(Selected_Nodes(2,:),'Visible','on');
  719.         drawnow
  720.         if isa(WP_Tree,'wptree')
  721.             WP_Tree = nodejoin(WP_Tree,n2m);
  722.             [order,tnods] = get(WP_Tree,'order','tn');
  723.             sizes = read(WP_Tree,'tnsizes');
  724.             [xind,yind] = wcommon(tnods,[ter_nod n2m]);
  725.             indic = find(xind==0);
  726.             for j = 1:length(indic)
  727.                 k = indic(j);
  728.                 WP_Tree = write(WP_Tree,'data',tnods(k),zeros(sizes(k,:)));
  729.             end
  730.             [WP_Tree,pack] = nodejoin(WP_Tree,0);
  732.         else
  733.             for n = n2m
  734.                 [WP_Tree,WP_Data] = wpjoin(WP_Tree,WP_Data,n);
  735.             end
  736.             [tnods,sizes,order] = wtreemgr('readall',WP_Tree);
  737.             [xind,yind] = wcommon(tnods,[ter_nod n2m]);
  738.             indic = find(xind==0);
  739.             if order==2 , sizes = [ones(length(sizes),1) sizes]; end
  740.     for j = 1:length(indic)
  741.                 k = indic(j);
  742.                 WP_Data = wdatamgr('write_cfs',WP_Data,WP_Tree,...
  743.                                     tnods(k),zeros(sizes(k,1),sizes(k,2)));
  744.             end
  745.             [WP_Tree,WP_Data,pack] = wpjoin(WP_Tree,WP_Data,0);
  746.         end
  748.         % Drawing Packet.
  749.         %----------------
  750.         nodes = (sort(Selected_Nodes(1,:)))';
  751.         Tree_Type_TxtV = wmemtool('rmb',win_wptool,n_wp_utils,ind_type_txt);
  752.         str_pck = ['Rec. Pack. : '];
  753.         len     =  length(nodes);
  754.         if strcmp(Tree_Type_TxtV,'i')
  755.             ind = depo2ind(order,nodes);
  756.             for k=1:len
  757.                 str_pck = [str_pck '(' sprintf('%.0f',ind(k)) ')'];
  758.                 if k<len , str_pck = [str_pck '+']; end
  759.             end
  760.         else
  761.             [d,p] = ind2depo(order,nodes);
  762.             for k=1:len
  763.                 str_pck = [str_pck '(' sprintf('%.0f',d(k)) ',' ...
  764.                                         sprintf('%.0f',p(k)), ')'];
  765.                 if k<len , str_pck = [str_pck '+']; end
  766.             end
  767.         end
  768.         delete(get(WP_Axe_Pack,'Children'));
  769.         dynvtool('ini_his',win_wptool,1)
  770.         axes(WP_Axe_Pack)
  771.         if order == 2
  772.             xmax = length(pack);
  773.             if xmax==1, xmax = 1+0.01; end
  774.             ymin = min(pack); ymax = max(pack);
  775.             if ymin==ymax , ymin = ymin-0.0001; ymax = ymax+0.0001; end
  776.             color = wtbutils('colors','wp1d','recons');
  777.             line(...
  778.                 'Xdata',[1:length(pack)],...
  779.                 'Ydata',pack,...
  780.                 'Color',color,...
  781.                 'Parent',WP_Axe_Pack);
  782.             set(WP_Axe_Pack,'XLim',[1 xmax],'Ylim',[ymin ymax]);
  783.             wtitle(str_pck,...
  784.                 'FontSize',ftn_size,...
  785.                 'Color',color,...
  786.                 'Parent',WP_Axe_Pack);
  787.         else
  788. % Image Coding Value.
  789. %-------------------
  790. codemat_v = wimgcode('get');
  792.             NB_Colors2D = ...
  793.                     wmemtool('rmb',win_wptool,n_wp_utils,ind_nb_colors);
  794.             image(...
  795.                   'CData',wimgcode('cod',0,pack,NB_Colors2D,codemat_v),...
  796.                   'Parent',WP_Axe_Pack);
  797.             wtitle(str_pck,...
  798.                    'FontSize',ftn_size,...
  799.                    'Color',get(WP_Axe_Tree,'Xcolor'),...
  800.                    'Parent',WP_Axe_Pack);
  801.             set(WP_Axe_Pack,...
  802.                 'Layer','top',           ...
  803.                 'Ydir','Reverse',        ...
  804.                 'XLim',[1 size(pack,2)], ...
  805.                 'Ylim',[1 size(pack,1)], ...
  806.                 'Tag',tag_axe_pack       ...
  807.                 );
  808.         end
  809.         dynvtool('put',win_wptool)
  810.         axes(WP_Axe_Tree);
  811.         set(Tree_Texts,'Visible','on');
  812. end
  814. % End waiting.
  815. %-------------
  816. wwaiting('off',win_wptool);
  819. %------------------------------------------------
  820. function [obj,node] = findnode(win,axe);
  822. obj = get(win,'CurrentObject');
  823. if ~isempty(obj)
  824.    if ~isequal(get(obj,'Parent'),axe)
  825.       obj = [];
  826.    else
  827.       node = get(obj,'UserData');
  828.    end
  829. end
  830. %------------------------------------------------