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

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

波变换

开发平台：

Matlab

dw2dtool.m：源码内容
  1. function varargout = dw2dtool(option,varargin)
  2. %DW2DTOOL Discrete wavelet 2-D tool.
  3. %   VARARGOUT = DW2DTOOL(OPTION,VARARGIN)
  4. %
  5. %   OPTION = 'create' , 'close'
  7. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  8. %   Last Revision: 15-Jan-2001.
  9. %   Copyright 1995-2002 The MathWorks, Inc.
  10. %   $Revision: 1.20 $ $Date: 2002/06/17 12:19:05 $
  12. % Test inputs.
  13. %-------------
  14. if nargin==0 , option = 'create'; end
  15. [option,winAttrb] = utguidiv('ini',option,varargin{:});
  17. % Default values.
  18. %----------------
  19. max_lev_anal = 5;
  20. default_nbcolors = 128;
  22. % Tag property of objects.
  23. %-------------------------
  24. tag_m_savesyn = 'Save_Syn';
  25. tag_m_savecfs = 'Save_Cfs';
  26. tag_m_savedec = 'Save_Dec';
  27. tag_pus_anal  = 'Pus_Anal';
  28. tag_pus_deno  = 'Pus_Deno';
  29. tag_pus_comp  = 'Pus_Comp';
  30. tag_pus_hist  = 'Pus_Hist';
  31. tag_pus_stat  = 'Pus_Stat';
  32. tag_pop_declev= 'Pop_DecLev';
  33. tag_pus_vis   = 'Pus_Visu';
  34. tag_pus_big   = 'Pus_Big';
  35. tag_pus_rec   = 'Pus_Rec';
  36. tag_pop_viewm = 'Pop_ViewM';
  37. tag_txt_full  = 'Txt_Full';
  38. tag_pus_full  = ['Pus_Full.1';'Pus_Full.2';'Pus_Full.3';'Pus_Full.4'];
  40. tag_axefigutil = 'Axe_FigUtil';
  41. tag_linetree   = 'Tree_lines';
  42. tag_txttree    = 'Tree_txt';
  43. tag_axeimgbig  = 'Axe_ImgBig';
  44. tag_axeimgini  = 'Axe_ImgIni';
  45. tag_axeimgvis  = 'Axe_ImgVis';
  46. tag_axeimgsel  = 'Axe_ImgSel';
  47. tag_axeimgdec  = 'Axe_ImgDec';
  48. tag_axeimgsyn  = 'Axe_ImgSyn';
  49. tag_axeimghdls = 'Img_Handles';
  51. % MemBloc0 of stored values.
  52. %---------------------------
  53. n_InfoInit   = 'DW2D_InfoInit';
  54. ind_filename = 1;
  55. ind_pathname = 2;
  56. nb0_stored   = 2;
  58. % MemBloc1 of stored values.
  59. %---------------------------
  60. n_param_anal   = 'DWAn2d_Par_Anal';
  61. ind_img_name   = 1;
  62. ind_wav_name   = 2;
  63. ind_lev_anal   = 3;
  64. ind_img_t_name = 4;
  65. ind_img_size   = 5;
  66. ind_nbcolors   = 6;
  67. ind_act_option = 7;
  68. ind_simg_type  = 8;
  69. ind_thr_val    = 9;
  70. nb1_stored     = 9;
  72. % MemBloc2.1 and 2.2 of stored values.
  73. %------------------------------------
  74. n_coefs = 'MemCoefs';
  75. n_sizes = 'MemSizes';
  77. % MemBloc3 of stored values.
  78. %---------------------------
  79. n_miscella      = 'DWAn2d_Miscella';
  80. ind_graph_area  =  1;
  81. ind_pos_axebig  =  2;
  82. ind_pos_axeini  =  3;
  83. ind_pos_axevis  =  4;
  84. ind_pos_axedec  =  5;
  85. ind_pos_axesyn  =  6;
  86. ind_pos_axesel  =  7;
  87. ind_view_status =  8;
  88. ind_save_status =  9;
  89. ind_sel_funct   = 10;
  90. nb3_stored      = 10;
  92. % Miscellaneous values.
  93. %----------------------
  94. % square_viewm  = 1;
  95. % tree_viewm    = 2;
  96. % BoxTitleSel_Col = 'g';
  98. switch option
  99.     case 'create'
  101.         % Get Globals.
  102.         %--------------
  103.         [Def_Txt_Height,Def_Btn_Height,Def_Btn_Width,Pop_Min_Width,  ...
  104.          X_Spacing,Y_Spacing,Def_FraBkColor] = ...
  105.             mextglob('get',...
  106.               'Def_Txt_Height','Def_Btn_Height','Def_Btn_Width','Pop_Min_Width',  ...
  107.               'X_Spacing','Y_Spacing','Def_FraBkColor' ...
  108.               );
  110.         % Variables initialization.
  111.         %--------------------------
  112.         BoxTitleSel_Col = 'g';
  113.         Width_LineSel   = 3;
  114.         select_funct    = 'dw2dimgs(''get_img'');';
  116.         % Wavelet 2-D window initialization.
  117.         %-----------------------------------
  118.         win_title = 'Wavelet 2-D';
  119.         [win_dw2dtool,pos_win,win_units,str_numwin,...
  120.              frame0,pos_frame0,Pos_Graphic_Area,pus_close] = ...
  121.                 wfigmngr('create',win_title,winAttrb,'ExtFig_Tool',mfilename,1,1,0);
  122.         if nargout>0 , varargout{1} = win_dw2dtool; end
  124. % Add Coloration Mode Submenu.
  125. %-----------------------------
  126. wfigmngr('add_CCM_Menu',win_dw2dtool);
  128. % Add Help for Tool.
  129. %------------------
  130. wfighelp('addHelpTool',win_dw2dtool,'T&wo-Dimensional Analysis','DW2D_GUI');
  132. % Add Help Item.
  133. %----------------
  134. wfighelp('addHelpItem',win_dw2dtool,'Working with Images','DW2D_WORKING');
  135. wfighelp('addHelpItem',win_dw2dtool,'Loading and Saving','DW2D_LOADSAVE');
  137.         % Menu construction for current figure.
  138.         %--------------------------------------
  139. [m_files,m_load,m_save] = ...
  140. wfigmngr('getmenus',win_dw2dtool,'file','load','save');
  142.         m_loadimg = uimenu(m_load,...
  143.                                 'Label','&Image ',    ...
  144.                                 'Position',1,             ...
  145.                                 'Callback',               ...
  146.                                 ['dw2dmngr(''load_img'',' ...
  147.                                         str_numwin ');']  ...
  148.                                 );
  150.         m_loadcfs = uimenu(m_load,...
  151.                                 'Label','&Coefficients ', ...
  152.                                 'Position',2,             ...
  153.                                 'Callback',               ...
  154.                                 ['dw2dmngr(''load_cfs'',' ...
  155.                                         str_numwin ');']  ...
  156.                                 );
  157.         m_loaddec = uimenu(m_load,...
  158.                                 'Label','&Decomposition ', ...
  159.                                 'Position',3,              ...
  160.                                 'Callback',                ...
  161.                                 ['dw2dmngr(''load_dec'','  ...
  162.                                         str_numwin ');']   ...
  163.                                 );
  165. m_savesyn = uimenu(m_save,...
  166.                                 'Label','&Synthesized Image ',...
  167.                                 'Position',1,                 ...
  168.                                 'Enable','Off',               ...
  169.                                 'Tag',tag_m_savesyn,          ...
  170.                                 'Callback',                   ...
  171.                                 ['dw2dmngr(''save_synt'','    ...
  172.                                         str_numwin ');']      ...
  173.                                 );
  174.         m_savecfs = uimenu(m_save,...
  175.                                 'Label','&Coefficients ', ...
  176.                                 'Position',2,             ...
  177.                                 'Enable','Off',           ...
  178.                                 'Tag',tag_m_savecfs,      ...
  179.                                 'Callback',               ...
  180.                                 ['dw2dmngr(''save_cfs'',' ...
  181.                                         str_numwin ');']  ...
  182.                                 );
  183.         m_savedec = uimenu(m_save,...
  184.                                 'Label','&Decomposition ', ...
  185.                                 'Position',3,              ...
  186.                                 'Enable','Off',            ...
  187.                                 'Tag',tag_m_savedec,       ...
  188.                                 'Callback',                ...
  189.                                 ['dw2dmngr(''save_dec'','  ...
  190.                                         str_numwin ');']   ...
  191.                                 );
  192.         m_loadtst = uimenu(m_files,...
  193.                                 'Label','&Example Analysis ', ...
  194.                                 'Position',3,             ...
  195.                                 'Separator','Off'         ...
  196.                                 );
  198.         % Submenu of test signals.
  199.         %-------------------------
  200.         beg_call_str = ['dw2dmngr(''demo'',' str_numwin];
  201.         tab  = setstr(9);
  202.         sep1 = ['At level '];
  203.         sep2 = [' , with '];
  204.         sep3 = ['    ' tab ' ---> '];
  206.         lab_str = [sep1 '3' sep2 'sym4' sep3 'Detail Durer '];
  207.         cba     = [beg_call_str ',''detail'',''sym4'',3);'];
  208.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  210.         lab_str = [sep1 '2' sep2 'haar' sep3 'Woman '];
  211.         cba     = [beg_call_str ',''woman'',''haar'',2);'];
  212.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  214.         lab_str = [sep1 '3' sep2 'haar' sep3 'Finger '];
  215.         cba     = [beg_call_str ',''detfingr'',''haar'',3);'];
  216.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  218.         lab_str = [sep1 '3' sep2 'haar' sep3 'Tire '];
  219.         cba     = [beg_call_str ',''tire'',''haar'',3);'];
  220.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  222.         lab_str = [sep1 '3' sep2 'sym3' sep3 'Chess '];
  223.         cba     = [beg_call_str ',''chess'',''sym3'',3);'];
  224.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  226.         lab_str = [sep1 '2' sep2 'bior3.7' sep3 'Barb '];
  227.         cba     = [beg_call_str ',''wbarb'',''bior3.7'',2);'];
  228.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  230.         lab_str = [sep1 '3' sep2 'bior5.5' sep3 'Facets '];
  231.         cba     = [beg_call_str ',''facets'',''bior5.5'',3);'];
  232.         uimenu(m_loadtst,'Separator','on','Label',lab_str,'Callback',cba);
  234.         lab_str = [sep1 '3' sep2 'bior4.4' sep3 'Geometry '];
  235.         cba     = [beg_call_str ',''geometry'',''bior4.4'',3);'];
  236.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  238.         lab_str = [sep1 '4' sep2 'db3' sep3 'Sinsin '];
  239.         cba     = [beg_call_str ',''sinsin'',''db3'',4);'];
  240.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  242.         lab_str = [sep1 '3' sep2 'coif2' sep3 'Tartan '];
  243.         cba     = [beg_call_str ',''tartan'',''coif2'',3);'];
  244.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  246.         lab_str = [sep1 '3' sep2 'db1' sep3 'Mandel set '];
  247.         cba     = [beg_call_str ',''mandel'',''db1'',3);'];
  248.         uimenu(m_loadtst,'Separator','on','Label',lab_str,'Callback',cba);
  250.         lab_str = [sep1 '3' sep2 'db1' sep3 'Julia set '];
  251.         cba     = [beg_call_str ',''julia'',''db1'',3);'];
  252.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  254.         lab_str = [sep1 '5' sep2 'coif1' sep3 'Ifs '];
  255.         cba     = [beg_call_str ',''wifs'',''coif1'',5);'];
  256.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  258.         lab_str = [sep1 '3' sep2 'db2' sep3 'Noisy Woman '];
  259.         cba     = [beg_call_str ',''noiswom'',''db2'',3);'];
  260.         uimenu(m_loadtst,'Separator','on','Label',lab_str,'Callback',cba);
  262.         lab_str = [sep1 '3' sep2 'bior6.8' sep3 'Noisy SinSin '];
  263.         cba     = [beg_call_str ',''noissi2d'',''bior6.8'',3);'];
  264.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  266.         lab_str = [sep1 '2' sep2 'haar' sep3 'Mandrill '];
  267.         cba     = [beg_call_str ',''wmandril'',''haar'',2);'];
  268.         uimenu(m_loadtst,'Separator','on','Label',lab_str,'Callback',cba);
  270.         lab_str = [sep1 '2' sep2 'sym5' sep3 'Gatlin '];
  271.         cba     = [beg_call_str ',''wgatlin'',''sym5'',2);'];
  272.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  274.         lab_str = [sep1 '3' sep2 'bior1.5' sep3 'Belmont 1'];
  275.         cba     = [beg_call_str ',''belmont1'',''bior1.5'',3);'];
  276.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  277.   
  278.         lab_str = [sep1 '3' sep2 'coif1' sep3 'Belmont 2'];
  279.         cba     = [beg_call_str ',''belmont2'',''coif1'',3);'];
  280.         uimenu(m_loadtst,'Label',lab_str,'Callback',cba);
  282.         % Begin waiting.
  283.         %---------------
  284.         wwaiting('msg',win_dw2dtool,'Wait ... initialization');
  286.         % General parameters initialization.
  287.         %-----------------------------------
  288.         dx = X_Spacing; dx2 = 2*dx;
  289.         dy = Y_Spacing; dy2 = 2*dy;
  290.         d_txt = (Def_Btn_Height-Def_Txt_Height);
  291.         x_frame0   = pos_frame0(1);
  292.         btn_width  = Def_Btn_Width;
  293.         w_subframe = pos_frame0(3)-4*dx;
  294.         w_util     = (pos_frame0(3)-9*dx)/3;
  295.         push_width = (pos_frame0(3)-8*dx)/2;
  296.         pop_width  = Pop_Min_Width;
  298.         % Position property of objects.
  299.         %------------------------------
  300.         xlocINI    = pos_frame0([1 3]);
  301.         ybottomINI = pos_win(4)-3.5*Def_Btn_Height-dy2;
  302.         y_low      = ybottomINI;
  304.         bdx        = (pos_frame0(3)-1.5*btn_width)/2;
  305.         x_left     = x_frame0+bdx;
  306.         y_low      = y_low-Def_Btn_Height-3*dy2;
  307.         h_btn      = 1.5*Def_Btn_Height;
  308.         pos_anal   = [x_left, y_low, 1.5*btn_width, h_btn];
  310.         x_left     = x_frame0+dx2;
  311.         y_low      = pos_anal(2)-1.5*Def_Btn_Height-2*dy2;
  312.         push_width = (pos_frame0(3)-3*dx2)/2;
  313.         pos_stat   = [x_left, y_low, push_width, h_btn];
  315.         pos_comp    = pos_stat;
  316.         pos_comp(1) = pos_stat(1)+pos_stat(3)+dx2;
  318.         y_low       = y_low-1.5*Def_Btn_Height-dy;
  319.         pos_hist    = [x_left, y_low, push_width, h_btn];
  320.         pos_deno    = pos_hist;
  321.         pos_deno(1) = pos_hist(1)+pos_hist(3)+dx2;
  323.         y_low          = y_low-Def_Btn_Height-2*dy2;
  324.         w_txt          = 2*push_width+dx2-pop_width;
  325.         pos_txt_declev = [x_left, y_low+d_txt/2, w_txt, Def_Txt_Height];
  327.         pos_declev     = [x_left+4*dx2, y_low, pop_width, Def_Btn_Height];
  328.         pos_declev(1)  = pos_txt_declev(1)+pos_txt_declev(3);
  330.         y_low          = y_low-Def_Btn_Height-2*dy2;
  331.         pos_pop_viewm  = [x_left, y_low, 2*push_width+dx2, Def_Btn_Height];
  333.         y_low          = y_low-Def_Btn_Height-dy2;
  334.         w_txt          = dx2+w_util;
  335.         xl             = x_left+dx;
  336.         yl             = y_low-Def_Txt_Height/2;
  337.         pos_txt_full   = [xl, yl, w_txt, Def_Txt_Height];
  339.         pos_pus_full      = zeros(4,4);
  340.         xl                = pos_txt_full(1)+pos_txt_full(3)+dx;
  341.         pos_pus_full(1,:) = [xl, y_low, w_util, Def_Btn_Height];
  343.         pos_pus_full(2,:) = pos_pus_full(1,:);
  344.         pos_pus_full(2,2) = pos_pus_full(2,2)-Def_Btn_Height;
  346.         pos_pus_full(3,:) = pos_pus_full(1,:);
  347.         pos_pus_full(3,1) = pos_pus_full(3,1)+pos_pus_full(3,3);
  349.         pos_pus_full(4,:) = pos_pus_full(3,:);
  350.         pos_pus_full(4,2) = pos_pus_full(4,2)-pos_pus_full(4,4);
  352.         y_low       = y_low-2*Def_Btn_Height-3*dy2;
  353.         pos_tdrag   = [x_left, y_low, w_subframe, Def_Btn_Height];
  355.         h_btn       = 1.25*Def_Btn_Height;
  356.         w_btn       = 1.25*push_width;
  357.         x_btn       = x_frame0+(pos_frame0(3)-w_btn)/2;
  358.         y_low       = y_low-h_btn;
  359.         pos_pus_vis = [x_btn , y_low , w_btn ,h_btn];
  360.         y_low       = y_low-h_btn;
  361.         pos_pus_big = [x_btn , y_low , w_btn ,h_btn];
  362.         y_low       = y_low-h_btn;
  363.         pos_pus_rec = [x_btn , y_low , w_btn ,h_btn];
  365.         % String property of objects.
  366.         %----------------------------
  367.         str_anal       = 'Analyze';
  368.         str_synt       = 'Synthesize';
  369.         str_stat       = 'Statistics';
  370.         str_comp       = 'Compress';
  371.         str_hist       = 'Histograms';
  372.         str_deno       = 'De-noise';
  373.         str_txtlev_dec = 'Decomposition at level : ';
  374.         str_vallev_dec = int2str([1:max_lev_anal]');
  375.         str_txt_drag   = 'Operations on selected image : ';
  376.         str_rec        = 'Reconstruct';
  377.         str_vis       = 'Visualize';
  378.         str_big        = 'Full Size';
  379.         str_pop_viewm  = 'View mode : Square|View mode : Tree';
  380.         str_txt_full   = 'Full Size';
  382.         % Callback property of objects.
  383.         %------------------------------
  384.         cba_pus_anal   = ['dw2dmngr(''analyze'',' str_numwin ');'];
  385.         cba_stat       = ['dw2dmngr(''stat'',' str_numwin ');'];
  386.         cba_comp       = ['dw2dmngr(''comp'',' str_numwin ');'];
  387.         cba_hist       = ['dw2dmngr(''hist'',' str_numwin ');'];
  388.         cba_deno       = ['dw2dmngr(''deno'',' str_numwin ');'];
  389.         cba_pop_declev = ['dw2dmngr(''view_dec'',' str_numwin ');'];
  390.         cba_pop_viewm  = ['dw2dmngr(''view_mode'',' str_numwin ');'];
  392.         % Command part of the window.
  393.         %============================
  394.         % Data, Wavelet and Level parameters.
  395.         %------------------------------------
  396.         utanapar('create',win_dw2dtool, ...
  397.                  'xloc',xlocINI,'bottom',ybottomINI,...
  398.                  'enable','off',        ...
  399.                  'wtype','dwt',         ...
  400.                  'maxlev',max_lev_anal  ...
  401.                  );
  402.         comFigProp = {'Parent',win_dw2dtool,'Unit',win_units};
  403.         comPusProp = {comFigProp{:},'Style','Pushbutton','Enable','off'};
  404.         comPopProp = {comFigProp{:},'Style','Popupmenu','Enable','off'};
  405.         comTxtProp = {comFigProp{:},'Style','Text', ...
  406.                       'Backgroundcolor',Def_FraBkColor};
  407.         pus_anal = uicontrol(comPusProp{:},...
  408.                              'Position',pos_anal,...
  409.                              'String',xlate(str_anal),...
  410.                              'Tag',tag_pus_anal,...
  411.                              'Interruptible','On',...
  412.                              'Callback',cba_pus_anal...
  413.                              );
  415.         pus_stat = uicontrol(comPusProp{:},...
  416.                              'Position',pos_stat,...
  417.                              'String',xlate(str_stat),...
  418.                              'Tag',tag_pus_stat,...
  419.                              'Callback',cba_stat...
  420.                              );
  422.         pus_comp = uicontrol(comPusProp{:},...
  423.                              'Position',pos_comp,...
  424.                              'String',xlate(str_comp),...
  425.                              'Tag',tag_pus_comp,...
  426.                              'Callback',cba_comp...
  427.                              );
  429.         pus_hist = uicontrol(comPusProp{:},...
  430.                              'Position',pos_hist,...
  431.                              'String',xlate(str_hist),...
  432.                              'Tag',tag_pus_hist,...
  433.                              'Callback',cba_hist...
  434.                              );
  436.         pus_deno = uicontrol(comPusProp{:},...
  437.                              'Position',pos_deno,...
  438.                              'String',xlate(str_deno),...
  439.                              'Tag',tag_pus_deno,...
  440.                              'Callback',cba_deno...
  441.                              );
  443.         txt_declev = uicontrol(comTxtProp{:},...
  444.                                'Position',pos_txt_declev,...
  445.                                'HorizontalAlignment','left',...
  446.                                'String',str_txtlev_dec...
  447.                                );
  449.         pop_declev = uicontrol(comPopProp{:},...
  450.                                'Position',pos_declev,...
  451.                                'String',str_vallev_dec,...
  452.                                'Tag',tag_pop_declev,...
  453.                                'Callback',cba_pop_declev...
  454.                                );
  456.         pop_view_mode = uicontrol(comPopProp{:},...
  457.                                   'Position',pos_pop_viewm,...
  458.                                   'String',str_pop_viewm,...
  459.                                   'Callback',cba_pop_viewm,...
  460.                                   'Tag',tag_pop_viewm...
  461.                                   );
  463.         txt_full = uicontrol(comTxtProp{:},...
  464.                              'HorizontalAlignment','Center',...
  465.                              'Position',pos_txt_full,...
  466.                              'String',str_txt_full,...
  467.                              'Tag',tag_txt_full...
  468.                              );
  470.         tooltip = strvcat(...
  471.             'View original image',    ...
  472.             'View synthesized image', ...
  473.             'View selected image',...
  474.             'View wavelet decomposition' ...
  475.             );
  476.         for k=1:4
  477.             pus_full(k) = uicontrol(comPusProp{:},...
  478.                                     'Position',pos_pus_full(k,:),...
  479.                                     'String',sprintf('%.0f',k),...
  480.                                     'Userdata',0,...
  481.                                     'ToolTip',deblank(tooltip(k,:)), ...
  482.                                     'Tag',tag_pus_full(k,:)...
  483.                                     );
  484.         end
  487.         txt_drag = uicontrol(comTxtProp{:},...
  488.                              'Position',pos_tdrag,...
  489.                              'HorizontalAlignment','left',...
  490.                              'String',str_txt_drag...
  491.                              );
  493.         pus_vis = uicontrol(comPusProp{:},...
  494.                              'Position',pos_pus_vis,...
  495.                              'String',xlate(str_vis),...
  496.                              'Tag',tag_pus_vis...
  497.                              );
  499.         pus_big  = uicontrol(comPusProp{:},...
  500.                              'Position',pos_pus_big,...
  501.                              'String',xlate(str_big),...
  502.                              'Tag',tag_pus_big...
  503.                              );
  505.         pus_rec  = uicontrol(comPusProp{:},...
  506.                              'Position',pos_pus_rec,...
  507.                              'String',xlate(str_rec),...
  508.                              'Tag',tag_pus_rec...
  509.                              );
  512.         % Adding colormap GUI.
  513.         %---------------------
  514.         utcolmap('create',win_dw2dtool, ...
  515.                  'xloc',xlocINI,'bkcolor',Def_FraBkColor);
  517.         %  Normalisation.
  518.         %----------------
  519.         Pos_Graphic_Area = wfigmngr('normalize',win_dw2dtool,Pos_Graphic_Area);
  521.         % Callbacks update.
  522.         %------------------
  523.         utanapar('set_cba_num',win_dw2dtool,[m_files;pus_anal]);
  524.         beg_cba     = ['dw2dmngr(''select'','  str_numwin ','];
  525.         cba_pus_vis = [beg_cba , num2mstr(pus_vis) ');'];
  526.         cba_pus_big = [beg_cba , num2mstr(pus_big) ');'];
  527.         cba_pus_rec = [beg_cba , num2mstr(pus_rec) ');'];
  528.         set(pus_vis,'Callback',cba_pus_vis);
  529.         set(pus_big,'Callback',cba_pus_big);
  530.         set(pus_rec,'Callback',cba_pus_rec);
  531.         beg_cba = ['dw2dmngr(''fullsize'',' str_numwin ','];
  532.         for k=1:4
  533.             pus = pus_full(k);
  534.             cba_pus_full = [beg_cba sprintf('%.0f',k) ');'];
  535.             set(pus,'Callback',cba_pus_full);
  536.         end
  538. % Add Context Sensitive Help (CSHelp).
  539. %-------------------------------------
  540. hdl_DW2D_FULLSIZE = [txt_full,pus_full(:)'];
  541. hdl_DW2D_SELECT = [txt_drag,pus_vis,pus_big,pus_rec];
  542. wfighelp('add_ContextMenu',win_dw2dtool,hdl_DW2D_FULLSIZE,'DW2D_FULLSIZE');
  543. wfighelp('add_ContextMenu',win_dw2dtool,hdl_DW2D_SELECT,'DW2D_SELECT');
  544. %-------------------------------------
  546.         % Memory for stored values.
  547.         %--------------------------
  548.         wmemtool('ini',win_dw2dtool,n_InfoInit,nb0_stored);
  549.         wmemtool('ini',win_dw2dtool,n_param_anal,nb1_stored);
  550.         wmemtool('ini',win_dw2dtool,n_miscella,nb3_stored);
  551.         wmemtool('wmb',win_dw2dtool,n_param_anal,ind_act_option,option);
  552.         wmemtool('wmb',win_dw2dtool,n_miscella,                 ...
  553.                  ind_graph_area,Pos_Graphic_Area,ind_view_status,'none', ...
  554.                  ind_save_status,'none',ind_sel_funct,select_funct       ...
  555.                  );
  557.         % Setting Colormap.
  558.         %------------------
  559.         cbcolmap('set',win_dw2dtool,'pal',{'pink',default_nbcolors});
  561.         % Creating Axes: ImgIni, ImgBig, ImgVis, ImgSyn & ImgSel.
  562.         %--------------------------------------------------------
  563.         commonProp = {...
  564.                       'Parent',win_dw2dtool,     ...
  565.                       'Position',[0 0 1 1],      ...
  566.                       'Visible','off',           ...
  567.                       'DrawMode','Fast',         ...
  568.                       'XTicklabelMode','manual', ...
  569.                       'YTicklabelMode','manual', ...
  570.                       'XTicklabel',[],           ...
  571.                       'YTicklabel',[],           ...
  572.                       'Box','On',                ...
  573.                       'XGrid','off',             ...
  574.                       'YGrid','off'              ...
  575.                       };
  576.         Axe_ImgIni = axes(commonProp{:},'Tag',tag_axeimgini);
  577.         Axe_ImgVis = axes(commonProp{:},'Tag',tag_axeimgvis);
  578.         Axe_ImgBig = axes(commonProp{:},'Tag',tag_axeimgbig);
  579.         Axe_ImgSyn = axes(commonProp{:},'Tag',tag_axeimgsyn);
  580.         Axe_ImgSel = axes(commonProp{:},'Tag',tag_axeimgsel);
  582.         % Creating AxeImgDec.
  583.         %--------------------
  584.         locProp = {commonProp{:},'XTick',[],'YTick',[],'Tag',tag_axeimgdec}; 
  585.         Axe_ImgDec = zeros(1,4*max_lev_anal);
  586.         for ind=1:4*max_lev_anal
  587.             Axe_ImgDec(ind) = axes(locProp{:});
  588.         end
  589.         wmemtool('wmb',win_dw2dtool,tag_axeimgdec,1,Axe_ImgDec);
  591.         % Creating Tree axes.
  592.         %-------------------
  593.         axe_figutil = axes(...
  594.                            'Parent',win_dw2dtool,    ...
  595.                            'Position',[0 0 1 1],     ...
  596.                            'Xlim',[0 1],'Ylim',[0 1],...
  597.                            'DrawMode','Normal',      ...
  598.                            'Visible','off',          ...
  599.                            'Tag',tag_axefigutil      ...
  600.                            );
  602.         for k = 1:max_lev_anal+1
  603.             line(...
  604.                  'Parent',axe_figutil,       ...
  605.                  'Xdata',[0 0],'Ydata',[0 0],...
  606.                  'LineWidth',2,'Color',wtbutils('colors','linDW2D'), ...
  607.                  'Visible','off',   ...
  608.                  'Userdata',k,      ...
  609.                  'Tag',tag_linetree ...
  610.                  );
  611.         end
  612.         fontsize = wmachdep('fontsize','normal');
  613.         axeXColor = get(win_dw2dtool,'DefaultAxesXColor');
  614.         for k = 1:max_lev_anal
  615.             text(...
  616.                  'Parent',axe_figutil,           ...
  617.                  'String',['L_' sprintf('%.0f',k)],...
  618.                  'FontSize',fontsize,            ...
  619.                  'FontWeight','bold',            ...
  620.                  'HorizontalAlignment','left',   ...
  621.                  'Visible','off',                ...
  622.                  'Userdata',k,                   ...
  623.                  'Color',axeXColor,              ...
  624.                  'Tag',tag_txttree               ...
  625.                  );
  626.         end
  627.         dw2darro('ini_arrow',win_dw2dtool);
  628.         wboxtitl('create',axe_figutil,Axe_ImgSel,BoxTitleSel_Col,...
  629.                           'Image Selection','off');
  631.         % End waiting.
  632.         %---------------
  633.         wwaiting('off',win_dw2dtool);
  635.     case 'close'
  636.         called_win = wfindobj('figure','Userdata',varargin{1});
  637.         delete(called_win);
  639.     otherwise
  640.         errargt(mfilename,'Unknown Option','msg');
  641.         error('*');
  642. end