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

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

波变换

开发平台：

Matlab

sigxtool.m：源码内容
  1. function varargout = sigxtool(option,varargin)
  2. %SIGXTOOL Signal extension tool.
  3. %   VARARGOUT = SIGXTOOL(OPTION,VARARGIN)
  4. %
  5. %   GUI oriented tool which allows the construction of a new
  6. %   signal 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 a signal 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 23-Oct-98.
  23. %   Last Revision: 14-Jul-2003.
  24. %   Copyright 1995-2004 The MathWorks, Inc.
  25. %   $Revision: 1.11.4.2 $  $Date: 2004/03/15 22:41:44 $
  27. % Test inputs.
  28. %-------------
  29. if nargin==0 , option = 'create'; end
  30. [option,winAttrb] = utguidiv('ini',option,varargin{:});
  33. % Initialisations for all options excepted 'create'.
  34. %---------------------------------------------------
  35. switch option
  37.   case 'create'
  38.   
  39.   otherwise
  40.     % Get figure handle.
  41.     %-------------------
  42.     win_sigxtool = varargin{1};
  44.     % Get stored structure.
  45.     %----------------------
  46.     Hdls_UIC1 = wfigmngr('getValue',win_sigxtool,'Hdls_UIC1');
  47.     Hdls_UIC2 = wfigmngr('getValue',win_sigxtool,'Hdls_UIC2');
  48.     Hdls_UIC3 = wfigmngr('getValue',win_sigxtool,'Hdls_UIC3');
  49.     Hdls_Axes = wfigmngr('getValue',win_sigxtool,'Hdls_Axes');
  51.     % Get UIC Handles.
  52.     %-----------------
  53.     [m_load,m_save,m_demo,txt_signal,edi_signal,...
  54.      txt_mode,pop_mode,pus_extend] = deal(Hdls_UIC1{:});
  55.  
  56.     [frm_fra1,txt_length,edi_length,txt_nextpow2,edi_nextpow2,   ...
  57.      txt_prevpow2,edi_prevpow2,txt_deslen,edi_deslen,txt_direct, ...
  58.      pop_direct] = deal(Hdls_UIC2{:});
  60.     [frm_fra2,txt_swtdec,pop_swtdec,txt_swtlen,edi_swtlen, ...
  61.      txt_swtclen,edi_swtclen,txt_swtdir,                   ...
  62.      edi_swtdir] = deal(Hdls_UIC3{:});
  63. end
  65. % Process control depending on the calling option.
  66. %-------------------------------------------------
  67. switch option
  69.     case 'create'
  70.     %-------------------------------------------------------%
  71.     % Option: 'CREATE' - Create Figure, Uicontrols and Axes %
  72.     %-------------------------------------------------------%
  74.         % Get Globals.
  75.         %-------------
  76.         [...
  77.         Def_Btn_Height,Def_Btn_Width,Pop_Min_Width,  ...
  78.         X_Graph_Ratio,X_Spacing,Y_Spacing,           ...
  79.         Def_TxtBkColor,Def_EdiBkColor,Def_FraBkColor ...
  80.         ] = ...
  81.             mextglob('get',...
  82.                 'Def_Btn_Height','Def_Btn_Width','Pop_Min_Width',  ...
  83.                 'X_Graph_Ratio','X_Spacing','Y_Spacing',           ...
  84.                 'Def_TxtBkColor','Def_EdiBkColor','Def_FraBkColor' ...
  85.                 );
  87.         % Window initialization.
  88.         %-----------------------
  89.         [win_sigxtool,pos_win,win_units,str_numwin,                         ...
  90.                 frame0,pos_frame0,Pos_Graphic_Area,pus_close] =             ...
  91.                     wfigmngr('create','Signal Extension / Truncation',      ...
  92.                                         winAttrb,'ExtFig_Tool_3',           ...
  93.                                         strvcat(mfilename,'cond'),1,1,0);
  94.         if nargout>0 , varargout{1} = win_sigxtool; end
  96. % Add Help for Tool.
  97. %------------------
  98. wfighelp('addHelpTool',win_sigxtool, ...
  99. 'One-Dimensional &Extension','SIGX_GUI');
  101. % Add Help Item.
  102. %----------------
  103. wfighelp('addHelpItem',win_sigxtool,...
  104. 'Dealing with Border Distortion','BORDER_DIST');
  106.         % Menu construction for current figure.
  107.         %--------------------------------------
  108.         m_files = wfigmngr('getmenus',win_sigxtool,'file');
  109.         m_load  = uimenu(m_files, ...
  110.                          'Label','&Load Signal ',                 ...
  111.                          'Position',1,                            ...
  112.                          'Callback',                              ...
  113.                          [mfilename '(''load'',' str_numwin ');'] ...
  114.                          );
  116.         m_save  = uimenu(m_files,...
  117.                          'Label','&Save Transformed Signal ',     ...
  118.                          'Position',2,                            ...
  119.                          'Enable','Off',                          ...
  120.                          'Callback',                              ...
  121.                          [mfilename '(''save'',' str_numwin ');'] ...
  122.                          );
  124.         m_demo  = uimenu(m_files, ...
  125.                          'Label','&Example Extension','Position',3);
  126.         demoSET = {...
  127.          'noisbloc' , 'ext'   , '{''zpd'' , 1236 , ''both''}'  ; ...
  128.          'noisbloc' , 'trunc' , '{''nul'',   865 , ''both'' }' ; ...
  129.          'cuspamax' , 'ext'   , '{''spd'' , 1400 , ''right''}' ; ...
  130.          'cuspamax' , 'ext'   , '{''spd'' , 1400 , ''left''}'  ; ...
  131.          'cuspamax' , 'ext'   , '{''spd'' , 1400 , ''both''}'  ; ...
  132.          'noisbump' , 'ext'   , '{''sym'' , 1600 , ''both''}'  ; ...
  133.          'freqbrk'  , 'trunc' , '{''nul'',   666 , ''left'' }' ; ...
  134.          'freqbrk'  , 'ext'   , '{''swt'' ,   10 , ''right''}'   ...
  135.          };
  136.        nbDEM = size(demoSET,1);
  137.        beg_call_str = [mfilename '(''demo'',' str_numwin ','''];
  139.    dummy = demoSET(:,1);
  140.    names = strvcat(dummy{:});
  141.    tab   = setstr(9);
  142.        for k = 1:nbDEM
  143.            typ = demoSET{k,2};
  144.            fil = demoSET{k,1};
  145.            par = demoSET{k,3};
  146.            parVal = eval(par);
  147.            switch parVal{1}
  148.              case 'swt' , lenSTR = ' - level: ';
  149.              otherwise  , lenSTR = ' - length: ';
  150.            end
  151.            strPAR = ['mode: ' ,  parVal{1} , lenSTR, int2str(parVal{2})  ...
  152.                      ' - direction: ', parVal{3}];  
  153.            switch  typ
  154.              case 'ext'   , strTYPE = ['Extension  - '];
  155.              case 'trunc' , strTYPE = ['Truncation - ']; 
  156.            end
  157.            libel = [names(k,:) tab '  -  ' strTYPE strPAR];
  158.            action = [beg_call_str fil  ''',''' typ ''',' par ');'];
  159.            uimenu(m_demo,'Label',libel,'Callback',action);
  160.        end
  162.         % Begin waiting.
  163.         %---------------
  164.         wwaiting('msg',win_sigxtool,'Wait ... initialization');
  166.         % Borders and double borders.
  167.         %----------------------------
  168.         dx = X_Spacing;  dx2 = 2*dx;
  169.         dy = Y_Spacing;  dy2 = 2*dy;
  171.         % General graphical parameters initialization.
  172.         %--------------------------------------------
  173.         x_frame0  = pos_frame0(1);
  174.         cmd_width = pos_frame0(3);
  175.         pus_width = cmd_width-4*dx2;
  176.         txt_width = 3*Def_Btn_Width/2;
  177.         edi_width = 3*Def_Btn_Width/4;
  178.         pop_width = 7*Def_Btn_Width/4;
  179.         bdx       = 0.08*pos_win(3);
  180.         bdy       = 0.06*pos_win(4);
  181.         ecy       = 0.03*pos_win(4);
  182.         x_graph   = bdx;
  183.         y_graph   = 2*Def_Btn_Height+dy;
  184.         h_graph   = pos_frame0(4)-y_graph;
  185.         w_graph   = pos_frame0(1);
  187.         % Command part of the window.
  188.         %============================
  190.         % Position property of objects.
  191.         %------------------------------
  192.         xlocINI          = [x_frame0 cmd_width];
  193.         ybottomINI       = pos_win(4)-dy2;
  194.         x_left_INI       = x_frame0+dx2+dx;
  196.         x_left           = x_left_INI;
  197.         y_low            = ybottomINI-Def_Btn_Height-2*dy2;
  198.         pos_txt_signal   = [x_left, y_low, txt_width Def_Btn_Height];
  199.         x_left           = x_left+txt_width/2+3*dx;
  200.         pos_edi_signal   = [x_left, y_low+dy, 2*edi_width , Def_Btn_Height];
  202.         x_left           = x_left_INI;
  203.         y_low            = y_low-1.5*(Def_Btn_Height+2*dy2);
  204.         pos_txt_length   = [x_left, y_low, txt_width Def_Btn_Height];
  205.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  206.         pos_edi_length   = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  208.         x_left           = x_left_INI;
  209.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  210.         pos_txt_nextpow2 = [x_left, y_low, txt_width Def_Btn_Height];
  211.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  212.         pos_edi_nextpow2 = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  214.         x_left           = x_left_INI;
  215.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  216.         pos_txt_prevpow2 = [x_left, y_low, txt_width Def_Btn_Height];
  217.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  218.         pos_edi_prevpow2 = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  220.         x_left           = x_left_INI;
  221.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  222.         pos_txt_deslen   = [x_left, y_low, txt_width Def_Btn_Height];
  223.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  224.         pos_edi_deslen   = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  226.         x_left           = x_left_INI;
  227.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  228.         pos_txt_direct   = [x_left, y_low, txt_width, Def_Btn_Height];
  229.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  230.         pos_pop_direct   = [x_left, y_low+dy, edi_width , Def_Btn_Height];
  231.         
  232.         x_left           = x_left_INI-dx2;
  233.         y_low            = y_low-dy;
  234.         pos_fra1         = [x_left, y_low, cmd_width-dx2, ...
  235.                             5*(Def_Btn_Height+2*dy2)+dy];
  237.         x_left           = x_left_INI;
  238.         y_low            = y_low-(2*Def_Btn_Height+2*dy2);
  239.         pos_txt_mode     = [x_left, y_low, txt_width, Def_Btn_Height];
  240.         x_left           = x_left_INI+dx2;
  241.         pos_pop_mode     = [x_left, y_low-Def_Btn_Height, pus_width, Def_Btn_Height];
  243.         x_left           = x_left_INI+dx2;
  244.         y_low            = y_low-2*(Def_Btn_Height+2*dy2);
  245.         pos_pus_extend   = [x_left, y_low, pus_width, 1.5*Def_Btn_Height];
  246.         
  248.         pos_fra2         = pos_fra1;
  249.         pos_fra2(4)      = 3*(Def_Btn_Height+2*dy2)+dy;
  250.         
  251.         x_left           = x_left_INI-dx2;
  252.         y_low            = pos_fra2(2)+pos_fra2(4)+3*dy2;
  253.         pos_txt_swtdec   = [x_left, y_low, 3*txt_width/2, Def_Btn_Height];
  254.         x_left           = x_left+txt_width/2+edi_width+3*dx+dx2;
  255.         pos_pop_swtdec   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  256.         
  257.         x_left           = x_left_INI;
  258.         y_low            = pos_fra2(2)+pos_fra2(4)-(Def_Btn_Height+2*dy2);
  259.         pos_txt_swtlen   = [x_left, y_low, txt_width, Def_Btn_Height];
  260.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  261.         pos_edi_swtlen   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  262.         
  263.         x_left           = x_left_INI;
  264.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  265.         pos_txt_swtclen  = [x_left, y_low, txt_width, Def_Btn_Height];
  266.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  267.         pos_edi_swtclen  = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  268.                   
  269.         x_left           = x_left_INI;
  270.         y_low            = y_low-(Def_Btn_Height+2*dy2);
  271.         pos_txt_swtdir   = [x_left, y_low, txt_width, Def_Btn_Height];
  272.         x_left           = x_left+txt_width/2+edi_width+3*dx;
  273.         pos_edi_swtdir   = [x_left, y_low+dy, edi_width, Def_Btn_Height];
  274.         
  275.         % String property of objects.
  276.         %----------------------------
  277.         str_txt_signal   = 'Signal';
  278.         str_edi_signal   = '';
  279.         str_txt_length   = 'Length';
  280.         str_edi_length   = '';
  281.         str_txt_nextpow2 = 'Next Power of 2';
  282.         str_edi_nextpow2 = '';
  283.         str_txt_prevpow2 = 'Previous Power of 2';
  284.         str_edi_prevpow2 = '';
  285.         str_txt_deslen   = 'Desired Length';
  286.         str_edi_deslen   = '';
  287.         str_txt_direct   = 'Direction to extend';
  288.         str_pop_direct   = ['Both ' ; 'Left ' ; 'Right'];
  289.         str_txt_mode     = 'Extension Mode';
  290.         str_pop_mode     = strvcat(...
  291.                             'Symmetric (Half-Point)', ...
  292.                             'Symmetric (Whole-Point)', ...
  293.                             'Antisymmetric (Half-Point)', ...
  294.                             'Antisymmetric (Whole-Point)', ...                            
  295.                             'Periodic', ... 
  296.                             'Zero Padding', ... 
  297.                             'Continuous', ... 
  298.                             'Smooth', ... 
  299.                             'For SWT'  ... 
  300.                             );
  301.         str_pus_extend   = 'Extend';
  302.         str_txt_swtdec   = 'SWT Decomposition Level';
  303.         str_pop_swtdec   = num2str((1:10)');
  304.         str_txt_swtlen   = 'Length';
  305.         str_edi_swtlen   = '';
  306.         str_txt_swtclen  = 'Computed Length';
  307.         str_edi_swtclen  = '';
  308.         str_txt_swtdir   = 'Direction to extend';
  309.         str_edi_swtdir   = 'Right';
  310.         str_tip_swtclen  = strvcat(['Minimal length of the ',    ...
  311.                                     'periodic extended signal ', ...
  312.                                     'for SWT decomposition']);
  314.         % Construction of uicontrols.
  315.         %----------------------------
  316.         commonProp = {'Parent',win_sigxtool,'Unit',win_units,'Visible','off'};
  317.         comFraProp = {commonProp{:},                              ...
  318.                                 'BackGroundColor',Def_FraBkColor, ...
  319.                                 'Style','frame'                   ...
  320.                                 };
  321.         comPusProp = {commonProp{:},'Style','Pushbutton'};
  322.         comPopProp = {commonProp{:},'Style','Popupmenu'};
  323.         comTxtProp = {commonProp{:},                              ...
  324.                                 'ForeGroundColor','k',            ...
  325.                                 'BackGroundColor',Def_FraBkColor, ...
  326.                                 'HorizontalAlignment','left',     ...
  327.                                 'Style','Text'                    ...
  328.                                 };
  329.         comEdiProp = {commonProp{:},                              ...
  330.                                 'ForeGroundColor','k',            ...
  331.                                 'HorizontalAlignment','center',   ...
  332.                                 'Style','Edit'                    ...
  333.                                 };
  334.  
  335.         txt_signal      = uicontrol(                              ...
  336.                                 comTxtProp{:},                    ...
  337.                                 'Position',pos_txt_signal,        ...
  338.                                 'String',str_txt_signal           ...
  339.                                  );
  340.         edi_signal      = uicontrol(                              ...
  341.                                 comEdiProp{:},                    ...
  342.                                 'Position',pos_edi_signal,        ...
  343.                                 'String',str_edi_signal,          ...
  344.                                 'BackGroundColor',Def_FraBkColor, ...
  345.                                 'Enable','Inactive'               ...
  346.                                 );
  347.         frm_fra1        = uicontrol(                              ...
  348.                                 comFraProp{:},                    ...
  349.                                 'Position',pos_fra1               ...
  350.                                 );
  351.         txt_length      = uicontrol(                              ...
  352.                                 comTxtProp{:},                    ...
  353.                                 'Position',pos_txt_length,        ...
  354.                                 'String',str_txt_length           ...
  355.                                  );
  356.         edi_length      = uicontrol(                              ...
  357.                                 comEdiProp{:},                    ...
  358.                                 'Position',pos_edi_length,        ...
  359.                                 'String',str_edi_length,          ...
  360.                                 'Backgroundcolor',Def_FraBkColor, ...
  361.                                 'Enable','Inactive'               ...
  362.                                  );
  363.         txt_nextpow2    = uicontrol(                              ...
  364.                                 comTxtProp{:},                    ...
  365.                                 'Position',pos_txt_nextpow2,      ...
  366.                                 'String',str_txt_nextpow2         ...
  367.                                  );
  368.         edi_nextpow2    = uicontrol(                              ...
  369.                                 comEdiProp{:},                    ...
  370.                                 'Position',pos_edi_nextpow2,      ...
  371.                                 'String',str_edi_nextpow2,        ...
  372.                                 'Backgroundcolor',Def_FraBkColor, ...
  373.                                 'Enable','Inactive'               ...
  374.                                  );
  375.         txt_prevpow2    = uicontrol(                              ...
  376.                                 comTxtProp{:},                    ...
  377.                                 'Position',pos_txt_prevpow2,      ...
  378.                                 'String',str_txt_prevpow2         ...
  379.                                  );
  380.         edi_prevpow2    = uicontrol(                              ...
  381.                                 comEdiProp{:},                    ...
  382.                                 'Position',pos_edi_prevpow2,      ...
  383.                                 'String',str_edi_prevpow2,        ...
  384.                                 'Backgroundcolor',Def_FraBkColor, ...
  385.                                 'Enable','Inactive'               ...
  386.                                  );
  387.         txt_deslen      = uicontrol(                              ...
  388.                                 comTxtProp{:},                    ...
  389.                                 'Position',pos_txt_deslen,        ...
  390.                                 'String',str_txt_deslen           ...
  391.                                  );
  392.         edi_deslen      = uicontrol(                              ...
  393.                                 comEdiProp{:},                    ...
  394.                                 'Position',pos_edi_deslen,        ...
  395.                                 'String',str_edi_deslen,          ...
  396.                                 'Backgroundcolor',Def_EdiBkColor  ...
  397.                                  );
  398.         txt_direct       = uicontrol(                             ...
  399.                                 comTxtProp{:},                    ...
  400.                                 'Position',pos_txt_direct,        ...
  401.                                 'String',str_txt_direct           ...
  402.                                  );
  403.         pop_direct      = uicontrol(                              ...
  404.                                 comPopProp{:},                    ...
  405.                                 'Position',pos_pop_direct,        ...
  406.                                 'String',str_pop_direct           ...
  407.                                  );
  408.         txt_mode        = uicontrol(                              ...
  409.                                 comTxtProp{:},                    ...
  410.                                 'Position',pos_txt_mode,          ...
  411.                                 'String',str_txt_mode             ...
  412.                                  );
  413.         pop_mode        = uicontrol(                              ...
  414.                                 comPopProp{:},                    ...
  415.                                 'Position',pos_pop_mode,          ...
  416.                                 'String',str_pop_mode             ...
  417.                                  );
  418.         pus_extend      = uicontrol(                              ...
  419.                                 comPusProp{:},                    ...
  420.                                 'Position',pos_pus_extend,        ...
  421.                                 'String',xlate(str_pus_extend),          ...
  422.                                 'Interruptible','On'              ...
  423.                                 );
  424.         frm_fra2        = uicontrol(                              ...
  425.                                 comFraProp{:},                    ...
  426.                                 'Position',pos_fra2               ...
  427.                                 );
  428.         txt_swtdec      = uicontrol(                              ...
  429.                                 comTxtProp{:},                    ...
  430.                                 'Position',pos_txt_swtdec,        ...
  431.                                 'String',str_txt_swtdec           ...
  432.                                  );
  433.         pop_swtdec      = uicontrol(                              ...
  434.                                 comPopProp{:},                    ...
  435.                                 'Position',pos_pop_swtdec,        ...
  436.                                 'String',str_pop_swtdec           ...
  437.                                  );
  438.         txt_swtlen      = uicontrol(                              ...
  439.                                 comTxtProp{:},                    ...
  440.                                 'Position',pos_txt_swtlen,        ...
  441.                                 'String',str_txt_swtlen           ...
  442.                                  );
  443.         edi_swtlen      = uicontrol(                              ...
  444.                                 comEdiProp{:},                    ...
  445.                                 'Position',pos_edi_swtlen,        ...
  446.                                 'String',str_edi_swtlen,          ...
  447.                                 'Backgroundcolor',Def_FraBkColor, ...
  448.                                 'Enable','Inactive'               ...
  449.                                  );
  450.         txt_swtclen     = uicontrol(                              ...
  451.                                 comTxtProp{:},                    ...
  452.                                 'Position',pos_txt_swtclen,       ...
  453.                                 'ToolTipString',str_tip_swtclen,  ...
  454.                                 'String',str_txt_swtclen          ...
  455.                                  );
  456.         edi_swtclen     = uicontrol(                              ...
  457.                                 comEdiProp{:},                    ...
  458.                                 'Position',pos_edi_swtclen,       ...
  459.                                 'String',str_edi_swtclen,         ...
  460.                                 'Backgroundcolor',Def_FraBkColor, ...
  461.                                 'Enable','Inactive'               ...
  462.                                  );
  463.         txt_swtdir      = uicontrol(                              ...
  464.                                 comTxtProp{:},                    ...
  465.                                 'Position',pos_txt_swtdir,        ...
  466.                                 'String',str_txt_swtdir           ...
  467.                                  );
  468.         edi_swtdir      = uicontrol(                              ...
  469.                                 comEdiProp{:},                    ...
  470.                                 'Position',pos_edi_swtdir,        ...
  471.                                 'String',str_edi_swtdir,          ...
  472.                                 'Backgroundcolor',Def_FraBkColor, ...
  473.                                 'Enable','Inactive'               ...
  474.                                  );
  475.                               
  476.         % Callback property of objects.
  477.         %------------------------------
  478.         str_win_sext = num2mstr(win_sigxtool);
  479.         cba_edi_deslen = [mfilename '(''update_deslen'',' str_win_sext ');'];
  480.         cba_pop_swtdec = [mfilename '(''update_swtdec'',' str_win_sext ');'];
  481.         cba_pop_direct = [mfilename '(''clear_GRAPHICS'',' str_win_sext ');'];
  482.         cba_pop_mode   = [mfilename '(''mode'',' str_win_sext ');'];
  483.         cba_pus_extend = [mfilename '(''extend_truncate'',' str_win_sext ');'];
  484.         set(edi_deslen,'Callback',cba_edi_deslen);
  485.         set(pop_swtdec,'Callback',cba_pop_swtdec);
  486.         set(pop_direct,'Callback',cba_pop_direct);
  487.         set(pop_mode,'Callback',cba_pop_mode);
  488.         set(pus_extend,'Callback',cba_pus_extend);
  490.         % Graphic part of the window.
  491.         %============================
  493.         % Axes Construction.
  494.         %-------------------
  495.         commonProp  = {...
  496.            'Parent',win_sigxtool,           ...
  497.            'Visible','off',                 ...
  498.            'Units','pixels',                ...
  499.            'XTicklabelMode','manual',       ...
  500.            'YTicklabelMode','manual',       ...
  501.            'XTicklabel',[],'YTicklabel',[], ...
  502.            'XTick',[],'YTick',[],           ...
  503.            'Box','On'                       ...
  504.            };
  506.         % Signal Axes construction.
  507.         %--------------------------
  508.         x_left      = x_graph;
  509.         x_wide      = w_graph-2*x_left;
  510.         y_low       = y_graph+h_graph/10+2*bdy;
  511.         y_height    = 9*h_graph/10-y_low-bdy;
  512.         Pos_Axe_Sig = [x_left, y_low, x_wide, y_height];
  513.         Axe_Sig     = axes(commonProp{:},'Position',Pos_Axe_Sig);
  514.    
  515.         % Legend Axes construction.
  516.         %--------------------------
  517.         X_Leg       = Pos_Axe_Sig(1);
  518.         Y_Leg       = Pos_Axe_Sig(2) + 11*Pos_Axe_Sig(4)/10;
  519.         W_Leg       = (Pos_Axe_Sig(3) - Pos_Axe_Sig(1)) / 2.5;
  520.         H_Leg       = (Pos_Axe_Sig(4) - Pos_Axe_Sig(2)) / 2;
  521.         Pos_Axe_Leg = [X_Leg Y_Leg W_Leg H_Leg];
  522.         ud.dynvzaxe.enable = 'Off';
  523.         Axe_Leg     = axes(commonProp{:},          ...
  524.                            'Position',Pos_Axe_Leg, ...
  525.                            'Xlim',[0 180],         ...
  526.                            'Ylim',[0 20],          ...
  527.                            'Drawmode','fast',      ...
  528.                            'userdata',ud           ...
  529.                            );
  530.         L1 = line(                            ...
  531.                   'Parent',Axe_Leg,           ...
  532.                   'Xdata',11:30,              ...
  533.                   'Ydata',ones(1,20)*14,      ...
  534.                   'LineWidth',3,              ...
  535.                   'Visible','off',            ...
  536.                   'Color','yellow'            ...
  537.                   );
  538.         L2 = line(                            ...
  539.                   'Parent',Axe_Leg,           ...
  540.                   'Xdata',11:30,              ...
  541.                   'Ydata',ones(1,20)*7,       ...
  542.                   'LineWidth',3,              ...
  543.                   'Visible','off',            ...
  544.                   'Color','red'               ...
  545.                   );
  546.         T1 = text(40,14,xlate('Transformed signal'), ...
  547.                   'Parent',Axe_Leg,           ...
  548.                   'FontWeight','bold',        ...
  549.                   'Visible','off'             ...
  550.                   );
  551.         T2 = text(40,7,xlate('Original signal'),     ...
  552.                   'Parent',Axe_Leg,           ...
  553.                   'FontWeight','bold',        ...
  554.                   'Visible','off'             ...
  555.                   );
  557.         % Setting units to normalized.
  558.         %-----------------------------
  559.         wfigmngr('normalize',win_sigxtool);
  561.         % Store values.
  562.         %--------------
  563.         Hdls_UIC1 = { ...
  564.                      m_load,m_save,m_demo,  ...
  565.                      txt_signal,edi_signal, ...
  566.                      txt_mode,pop_mode,pus_extend ...
  567.                      };
  568.         Hdls_UIC2 = { ...
  569.                      frm_fra1,txt_length,edi_length, ...
  570.                      txt_nextpow2,edi_nextpow2,      ...
  571.                      txt_prevpow2,edi_prevpow2,      ...
  572.                      txt_deslen,edi_deslen,          ...
  573.                      txt_direct,pop_direct           ...
  574.                      };
  575.         Hdls_UIC3 = { ...
  576.                      frm_fra2,txt_swtdec,pop_swtdec, ...
  577.                      txt_swtlen,edi_swtlen,          ...
  578.                      txt_swtclen,edi_swtclen,        ...
  579.                      txt_swtdir,edi_swtdir           ...
  580.                      };
  581.         Hdls_Axes = struct('Axe_Sig',Axe_Sig,'Axe_Leg',Axe_Leg);
  583. % Add Context Sensitive Help (CSHelp).
  584. %-------------------------------------
  585. hdl_BORDER_DIST = [txt_mode,pop_mode];
  586. wfighelp('add_ContextMenu',win_sigxtool,...
  587. hdl_BORDER_DIST,'BORDER_DIST');
  588. %-------------------------------------
  589.         
  590. % Store handles.
  591.         %---------------
  592.         wfigmngr('storeValue',win_sigxtool,'Hdls_UIC1',Hdls_UIC1);
  593.         wfigmngr('storeValue',win_sigxtool,'Hdls_UIC2',Hdls_UIC2);
  594.         wfigmngr('storeValue',win_sigxtool,'Hdls_UIC3',Hdls_UIC3);
  595.         wfigmngr('storeValue',win_sigxtool,'Hdls_Axes',Hdls_Axes);
  597.         % End waiting.
  598.         %---------------
  599.         wwaiting('off',win_sigxtool);
  601.     case 'load'
  602.     %-------------------------------------------%
  603.     % Option: 'LOAD' - Load the original signal %
  604.     %-------------------------------------------%
  605.        
  606.         % Loading file.
  607.         %-------------
  608.         if length(varargin)<2  % LOAD Option
  609.             [sigInfos,Signal_Anal,ok] = ...
  610.                 utguidiv('load_sig',win_sigxtool,'*.mat','Load Signal');
  611.             Signal_Name = sigInfos.name;
  613.         else   % DEMO Option
  614.             Signal_Name  = deblank(varargin{2});
  615.             filename = [Signal_Name '.mat'];
  616.             pathname = utguidiv('WTB_DemoPath',filename);
  617.             [sigInfos,Signal_Anal,ok] = ...
  618.                 utguidiv('load_dem1D',win_sigxtool,pathname,filename);
  619.         end
  620.         if ~ok, return; end
  622.         % Begin waiting.
  623.         %---------------
  624.         wwaiting('msg',win_sigxtool,'Wait ... loading');
  626.         % Cleaning.
  627.         %----------
  628.         sigxtool('clear_GRAPHICS',win_sigxtool,'load');
  630.         % Compute UIC values.
  631.         %--------------------
  632.         Signal_Length = length(Signal_Anal);
  633.         pow           = fix(log(Signal_Length)/log(2));
  634.         Next_Pow2     = 2^(pow+1);
  635.         if isequal(2^pow,Signal_Length)
  636.             Prev_Pow2 = 2^(pow-1);
  637.             swtpow    = pow;
  638.         else
  639.             Prev_Pow2 = 2^pow;
  640.             swtpow    = pow+1;
  641.         end
  643.         % Compute the default level for SWT.
  644.         %-----------------------------------
  645.         def_pow = 1;
  646.         if ~rem(Signal_Length,2)
  647.             while ~rem(Signal_Length,2^def_pow), def_pow = def_pow + 1; end
  648.             def_level = def_pow-1;
  649.         else
  650.             def_level = def_pow;
  651.         end
  653.         % Compute the extended length for SWT.
  654.         %-------------------------------------
  655.         C_Length = Signal_Length;
  656.         while rem(C_Length,2^def_level), C_Length = C_Length + 1; end
  657.         
  658.         % Set UIC values.
  659.         %----------------
  660.         set(edi_signal,'String',sigInfos.name);
  661.         set(edi_length,'String',sprintf('%.0f',Signal_Length));
  662.         set(edi_nextpow2,'String',sprintf('%.0f',Next_Pow2));
  663.         set(edi_prevpow2,'String',sprintf('%.0f',Prev_Pow2));
  664.         set(edi_deslen,'String',sprintf('%.0f',Next_Pow2));
  665.         set(pop_direct,'Value',1);
  666.         set(pop_mode,'Value',1);
  667.         set(pus_extend,'String',xlate('Extend'));
  668.         set(pus_extend,'Enable','On');
  669.         set(pop_swtdec,'String',num2str((1:swtpow)'));
  670.         set(pop_swtdec,'Value',def_level);
  671.         set(edi_swtclen,'String',sprintf('%.0f',C_Length));
  672.         set(edi_swtlen,'String',sprintf('%.0f',Signal_Length));
  673.                 
  674.         % Set UIC visibility.
  675.         %--------------------
  676.         set(cat(1,Hdls_UIC2{:}),'visible','on')
  677.         set(cat(1,Hdls_UIC3{:}),'visible','off')
  678.         set(cat(1,Hdls_UIC1{4:end}),'visible','on')
  680.         % Get Axes Handles.
  681.         %------------------
  682.         Axe_Sig =  Hdls_Axes.Axe_Sig;
  684.         % Drawing.
  685.         %---------
  686.         Line_Sig = line(                         ...
  687.                         'parent',Axe_Sig,        ...
  688.                         'Xdata',1:Signal_Length, ...
  689.                         'Ydata',Signal_Anal,     ...
  690.                         'color','Green'          ...
  691.                         );
  692.         Max_Sig           = max(Signal_Anal);
  693.         Min_Sig           = min(Signal_Anal);
  694.         Amp_Sig           = Max_Sig - Min_Sig;
  695.         Ylim_Min_Sig_Anal = Min_Sig-Amp_Sig/100;
  696.         Ylim_Max_Sig_Anal = Max_Sig-Amp_Sig/100;
  697.         set(Axe_Sig,                                      ...
  698.             'Xlim',[1,Signal_Length],                     ...
  699.             'Ylim',[Ylim_Min_Sig_Anal,Ylim_Max_Sig_Anal], ...
  700.             'Visible','on'                                ...
  701.             );
  702.         set(get(Axe_Sig,'title'),'string',xlate('Original Signal'));
  704.         % Store values.
  705.         %--------------
  706.         wfigmngr('storeValue',win_sigxtool,'Signal_Anal',Signal_Anal);
  707.         wfigmngr('storeValue',win_sigxtool,'Line_Sig',Line_Sig);
  709.         % Update File_Save_Flag.
  710.         %-----------------------
  711.         File_Save_Flag = 0;
  712.         wfigmngr('storeValue',win_sigxtool,'File_Save_Flag',File_Save_Flag);
  713.         
  714.         % Dynvtool Attachement.
  715.         %---------------------
  716.         dynvtool('init',win_sigxtool,[],Axe_Sig,[],[1 0],'','','');
  718.         % End waiting.
  719.         %-------------
  720.         wwaiting('off',win_sigxtool);
  722.     case 'demo'
  723.         sigxtool('load',varargin{:});
  724.         Signal_Name  = deblank(varargin{2});
  725.         ext_OR_trunc = varargin{3};
  726.         if length(varargin)>3  & ~isempty(varargin{4})
  727.             par_Demo = varargin{4};
  728.         else
  729.             return;
  730.         end
  731.         extMode   = par_Demo{1};
  732.         lenSIG    = par_Demo{2};
  733.         direction = lower(par_Demo{3});
  734.         if ~isequal(extMode,'swt')
  735.             set(edi_deslen,'String',sprintf('%.0f',lenSIG));
  736.             sigxtool('update_deslen',win_sigxtool,'noClear');
  737.         else
  738.             set(pop_swtdec,'Value',lenSIG)
  739.             sigxtool('update_swtdec',win_sigxtool)
  740.         end
  741.         switch direction
  742.           case 'both'  , direct = 1;
  743.           case 'left'  , direct = 2;
  744.           case 'right' , direct = 3;
  745.         end
  746.         set(pop_direct,'Value',direct);
  747.         switch ext_OR_trunc
  748.           case 'ext'
  749.             switch extMode
  750.               case 'sym' ,         extVal = 1;
  751.               case 'ppd' ,         extVal = 5;
  752.               case 'zpd' ,         extVal = 6;
  753.               case 'sp0' ,         extVal = 7;
  754.               case {'sp1','spd'} , extVal = 8;
  755.               case 'swt' ,         extVal = 9;
  756.             end
  757.             set(pop_mode,'Value',extVal);
  758.             sigxtool('mode',win_sigxtool,'noClear')
  760.           case 'trunc'
  761.         end
  762.         sigxtool('extend_truncate',win_sigxtool);
  764.     case 'update_swtdec'
  765.     %----------------------------------------------------------------------%
  766.     % Option: 'UPDATE_SWTDEC' - Update values when using popup in SWT case %
  767.     %----------------------------------------------------------------------%
  769.         % Get stored structure.
  770.         %----------------------
  771.         Signal_Anal = wfigmngr('getValue',win_sigxtool,'Signal_Anal');
  773.         % Update the computed length.
  774.         %----------------------------
  775.         Signal_Length = length(Signal_Anal);
  776.         Level         = get(pop_swtdec,'Value');
  777.         remLen        = rem(Signal_Length,2^Level);
  778.         if remLen>0
  779.             Computed_Length = Signal_Length + 2^Level-remLen;
  780.         else
  781.             Computed_Length = Signal_Length;
  782.         end
  783.         set(edi_swtclen,'String',sprintf('%.0f',Computed_Length));
  785.         % Enabling Extend button.
  786.         %------------------------
  787.         set(pus_extend,'String','Extend','Enable','on');
  789.     case 'update_deslen'
  790.     %--------------------------------------------------------------------------%
  791.     % Option: 'UPDATE_DESLEN' - Update values when changing the Desired Length %
  792.     %--------------------------------------------------------------------------%
  794.         % Cleaning.
  795.         %----------
  796.         if nargin<3 , sigxtool('clear_GRAPHICS',win_sigxtool); end
  798.         % Update UIC values.
  799.         %-------------------
  800.         Signal_Length  = wstr2num(get(edi_length,'String'));
  801.         Desired_Length = wstr2num(get(edi_deslen,'String'));
  802.         uic_mode       = [txt_mode;pop_mode];
  803.         if      isequal(Signal_Length,Desired_Length)
  804.                 set(uic_mode,'Enable','off');
  805.                 set(pus_extend,'Enable','off');
  806.         elseif  isempty(Desired_Length) | Desired_Length < 2
  807.                 set(edi_deslen,'String',get(edi_nextpow2,'String'));
  808.                 set(txt_direct,'String','Direction to extend');
  809.                 set(uic_mode,'Enable','on');
  810.                 set(pus_extend,'String',xlate('Extend'),'Enable','on');
  811.         elseif Signal_Length < Desired_Length
  812.                 set(txt_direct,'String','Direction to extend')
  813.                 set(uic_mode,'Visible','On','Enable','on');
  814.                 set(pus_extend,'String',xlate('Extend'),'Enable','on');
  815.         elseif Signal_Length > Desired_Length
  816.                 set(txt_direct,'String','Direction to truncate');
  817.                 set(uic_mode,'Visible','off','Enable','on');
  818.                 set(pus_extend,'String',xlate('Truncate'),'Enable','on');
  819.         end
  821.     case 'mode'
  822.     %------------------------------------------------------------------------%
  823.     % Option: 'MODE' -  Update the command part when changing Extension Mode %
  824.     %------------------------------------------------------------------------%      
  826.         % Cleaning.
  827.         %----------
  828.         if nargin<3 , sigxtool('clear_GRAPHICS',win_sigxtool); end
  830.         % Checking the SWT case for visibility setings.
  831.         %----------------------------------------------
  832.         Mode_str = get(pop_mode,'String');
  833.         Mode_val = get(pop_mode,'Value');
  834.         if  strcmp(deblank(Mode_str(Mode_val,:)),'For SWT')
  835.             set(cat(1,Hdls_UIC2{:}),'visible','off');
  836.             set(cat(1,Hdls_UIC3{:}),'visible','on');
  837.             Signal_Length   = wstr2num(get(edi_swtlen,'String'));
  838.             Computed_Length = wstr2num(get(edi_swtclen,'String'));
  839.             if isequal(Signal_Length,nextpow2(Signal_Length))
  840.                 set(pus_extend,'Enable','off');
  841.                 msg = strvcat(...
  842.                   sprintf('The length of the signal (%s) is a power of 2.',int2str(Signal_Length)),  ...
  843.                   ['The SWT extension is not necessary!']);
  844.                 wwarndlg(msg,'SWT Extension Mode','block');
  846.             elseif Signal_Length < Computed_Length
  847.                 set(pus_extend,'String',xlate('Extend'),'Enable','on');
  848.             end
  849.         else
  850.             set(pus_extend,'Enable','on');
  851.             set(cat(1,Hdls_UIC2{:}),'visible','on');
  852.             set(cat(1,Hdls_UIC3{:}),'visible','off');
  853.         end
  854.         set(cat(1,Hdls_UIC1{4:end}),'visible','on');
  856.     case 'extend_truncate'
  857.     %--------------------------------------------------------------------------%
  858.     % Option: 'EXTEND_TRUNCATE' - Compute the new Extended or Truncated signal %
  859.     %--------------------------------------------------------------------------%
  860.         
  861.         % Begin waiting.
  862.         %---------------
  863.         wwaiting('msg',win_sigxtool,'Wait ... computing');
  865.         % Get stored structure.
  866.         %----------------------
  867.         Signal_Anal = wfigmngr('getValue',win_sigxtool,'Signal_Anal');
  868.                 
  869.         % Get Axes Handles.
  870.         %------------------
  871.         Axe_Sig     =  Hdls_Axes.Axe_Sig;
  873.         % Compute Ylim of Original Signal.
  874.         %---------------------------------
  875.         Max_Sig           = max(Signal_Anal);
  876.         Min_Sig           = min(Signal_Anal);
  877.         Amp_Sig           = Max_Sig - Min_Sig;
  878.         Ylim_Min_Sig_Anal = Min_Sig-Amp_Sig/100;
  879.         Ylim_Max_Sig_Anal = Max_Sig-Amp_Sig/100;
  880.         Axe_Sig_Ylim      = [Ylim_Min_Sig_Anal,Ylim_Max_Sig_Anal];
  882.         % Get UIC values.
  883.         %----------------
  884.         Signal_Length  = wstr2num(get(edi_length,'String'));
  885.         Desired_Length = wstr2num(get(edi_deslen,'String'));
  886.         Str_pop_mode   = get(pop_mode,'String');
  887.         Val_pop_mode   = get(pop_mode,'Value');
  888.         Str_pop_mode   = deblank(Str_pop_mode(Val_pop_mode,:));
  889.         if strcmp(Str_pop_mode,'For SWT')
  890.             Str_direct     = deblank(get(edi_swtdir,'String'));
  891.             Desired_Length = wstr2num(get(edi_swtclen,'String'));
  892.         else
  893.             Str_pop_direct = get(pop_direct,'String');
  894.             Val_pop_direct = get(pop_direct,'Value');
  895.             Str_direct     = deblank(Str_pop_direct(Val_pop_direct,:));
  896.             Desired_Length = wstr2num(get(edi_deslen,'String'));
  897.         end
  899.         % Extension mode conversion.
  900.         %---------------------------
  901.         Mode_Values = {'sym';'symw';'asym';'asymw';'ppd';'zpd';'sp0';'spd';'ppd'};
  902.         Mode        = Mode_Values{Val_pop_mode};
  904.         % Get action to do.
  905.         %------------------
  906.         action = deblank(get(pus_extend,'string'));
  907.         switch action
  908.             case xlate('Truncate')
  909.  
  910.                 switch Str_direct
  911.                   case 'Left'
  913.                         % Computing new signal.
  914.                         %----------------------
  915.                         New_Signal  = wkeep1(Signal_Anal,Desired_Length,'r');
  917.                         % Drawing.
  918.                         %---------
  919.                         Deb_O_S     = 1;
  920.                         Fin_O_S     = Signal_Length;
  921.                         Deb_N_S     = 1 + Signal_Length - Desired_Length;
  922.                         Fin_N_S     = Signal_Length;
  923.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  924.                         sigxtool('draw',win_sigxtool,Signal_Anal, ...
  925.                                     Signal_Lims,action);
  927.                   case 'Right'
  929.                         % Computing new signal.
  930.                         %----------------------
  931.                         New_Signal = wkeep1(Signal_Anal,Desired_Length,'l');
  933.                         % Drawing.
  934.                         %---------
  935.                         Deb_O_S     = 1;
  936.                         Fin_O_S     = Signal_Length;
  937.                         Deb_N_S     = 1;
  938.                         Fin_N_S     = Desired_Length;
  939.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  940.                         sigxtool('draw',win_sigxtool,Signal_Anal, ...
  941.                                     Signal_Lims,action);
  943.                   case 'Both'
  945.                         % Computing new signal.
  946.                         %----------------------
  947.                         New_Signal = wkeep1(Signal_Anal,Desired_Length,'c');
  949.                         % Drawing.
  950.                         %---------
  951.                         Deb_O_S     = 1;
  952.                         Fin_O_S     = Signal_Length;
  953.                         Deb_N_S     = fix((Signal_Length - Desired_Length)/2)+1;
  954.                         Fin_N_S     = Deb_N_S + Desired_Length - 1;
  955.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  956.                         sigxtool('draw',win_sigxtool,Signal_Anal, ...
  957.                                     Signal_Lims,action);
  959.                   otherwise
  960.                         errargt(mfilename,'Unknown Option','msg');
  961.                         error('*');
  962.                 end
  964.             case xlate('Extend')
  965.             
  966.                 switch Str_direct
  967.                     case 'Left'
  969.                         % Computing new signal.
  970.                         %----------------------
  971.                         New_Signal = wextend(1,Mode,Signal_Anal, ...
  972.                                             Desired_Length-Signal_Length,'l');
  974.                         % Drawing.
  975.                         %---------
  976.                         Deb_O_S     = Desired_Length - Signal_Length + 1;
  977.                         Fin_O_S     = Deb_O_S + Signal_Length - 1;
  978.                         Deb_N_S     = 1;
  979.                         Fin_N_S     = Desired_Length;
  980.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  981.                         sigxtool('draw',win_sigxtool,New_Signal, ...
  982.                                     Signal_Lims,action);
  984.                     case 'Right'
  986.                         % Computing new signal.
  987.                         %----------------------
  988.                         New_Signal = wextend(1,Mode,Signal_Anal, ...
  989.                                             Desired_Length-Signal_Length,'r');
  991.                         % Drawing.
  992.                         %---------
  993.                         Deb_O_S     = 1;
  994.                         Fin_O_S     = Signal_Length;
  995.                         Deb_N_S     = 1;
  996.                         Fin_N_S     = Desired_Length;
  997.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  998.                         sigxtool('draw',win_sigxtool,New_Signal, ...
  999.                                     Signal_Lims,action);
  1001.                     case 'Both'
  1003.                         % Computing new signal.
  1004.                         %----------------------
  1005.                         Diff_Length = Desired_Length-Signal_Length;
  1006.                         Ext_Length  = ceil(Diff_Length / 2);
  1007.                         New_Signal  = wextend(1,Mode,Signal_Anal,Ext_Length,'b');
  1008.                         if rem(Diff_Length,2)
  1009.                             New_Signal = wkeep1(New_Signal,Desired_Length,'c',1);
  1010.                         end
  1012.                         % Drawing.
  1013.                         %---------
  1014.                         Deb_O_S     = fix(Diff_Length / 2) + 1;
  1015.                         Fin_O_S     = Deb_O_S + Signal_Length-1;
  1016.                         Deb_N_S     = 1;
  1017.                         Fin_N_S     = Desired_Length;
  1018.                         Signal_Lims = [Deb_O_S Fin_O_S Deb_N_S Fin_N_S];
  1019.                         sigxtool('draw',win_sigxtool,New_Signal, ...
  1020.                                     Signal_Lims,action);
  1022.                     otherwise
  1023.                         errargt(mfilename,'Unknown Option','msg');
  1024.                         error('*');
  1025.                 end
  1027.             otherwise
  1028.                 errargt(mfilename,'Unknown Action','msg');
  1029.                 error('*');
  1030.         end
  1032.         % Saving the new signal.
  1033.         %-----------------------
  1034.         wfigmngr('storeValue',win_sigxtool,'New_Signal',New_Signal);
  1036.         % End waiting.
  1037.         %-------------
  1038.         wwaiting('off',win_sigxtool);
  1039.         
  1040.     case 'draw'
  1041.     %-----------------------------------------------------%
  1042.     % Option: 'DRAW' - Plot both new and original signals %
  1043.     %-----------------------------------------------------%
  1045.         % Get arguments.
  1046.         %---------------
  1047.         Signal      = varargin{2};
  1048.         Signal_Lims = varargin{3};
  1049.         action      = varargin{4};
  1050.         Deb_O_S     = Signal_Lims(1);
  1051.         Fin_O_S     = Signal_Lims(2);
  1052.         Deb_N_S     = Signal_Lims(3);
  1053.         Fin_N_S     = Signal_Lims(4);
  1054.         
  1055.         % Begin waiting.
  1056.         %---------------
  1057.         wwaiting('msg',win_sigxtool,'Wait ... drawing');
  1059.         % Get stored structure.
  1060.         %----------------------
  1061.         Line_Sig    = wfigmngr('getValue',win_sigxtool,'Line_Sig');
  1062.         Box_Old_Sig = wfigmngr('getValue',win_sigxtool,'Box_Old_Sig');
  1063.         Box_New_Sig = wfigmngr('getValue',win_sigxtool,'Box_New_Sig');
  1065.         % Get Axes Handles.
  1066.         %------------------
  1067.         Axe_Sig =  Hdls_Axes.Axe_Sig;
  1068.         Axe_Leg =  Hdls_Axes.Axe_Leg;
  1070.         % Clean signals axes.
  1071.         %--------------------
  1072.         if ~isempty(Box_Old_Sig), delete(Box_Old_Sig); end
  1073.         if ~isempty(Box_New_Sig), delete(Box_New_Sig); end
  1075.         % Compute Ylim for the Signal.
  1076.         %-----------------------------
  1077.         Len_Signal = length(Signal);
  1078.         Max_Signal = max(Signal);
  1079.         Min_Signal = min(Signal);
  1080.         Off_Signal = (Max_Signal - Min_Signal) / 100;
  1081.         Ylim_Min   = Min_Signal - 10 * Off_Signal;
  1082.         Ylim_Max   = Max_Signal + 10 * Off_Signal;
  1084.         % Update axes properties.
  1085.         %------------------------
  1086.         set(Axe_Sig,                    ...
  1087.             'Box','on',                 ...
  1088.             'Xlim',[1,Len_Signal],      ...
  1089.             'Ylim',[Ylim_Min,Ylim_Max], ...
  1090.             'Visible','on'              ...
  1091.             );
  1092.         set(get(Axe_Sig,'title'),'string','');
  1094.         % Draw signal.
  1095.         %-------------
  1096.         X   = 1:Len_Signal;
  1097.         Y   = Signal;
  1098.         set(Line_Sig,'Xdata',X,'Ydata',Y,'parent',Axe_Sig);
  1100.         switch action
  1102.             case xlate('Extend')
  1104.                 % Constant coefs. for box design.
  1105.                 %--------------------------------
  1106.                 C1 = 7;
  1107.                 C2 = 3;
  1108.                 S1 = 3;
  1109.                 S2 = 3;
  1110.                                     
  1111.                 % Draw Box around old signal.
  1112.                 %----------------------------
  1113.                 Y_base      = [Ylim_Min Ylim_Max Ylim_Max Ylim_Min Ylim_Min];
  1114.                 X           = [Deb_O_S Deb_O_S Fin_O_S Fin_O_S Deb_O_S];
  1115.                 Y           = Y_base + [C1 -C1 -C1 C1 C1]*Off_Signal;
  1116.                 Box_Old_Sig = line(X,Y,              ...
  1117.                                    'parent',Axe_Sig, ...
  1118.                                    'color','red',    ...
  1119.                                    'LineWidth',S1    ...
  1120.                                    );
  1121.         
  1122.                 % Draw Box around new signal.
  1123.                 %----------------------------
  1124.                 X        = [Deb_N_S Deb_N_S Fin_N_S Fin_N_S Deb_N_S];
  1125.                 Y           = Y_base + [C2 -C2 -C2 C2 C2]*Off_Signal;
  1126.                 Box_New_Sig = line(X,Y,              ...
  1127.                                    'parent',Axe_Sig, ...
  1128.                                    'color','yellow', ...
  1129.                                    'LineWidth',S2    ...
  1130.                                    );
  1132.             case xlate('Truncate')
  1134.                 % Constant coefs. for box design.
  1135.                 %--------------------------------
  1136.                 C1 = 3;
  1137.                 C2 = 7;
  1138.                 S1 = 3;
  1139.                 S2 = 3;
  1141.                 % Draw Box around old signal.
  1142.                 %----------------------------
  1143.                 Y_base      = [Ylim_Min Ylim_Max Ylim_Max Ylim_Min Ylim_Min];
  1144.                 X        = [Deb_O_S Deb_O_S Fin_O_S Fin_O_S Deb_O_S];
  1145.                 Y           = Y_base + [C1 -C1 -C1 C1 C1] * Off_Signal;
  1146.                 Box_Old_Sig = line(X,Y,              ...
  1147.                                    'parent',Axe_Sig, ...
  1148.                                    'color','red',    ...
  1149.                                    'LineWidth',S1    ...
  1150.                                    );
  1151.                          
  1152.                 % Draw Box around new signal.
  1153.                 %----------------------------
  1154.                 X           = [Deb_N_S Deb_N_S Fin_N_S Fin_N_S Deb_N_S];
  1155.                 Y           = Y_base + [C2 -C2 -C2 C2 C2] * Off_Signal;
  1156.                 Box_New_Sig = line(X,Y,              ...
  1157.                                    'parent',Axe_Sig, ...
  1158.                                    'color','yellow', ...
  1159.                                    'LineWidth',S2    ...
  1160.                                    );
  1161.         end
  1163.         % Display Legend.
  1164.         %----------------
  1165.         set(Axe_Leg,'Visible','on');
  1166.         set(get(Axe_Leg,'Children'),'Visible','on');
  1168.         % Dynvtool Attachement.
  1169.         %----------------------
  1170.         dynvtool('init',win_sigxtool,[],Axe_Sig,[],[1 0],'','','');
  1172.         % Update File_Save_Flag.
  1173.         %-----------------------
  1174.         File_Save_Flag = 0;
  1175.         wfigmngr('storeValue',win_sigxtool,'File_Save_Flag',File_Save_Flag);
  1176.         
  1177.         % Enable save menu On.
  1178.         %---------------------
  1179.         set(m_save,'Enable','on');
  1181.         % Store values.
  1182.         %--------------        
  1183.         wfigmngr('storeValue',win_sigxtool,'Box_Old_Sig',Box_Old_Sig);
  1184.         wfigmngr('storeValue',win_sigxtool,'Box_New_Sig',Box_New_Sig);
  1186.         % End waiting.
  1187.         %-------------
  1188.         wwaiting('off',win_sigxtool);
  1189.         
  1190.     case 'save'
  1191.     %------------------------------------------%
  1192.     % Option: 'SAVE' - Save transformed signal %
  1193.     %------------------------------------------%
  1195.         % Begin waiting.
  1196.         %--------------
  1197.         wwaiting('msg',win_sigxtool,'Wait ... saving');
  1199.         % Restore the new signal.
  1200.         %------------------------
  1201.         New_Signal   = wfigmngr('getValue',win_sigxtool,'New_Signal');
  1203.         % Testing file.
  1204.         %--------------
  1205.         [filename,pathname,ok] = utguidiv('test_save',win_sigxtool, ...
  1206.                                     '*.mat','Save Transformed Signal');
  1207.         if ~ok, return; end
  1209.         % Saving transformed Signal.
  1210.         %---------------------------
  1211.         [name,ext] = strtok(filename,'.');
  1212.         if isempty(ext) | isequal(ext,'.')
  1213.             ext = '.mat'; filename = [name ext];
  1214.         end
  1215.         eval([name ' = New_Signal;']);
  1216. saveStr = name;
  1217.         try
  1218.           save([pathname filename],saveStr);
  1219.         catch
  1220.           errargt(mfilename,'Save FAILED !','msg');
  1221.         end
  1223.         % Update File_Save_Flag.
  1224.         %-----------------------
  1225.         File_Save_Flag = 1;
  1226.         wfigmngr('storeValue',win_sigxtool,'File_Save_Flag',File_Save_Flag);
  1227.         
  1228.         % Enable save menu On.
  1229.         %---------------------
  1230.         set(m_save,'Enable','off');
  1231.                 
  1232.         % End waiting.
  1233.         %-------------
  1234.         wwaiting('off',win_sigxtool);
  1236.     case 'clear_GRAPHICS'
  1237.     %----------------------------------------------------------------------%
  1238.     % Option: 'CLEAR_GRAPHICS' - Clear graphics and redraw original signal %
  1239.     %----------------------------------------------------------------------%
  1241.         % Get arguments.
  1242.         %---------------
  1243.         if length(varargin) > 1 , Draw_flag = 0; else Draw_flag = 1; end
  1245.         % Get stored structure.
  1246.         %----------------------
  1247.         Signal_Anal = wfigmngr('getValue',win_sigxtool,'Signal_Anal');
  1248.         Line_Sig    = wfigmngr('getValue',win_sigxtool,'Line_Sig');
  1250.         % Get Axes Handles.
  1251.         %------------------
  1252.         Axe_Sig = Hdls_Axes.Axe_Sig;
  1253.         Axe_Leg = Hdls_Axes.Axe_Leg;
  1255.         % Set graphics part visible off and redraw original signal if needed.
  1256.         %--------------------------------------------------------------------
  1257.         set(Axe_Leg,'Visible','off');
  1258.         set(get(Axe_Leg,'Children'),'Visible','off');
  1259.         if Draw_flag
  1260.             set(findobj(Axe_Sig,'Type','line'),'Visible','Off');
  1261.             Signal_Length     = length(Signal_Anal);
  1262.             Max_Sig           = max(Signal_Anal);
  1263.             Min_Sig           = min(Signal_Anal);
  1264.             Amp_Sig           = Max_Sig - Min_Sig;
  1265.             Ylim_Min_Sig_Anal = Min_Sig-Amp_Sig/100;
  1266.             Ylim_Max_Sig_Anal = Max_Sig-Amp_Sig/100;
  1267.             set(Axe_Sig,                                      ...
  1268.                 'Xlim',[1,Signal_Length],                     ...
  1269.                 'Ylim',[Ylim_Min_Sig_Anal,Ylim_Max_Sig_Anal], ...
  1270.                 'Visible','on'                                ...
  1271.                 );
  1272.             set(get(Axe_Sig,'title'),'string',xlate('Original Signal'));
  1273.             set(Line_Sig, ...
  1274.                 'parent',Axe_Sig,        ...
  1275.                 'Xdata',1:Signal_Length, ...
  1276.                 'Ydata',Signal_Anal,     ...
  1277.                 'color','Green',         ...
  1278.                 'Visible','on'           ...
  1279.                 );
  1280.             dynvtool('init',win_sigxtool,[],Axe_Sig,[],[1 0],'','','');
  1281.         else
  1282.             set(Axe_Sig,'Visible','off');
  1283.             set(get(Axe_Sig,'Children'),'Visible','off');
  1284.         end
  1286.         % Enable save menu off.
  1287.         %----------------------
  1288.         set(m_save,'Enable','off');
  1290.         % Reset the new signal.
  1291.         %----------------------
  1292.         wfigmngr('storeValue',win_sigxtool,'New_Signal',[]);
  1293.         
  1294.     case 'close'
  1295.     %---------------------------------------%
  1296.     % Option: 'CLOSE' - Close current figure%
  1297.     %---------------------------------------%
  1299.         % Retrieve File_Save_Flag.
  1300.         %-------------------------
  1301.         File_Save_Flag = wfigmngr('getValue',win_sigxtool,'File_Save_Flag');
  1302.         
  1303.         % Retrieve signal values.
  1304.         %------------------------
  1305.         New_Signal  = wfigmngr('getValue',win_sigxtool,'New_Signal');
  1306.         Signal_Anal = wfigmngr('getValue',win_sigxtool,'Signal_Anal');
  1307.         
  1308.         % Test for saving the new signal.
  1309.         %--------------------------------
  1310.         status = 0;
  1311.         if ~isempty(New_Signal) & length(New_Signal)~=length(Signal_Anal) &...
  1312.             ~File_Save_Flag
  1313.             status = wwaitans(win_sigxtool,...
  1314.                      ' Do you want to save the transformed signal ?',2,'cond');
  1315.         end
  1316.         switch status
  1317.           case 1 , sigxtool('save',win_sigxtool)
  1318.           case 0 ,
  1319.         end
  1320.         varargout{1} = status;
  1322.     otherwise
  1323.     %-----------------%
  1324.     % Option: UNKNOWN %
  1325.     %-----------------%    
  1326.         errargt(mfilename,'Unknown Option','msg');
  1327.         error('*');
  1328. end