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

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

波变换

开发平台：

Matlab

imgxtool.m：源码内容
  1. function varargout = imgxtool(option,varargin)
  2. %IMGXTOOL Image extension tool.
  3. %   VARARGOUT = IMGXTOOL(OPTION,VARARGIN)
  4. %
  5. %   GUI oriented tool which allows the construction of a new
  6. %   image from an original one by truncation or extension.
  7. %   Extension is done by selecting different possible modes:
  8. %   Symmetric, Periodic, Zero Padding, Continuous or Smooth.
  9. %   A special mode is provided to extend an image in order 
  10. %   to be accepted by the SWT decomposition.
  11. %------------------------------------------------------------
  12. %   Internal options:
  13. %
  14. %   OPTION = 'create'          'load'             'demo'
  15. %            'update_deslen'   'extend_truncate'
  16. %            'draw'            'save'
  17. %            'clear_graphics'  'mode'
  18. %            'close'
  19. %
  20. %   See also WEXTEND.
  22. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 30-Nov-98.
  23. %   Last Revision: 14-Jul-2003.
  24. %   Copyright 1995-2004 The MathWorks, Inc.
  25. %   $Revision: 1.12.4.2 $  $Date: 2004/03/15 22:40:45 $
  27. % Test inputs.
  28. %-------------
  29. if nargin==0 , option = 'create'; end
  30. [option,winAttrb] = utguidiv('ini',option,varargin{:});
  32. % Default values.
  33. %----------------
  34. default_nbcolors = 255;
  36. % Image Coding Value.
  37. %-------------------
  38. codemat_v = wimgcode('get');
  40. % Initialisations for all options excepted 'create'.
  41. %---------------------------------------------------
  42. switch option
  44.   case 'create'
  45.   
  46.   otherwise
  47.     % Get figure handle.
  48.     %-------------------
  49.     win_imgxtool = varargin{1};
  51.     % Get stored structure.
  52.     %----------------------
  53.     Hdls_UIC_C      = wfigmngr('getValue',win_imgxtool,'Hdls_UIC_C');
  54.     Hdls_UIC_H      = wfigmngr('getValue',win_imgxtool,'Hdls_UIC_H');
  55.     Hdls_UIC_V      = wfigmngr('getValue',win_imgxtool,'Hdls_UIC_V');
  56.     Hdls_UIC_Swt    = wfigmngr('getValue',win_imgxtool,'Hdls_UIC_Swt');
  57.     Hdls_Axes       = wfigmngr('getValue',win_imgxtool,'Hdls_Axes');
  58.     Hdls_Colmap     = wfigmngr('getValue',win_imgxtool,'Hdls_Colmap');
  59.     Pos_Axe_Img_Ori = wfigmngr('getValue',win_imgxtool,'Pos_Axe_Img_Ori');
  60.  
  61.     % Get UIC Handles.
  62.     %-----------------
  63.     [m_load,m_save,m_demo,txt_image,edi_image,...
  64.      txt_mode,pop_mode,pus_extend] = deal(Hdls_UIC_C{:});
  65.  
  66.     [frm_fra_H,txt_fra_H,txt_length_H,edi_length_H,txt_nextpow2_H,  ...
  67.      edi_nextpow2_H,txt_prevpow2_H,edi_prevpow2_H,txt_deslen_H,     ...
  68.      edi_deslen_H,txt_direct_H,pop_direct_H] = deal(Hdls_UIC_H{:});
  69.  
  70.     [frm_fra_V,txt_fra_V,txt_length_V,edi_length_V,txt_nextpow2_V,  ...
  71.      edi_nextpow2_V,txt_prevpow2_V,edi_prevpow2_V,txt_deslen_V,     ...
  72.      edi_deslen_V,txt_direct_V,pop_direct_V] = deal(Hdls_UIC_V{:});
  73.  
  74.     [txt_swtdec,pop_swtdec,frm_fra_H_2,txt_fra_H_2,txt_swtlen_H,    ...
  75.      edi_swtlen_H,txt_swtclen_H,edi_swtclen_H,txt_swtdir_H,         ...
  76.      edi_swtdir_H,txt_swtdec,pop_swtdec,frm_fra_V_2,txt_fra_V_2,    ...
  77.      txt_swtlen_V,edi_swtlen_V,txt_swtclen_V,edi_swtclen_V,         ...
  78.      txt_swtdir_V,edi_swtdir_V] = deal(Hdls_UIC_Swt{:});
  79. end
  81. % Process control depending on the calling option.
  82. %-------------------------------------------------
  83. switch option
  85.     case 'create'
  86.     %-------------------------------------------------------%
  87.     % Option: 'CREATE' - Create Figure, Uicontrols and Axes %
  88.     %-------------------------------------------------------%
  90.         % Get Globals.
  91.         %-------------
  92.         [Def_Btn_Height,Def_Btn_Width,Pop_Min_Width,X_Graph_Ratio, ...
  93.         X_Spacing,Y_Spacing,Def_TxtBkColor,Def_EdiBkColor,         ...
  94.         Def_FraBkColor] =                                          ...
  95.                 mextglob('get',                                    ...
  96.                 'Def_Btn_Height','Def_Btn_Width','Pop_Min_Width',  ...
  97.                 'X_Graph_Ratio','X_Spacing','Y_Spacing',           ...
  98.                 'Def_TxtBkColor','Def_EdiBkColor','Def_FraBkColor' ...
  99.                 );
  101.         % Window initialization.
  102.         %-----------------------
  103.         [win_imgxtool,pos_win,win_units,str_numwin,                ...
  104.         frame0,pos_frame0,Pos_Graphic_Area,pus_close] =            ...
  105.                 wfigmngr('create','Image Extension / Truncation',  ...
  106.                          winAttrb,'ExtFig_Tool_3',                 ...
  107.                          strvcat(mfilename,'cond'),1,1,0);
  108.         if nargout>0 , varargout{1} = win_imgxtool; end
  110. % Add Help for Tool.
  111. %------------------
  112. wfighelp('addHelpTool',win_imgxtool, ...
  113. 'Two-Dimensional &Extension','IMGX_GUI');
  115. % Add Help Item.
  116. %----------------
  117. wfighelp('addHelpItem',win_imgxtool,...
  118. 'Dealing with Border Distortion','BORDER_DIST');
  120.         % Menu construction for current figure.
  121.         %--------------------------------------
  122.         m_files = wfigmngr('getmenus',win_imgxtool,'file');
  123.         m_load  = uimenu(m_files, ...
  124.                          'Label','&Load Image',                    ...
  125.                          'Position',1,                             ...
  126.                          'Callback',                               ...
  127.                          [mfilename '(''load'',' str_numwin ');']  ...
  128.                          );
  130.         m_save  = uimenu(m_files,...
  131.                          'Label','&Save Transformed Image',       ...
  132.                          'Position',2,                            ...
  133.                          'Enable','Off',                          ...
  134.                          'Callback',                              ...
  135.                          [mfilename '(''save'',' str_numwin ');'] ...
  136.                          );
  138.         m_demo  = uimenu(m_files, ...
  139.                          'Label','&Example Extension','Position',3);
  141.         demoSET = {...
  142.          'woman2'  , 'ext'   , '{''zpd'' , [220,200] , ''both'' , ''both''}' ; ...
  143.          'woman2'  , 'trunc' , '{''nul'' , [ 96, 96] , ''both'' , ''both''}' ; ...
  144.          'wbarb'   , 'ext'   , '{''sym'' , [512,200] , ''right'', ''both''}' ; ...
  145.          'noiswom' , 'ext'   , '{''sym'' , [512,512] , ''right'', ''down''}' ; ...
  146.          'noiswom' , 'ext'   , '{''ppd'' , [512,512] , ''right'', ''down''}' ; ...
  147.          'wbarb'   , 'ext'   , '{''sym'' , [512,512] , ''both'' , ''both''}' ; ...
  148.          'facets'  , 'ext'   , '{''ppd'' , [512,512] , ''both'' , ''both''}' ; ...
  149.          'mandel'  , 'ext'   , '{''sym'' , [512,512] , ''left'' , ''both''}'   ...
  150.          };
  151.         nbDEM = size(demoSET,1);
  152.         beg_call_str = [mfilename '(''demo'',' str_numwin ','''];
  154. dummy = demoSET(:,1);
  155. names = strvcat(dummy{:});
  156. tab   = setstr(9);
  157.         for k = 1:nbDEM
  158.             typ = demoSET{k,2};
  159.             fil = demoSET{k,1};
  160.             par = demoSET{k,3};
  161.             parVal = eval(par);
  163.             switch parVal{1}
  164.               case 'swt'
  165.                 lenSTR = [' - level: ',int2str(parVal{2})];
  166.               otherwise
  167.                 siz = fliplr(parVal{2}); 
  168.                 lenSTR = [' - size: [' , int2str(parVal{2}) , ']'];
  169.             end
  170.             strPAR = ['mode: ' ,  parVal{1} , lenSTR, ...
  171.                       ' - direction: [', parVal{3} , ',' parVal{4} ,']'];
  172.             switch  typ
  173.               case 'ext'   , strTYPE = ['Extension  - '];
  174.               case 'trunc' , strTYPE = ['Truncation - '];
  175.             end
  176.             libel = [names(k,:) tab '  -  ' strTYPE strPAR];
  177.             action = [beg_call_str fil  ''',''' typ ''',' par ');'];
  178.             uimenu(m_demo,'Label',libel,'Callback',action);
  179.         end
  182.         % Begin waiting.
  183.         %---------------
  184.         wwaiting('msg',win_imgxtool,'Wait ... initialization');
  186.         % Borders and double borders.
  187.         %----------------------------
  188.         dx = X_Spacing; dx2 = 2*dx;
  189.         dy = Y_Spacing; dy2 = 2*dy;
  191.         % General graphical parameters initialization.
  192.         %--------------------------------------------
  193.         x_frame0  = pos_frame0(1);
  194.         cmd_width = pos_frame0(3);
  195.         pus_width = cmd_width-4*dx2;
  196.         txt_width = 3*Def_Btn_Width/2;
  197.         edi_width = 3*Def_Btn_Width/4;
  198.         pop_width = 7*Def_Btn_Width/4;
  199.         bdx       = 0.08*pos_win(3);
  200.         bdy       = 0.06*pos_win(4);
  201.         ecy       = 0.03*pos_win(4);
  202.         x_graph   = bdx;
  203.         y_graph   = 2*Def_Btn_Height+dy;
  204.         h_graph   = pos_frame0(4)-y_graph;
  205.         w_graph   = pos_frame0(1);
  207.         % Command part of the window.
  208.         %============================
  210.         % Position property of objects.
  211.         %------------------------------
  212.         xlocINI            = [x_frame0 cmd_width];
  213.         ybottomINI         = pos_win(4)-dy2;
  214.         x_left_INI         = x_frame0+dx2+dx;
  216.         x_left             = x_left_INI;
  217.         y_low              = ybottomINI-(Def_Btn_Height+1*dy2);
  218.         pos_txt_image      = [x_left, y_low, txt_width Def_Btn_Height];
  219.         x_left             = x_left+txt_width/2+3*dx;
  220.         pos_edi_image      = [x_left, y_low+dy/2, 2*edi_width, ...
  221.                                Def_Btn_Height];
  223.         x_left             = x_left_INI;
  224.         y_low              = y_low-1.5*(Def_Btn_Height+2*dy2);
  225.         pos_txt_length_H   = [x_left, y_low, txt_width Def_Btn_Height];
  226.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  227.         pos_edi_length_H   = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  229.         x_left             = x_left_INI;
  230.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  231.         pos_txt_nextpow2_H = [x_left, y_low, txt_width Def_Btn_Height];
  232.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  233.         pos_edi_nextpow2_H = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  235.         x_left             = x_left_INI;
  236.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  237.         pos_txt_prevpow2_H = [x_left, y_low, txt_width Def_Btn_Height];
  238.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  239.         pos_edi_prevpow2_H = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  241.         x_left             = x_left_INI;
  242.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  243.         pos_txt_deslen_H   = [x_left, y_low, txt_width Def_Btn_Height];
  244.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  245.         pos_edi_deslen_H   = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  247.         x_left             = x_left_INI;
  248.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  249.         pos_txt_direct_H   = [x_left, y_low, txt_width, Def_Btn_Height];
  250.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  251.         pos_pop_direct_H   = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  253.         fra_left           = x_left_INI-dx2;
  254.         fra_low            = y_low-dy;
  255.         fra_width          = cmd_width-dx2;
  256.         fra_heigth         = 5*(Def_Btn_Height+1*dy2)+dy2;
  257.         pos_fra_H          = [fra_left, fra_low, fra_width, fra_heigth];
  258.         txt_fra_H_heigth   = 3 * Def_Btn_Height / 4;
  259.         txt_fra_H_width    = Def_Btn_Width;
  260.         txt_fra_H_low      = (fra_low + fra_heigth) - (txt_fra_H_heigth / 2);
  261.         txt_fra_H_left     = fra_left + (fra_width - txt_fra_H_width) / 2;
  262.         pos_txt_fra_H      = [txt_fra_H_left, txt_fra_H_low, ...
  263.                                txt_fra_H_width, txt_fra_H_heigth];
  264.  
  265.         x_left             = x_left_INI;
  266.         y_low              = fra_low-1.5*(Def_Btn_Height+2*dy2);
  267.         pos_txt_length_V   = [x_left, y_low, txt_width Def_Btn_Height];
  268.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  269.         pos_edi_length_V   = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  271.         x_left             = x_left_INI;
  272.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  273.         pos_txt_nextpow2_V = [x_left, y_low, txt_width Def_Btn_Height];
  274.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  275.         pos_edi_nextpow2_V = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  277.         x_left             = x_left_INI;
  278.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  279.         pos_txt_prevpow2_V = [x_left, y_low, txt_width Def_Btn_Height];
  280.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  281.         pos_edi_prevpow2_V = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  283.         x_left             = x_left_INI;
  284.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  285.         pos_txt_deslen_V   = [x_left, y_low, txt_width Def_Btn_Height];
  286.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  287.         pos_edi_deslen_V   = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  289.         x_left             = x_left_INI;
  290.         y_low              = y_low-(Def_Btn_Height+1*dy2);
  291.         pos_txt_direct_V   = [x_left, y_low, txt_width, Def_Btn_Height];
  292.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  293.         pos_pop_direct_V   = [x_left, y_low+dy/2, edi_width , Def_Btn_Height];
  294.  
  295.         fra_left           = x_left_INI-dx2;
  296.         fra_low            = y_low-dy;
  297.         fra_width          = cmd_width-dx2;
  298.         fra_heigth         = 5*(Def_Btn_Height+1*dy2)+dy2;
  299.         pos_fra_V          = [fra_left, fra_low, fra_width, fra_heigth];
  300.         txt_fra_V_heigth   = 3 * Def_Btn_Height / 4;
  301.         txt_fra_V_width    = Def_Btn_Width;
  302.         txt_fra_V_low      = (fra_low + fra_heigth) - (txt_fra_V_heigth / 2);
  303.         txt_fra_V_left     = fra_left + (fra_width - txt_fra_V_width) / 2;
  304.         pos_txt_fra_V      = [txt_fra_V_left, txt_fra_V_low, ...
  305.                                txt_fra_V_width, txt_fra_V_heigth];
  307.         x_left             = x_left_INI-dx2+(cmd_width-3*txt_width/4)/2;
  308.         y_low              = fra_low-(Def_Btn_Height+1*dy2);
  309.         pos_txt_mode       = [x_left, y_low, txt_width Def_Btn_Height];
  310.  
  311.         x_left             = x_left_INI+dx2;
  312.         y_low              = y_low-(Def_Btn_Height+dy);
  313.         pos_pop_mode       = [x_left, y_low, pus_width , Def_Btn_Height];
  315.         x_left             = x_left_INI+dx2;
  316.         y_low              = y_low-2*Def_Btn_Height-dy;
  317.         pos_pus_extend     = [x_left, y_low, pus_width , 1.5*Def_Btn_Height];
  319.         pos_fra_H_2        = pos_fra_H;
  320.         pos_fra_H_2(2)     = pos_fra_H(2)-Def_Btn_Height;
  321.         pos_fra_H_2(4)     = 3*(Def_Btn_Height+2*dy2)+dy;
  323.         txt_fra_H_heigth   = 3 * Def_Btn_Height / 4;
  324.         txt_fra_H_width    = Def_Btn_Width;
  325.         txt_fra_H_low      = (pos_fra_H_2(2)+pos_fra_H_2(4))-               ...
  326.                              (txt_fra_H_heigth / 2);
  327.         txt_fra_H_left     = pos_fra_H_2(1)+(pos_fra_H_2(3)-txt_fra_H_width)...
  328.                              / 2;
  329.         pos_txt_fra_H_2    = [txt_fra_H_left, txt_fra_H_low, ...
  330.                                txt_fra_H_width, txt_fra_H_heigth];
  331.  
  332.         x_left             = x_left_INI-dx2;
  333.         y_low              = pos_fra_H_2(2)+pos_fra_H_2(4)+3*dy2;
  334.         pos_txt_swtdec     = [x_left, y_low, 3*txt_width/2, Def_Btn_Height];
  335.         x_left             = x_left+txt_width/2+edi_width+3*dx+dx2;
  336.         pos_pop_swtdec     = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  337.  
  338.         x_left             = x_left_INI;
  339.         y_low              = pos_fra_H_2(2)+pos_fra_H_2(4)-(Def_Btn_Height+ ...
  340.                              2*dy2);
  341.         pos_txt_swtlen_H   = [x_left, y_low, txt_width, Def_Btn_Height];
  342.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  343.         pos_edi_swtlen_H   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  344.  
  345.         x_left             = x_left_INI;
  346.         y_low              = y_low-(Def_Btn_Height+2*dy2);
  347.         pos_txt_swtclen_H  = [x_left, y_low, txt_width, Def_Btn_Height];
  348.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  349.         pos_edi_swtclen_H  = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  350.  
  351.         x_left             = x_left_INI;
  352.         y_low              = y_low-(Def_Btn_Height+2*dy2);
  353.         pos_txt_swtdir_H   = [x_left, y_low, txt_width, Def_Btn_Height];
  354.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  355.         pos_edi_swtdir_H   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  356.  
  357.         pos_fra_V_2        = pos_fra_V;
  358.         pos_fra_V_2(4)     = 3*(Def_Btn_Height+2*dy2)+dy;
  360.         txt_fra_V_heigth   = 3 * Def_Btn_Height / 4;
  361.         txt_fra_V_width    = Def_Btn_Width;
  362.         txt_fra_V_low      = (pos_fra_V_2(2)+pos_fra_V_2(4))-               ...
  363.                              (txt_fra_V_heigth / 2);
  364.         txt_fra_V_left     = pos_fra_V_2(1)+(pos_fra_V_2(3)-txt_fra_V_width)...
  365.                              / 2;
  366.         pos_txt_fra_V_2    = [txt_fra_V_left, txt_fra_V_low, ...
  367.                                txt_fra_V_width, txt_fra_V_heigth];
  368.  
  369.         x_left             = x_left_INI;
  370.         y_low              = pos_fra_V_2(2)+pos_fra_V_2(4)-(Def_Btn_Height+ ...
  371.                              2*dy2);
  372.         pos_txt_swtlen_V   = [x_left, y_low, txt_width, Def_Btn_Height];
  373.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  374.         pos_edi_swtlen_V   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  375.  
  376.         x_left             = x_left_INI;
  377.         y_low              = y_low-(Def_Btn_Height+2*dy2);
  378.         pos_txt_swtclen_V  = [x_left, y_low, txt_width, Def_Btn_Height];
  379.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  380.         pos_edi_swtclen_V  = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  381.  
  382.         x_left             = x_left_INI;
  383.         y_low              = y_low-(Def_Btn_Height+2*dy2);
  384.         pos_txt_swtdir_V   = [x_left, y_low, txt_width, Def_Btn_Height];
  385.         x_left             = x_left+txt_width/2+edi_width+3*dx;
  386.         pos_edi_swtdir_V   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  388.         % String property of objects.
  389.         %----------------------------
  390.         str_txt_image    = 'Image';
  391.         str_edi_image    = '';
  392.         str_txt_length   = 'Length';
  393.         str_edi_length   = '';
  394.         str_txt_nextpow2 = 'Next Power of 2';
  395.         str_edi_nextpow2 = '';
  396.         str_txt_prevpow2 = 'Previous Power of 2';
  397.         str_edi_prevpow2 = '';
  398.         str_txt_deslen   = 'Desired Length';
  399.         str_edi_deslen   = '';
  400.         str_txt_direct   = 'Direction to extend';
  401.         str_pop_direct_H = [ 'Both ' ; 'Left ' ; 'Right'];
  402.         str_pop_direct_V = [ 'Both ' ; 'Up   ' ; 'Down '];
  403.         str_txt_fra_H    = 'Horizontal';
  404.         str_txt_fra_H_2  = 'Horizontal';
  405.         str_txt_fra_V    = 'Vertical';
  406.         str_txt_fra_V_2  = 'Vertical';
  407.         str_txt_mode     = 'Extension Mode';
  408.         str_pop_mode     = strvcat(...
  409.                             'Symmetric (Half-Point)', ...
  410.                             'Symmetric (Whole-Point)', ...
  411.                             'Antisymmetric (Half-Point)', ...
  412.                             'Antisymmetric (Whole-Point)', ...                            
  413.                             'Periodic', ... 
  414.                             'Zero Padding', ... 
  415.                             'Continuous', ... 
  416.                             'Smooth', ... 
  417.                             'For SWT'  ... 
  418.                             );
  419.         str_pus_extend    = 'Extend';
  420.         str_txt_swtdec    = 'SWT Decomposition Level';
  421.         str_pop_swtdec    = num2str((1:10)');
  422.         str_txt_swtlen_H  = 'Length';
  423.         str_edi_swtlen_H  = '';
  424.         str_txt_swtclen_H = 'Computed Length';
  425.         str_edi_swtclen_H = '';
  426.         str_txt_swtdir_H  = 'Direction to extend';
  427.         str_edi_swtdir_H  = 'Right';
  428.         str_tip_swtclen_H = strvcat(['Minimal length of the ',     ...
  429.                                      'periodic extended signal ',  ...
  430.                                      'for SWT decomposition']);
  431.         str_tip_swtclen_V = str_tip_swtclen_H;
  432.         str_txt_swtlen_V  = 'Length';
  433.         str_edi_swtlen_V  = '';
  434.         str_txt_swtclen_V = 'Computed Length';
  435.         str_edi_swtclen_V = '';
  436.         str_txt_swtdir_V  = 'Direction to extend';
  437.         str_edi_swtdir_V  = 'Down';
  438.  
  439.         % Construction of uicontrols.
  440.         %----------------------------
  441.         commonProp = {...
  442.                       'Parent',win_imgxtool, ...
  443.                       'Unit',win_units,      ...
  444.                       'Visible','off'        ...
  445.                       };
  446.         comFraProp = {commonProp{:}, ...
  447.                       'BackGroundColor',Def_FraBkColor, ...
  448.                       'Style','frame'                   ...
  449.                       };
  450.         comPusProp = {commonProp{:},'Style','Pushbutton'};
  451.         comPopProp = {commonProp{:},'Style','Popupmenu'};
  452.         comTxtProp = {commonProp{:}, ...
  453.                       'ForeGroundColor','k',            ...
  454.                       'BackGroundColor',Def_FraBkColor, ...
  455.                       'HorizontalAlignment','left',     ...
  456.                       'Style','Text'                    ...
  457.                       };
  458.         comEdiProp = {commonProp{:}, ...
  459.                       'ForeGroundColor','k',          ...
  460.                       'HorizontalAlignment','center', ...
  461.                       'Style','Edit'                  ...
  462.                       };
  463.         
  464.         txt_image      = uicontrol(                                   ...
  465.                                    comTxtProp{:},                     ...
  466.                                    'Position',pos_txt_image,          ...
  467.                                    'String',str_txt_image             ...
  468.                                    );
  469.         edi_image      = uicontrol(                                   ...
  470.                                    comEdiProp{:},                     ...
  471.                                    'Position',pos_edi_image,          ...
  472.                                    'String',str_edi_image,            ...
  473.                                    'BackGroundColor',Def_FraBkColor,  ...
  474.                                    'Enable','Inactive'                ...
  475.                                    );
  477.         frm_fra_H      = uicontrol(                                   ...
  478.                                    comFraProp{:},                     ...
  479.                                    'Position',pos_fra_H               ...
  480.                                    );
  481.         txt_fra_H      = uicontrol(                                   ...
  482.                                    comTxtProp{:},                     ...
  483.                                    'HorizontalAlignment','center',    ...
  484.                                    'Position',pos_txt_fra_H,          ...
  485.                                    'String',str_txt_fra_H             ...
  486.                                    );
  487.         txt_length_H   = uicontrol(                                   ...
  488.                                    comTxtProp{:},                     ...
  489.                                    'Position',pos_txt_length_H,       ...
  490.                                    'String',str_txt_length            ...
  491.                                    );
  492.         edi_length_H   = uicontrol(                                   ...
  493.                                    comEdiProp{:},                     ...
  494.                                    'Position',pos_edi_length_H,       ...
  495.                                    'String',str_edi_length,           ...
  496.                                    'Backgroundcolor',Def_FraBkColor,  ...
  497.                                    'Enable','Inactive'                ...
  498.                                    );
  499.         txt_nextpow2_H = uicontrol(                                   ...
  500.                                    comTxtProp{:},                     ...
  501.                                    'Position',pos_txt_nextpow2_H,     ...
  502.                                    'String',str_txt_nextpow2          ...
  503.                                    );
  504.         edi_nextpow2_H = uicontrol(                                   ...
  505.                                    comEdiProp{:},                     ...
  506.                                    'Position',pos_edi_nextpow2_H,     ...
  507.                                    'String',str_edi_nextpow2,         ...
  508.                                    'Backgroundcolor',Def_FraBkColor,  ...
  509.                                    'Enable','Inactive'                ...
  510.                                    );
  511.         txt_prevpow2_H = uicontrol(                                   ...
  512.                                    comTxtProp{:},                     ...
  513.                                    'Position',pos_txt_prevpow2_H,     ...
  514.                                    'String',str_txt_prevpow2          ...
  515.                                    );
  516.         edi_prevpow2_H = uicontrol(                                   ...
  517.                                    comEdiProp{:},                     ...
  518.                                    'Position',pos_edi_prevpow2_H,     ...
  519.                                    'String',str_edi_prevpow2,         ...
  520.                                    'Backgroundcolor',Def_FraBkColor,  ...
  521.                                    'Enable','Inactive'                ...
  522.                                    );
  523.         txt_deslen_H   = uicontrol(                                   ...
  524.                                    comTxtProp{:},                     ...
  525.                                    'Position',pos_txt_deslen_H,       ...
  526.                                    'String',str_txt_deslen            ...
  527.                                    );
  528.         edi_deslen_H   = uicontrol(                                   ...
  529.                                    comEdiProp{:},                     ...
  530.                                    'Position',pos_edi_deslen_H,       ...
  531.                                    'String',str_edi_deslen,           ...
  532.                                    'Backgroundcolor',Def_EdiBkColor   ...
  533.                                    );
  534.         txt_direct_H   = uicontrol(                                   ...
  535.                                    comTxtProp{:},                     ...
  536.                                    'Position',pos_txt_direct_H,       ...
  537.                                    'String',str_txt_direct            ...
  538.                                    );
  539.         pop_direct_H   = uicontrol(                                   ...
  540.                                    comPopProp{:},                     ...
  541.                                    'Position',pos_pop_direct_H,       ...
  542.                                    'String',str_pop_direct_H          ...
  543.                                    );
  545.         frm_fra_V      = uicontrol(                                   ...
  546.                                    comFraProp{:},                     ...
  547.                                    'Position',pos_fra_V               ...
  548.                                    );
  549.         txt_fra_V      = uicontrol(                                   ...
  550.                                    comTxtProp{:},                     ...
  551.                                    'HorizontalAlignment','center',    ...
  552.                                    'Position',pos_txt_fra_V,          ...
  553.                                    'String',str_txt_fra_V             ...
  554.                                    );
  555.         txt_length_V   = uicontrol(                                   ...
  556.                                    comTxtProp{:},                     ...
  557.                                    'Position',pos_txt_length_V,       ...
  558.                                    'String',str_txt_length            ...
  559.                                    );
  560.         edi_length_V   = uicontrol(                                   ...
  561.                                    comEdiProp{:},                     ...
  562.                                    'Position',pos_edi_length_V,       ...
  563.                                    'String',str_edi_length,           ...
  564.                                    'Backgroundcolor',Def_FraBkColor,  ...
  565.                                    'Enable','Inactive'                ...
  566.                                    );
  567.  
  568.         txt_nextpow2_V = uicontrol(                                   ...
  569.                                    comTxtProp{:},                     ...
  570.                                    'Position',pos_txt_nextpow2_V,     ...
  571.                                    'String',str_txt_nextpow2          ...
  572.                                    );
  573.         edi_nextpow2_V = uicontrol(                                   ...
  574.                                    comEdiProp{:},                     ...
  575.                                    'Position',pos_edi_nextpow2_V,     ...
  576.                                    'String',str_edi_nextpow2,         ...
  577.                                    'Backgroundcolor',Def_FraBkColor,  ...
  578.                                    'Enable','Inactive'                ...
  579.                                    );
  580.         txt_prevpow2_V = uicontrol(                                   ...
  581.                                    comTxtProp{:},                     ...
  582.                                    'Position',pos_txt_prevpow2_V,     ...
  583.                                    'String',str_txt_prevpow2          ...
  584.                                    );
  585.         edi_prevpow2_V = uicontrol(                                   ...
  586.                                    comEdiProp{:},                     ...
  587.                                    'Position',pos_edi_prevpow2_V,     ...
  588.                                    'String',str_edi_prevpow2,         ...
  589.                                    'Backgroundcolor',Def_FraBkColor,  ...
  590.                                    'Enable','Inactive'                ...
  591.                                 );
  592.         txt_deslen_V   = uicontrol(                                   ...
  593.                                    comTxtProp{:},                     ...
  594.                                    'Position',pos_txt_deslen_V,       ...
  595.                                    'String',str_txt_deslen            ...
  596.                                    );
  597.         edi_deslen_V   = uicontrol(                                   ...
  598.                                    comEdiProp{:},                     ...
  599.                                    'Position',pos_edi_deslen_V,       ...
  600.                                    'String',str_edi_deslen,           ...
  601.                                    'Backgroundcolor',Def_EdiBkColor   ...
  602.                                    );
  603.         txt_direct_V   = uicontrol(                                   ...
  604.                                    comTxtProp{:},                     ...
  605.                                    'Position',pos_txt_direct_V,       ...
  606.                                    'String',str_txt_direct            ...
  607.                                    );
  608.         pop_direct_V   = uicontrol(                                   ...
  609.                                    comPopProp{:},                     ...
  610.                                    'Position',pos_pop_direct_V,       ...
  611.                                    'String',str_pop_direct_V          ...
  612.                                    );
  614.         txt_mode       = uicontrol(                                   ...
  615.                                    comTxtProp{:},                     ...
  616.                                    'Position',pos_txt_mode,           ...
  617.                                    'String',str_txt_mode              ...
  618.                                    );
  619.         pop_mode       = uicontrol(                                   ...
  620.                                    comPopProp{:},                     ...
  621.                                    'Position',pos_pop_mode,           ...
  622.                                    'String',str_pop_mode              ...
  623.                                    );
  624.         pus_extend     = uicontrol(                                   ...
  625.                                    comPusProp{:},                     ...
  626.                                    'Position',pos_pus_extend,         ...
  627.                                    'String',xlate(str_pus_extend),           ...
  628.                                    'Interruptible','On'               ...
  629.                                    );
  631.         txt_swtdec     = uicontrol(                                   ...
  632.                                    comTxtProp{:},                     ...
  633.                                    'Position',pos_txt_swtdec,         ...
  634.                                    'String',str_txt_swtdec            ...
  635.                                    );
  636.         pop_swtdec     = uicontrol(                                   ...
  637.                                    comPopProp{:},                     ...
  638.                                    'Position',pos_pop_swtdec,         ...
  639.                                    'String',str_pop_swtdec            ...
  640.                                    );
  641.         frm_fra_H_2    = uicontrol(                                   ...
  642.                                    comFraProp{:},                     ...
  643.                                    'Position',pos_fra_H_2             ...
  644.                                    );
  645.         txt_fra_H_2    = uicontrol(                                   ...
  646.                                    comTxtProp{:},                     ...
  647.                                    'HorizontalAlignment','center',    ...
  648.                                    'Position',pos_txt_fra_H_2,        ...
  649.                                    'String',str_txt_fra_H_2           ...
  650.                                    );
  651.         txt_swtlen_H   = uicontrol(                                   ...
  652.                                    comTxtProp{:},                     ...
  653.                                    'Position',pos_txt_swtlen_H,       ...
  654.                                    'String',str_txt_swtlen_H          ...
  655.                                    );
  656.         edi_swtlen_H   = uicontrol(                                   ...
  657.                                    comEdiProp{:},                     ...
  658.                                    'Position',pos_edi_swtlen_H,       ...
  659.                                    'String',str_edi_swtlen_H,         ...
  660.                                    'Backgroundcolor',Def_FraBkColor,  ...
  661.                                    'Enable','Inactive'                ...
  662.                                    );
  663.         txt_swtclen_H  = uicontrol(                                   ...
  664.                                    comTxtProp{:},                     ...
  665.                                    'Position',pos_txt_swtclen_H,      ...
  666.                                    'ToolTipString',str_tip_swtclen_H, ...
  667.                                    'String',str_txt_swtclen_H         ...
  668.                                    );
  669.         edi_swtclen_H  = uicontrol(                                   ...
  670.                                    comEdiProp{:},                     ...
  671.                                    'Position',pos_edi_swtclen_H,      ...
  672.                                    'String',str_edi_swtclen_H,        ...
  673.                                    'Backgroundcolor',Def_FraBkColor,  ...
  674.                                    'Enable','Inactive'                ...
  675.                                    );
  676.         txt_swtdir_H   = uicontrol(                                   ...
  677.                                    comTxtProp{:},                     ...
  678.                                    'Position',pos_txt_swtdir_H,       ...
  679.                                    'String',str_txt_swtdir_H          ...
  680.                                    );
  681.         edi_swtdir_H   = uicontrol(                                   ...
  682.                                    comEdiProp{:},                     ...
  683.                                    'Position',pos_edi_swtdir_H,       ...
  684.                                    'String',str_edi_swtdir_H,         ...
  685.                                    'Backgroundcolor',Def_FraBkColor,  ...
  686.                                    'Enable','Inactive'                ...
  687.                                    );
  688.         frm_fra_V_2    = uicontrol(                                   ...
  689.                                    comFraProp{:},                     ...
  690.                                    'Position',pos_fra_V_2             ...
  691.                                    );
  692.         txt_fra_V_2    = uicontrol(                                   ...
  693.                                    comTxtProp{:},                     ...
  694.                                    'HorizontalAlignment','center',    ...
  695.                                    'Position',pos_txt_fra_V_2,        ...
  696.                                    'String',str_txt_fra_V_2           ...
  697.                                    );
  698.         txt_swtlen_V   = uicontrol(                                   ...
  699.                                    comTxtProp{:},                     ...
  700.                                    'Position',pos_txt_swtlen_V,       ...
  701.                                    'String',str_txt_swtlen_V          ...
  702.                                    );
  703.         edi_swtlen_V   = uicontrol(                                   ...
  704.                                    comEdiProp{:},                     ...
  705.                                    'Position',pos_edi_swtlen_V,       ...
  706.                                    'String',str_edi_swtlen_V,         ...
  707.                                    'Backgroundcolor',Def_FraBkColor,  ...
  708.                                    'Enable','Inactive'                ...
  709.                                    );
  710.         txt_swtclen_V  = uicontrol(                                   ...
  711.                                    comTxtProp{:},                     ...
  712.                                    'Position',pos_txt_swtclen_V,      ...
  713.                                    'ToolTipString',str_tip_swtclen_V, ...
  714.                                    'String',str_txt_swtclen_V         ...
  715.                                    );
  716.         edi_swtclen_V  = uicontrol(                                   ...
  717.                                    comEdiProp{:},                     ...
  718.                                    'Position',pos_edi_swtclen_V,      ...
  719.                                    'String',str_edi_swtclen_V,        ...
  720.                                    'Backgroundcolor',Def_FraBkColor,  ...
  721.                                    'Enable','Inactive'                ...
  722.                                    );
  723.         txt_swtdir_V   = uicontrol(                                   ...
  724.                                    comTxtProp{:},                     ...
  725.                                    'Position',pos_txt_swtdir_V,       ...
  726.                                    'String',str_txt_swtdir_V          ...
  727.                                    );
  728.         edi_swtdir_V   = uicontrol(                                   ...
  729.                                    comEdiProp{:},                     ...
  730.                                    'Position',pos_edi_swtdir_V,       ...
  731.                                    'String',str_edi_swtdir_V,         ...
  732.                                    'Backgroundcolor',Def_FraBkColor,  ...
  733.                                    'Enable','Inactive'                ...
  734.                                    );
  735.                              
  736.         % Callback property of objects.
  737.         %------------------------------
  738.         str_win_imgxtool = num2mstr(win_imgxtool);
  739.         str_edi_deslen_H = num2mstr(edi_deslen_H);
  740.         str_pop_direct_H = num2mstr(pop_direct_H);
  741.         str_edi_deslen_V = num2mstr(edi_deslen_V);
  742.         str_pop_direct_V = num2mstr(pop_direct_V);
  743.         str_pop_mode   = num2mstr(pop_mode);
  744.         str_pus_extend   = num2mstr(pus_extend);
  745.         cba_edi_deslen_H = [mfilename '(''update_deslen'','   ...
  746.                                  str_win_imgxtool             ...
  747.                                  ',''H'');'];
  748.         cba_edi_deslen_V = [mfilename '(''update_deslen'','   ...
  749.                                  str_win_imgxtool             ...
  750.                                  ',''V'');'];
  751.         cba_pop_direct_H = [mfilename '(''clear_GRAPHICS'','  ...
  752.                                  str_win_imgxtool             ...
  753.                                  ');'];
  754.         cba_pop_direct_V = [mfilename '(''clear_GRAPHICS'','  ...
  755.                                  str_win_imgxtool             ...
  756.                                  ');'];
  757.         cba_pop_mode   = [mfilename '(''mode'','            ...
  758.                                  str_win_imgxtool             ...
  759.                                  ');'];
  760.         cba_pus_extend   = [mfilename '(''extend_truncate'',' ...
  761.                                  str_win_imgxtool             ...
  762.                                  ');'];
  763.         cba_pop_swtdec   = [mfilename '(''update_swtdec'','   ...
  764.                                  str_win_imgxtool             ...
  765.                                  ');'];
  766.         set(edi_deslen_H,'Callback',cba_edi_deslen_H);
  767.         set(pop_direct_H,'Callback',cba_pop_direct_H);
  768.         set(edi_deslen_V,'Callback',cba_edi_deslen_V);
  769.         set(pop_direct_V,'Callback',cba_pop_direct_V);
  770.         set(pop_mode,'Callback',cba_pop_mode);
  771.         set(pus_extend,'Callback',cba_pus_extend);
  772.         set(pop_swtdec,'Callback',cba_pop_swtdec);
  773.         
  774.         % Graphic part of the window.
  775.         %============================
  777.         % Axes Construction.
  778.         %-------------------
  779.         commonProp  = {...
  780.                        'Parent',win_imgxtool,           ...
  781.                        'Visible','off',                 ...
  782.                        'Units','pixels',                ...
  783.                        'XTicklabelMode','manual',       ...
  784.                        'YTicklabelMode','manual',       ...
  785.                        'XTicklabel',[],'YTicklabel',[], ...
  786.                        'XTick',[],'YTick',[],           ...
  787.                        'Box','On'                       ...
  788.                        };
  790.         % Image Axes construction.
  791.         %--------------------------
  792.         x_left      = x_graph;
  793.         x_wide      = w_graph-2*x_left;
  794.         y_low       = y_graph+2*bdy;
  795.         y_height    = h_graph-y_low-2*bdy;
  796.         Pos_Axe_Img = [x_left, y_low, x_wide, y_height];
  797.         Axe_Img     = axes( commonProp{:},         ...
  798.                             'Ydir','Reverse',      ...
  799.                             'Position',Pos_Axe_Img ...
  800.                             );
  802.         % Legend Axes construction.
  803.         %--------------------------
  804.         X_Leg = Pos_Axe_Img(1);
  805.         Y_Leg = Pos_Axe_Img(2) + 11*Pos_Axe_Img(4)/10;
  806.         W_Leg = (Pos_Axe_Img(3) - Pos_Axe_Img(1)) / 2.5;
  807.         H_Leg = (Pos_Axe_Img(4) - Pos_Axe_Img(2)) / 4;
  808.         Pos_Axe_Leg = [X_Leg Y_Leg W_Leg H_Leg];
  809.         ud.dynvzaxe.enable = 'Off';
  810.         Axe_Leg = axes(commonProp{:},          ...
  811.                        'Position',Pos_Axe_Leg, ...
  812.                        'Xlim',[0 180],         ...
  813.                        'Ylim',[0 20],          ...
  814.                        'Drawmode','fast',      ...
  815.                        'userdata',ud           ...
  816.                        );
  817.         L1 = line(                           ...
  818.                   'Parent',Axe_Leg,          ...
  819.                   'Xdata',11:30,             ...
  820.                   'Ydata',ones(1,20)*14,     ...
  821.                   'LineWidth',3,             ...
  822.                   'Visible','off',           ...
  823.                   'Color','yellow'           ...
  824.                   );
  825.         L2 = line(                           ...
  826.                   'Parent',Axe_Leg,          ...
  827.                   'Xdata',11:30,             ...
  828.                   'Ydata',ones(1,20)*7,      ...
  829.                   'LineWidth',3,             ...
  830.                   'Visible','off',           ...
  831.                   'Color','red'              ...
  832.                   );
  833.         T1 = text(40,14,xlate('Transformed image'), ...
  834.                   'Parent',Axe_Leg,          ...
  835.                   'FontWeight','bold',       ...
  836.                   'Visible','off'            ...
  837.                   );
  838.         T2 = text(40,7,xlate('Original image'),     ...
  839.                   'Parent',Axe_Leg,          ...
  840.                   'FontWeight','bold',       ...
  841.                   'Visible','off'            ...
  842.                   );
  844.         % Adding colormap GUI.
  845.         %---------------------
  846.         [Hdls_Colmap1,Hdls_Colmap2] = utcolmap('create',win_imgxtool, ...
  847.                  'xloc',xlocINI,'bkcolor',Def_FraBkColor);
  848.         Hdls_Colmap = [Hdls_Colmap1 Hdls_Colmap2];
  849.         set(Hdls_Colmap,'visible','off');
  851.         % Setting units to normalized.
  852.         %-----------------------------
  853.         wfigmngr('normalize',win_imgxtool);
  855.         % Store values.
  856.         %--------------
  857.         Hdls_UIC_C  = {...
  858.                        m_load,m_save,m_demo,...
  859.                        txt_image,edi_image,  ...
  860.                        txt_mode,pop_mode,pus_extend ...
  861.                        };
  862.         Hdls_UIC_H  = {...
  863.                        frm_fra_H,txt_fra_H,           ...
  864.                        txt_length_H,edi_length_H,     ...
  865.                        txt_nextpow2_H,edi_nextpow2_H, ...
  866.                        txt_prevpow2_H,edi_prevpow2_H, ...
  867.                        txt_deslen_H,edi_deslen_H,     ...
  868.                        txt_direct_H,pop_direct_H      ...
  869.                        };
  870.         Hdls_UIC_V  = {...
  871.                        frm_fra_V,txt_fra_V,           ...
  872.                        txt_length_V,edi_length_V,     ...
  873.                        txt_nextpow2_V,edi_nextpow2_V, ...
  874.                        txt_prevpow2_V,edi_prevpow2_V, ...
  875.                        txt_deslen_V,edi_deslen_V,     ...
  876.                        txt_direct_V,pop_direct_V      ...
  877.                        };
  879.         Hdls_UIC_Swt = {...
  880.                        txt_swtdec,pop_swtdec,       ...
  881.                        frm_fra_H_2,txt_fra_H_2,     ...
  882.                        txt_swtlen_H,edi_swtlen_H,   ...
  883.                        txt_swtclen_H,edi_swtclen_H, ...
  884.                        txt_swtdir_H,edi_swtdir_H,   ...
  885.                        txt_swtdec,pop_swtdec,       ...
  886.                        frm_fra_V_2,txt_fra_V_2,     ...
  887.                        txt_swtlen_V,edi_swtlen_V,   ...
  888.                        txt_swtclen_V,edi_swtclen_V, ...
  889.                        txt_swtdir_V,edi_swtdir_V    ...
  890.                        };
  891.  
  892.         Hdls_Axes    = struct('Axe_Img',Axe_Img,'Axe_Leg',Axe_Leg);
  894.         Pos_Axe_Img_Ori = get(Axe_Img,'Position');
  896. % Add Context Sensitive Help (CSHelp).
  897. %-------------------------------------
  898. hdl_BORDER_DIST = [txt_mode,pop_mode];
  899. wfighelp('add_ContextMenu',win_imgxtool,...
  900. hdl_BORDER_DIST,'BORDER_DIST');
  901. %-------------------------------------
  902.         
  903. % Store handles and values.
  904.         %--------------------------
  905.         wfigmngr('storeValue',win_imgxtool,'Hdls_UIC_C',Hdls_UIC_C);
  906.         wfigmngr('storeValue',win_imgxtool,'Hdls_UIC_H',Hdls_UIC_H);
  907.         wfigmngr('storeValue',win_imgxtool,'Hdls_UIC_V',Hdls_UIC_V);
  908.         wfigmngr('storeValue',win_imgxtool,'Hdls_UIC_Swt',Hdls_UIC_Swt);
  909.         wfigmngr('storeValue',win_imgxtool,'Hdls_Axes',Hdls_Axes);
  910.         wfigmngr('storeValue',win_imgxtool,'Hdls_Colmap',Hdls_Colmap);
  911.         wfigmngr('storeValue',win_imgxtool,'Pos_Axe_Img_Ori',Pos_Axe_Img_Ori);
  913.         % End waiting.
  914.         %---------------
  915.         wwaiting('off',win_imgxtool);
  917.     case 'load'
  918.     %------------------------------------------%
  919.     % Option: 'LOAD' - Load the original image %
  920.     %------------------------------------------%
  922.         % Loading file.
  923.         %--------------
  924.         if length(varargin)<2  % LOAD Option
  925.             imgFileType = ['*.mat;*.bmp;*.hdf;*.jpg;' ...
  926.                     '*.jpeg;*.pcx;*.tif;*.tiff;*.gif'];
  927.             [imgInfos,Anal_Image,map,ok] = ...
  928.                 utguidiv('load_img',win_imgxtool,imgFileType, ...
  929.                 'Load Image',default_nbcolors);
  930.         else
  931.             img_Name = deblank(varargin{2});
  932.             filename = [img_Name '.mat'];
  933.             pathname = utguidiv('WTB_DemoPath',filename);
  934.             [imgInfos,Anal_Image,map,ok] = ...
  935.                 utguidiv('load_dem2D',win_imgxtool,pathname,filename,default_nbcolors);
  936.         end
  937.         if ~ok, return; end
  939.         % Begin waiting.
  940.         %---------------
  941.         wwaiting('msg',win_imgxtool,'Wait ... loading');
  943.         % Cleaning.
  944.         %----------
  945.         imgxtool('clear_GRAPHICS',win_imgxtool,'load');
  947.         % Disable save menu.
  948.         %-------------------
  949.         set(m_save,'Enable','off');
  951.         % Compute UIC values.
  952.         %--------------------
  953.         H           = imgInfos.size(1);
  954.         V           = imgInfos.size(2);
  955.         pow_H       = fix(log(H)/log(2));
  956.         Next_Pow2_H = 2^(pow_H+1);
  957.         if isequal(2^pow_H,H)
  958.             Prev_Pow2_H = 2^(pow_H-1);
  959.             swtpow_H    = pow_H;
  960.         else
  961.             Prev_Pow2_H = 2^pow_H;
  962.             swtpow_H    = pow_H+1;
  963.         end
  964.         pow_V       = fix(log(V)/log(2));
  965.         Next_Pow2_V = 2^(pow_V+1);
  966.         if isequal(2^pow_V,V)
  967.             Prev_Pow2_V   = 2^(pow_V-1);
  968.             swtpow_V    = pow_V;
  969.         else
  970.             Prev_Pow2_V   = 2^pow_V;
  971.             swtpow_V    = pow_V+1;
  972.         end
  973.         
  974.         % Compute the max level value for SWT.
  975.         %-------------------------------------
  976.         Max_Lev = min(swtpow_H,swtpow_V);
  977.                 
  978.         % Compute the default level for SWT .
  979.         %-----------------------------------
  980.         def_pow = 1;
  981.         if ~rem(H,2)
  982.             while ~rem(H,2^def_pow), def_pow = def_pow + 1; end
  983.             def_level_H = def_pow-1;
  984.         else
  985.             def_level_H = def_pow;
  986.         end
  987.         
  988.         def_pow = 1;
  989.         if ~rem(V,2)
  990.             while ~rem(V,2^def_pow), def_pow = def_pow + 1; end
  991.             def_level_V = def_pow-1;
  992.         else
  993.             def_level_V = def_pow;
  994.         end
  995.         Def_Lev = min(max(def_level_H,def_level_V),Max_Lev);
  996.         
  997.         % Compute the extended lengths for SWT.
  998.         %--------------------------------------
  999.         C_Length_H = H;
  1000.         while rem(C_Length_H,2^def_level_H), C_Length_H = C_Length_H + 1; end
  1001.         C_Length_V = V;
  1002.         while rem(C_Length_V,2^def_level_V), C_Length_V = C_Length_V + 1; end
  1003.         
  1004.         % Set UIC values.
  1005.         %----------------
  1006.         set(edi_image,'String',imgInfos.name);
  1007.         set(edi_length_H,'String',sprintf('%.0f',H));
  1008.         set(edi_nextpow2_H,'String',sprintf('%.0f',Next_Pow2_H));
  1009.         set(edi_prevpow2_H,'String',sprintf('%.0f',Prev_Pow2_H));
  1010.         set(edi_deslen_H,'String',sprintf('%.0f',Next_Pow2_H));
  1011.         set(pop_direct_H,'Value',1);
  1012.         set(edi_length_V,'String',sprintf('%.0f',V));
  1013.         set(edi_nextpow2_V,'String',sprintf('%.0f',Next_Pow2_V));
  1014.         set(edi_prevpow2_V,'String',sprintf('%.0f',Prev_Pow2_V));
  1015.         set(edi_deslen_V,'String',sprintf('%.0f',Next_Pow2_V));
  1016.         set(pop_direct_V,'Value',1);
  1017.         set(pop_mode,'Value',1);
  1018.         set(pus_extend,'String',xlate('Extend'));
  1019.         set(pus_extend,'Enable','On');
  1020.         set(pop_swtdec,'String',num2str((1:Max_Lev)'));
  1021.         set(pop_swtdec,'Value',Def_Lev);
  1022.         set(edi_swtlen_H,'String',sprintf('%.0f',H));
  1023.         set(edi_swtlen_V,'String',sprintf('%.0f',V));        
  1024.         set(edi_swtclen_H,'String',sprintf('%.0f',C_Length_H));
  1025.         set(edi_swtclen_V,'String',sprintf('%.0f',C_Length_V));        
  1026.                 
  1027.         % Set UIC visible on.
  1028.         %--------------------
  1029.         set(cat(1,Hdls_UIC_H{:}),'visible','on')
  1030.         set(cat(1,Hdls_UIC_V{:}),'visible','on')
  1031.         set(cat(1,Hdls_UIC_Swt{:}),'visible','off')
  1032.         set(cat(1,Hdls_UIC_C{4:end}),'visible','on')
  1034.         % Setting Colormap.
  1035.         %------------------
  1036.         maxVal   = max(max(Anal_Image));
  1037.         nbcolors = round(max([2,min([maxVal,default_nbcolors])]));
  1038.         cbcolmap('set',win_imgxtool,'pal',{'pink',nbcolors});
  1039.         set(Hdls_Colmap,'Visible','on');
  1040.         set(Hdls_Colmap,'Enable','on');
  1042.         % Get Axes Handles.
  1043.         %------------------
  1044.         Axe_Img =  Hdls_Axes.Axe_Img ;
  1046.         % Drawing.
  1047.         %---------
  1048.         NB_ColorsInPal = default_nbcolors;
  1049.         Anal_Image     = wimgcode('cod',0,Anal_Image,NB_ColorsInPal,codemat_v);
  1050.         Img_Ori        = image(                ...
  1051.                            'parent',Axe_Img,   ...
  1052.                            'Xdata',[1,H],      ...
  1053.                            'Ydata',[1,V],      ...
  1054.                            'Cdata',Anal_Image, ...
  1055.                            'Visible','on'      ...
  1056.                            );
  1057.         [w,h]          = wpropimg([H V],Pos_Axe_Img_Ori(3),Pos_Axe_Img_Ori(4));
  1058.         Pos_Axe_Img    = Pos_Axe_Img_Ori;
  1059.         Pos_Axe_Img(1) = Pos_Axe_Img(1)+abs(Pos_Axe_Img(3)-w)/2;
  1060.         Pos_Axe_Img(2) = Pos_Axe_Img(2)+abs(Pos_Axe_Img(4)-h)/2;
  1061.         Pos_Axe_Img(3) = w;
  1062.         Pos_Axe_Img(4) = h;
  1063.         set(Axe_Img,                ...
  1064.             'Xlim',[1,H],           ...
  1065.             'Ylim',[1,V],           ...
  1066.             'Position',Pos_Axe_Img, ...
  1067.             'Visible','on');
  1068.         set(get(Axe_Img,'title'),'string',xlate('Original Image'));
  1070.         % Store values.
  1071.         %--------------
  1072.         wfigmngr('storeValue',win_imgxtool,'Anal_Image',Anal_Image);
  1073.         wfigmngr('storeValue',win_imgxtool,'Pos_Axe_Img_Bas',Pos_Axe_Img);
  1075.         % Update File_Save_Flag.
  1076.         %-----------------------
  1077.         File_Save_Flag = 0;
  1078.         wfigmngr('storeValue',win_imgxtool,'File_Save_Flag',File_Save_Flag);
  1079.         
  1080.         % Dynvtool Attachement.
  1081.         %----------------------
  1082.         dynvtool('init',win_imgxtool,[],Axe_Img,[],[1 1],'','','');
  1084.         % End waiting.
  1085.         %-------------
  1086.         wwaiting('off',win_imgxtool);
  1088.     case 'demo'
  1089.         imgxtool('load',varargin{:});
  1090.         Signal_Name  = deblank(varargin{2});
  1091.         ext_OR_trunc = varargin{3};
  1092.         if length(varargin)>3  & ~isempty(varargin{4})
  1093.             par_Demo = varargin{4};
  1094.         else
  1095.             return;
  1096.         end
  1097.         extMode  = par_Demo{1};
  1098.         lenSIG   = par_Demo{2};
  1099.         direct_H = lower(par_Demo{3});
  1100.         direct_V = lower(par_Demo{4});
  1101.         if ~isequal(extMode,'swt')
  1102.             set(edi_deslen_H,'String',sprintf('%.0f',lenSIG(1)));
  1103.             imgxtool('update_deslen',win_imgxtool,'H','noClear');
  1104.             set(edi_deslen_V,'String',sprintf('%.0f',lenSIG(2)));
  1105.             imgxtool('update_deslen',win_imgxtool,'V','noClear');
  1106.         else
  1107.             set(pop_swtdec,'Value',lenSIG)
  1108.             imgxtool('update_swtdec',win_imgxtool)
  1109.         end
  1110.         switch direct_H
  1111.           case 'both'  , direct = 1;
  1112.           case 'left'  , direct = 2;
  1113.           case 'right' , direct = 3;
  1114.         end
  1115.         set(pop_direct_H,'Value',direct);
  1116.         switch direct_V
  1117.           case 'both' , direct = 1;
  1118.           case 'up'   , direct = 2;
  1119.           case 'down' , direct = 3;
  1120.         end
  1121.         set(pop_direct_V,'Value',direct);
  1122.         switch ext_OR_trunc
  1123.           case 'ext'
  1124.             switch extMode
  1125.               case 'sym' ,         extVal = 1;
  1126.               case 'ppd' ,         extVal = 5;
  1127.               case 'zpd' ,         extVal = 6;
  1128.               case 'sp0' ,         extVal = 7;
  1129.               case {'sp1','spd'} , extVal = 8;
  1130.               case 'swt' ,         extVal = 9;
  1131.             end
  1132.             set(pop_mode,'Value',extVal);
  1133.             imgxtool('mode',win_imgxtool,'noClear')
  1135.           case 'trunc'
  1136.         end
  1137.         imgxtool('extend_truncate',win_imgxtool);
  1139.     case 'update_swtdec'
  1140.     %----------------------------------------------------------------------%
  1141.     % Option: 'UPDATE_SWTDEC' - Update values when using popup in SWT case %
  1142.     %----------------------------------------------------------------------%        
  1143.         % Update the computed length.
  1144.         %----------------------------
  1145.         Image_Length_H = wstr2num(get(edi_swtlen_H,'String'));
  1146.         Image_Length_V = wstr2num(get(edi_swtlen_V,'String'));
  1147.         Level          = get(pop_swtdec,'Value');
  1148.         remLen_H       = rem(Image_Length_H,2^Level);
  1149.         remLen_V       = rem(Image_Length_V,2^Level);
  1150.         if remLen_H>0
  1151.             C_Length_H = Image_Length_H + 2^Level-remLen_H;
  1152.         else
  1153.             C_Length_H = Image_Length_H;
  1154.         end
  1155.         if remLen_V>0
  1156.             C_Length_V = Image_Length_V + 2^Level-remLen_V;
  1157.         else
  1158.             C_Length_V = Image_Length_V;
  1159.         end
  1160.         set(edi_swtclen_H,'String',sprintf('%.0f',C_Length_H));
  1161.         set(edi_swtclen_V,'String',sprintf('%.0f',C_Length_V));
  1162.         
  1163.         % Enabling Extend button.
  1164.         %------------------------        
  1165.         set(pus_extend,'String',xlate('Extend'),'Enable','on');
  1167.     case 'update_deslen'
  1168.     %--------------------------------------------------------------------------%
  1169.     % Option: 'UPDATE_DESLEN' - Update values when changing the Desired Length %
  1170.     %--------------------------------------------------------------------------%
  1172.         % Get arguments.
  1173.         %---------------
  1174.         Direction = varargin{2};
  1176.         % Cleaning.
  1177.         %----------
  1178.         if nargin<4 , imgxtool('clear_GRAPHICS',win_imgxtool); end
  1180.         % Get Common UIC Handles.
  1181.         %------------------------
  1182.         Image_length_H   = wstr2num(get(edi_length_H,'String'));
  1183.         Desired_length_H = wstr2num(get(edi_deslen_H,'String'));
  1184.         Image_length_V   = wstr2num(get(edi_length_V,'String'));
  1185.         Desired_length_V = wstr2num(get(edi_deslen_V,'String'));
  1186.         uic_mode         = [txt_mode;pop_mode];
  1187.         switch Direction
  1188.           case 'H'
  1189.             % Update UIC values.
  1190.             %-------------------
  1191.             if      isempty(Desired_length_H) | Desired_length_H < 2
  1192.                     set(edi_deslen_H,'String',get(edi_nextpow2_H,'String'));
  1193.                     set(txt_direct_H,'String','Direction to extend');
  1194.                     set(pus_extend,'String',xlate('Extend'),'Enable','on');
  1195.             elseif  Image_length_H <= Desired_length_H
  1196.                     set(txt_direct_H,'String','Direction to extend');
  1197.                     set(pus_extend,'String',xlate('Extend'));
  1198.             elseif  Image_length_H > Desired_length_H
  1199.                     set(txt_direct_H,'String','Direction to truncate');
  1200.                     set(pus_extend,'String',xlate('Truncate'));
  1201.             end
  1203.           case 'V'
  1204.             % Update UIC values.
  1205.             %-------------------
  1206.             if      isempty(Desired_length_V) | Desired_length_V < 2
  1207.                     set(edi_deslen_V,'String',get(edi_nextpow2_V,'String'));
  1208.                     set(txt_direct_V,'String','Direction to extend');
  1209.                     set(pus_extend,'String',xlate('Extend'));
  1210.             elseif  Image_length_V <= Desired_length_V
  1211.                     set(txt_direct_V,'String','Direction to extend');
  1212.                     set(pus_extend,'String',xlate('Extend'));
  1213.             elseif  Image_length_V > Desired_length_V
  1214.                     set(txt_direct_V,'String','Direction to truncate');
  1215.                     set(pus_extend,'String',xlate('Truncate'));
  1216.             end
  1218.           otherwise
  1219.             errargt(mfilename,'Unknown Action','msg');
  1220.             error('*');
  1221.         end
  1222.         set(uic_mode,'Enable','on');
  1223.         set(pus_extend,'Enable','on');                                
  1224.         if      isequal(Image_length_H,Desired_length_H) & ...
  1225.                 isequal(Image_length_V,Desired_length_V)
  1226.                 set(txt_direct_V,'String','Direction to extend');
  1227.                 set(txt_direct_H,'String','Direction to extend');
  1228.                 set(uic_mode,'Enable','off');
  1229.                 set(pus_extend,'Enable','off');                        
  1230.         elseif  ((Image_length_H <= Desired_length_H)  & ...
  1231.                  (Image_length_V <  Desired_length_V)) | ...
  1232.                 ((Image_length_H <  Desired_length_H)  & ...
  1233.                  (Image_length_V <= Desired_length_V))                
  1234.                 set(uic_mode,'Visible','on');
  1235.                 set(pus_extend,'String',xlate('Extend'));
  1236.         elseif  (Image_length_H <= Desired_length_H) & ...
  1237.                 (Image_length_V > Desired_length_V)
  1238.                 set(uic_mode,'Visible','on');
  1239.                 set(pus_extend,'String',xlate('Extend / Truncate'));
  1240.         elseif  (Image_length_H > Desired_length_H) & ...
  1241.                 (Image_length_V <= Desired_length_V)
  1242.                 set(uic_mode,'Visible','on');
  1243.                 set(pus_extend,'String',xlate('Truncate / Extend'));
  1244.         elseif  (Image_length_H > Desired_length_H) & ...
  1245.                 (Image_length_V > Desired_length_V)
  1246.                 set(uic_mode,'Visible','off');
  1247.                 set(pus_extend,'String',xlate('Truncate'));
  1248.         end
  1249.         set(pus_extend,'Visible','on');
  1251.     case 'mode'
  1252.     %------------------------------------------------------------------------%
  1253.     % Option: 'MODE' -  Update the command part when changing Extension Mode %
  1254.     %------------------------------------------------------------------------%
  1256.         % Cleaning.
  1257.         %----------
  1258.         if nargin<3 , imgxtool('clear_GRAPHICS',win_imgxtool); end
  1260.         % Checking the SWT case for visibility setings.
  1261.         %----------------------------------------------
  1262.         Mode_str = get(pop_mode,'String');
  1263.         Mode_val = get(pop_mode,'Value');
  1264.         if  strcmp(deblank(Mode_str(Mode_val,:)),'For SWT')
  1265.             set(cat(1,Hdls_UIC_H{:}),'visible','off')
  1266.             set(cat(1,Hdls_UIC_V{:}),'visible','off')
  1267.             set(cat(1,Hdls_UIC_Swt{:}),'visible','on')
  1269.             Image_Length_H    = wstr2num(get(edi_swtlen_H,'String'));
  1270.             Computed_Length_H = wstr2num(get(edi_swtclen_H,'String'));
  1271.             Image_Length_V    = wstr2num(get(edi_swtlen_V,'String'));
  1272.             Computed_Length_V = wstr2num(get(edi_swtclen_V,'String'));
  1273.             set(pus_extend,'String',xlate('Extend'));
  1274.             if isequal(Image_Length_H,nextpow2(Image_Length_H)) & ...
  1275.                 isequal(Image_Length_V,nextpow2(Image_Length_V))
  1276.                 set(pus_extend,'Enable','off');
  1277.                 strSize = ['(' int2str(Image_Length_V), 'x', ...
  1278.                                int2str(Image_Length_H) ')'];
  1279.                 msg = strvcat(...
  1280.                   sprintf('The size of the image %s is a power of 2.', strSize),  ...
  1281.                   ['The SWT extension is not necessary!']);
  1282.                 wwarndlg(msg,'SWT Extension Mode','block');
  1284.             elseif Image_Length_H < Computed_Length_H | ...
  1285.                 Image_Length_V < Computed_Length_V
  1286.                 set(pus_extend,'Enable','on');
  1287.             end
  1288.         else
  1289.             set(pus_extend,'Enable','on');
  1290.             set(cat(1,Hdls_UIC_H{:}),'visible','on')
  1291.             set(cat(1,Hdls_UIC_V{:}),'visible','on')
  1292.             set(cat(1,Hdls_UIC_Swt{:}),'visible','off')
  1293.         end
  1294.         set(cat(1,Hdls_UIC_C{4:end}),'visible','on');
  1295.             
  1296.     case 'extend_truncate'
  1297.     %-------------------------------------------------------------------------%
  1298.     % Option: 'EXTEND_TRUNCATE' - Compute the new Extended or Truncated image %
  1299.     %-------------------------------------------------------------------------%
  1300.         
  1301.         % Begin waiting.
  1302.         %---------------
  1303.         wwaiting('msg',win_imgxtool,'Wait ... computing');
  1305.         % Get Axes Handles.
  1306.         %------------------
  1307.         Axe_Img =  Hdls_Axes.Axe_Img;
  1309.         % Get stored structure.
  1310.         %----------------------        
  1311.         Anal_Image = wfigmngr('getValue',win_imgxtool,'Anal_Image');
  1313.         % Get UIC values.
  1314.         %----------------
  1315.         Image_length_H   = wstr2num(get(edi_length_H,'String'));
  1316.         Str_pop_direct_H = get(pop_direct_H,'String');
  1317.         Val_pop_direct_H = get(pop_direct_H,'Value');
  1318.         Str_pop_direct_H = deblank(Str_pop_direct_H(Val_pop_direct_H,:));
  1319.         Image_length_V   = wstr2num(get(edi_length_V,'String'));
  1320.         Str_pop_direct_V = get(pop_direct_V,'String');
  1321.         Val_pop_direct_V = get(pop_direct_V,'Value');
  1322.         Str_pop_direct_V = deblank(Str_pop_direct_V(Val_pop_direct_V,:));
  1323.         Str_pop_mode     = get(pop_mode,'String');
  1324.         Val_pop_mode     = get(pop_mode,'Value');
  1325.         Str_pop_mode     = deblank(Str_pop_mode(Val_pop_mode,:));
  1327.         % Directions mode conversion and desired lengths.
  1328.         %------------------------------------------------
  1329.         if strcmp(Str_pop_mode,'For SWT')
  1330.             Dir_H = 'r';
  1331.             Dir_V = 'b';
  1332.             Desired_length_H = wstr2num(get(edi_swtclen_H,'String'));
  1333.             Desired_length_V = wstr2num(get(edi_swtclen_V,'String'));
  1334.         else
  1335.             Dir_H_Values     = ['b';'l';'r'];
  1336.             Dir_V_Values     = ['b';'u';'d'];
  1337.             Dir_H            = Dir_H_Values(Val_pop_direct_H);
  1338.             Dir_V            = Dir_V_Values(Val_pop_direct_V);
  1339.             Desired_length_H = wstr2num(get(edi_deslen_H,'String'));
  1340.             Desired_length_V = wstr2num(get(edi_deslen_V,'String'));
  1341.         end
  1342.         Desired_Size = [Desired_length_V Desired_length_H];
  1344.         % Extension mode conversion.
  1345.         %---------------------------
  1346.         Mode_Values = {'sym';'symw';'asym';'asymw';'ppd';'zpd';'sp0';'spd';'ppd'};
  1347.         Mode        = Mode_Values{Val_pop_mode};
  1349.         % Get action to do.
  1350.         %------------------
  1351.         action = deblank(get(pus_extend,'string'));
  1352.         switch action
  1353.           case xlate('Truncate')
  1354.               Deb_O_H = 1;
  1355.               Deb_O_V = 1;
  1356.               delta_H = Image_length_H - Desired_length_H;
  1357.               delta_V = Image_length_V - Desired_length_V;
  1358.               switch Str_pop_direct_H
  1359.                 case 'Left'  , Deb_N_H = 1 + delta_H;
  1360.                 case 'Right' , Deb_N_H = 1;
  1361.                 case 'Both'  , Deb_N_H = 1 + fix(delta_H/2);
  1362.               end
  1363.               switch Str_pop_direct_V
  1364.                 case 'Up'   , Deb_N_V = 1 + delta_V;
  1365.                 case 'Down' , Deb_N_V = 1;
  1366.                 case 'Both' , Deb_N_V = 1 + fix(delta_V/2);
  1367.               end
  1368.               Fin_O_H      = Deb_O_H + Image_length_H - 1;
  1369.               Fin_O_V      = Deb_O_V + Image_length_V - 1;
  1370.               Fin_N_H      = Deb_N_H + Desired_length_H - 1;
  1371.               Fin_N_V      = Deb_N_V + Desired_length_V - 1;
  1372.               First_Point  = [Deb_N_V Deb_N_H ];
  1373.               Image_Lims_O = [Deb_O_H Fin_O_H Deb_O_V Fin_O_V];
  1374.               Image_Lims_N = [Deb_N_H Fin_N_H Deb_N_V Fin_N_V];
  1376.               New_Image    = wkeep2(Anal_Image,Desired_Size,First_Point);
  1377.               imgxtool('draw',win_imgxtool,Anal_Image,New_Image, ...
  1378.                           [Image_Lims_O;Image_Lims_N]);
  1380.           case xlate('Extend / Truncate')
  1381.               Deb_O_V = 1;
  1382.               Deb_N_H = 1;
  1383.               delta_H = Desired_length_H - Image_length_H;
  1384.               delta_V = Image_length_V - Desired_length_V;
  1385.               switch Str_pop_direct_H
  1386.                 case 'Left'  , Deb_O_H = 1 + delta_H;
  1387.                 case 'Right' , Deb_O_H = 1;
  1388.                 case 'Both'  , Deb_O_H = 1 + fix(delta_H/2);
  1389.               end
  1390.               switch Str_pop_direct_V
  1391.                 case 'Up'   , Deb_N_V = 1 + delta_V;
  1392.                 case 'Down' , Deb_N_V = 1;
  1393.                 case 'Both' , Deb_N_V = 1 + fix(delta_V/2);
  1394.               end
  1395.               Fin_O_H      = Deb_O_H + Image_length_H - 1;
  1396.               Fin_O_V      = Deb_O_V + Image_length_V - 1;
  1397.               Fin_N_H      = Deb_N_H + Desired_length_H - 1;
  1398.               Fin_N_V      = Deb_N_V + Desired_length_V - 1;
  1399.               First_Point  = [Deb_N_V Deb_N_H ];
  1400.               Image_Lims_O = [Deb_O_H Fin_O_H Deb_O_V Fin_O_V];
  1401.               Image_Lims_N = [Deb_N_H Fin_N_H Deb_N_V Fin_N_V];
  1403.               New_Image    = wkeep2(Anal_Image,Desired_Size,First_Point);
  1404.               switch Dir_H
  1405.                 case {'l','r'}
  1406.                   New_Image = wextend('ac',Mode,New_Image,delta_H,Dir_H);
  1408.                 case 'b'
  1409.                   Ext_Size  = ceil(delta_H/2);
  1410.                   New_Image = wextend('ac',Mode,New_Image,Ext_Size,Dir_H);
  1411.                   if rem(delta_H,2)
  1412.                       New_Image = wkeep2(New_Image,Desired_Size,'c','dr');
  1413.                   end
  1414.               end
  1416.               imgxtool('draw',win_imgxtool,Anal_Image,New_Image, ...
  1417.                           [Image_Lims_O;Image_Lims_N]);
  1419.           case xlate('Truncate / Extend')
  1420.               Deb_O_H = 1;
  1421.               Deb_N_V = 1;
  1422.               delta_H = Image_length_H - Desired_length_H;
  1423.               delta_V = Desired_length_V - Image_length_V ;
  1424.               switch Str_pop_direct_H
  1425.                 case 'Left'  , Deb_N_H = 1 + delta_H;
  1426.                 case 'Right' , Deb_N_H = 1;
  1427.                 case 'Both'  , Deb_N_H = 1 + fix(delta_H/2);
  1428.               end
  1429.               switch Str_pop_direct_V
  1430.                 case 'Up'   , Deb_O_V = 1 + delta_V;
  1431.                 case 'Down' , Deb_O_V = 1;
  1432.                 case 'Both' , Deb_O_V = 1 + fix(delta_V/2);
  1433.               end
  1434.               Fin_O_H      = Deb_O_H + Image_length_H - 1;
  1435.               Fin_O_V      = Deb_O_V + Image_length_V - 1;
  1436.               Fin_N_H      = Deb_N_H + Desired_length_H - 1;
  1437.               Fin_N_V      = Deb_N_V + Desired_length_V - 1;
  1438.               First_Point  = [Deb_N_V Deb_N_H ];
  1439.               Image_Lims_O = [Deb_O_H Fin_O_H Deb_O_V Fin_O_V];
  1440.               Image_Lims_N = [Deb_N_H Fin_N_H Deb_N_V Fin_N_V];
  1442.               New_Image    = wkeep2(Anal_Image,Desired_Size,First_Point);
  1443.               switch Dir_V
  1444.                 case {'u','d'}
  1445.                   New_Image = wextend('ar',Mode,New_Image,delta_V,Dir_V);
  1447.                 case 'b'
  1448.                   Ext_Size  = ceil(delta_V/2);
  1449.                   New_Image = wextend('ar',Mode,Anal_Image,Ext_Size,Dir_V);
  1450.                   if rem(delta_V,2)
  1451.                       New_Image = wkeep2(New_Image,Desired_Size,'c','dr');
  1452.                   end
  1453.               end
  1455.               imgxtool('draw',win_imgxtool,Anal_Image,New_Image, ...
  1456.                           [Image_Lims_O;Image_Lims_N]);
  1458.           case xlate('Extend')
  1459.               Deb_N_H = 1;
  1460.               Deb_N_V = 1;
  1461.               delta_H = Desired_length_H - Image_length_H;
  1462.               delta_V = Desired_length_V - Image_length_V ;
  1463.               switch Str_pop_direct_H
  1464.                 case 'Left'  , Deb_O_H = 1 + delta_H;
  1465.                 case 'Right' , Deb_O_H = 1;
  1466.                 case 'Both'  , Deb_O_H = 1 + fix(delta_H/2);
  1467.               end
  1468.               switch Str_pop_direct_V
  1469.                 case 'Up'   , Deb_O_V = 1 + delta_V;
  1470.                 case 'Down' , Deb_O_V = 1;
  1471.                 case 'Both' , Deb_O_V = 1 + fix(delta_V/2);
  1472.               end
  1473.               Fin_O_H      = Deb_O_H + Image_length_H - 1;
  1474.               Fin_O_V      = Deb_O_V + Image_length_V - 1;
  1475.               Fin_N_H      = Deb_N_H + Desired_length_H - 1;
  1476.               Fin_N_V      = Deb_N_V + Desired_length_V - 1;
  1477.               Image_Lims_O = [Deb_O_H Fin_O_H Deb_O_V Fin_O_V];
  1478.               Image_Lims_N = [Deb_N_H Fin_N_H Deb_N_V Fin_N_V];
  1480.               switch Dir_H
  1481.                 case {'l','r'}
  1482.                   New_Image = wextend('ac',Mode,Anal_Image,delta_H,Dir_H);
  1484.                 case 'b'
  1485.                   Ext_Size  = ceil(delta_H/2);
  1486.                   New_Image = wextend('ac',Mode,Anal_Image,Ext_Size,Dir_H);
  1487.               end
  1489.               switch Dir_V
  1490.                 case {'u','d'}
  1491.                   New_Image  = wextend('ar',Mode,New_Image,delta_V,Dir_V);
  1493.                 case 'b'
  1494.                   Ext_Size  = ceil(delta_V/2);
  1495.                   New_Image = wextend('ar',Mode,New_Image,Ext_Size,Dir_V);
  1496.               end
  1497.               if rem(delta_H,2) | rem(delta_V,2)
  1498.                   New_Image = wkeep2(New_Image,Desired_Size,'c','dr');
  1499.               end
  1501.               imgxtool('draw',win_imgxtool,Anal_Image,New_Image, ...
  1502.                           [Image_Lims_O;Image_Lims_N]);
  1504.         end
  1506.         % Saving the new image.
  1507.         %-----------------------
  1508.         wfigmngr('storeValue',win_imgxtool,'New_Image',New_Image);
  1510.         % End waiting.
  1511.         %-------------
  1512.         wwaiting('off',win_imgxtool);
  1513.         
  1514.     case 'draw'
  1515.     %-----------------------------------------------------%
  1516.     % Option: 'DRAW' - Plot both new and original signals %
  1517.     %-----------------------------------------------------%
  1519.         % Get arguments.
  1520.         %---------------
  1521.         Anal_Image = varargin{2};
  1522.         New_Image  = varargin{3};
  1523.         Image_Lims = varargin{4};
  1524.         Deb_O_H    = Image_Lims(1,1);
  1525.         Fin_O_H    = Image_Lims(1,2);
  1526.         Deb_O_V    = Image_Lims(1,3);
  1527.         Fin_O_V    = Image_Lims(1,4);
  1528.         Deb_N_H    = Image_Lims(2,1);
  1529.         Fin_N_H    = Image_Lims(2,2);
  1530.         Deb_N_V    = Image_Lims(2,3);
  1531.         Fin_N_V    = Image_Lims(2,4);
  1532.         
  1533.         % Begin waiting.
  1534.         %---------------
  1535.         wwaiting('msg',win_imgxtool,'Wait ... drawing');
  1536.         
  1537.         % Get Axes Handles.
  1538.         %------------------
  1539.         Axe_Img =  Hdls_Axes.Axe_Img;
  1540.         Axe_Leg =  Hdls_Axes.Axe_Leg;
  1542.         % Clean images axes.
  1543.         %--------------------
  1544.         delete(findobj(Axe_Img,'Type','image'));
  1545.         delete(findobj(Axe_Img,'Type','line'));
  1547.         % Compute axes limits.
  1548.         %---------------------
  1549.         Xmin = min(Deb_O_H,Deb_N_H)-1;
  1550.         Xmax = max(Fin_O_H,Fin_N_H)+1;
  1551.         Ymin = min(Deb_O_V,Deb_N_V)-1;
  1552.         Ymax = max(Fin_O_V,Fin_N_V)+1;
  1554.         % Compute image ratio.
  1555.         %---------------------
  1556.         Len_X = Xmax - Xmin;
  1557.         Len_Y = Ymax - Ymin;
  1558.         
  1559.         % Compute new Axes position to respect a good ratio.
  1560.         %---------------------------------------------------
  1561.         [w,h]          = wpropimg([Len_X Len_Y],Pos_Axe_Img_Ori(3), ...
  1562.                                    Pos_Axe_Img_Ori(4));
  1563.         Pos_Axe_Img    = Pos_Axe_Img_Ori;
  1564.         Pos_Axe_Img(1) = Pos_Axe_Img(1)+abs(Pos_Axe_Img(3)-w)/2;
  1565.         Pos_Axe_Img(2) = Pos_Axe_Img(2)+abs(Pos_Axe_Img(4)-h)/2;
  1566.         Pos_Axe_Img(3) = w;
  1567.         Pos_Axe_Img(4) = h;
  1568.             
  1569.         % Update axes properties.
  1570.         %------------------------
  1571.         set(Axe_Img,                         ...
  1572.             'XTicklabelMode','manual',       ...
  1573.             'YTicklabelMode','manual',       ...
  1574.             'XTicklabel',[],'YTicklabel',[], ...
  1575.             'XTick',[],'YTick',[],           ...
  1576.             'Ydir','reverse',                ...
  1577.             'Box','Off',                     ...
  1578.             'NextPlot','add',                ...
  1579.             'Position',Pos_Axe_Img,          ...
  1580.             'Xlim',[Xmin,Xmax],              ...
  1581.             'Ylim',[Ymin,Ymax],              ...
  1582.             'Xcolor','k',                    ...
  1583.             'Ycolor','k',                    ...
  1584.             'Visible','on'                   ...
  1585.             );
  1586.         set(get(Axe_Img,'title'),'string','');
  1587.             
  1588.         % Draw old image.
  1589.         %----------------
  1590.         Old_Img = image(Anal_Image,                   ...
  1591.                            'parent',Axe_Img,          ...
  1592.                            'Xdata',[Deb_O_H Fin_O_H], ...
  1593.                            'Ydata',[Deb_O_V Fin_O_V]  ...
  1594.                            );
  1596.         % Draw new image.
  1597.         %----------------
  1598.         New_Img = image(New_Image,                    ...
  1599.                            'parent',Axe_Img,          ...
  1600.                            'Xdata',[Deb_N_H Fin_N_H], ...
  1601.                            'Ydata',[Deb_N_V Fin_N_V]  ...
  1602.                            );
  1604.         % Constant coefs. for box design.
  1605.         %--------------------------------
  1606.         S1 = 4;
  1607.         S2 = 4;
  1609.         % Draw Box around old image.
  1610.         %---------------------------
  1611.         X = [Deb_O_H Fin_O_H Fin_O_H Deb_O_H Deb_O_H];
  1612.         Y = [Deb_O_V Deb_O_V Fin_O_V Fin_O_V Deb_O_V];
  1613.         Box_Old_Img = line(X,Y,              ...
  1614.                            'parent',Axe_Img, ...
  1615.                            'color','red',    ...
  1616.                            'LineWidth',S1    ...
  1617.                            );
  1619.         % Draw Box around new image.
  1620.         %----------------------------
  1621.         X = [Deb_N_H Fin_N_H Fin_N_H Deb_N_H Deb_N_H];
  1622.         Y = [Deb_N_V Deb_N_V Fin_N_V Fin_N_V Deb_N_V];
  1623.         Box_New_Img = line(X,Y,              ...
  1624.                            'parent',Axe_Img, ...
  1625.                            'color','yellow', ...
  1626.                            'LineWidth',S2    ...
  1627.                            );
  1629.         % Display Legend.
  1630.         %----------------
  1631.         set(Axe_Leg,'Visible','on');
  1632.         set(get(Axe_Leg,'Children'),'Visible','on');
  1634.         % Dynvtool Attachement.
  1635.         %----------------------
  1636.         dynvtool('init',win_imgxtool,[],Axe_Img,[],[1 1],'','','');
  1638.         % Update File_Save_Flag.
  1639.         %-----------------------
  1640.         File_Save_Flag = 0;
  1641.         wfigmngr('storeValue',win_imgxtool,'File_Save_Flag',File_Save_Flag);
  1642.         
  1643.         % Enable save menu.
  1644.         %------------------
  1645.         set(m_save,'Enable','on');
  1647.         % End waiting.
  1648.         %-------------
  1649.         wwaiting('off',win_imgxtool);
  1650.                 
  1651.     case 'save'
  1652.     %-----------------------------------------%
  1653.     % Option: 'SAVE' - Save transformed image %
  1654.     %-----------------------------------------%
  1656.         % Testing file.
  1657.         %--------------
  1658.         [filename,pathname,ok] = utguidiv('test_save',win_imgxtool, ...
  1659.                                     '*.mat','Save Transformed Image');
  1660.         if ~ok, return; end
  1662.         % Begin waiting.
  1663.         %---------------
  1664.         wwaiting('msg',win_imgxtool,'Wait ... saving');
  1666.         % Restore the new image.
  1667.         %-----------------------
  1668.         X = wfigmngr('getValue',win_imgxtool,'New_Image');
  1670.         % Setting Colormap.
  1671.         %------------------
  1672.         map = cbcolmap('get',win_imgxtool,'self_pal');
  1673.         if isempty(map)
  1674.             maxVal   = max(max(X));
  1675.             nbcolors = round(max([2,min([maxVal,default_nbcolors])]));
  1676.             map = pink(nbcolors);
  1677.         end
  1679.         % Saving transformed Image.
  1680.         %--------------------------
  1681.         [name,ext] = strtok(filename,'.');
  1682.         if isempty(ext) | isequal(ext,'.')
  1683.             ext = '.mat'; filename = [name ext];
  1684.         end
  1685.         try
  1686.           save([pathname filename],'X','map');
  1687.         catch
  1688.           errargt(mfilename,'Save FAILED !','msg');
  1689.         end
  1691.         % Update File_Save_Flag.
  1692.         %-----------------------
  1693.         File_Save_Flag = 1;
  1694.         wfigmngr('storeValue',win_imgxtool,'File_Save_Flag',File_Save_Flag);
  1695.         
  1696.         % Enable save menu.
  1697.         %------------------
  1698.         set(m_save,'Enable','off');
  1699.         
  1700.         % End waiting.
  1701.         %-------------
  1702.         wwaiting('off',win_imgxtool);
  1704.     case 'clear_GRAPHICS'
  1705.     %---------------------------------------------------------------------%
  1706.     % Option: 'CLEAR_GRAPHICS' - Clear graphics and redraw original image %
  1707.     %---------------------------------------------------------------------%
  1709.         % Get arguments.
  1710.         %---------------
  1711.         if length(varargin) > 1, Draw_flag = 0; else Draw_flag = 1; end
  1713.         % Get Axes Handles.
  1714.         %------------------
  1715.         Axe_Img = Hdls_Axes.Axe_Img;
  1716.         Axe_Leg = Hdls_Axes.Axe_Leg;
  1718.         % Set graphics part visible off and redraw original image if needed.
  1719.         %-------------------------------------------------------------------
  1720.         set(Axe_Leg,'Visible','off');
  1721.         set(get(Axe_Leg,'Children'),'Visible','off');
  1722.         
  1723.         if Draw_flag
  1724.             Anal_Image      = wfigmngr('getValue',win_imgxtool,'Anal_Image');
  1725.             Pos_Axe_Img_Bas = wfigmngr('getValue',win_imgxtool, ...
  1726.                                        'Pos_Axe_Img_Bas');
  1727.             set(findobj(Axe_Img,'Type','line'),'Visible','Off');
  1728.             [H,V] = size(Anal_Image);
  1729.             set(get(Axe_Img,'title'),'string',xlate('Original Image'));
  1730.             set(Axe_Img,                         ...
  1731.                 'Xlim',[1,H],                    ...
  1732.                 'Ylim',[1,V],                    ...
  1733.                 'Position',Pos_Axe_Img_Bas,      ...
  1734.                 'Visible','on');
  1735.             set(findobj(Axe_Img,'Type','image'), ...
  1736.                 'parent',Axe_Img,                ...
  1737.                 'Xdata',[1,H],                   ...
  1738.                 'Ydata',[1,V],                   ...
  1739.                 'Cdata',Anal_Image,              ...
  1740.                 'Visible','on'                   ...
  1741.                 );
  1742.             dynvtool('init',win_imgxtool,[],Axe_Img,[],[1 1],'','','');
  1743.         else
  1744.             set(Axe_Img,'Visible','off');
  1745.             set(get(Axe_Img,'Children'),'Visible','off');
  1746.         end
  1748.         % Disable save menu.
  1749.         %-------------------
  1750.         set(m_save,'Enable','off');
  1752.         % Reset the new image.
  1753.         %---------------------
  1754.         wfigmngr('storeValue',win_imgxtool,'New_Image',[]);
  1755.         
  1756.     case 'close'
  1757.     %---------------------------------------%
  1758.     % Option: 'CLOSE' - Close current figure%
  1759.     %---------------------------------------%
  1761.         % Retrieve File_Save_Flag.
  1762.         %-------------------------
  1763.         File_Save_Flag = wfigmngr('getValue',win_imgxtool,'File_Save_Flag');
  1764.         
  1765.         % Retrieve images values.
  1766.         %------------------------
  1767.         New_Image  = wfigmngr('getValue',win_imgxtool,'New_Image');
  1768.         Anal_Image = wfigmngr('getValue',win_imgxtool,'Anal_Image');
  1769.         
  1770.         % Test for saving the new image.
  1771.         %-------------------------------
  1772.         status = 0;
  1773.         if ~isempty(New_Image) & any(size(New_Image)~=size(Anal_Image)) &...
  1774.             ~File_Save_Flag
  1775.             status = wwaitans(win_imgxtool,...
  1776.                      ' Do you want to save the transformed image ?',2,'cond');
  1777.         end
  1778.         switch status
  1779.           case 1 , imgxtool('save',win_imgxtool)
  1780.           case 0 ,
  1781.         end
  1782.         varargout{1} = status;
  1783.         
  1784.     otherwise
  1785.         errargt(mfilename,'Unknown Option','msg');
  1786.         error('*');
  1787. end