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

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

波变换

开发平台：

Matlab

cw1dmngr.m：源码内容
  1. function varargout = cw1dmngr(option,fig,varargin)
  2. %CW1DMNGR Continuous wavelet 1-D drawing manager.
  3. %   CW1DMNGR(OPTION,WIN_CW1DTOOL,IN3)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  6. %   Last Revision: 07-May-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.19.4.2 $
  11. % Default values.
  12. %----------------
  13. max_lev_anal = 12;
  14. default_nbcolors = 128;
  16. % Memory bloc of stored values.
  17. %==============================
  18. % MB0.
  19. %-----
  20. n_InfoInit   = 'InfoInit';
  21. ind_filename = 1;
  22. ind_pathname = 2;
  23. nb0_stored   = 2;
  25. % MB1.
  26. %-----
  27. n_param_anal   = 'Par_Anal';
  28. ind_sig_name   = 1;
  29. ind_sig_size   = 2;
  30. ind_wav_name   = 3;
  31. ind_lev_anal   = 4;
  32. ind_act_option = 5;
  33. ind_gra_area   = 6;
  34. nb1_stored     = 6;
  36. % MB2.
  37. %-----
  38. n_coefs_sca    = 'Coefs_Scales';
  39. ind_coefs      = 1;
  40. ind_scales     = 2;
  41. ind_frequences = 3;
  42. ind_sca_OR_frq = 4;
  43. nb2_stored     = 4;
  45. % Handles of objects.
  46. %====================
  47. handles  = wfigmngr('getValue',fig,['CW1D_handles']);
  48. toolATTR = wfigmngr('getValue',fig,'ToolSettings');
  49. toolMode = toolATTR.Mod;
  51. % UIC.
  52. %-----
  53. hdl_UIC = handles.hdl_UIC;
  54.  
  55. % AXES.
  56. %------
  57. hdl_Re_AXES = handles.hdl_Re_AXES;
  58. hdl_Im_AXES = [];
  60. % MENUS.
  61. %-------
  62. men_sav = handles.hdl_MEN(2);
  64. % Separate Real and Complex tools.
  65. %---------------------------------
  66. switch toolMode
  67.   case {'real'}
  68.     hdl_Im_AXES = [];
  69.     dummy = struct2cell(hdl_UIC);
  70.     [...
  71.      fra_sam , txt_sam , edi_sam , ...
  72.      fra_sca , txt_sca , pop_sca , ...
  73.      pus_ana ,                     ...
  74.      txt_min , edi_min ,           ...
  75.      txt_stp , edi_stp ,           ...
  76.      txt_max , edi_max ,           ...
  77.      txt_pow , pop_pow ,           ...
  78.      txt_msc , edi_msc ,           ...
  79.      pus_lin , pus_ref ,           ...
  80.      fra_axe , txt_axe ,           ...
  81.      chk_DEC , chk_LC  , chk_LML , ...
  82.      rad_SCA , rad_FRQ ,           ...
  83.      fra_ccm , txt_ccm , pop_ccm   ...
  84.                                       ] = deal(dummy{:});
  85.   
  86.   case {'abs','arg','all'}
  87.     hdl_Im_AXES = handles.hdl_Im_AXES;
  88.     dummy = struct2cell(hdl_UIC);
  89.     [...
  90.      fra_sam , txt_sam , edi_sam , ...
  91.      fra_sca , txt_sca , pop_sca , ...
  92.      pus_ana ,                     ...
  93.      txt_min , edi_min ,           ...
  94.      txt_stp , edi_stp ,           ...
  95.      txt_max , edi_max ,           ...
  96.      txt_pow , pop_pow ,           ...
  97.      txt_msc , edi_msc ,           ...
  98.      pus_lin , pus_ref ,           ...
  99.      fra_axe , txt_axe ,           ...
  100.      rad_MOD , rad_ANG , rad_ALL,  ...
  101.      chk_DEC , chk_LC  , chk_LML , ...
  102.      rad_SCA , rad_FRQ ,           ...
  103.      fra_ccm , txt_ccm , pop_ccm   ...
  104.                                       ] = deal(dummy{:});
  105. end
  106. chk_for_AXES = [chk_DEC,chk_LC,chk_LML];
  108. switch option
  109.     case 'plotSignal'
  110.       sig_Anal = varargin{1};
  111.       cw1dutil('plotSignal',fig, ...
  112.           hdl_Re_AXES(1),sig_Anal,hdl_Re_AXES(1:4));
  113.       if ~isequal(toolMode,'real')
  114.            cw1dutil('plotSignal',fig, ...
  115.               hdl_Im_AXES(1),sig_Anal,hdl_Im_AXES(1:4));
  116.       end
  118.     case 'setSamPer'
  119.       delta = wstr2num(get(edi_sam,'String'));
  120.       err = isempty(delta);
  121.       if ~err , err = delta<eps; end
  122.       if ~err
  123.           wav_Name = wmemtool('rmb',fig,n_param_anal,ind_wav_name);
  124.           scales   = wmemtool('rmb',fig,n_coefs_sca,ind_scales);
  125.           frequences = scal2frq(scales,wav_Name,delta);
  126.           wmemtool('wmb',fig,n_coefs_sca,ind_frequences,frequences);
  127.           cw1dmngr('newCfsLine',fig);
  128.       else
  129.           set(edi_sam,'String',get(edi_sam,'Userdata'));
  130.       end
  132.     case 'newScaleMode'
  133.       new_mode = get(pop_sca,'Value');
  134.       old_mode = get(pop_sca,'Userdata');
  135.       if new_mode==old_mode ,  return; end
  136.       set(pop_sca,'Userdata',new_mode);
  138.       Y_Spacing = mextglob('get','Y_Spacing');
  139.       win_units = get(fig,'units');
  140.       if strcmp(win_units,'pixels')
  141.           dy = Y_Spacing;
  142.       else
  143.           [dx,dy] = wfigutil('prop_size',fig,1,Y_Spacing);
  144.       end
  145.       p12 = get(pus_ana,'Position');
  146.       switch new_mode
  147.         case 1
  148.           hdl_of = [txt_pow pop_pow txt_msc edi_msc];
  149.           hdl_on = [txt_min,edi_min,txt_stp,edi_stp,txt_max,edi_max];
  150.           p2 = get(edi_max,'Position');
  152.         case 2
  153.           hdl_of = [txt_min,edi_min,txt_stp,edi_stp,txt_max,edi_max,...
  154.                     txt_msc,edi_msc];
  155.           hdl_on = [txt_pow,pop_pow];
  156.           p2 = get(pop_pow,'Position');
  158.         case 3
  159.           hdl_of = [txt_min,edi_min,txt_stp,edi_stp,txt_max,edi_max,...
  160.                     txt_pow,pop_pow];
  161.           hdl_on = [txt_msc,edi_msc];
  162.           p2 = get(edi_msc,'Position');
  163.       end
  164.       pos_fra_sca = get(fra_sca,'Position');
  165.       pos_txt_sca = get(txt_sca,'Position');
  166.       pos_fra_sca(2) = p2(2)-dy;
  167.       pos_fra_sca(4) = pos_txt_sca(2)+pos_txt_sca(4)/2-pos_fra_sca(2);
  168.       hdl_move = [fra_sca,pus_ana];
  169.       set([hdl_of , hdl_move],'Visible','off');
  170.       deltaY = 4*dy;
  171.       p12(2) = p2(2)-p12(4)-deltaY;
  172.       set(fra_sca,'Position',pos_fra_sca);
  173.       set(pus_ana,'Position',p12);
  174.       set([hdl_on,hdl_move],'Visible','on');
  176.     case 'newCfsLine'
  177.       switch toolMode
  178.         case {'real'}
  179.           vis = lower(get(hdl_Re_AXES(3),'Visible'));
  180.           if isequal(vis,'off') , return; end
  181.           axeLIN = hdl_Re_AXES([2 4]);
  183.         case {'abs','arg','all'}
  184.           visRe = lower(get(hdl_Re_AXES(3),'Visible'));
  185.           visIm = lower(get(hdl_Im_AXES(3),'Visible'));
  186.           if isequal(visRe,'off') & isequal(visIm,'off'), return; end
  187.           axeLIN = [hdl_Re_AXES([2 4]) ; hdl_Im_AXES([2 4])];
  188.       end
  189.       scales = wmemtool('rmb',fig,n_coefs_sca,ind_scales);
  190.       if length(varargin)==0
  191.           lHor = mngmbtn('getLines',fig,'Hor');
  192.           if isempty(lHor) , return; end
  194.           par = find(axeLIN==get(lHor,'Parent'));
  195.           if isempty(par) , return; end
  196.  
  197.           ind_sca = get(lHor,'Ydata');
  198.           ind_sca = round(ind_sca(1));
  199.       else
  200.           ind_sca = round(length(scales)/2);
  201.       end
  202.       [coefs,frequences] = wmemtool('rmb',fig,n_coefs_sca, ...
  203.                                           ind_coefs,ind_frequences);
  204.       if (ind_sca<=0) | (ind_sca>size(coefs,1)) , return; end
  205.       scale = scales(ind_sca);
  206.       freq  = frequences(ind_sca);
  207.       coefs = coefs(ind_sca,:);      
  208.       toolATTR.Sca = scale;
  209.       toolATTR.Frq = freq;
  210.       wfigmngr('storeValue',fig,'ToolSettings',toolATTR);
  211.       linTitles = cw1dutil('cfsLineTitle',fig);
  212.       switch toolMode
  213.         case {'real'}          
  214.           cw1dutil('plotCfsLine',fig,hdl_Re_AXES(3),coefs,linTitles);
  216.         case {'abs','arg','all'}
  217.           cw1dutil('plotCfsLine',fig,hdl_Re_AXES(3),abs(coefs),linTitles(1,:));
  218.           cw1dutil('plotCfsLine',fig,hdl_Im_AXES(3),angle(coefs),linTitles(2,:));
  219.       end
  221.     case 'newChainLine'
  222.       switch toolMode
  223.         case {'real'}
  224.           vis = lower(get(hdl_Re_AXES(4),'Visible'));
  225.           if isequal(vis,'off') , return; end
  226.           axeLIN = hdl_Re_AXES([2 4]);
  228.         case {'abs','arg','all'}
  229.           visRe = lower(get(hdl_Re_AXES(4),'Visible'));
  230.           visIm = lower(get(hdl_Im_AXES(4),'Visible'));
  231.           if isequal(visRe,'off') & isequal(visIm,'off'), return; end
  232.           axeLIN = [hdl_Re_AXES([2 4]) ; hdl_Im_AXES([2 4])];
  233.       end
  234.   
  235.       if length(varargin)==0
  236.           lHor = mngmbtn('getLines',fig,'Hor');
  237.           if isempty(lHor) , return; end
  238.           par = find(axeLIN==get(lHor,'Parent'));
  239.           if isempty(par) , return; end
  240.   yInd = get(lHor,'Ydata');
  241.           yInd = round(yInd(1));   
  242.       else
  243.           yInd = [];
  244.       end
  246.   % Begin waiting.
  247.       %----------------
  248.       wwaiting('msg',fig,'Wait ... computing');
  250.   set(pus_ref,'enable','Off');
  251.   [coefs,scales] = wmemtool('rmb',fig,n_coefs_sca, ...
  252.                                       ind_coefs,ind_scales);
  253.       nbRow  = size(coefs,1);
  254.   if isempty(yInd) , yInd = nbRow; end;
  255.       indBeg = nbRow;
  256.       if (0<yInd) & (yInd<=nbRow)
  257.           indBeg = yInd;
  258.           coefs(yInd+1:end,:) = 0;
  259.       end
  260.       switch toolMode
  261.         case 'real'
  262.           [coefs,strTitle] = cw1dutil('computeChainLine',fig, ...
  263.                                    scales,coefs,indBeg);
  264.           cw1dutil('plotChainLine',fig,hdl_Re_AXES(4),scales,coefs,strTitle);
  265.                      
  266.         otherwise
  267.           [tmpCoefs,strTitle] = cw1dutil('computeChainLine',fig, ...
  268.                                     scales,abs(coefs),indBeg);
  269.           cw1dutil('plotChainLine',fig,hdl_Re_AXES(4),scales,tmpCoefs,strTitle);
  270.           [tmpCoefs,strTitle] = cw1dutil('computeChainLine',fig, ...
  271.                                     scales,angle(coefs),indBeg);
  272.           cw1dutil('plotChainLine',fig,hdl_Im_AXES(4),scales,tmpCoefs,strTitle);
  273.       end
  275.       % End waiting.
  276.       %-------------
  277.       wwaiting('off',fig);
  278.     
  279.     case 'setPosAxes'
  280.       % Axes Visibility.
  281.       %-----------------
  282.       % 1 1 1 1 ;
  283.       % 1 1 1 0 ;
  284.       % 1 1 0 1 ;
  285.       % 1 0 1 1 ;
  286.       % 1 1 0 0 ;
  287.       % 1 0 1 0 ;
  288.       % 1 0 0 1 ;
  289.       % 1 0 0 0 ;
  290.       %------------
  291.       if length(varargin)>0 , newTITLE = 1; else , newTITLE = 0; end
  292.       vis = toolATTR.Vis;
  293.       pos = toolATTR.Pos;
  294.       vis = vis(:,2:end);
  295.       flgDEC = get(chk_DEC,'Value');
  296.       flgLC  = get(chk_LC ,'Value');
  297.       flgLML = get(chk_LML,'Value');
  298.       flgVIS = [flgDEC,flgLC,flgLML];
  300.   [flag_lin,flag_ref,hdl_axe] = cw1dmngr('get_Ena_Flag',fig);
  301.   
  302.       if flgLC & flgDEC & flag_lin , ena_lin = 'on'; else ; ena_lin = 'off'; end
  303.   if flgLML & flag_ref , ena_ref = 'on'; else ; ena_ref = 'off'; end  
  304.   set(pus_lin,'enable',ena_lin);
  305.   set(pus_ref,'enable',ena_ref);
  306.       ind = 0;
  307.       for k = 1:size(vis,1)
  308.          ok = isequal(vis(k,:),flgVIS);
  309.          if ok , ind = k; break; end
  310.       end
  311.       toolATTR.Num = ind;
  312.       wfigmngr('storeValue',fig,'ToolSettings',toolATTR);
  314.   % Set View Axes Btn.
  315.   %-------------------
  316.   if (ind==8 ) & ~isequal(toolMode,'all')
  317.   ena_zaxe = 'Off';
  318.   else
  319.   ena_zaxe = 'On';
  320.   end
  321.   dynvtool('dynvzaxe_BtnOnOff',fig,ena_zaxe);
  323.       pos = pos(:,:,ind);
  324.       vis = getonoff([1,flgVIS,flgDEC]);
  325.       switch toolMode
  326.         case 'real'
  327.           hdl_OFF = []; hdl_ON = hdl_Re_AXES; indTitle = [1];
  329.         case 'abs'
  330.           hdl_OFF = hdl_Im_AXES; hdl_ON = hdl_Re_AXES; indTitle = [1];
  331.   if ~isempty(find(hdl_OFF==hdl_axe))
  332.   set([pus_lin,pus_ref],'Enable','Off');
  333.   end
  334.   
  335.     case 'arg' 
  336.           hdl_OFF = hdl_Re_AXES; hdl_ON = hdl_Im_AXES; indTitle = [2];
  337.   if ~isempty(find(hdl_OFF==hdl_axe))
  338.   set([pus_lin,pus_ref],'Enable','Off');
  339.   end
  341.         case 'all'
  342.          hdl_OFF = [];
  343.          hdl_ON  = [hdl_Re_AXES,hdl_Im_AXES];
  344.          indTitle = [1 2];
  345.          pos(:,:,2) = pos;
  346.          bdx   = pos(1,1,1);
  347.          w_axe = pos(1,3,1)/2-bdx;
  348.          pos([1:4],3,[1:2]) = w_axe;
  349.          pos([1:4],1,2)     = bdx+w_axe+2*bdx;
  350.       end
  351.       set(wfindobj([hdl_OFF;hdl_ON]),'Visible','off')
  353.       if newTITLE
  354.           cfsTitles = cw1dutil('cfsColorTitle',fig,toolMode,pop_ccm);
  355.           linTitles = cw1dutil('cfsLineTitle',fig);
  356.           for j = 1:size(hdl_ON,2)
  357.               k = indTitle(j);
  358.               wtitle(cfsTitles(k,:), ...
  359.                   'Parent',hdl_ON(2,j),'Visible','off');
  360.               wtitle(linTitles(k,:), ...
  361.                   'Parent',hdl_ON(3,j),'Visible','off');
  362.           end
  363.       end
  364.       
  365.       for k = 1:4
  366.         for j = 1:size(hdl_ON,2)
  367.             hdl_IN = wfindobj(hdl_ON(k,j));
  368.             set(hdl_ON(k,j),'Position',pos(k,:,j))
  369.             set(hdl_IN,'Visible',vis(k,:))
  370.         end
  371.       end      
  372.       for k = 5
  373.           hdl_IN = wfindobj(hdl_Re_AXES(k));
  374.           set(hdl_Re_AXES(k),'Position',pos(k,:,1))
  375.           set(hdl_IN,'Visible',vis(k,:))
  376.       end
  378.     case 'setPosAxesIMAG'
  379.       if length(varargin)==0
  380.           rad_SEL = gcbo;
  381.           paramSET = {fig,'dummy'};
  382.       else
  383.           rad_SEL = varargin{1};
  384.           paramSET = {fig};
  385.       end       
  386.       rad_OLD = wfindobj([rad_MOD,rad_ANG,rad_ALL],'Userdata',1);
  387.       set([rad_MOD,rad_ANG,rad_ALL],'Value',0,'Userdata',[]);
  388.       set(rad_SEL,'Value',1,'Userdata',1);
  389.       if isequal(rad_SEL,rad_OLD) , return; end
  390.       toolATTR = wfigmngr('getValue',fig,'ToolSettings');
  391.       indMOD = find(rad_SEL==[rad_MOD,rad_ANG,rad_ALL]);
  392.       switch indMOD
  393.         case 1 , toolATTR.Mod = 'abs';
  394.         case 2 , toolATTR.Mod = 'arg';
  395.         case 3 , toolATTR.Mod = 'all';        
  396.       end
  397.       wfigmngr('storeValue',fig,'ToolSettings',toolATTR);
  398.       cw1dmngr('setPosAxes',paramSET{:});    
  400.     case 'sca_OR_frq'
  401.       rad_SEL = gcbo;
  402.       rad_OLD = wfindobj([rad_SCA,rad_FRQ],'Userdata',1);
  403.       set([rad_SCA,rad_FRQ],'Value',0,'Userdata',[]);
  404.       set(rad_SEL,'Value',1,'Userdata',1);
  405.       if isequal(rad_SEL,rad_OLD) , return; end
  406.       if isequal(rad_SEL,rad_SCA)
  407.           sca_OR_frq = ind_scales;
  408.       else
  409.           sca_OR_frq = ind_frequences;
  410.       end
  411.       wmemtool('wmb',fig,n_coefs_sca,ind_sca_OR_frq,sca_OR_frq);
  412.       mngmbtn('cleanXYPos',fig);
  414.     case 'getScales'
  415.       % Getting  Analysis parameters.
  416.       %------------------------------
  417.       [sig_Name,wav_Name,sig_Size,lev_Anal] = ...
  418.           wmemtool('rmb',fig,n_param_anal, ...
  419.                          ind_sig_name,ind_wav_name,...
  420.                          ind_sig_size,ind_lev_anal);
  421.       powmax = fix(log(sig_Size)/log(2));
  422.       scamax = 2^(powmax-1);
  423.       levmax = min(powmax,max_lev_anal);
  425.       sca_mod = get(pop_sca,'Value');
  426.       col_mod = get(pop_ccm,'Value');
  427.       set(pop_ccm,'Userdata',col_mod);
  428.       err = 0;
  429.       switch sca_mod
  430.         case 1
  431.           mi = wstr2num(get(edi_min,'String'));
  432.           st = wstr2num(get(edi_stp,'String'));
  433.           ma = wstr2num(get(edi_max,'String'));
  434.           if     isempty(st) , st = 1; err = 1;
  435.           elseif st<=0       , st = 1; err = 1;
  436.           end
  437.           if     isempty(mi) , mi = 1; err = 1;
  438.           elseif mi<sqrt(eps), mi = 1; err = 1;
  439.           end
  440.           if     isempty(ma) , ma = min(32,scamax); err = 1;
  441.           elseif ma>scamax   , ma = min(32,scamax); err = 1;
  442.           end
  443.           if ma<mi
  444.               if     ma<sqrt(eps) , ma = mi;   err = 1;
  445.               elseif mi>scamax    , mi = ma;   err = 1;
  446.               else
  447.                   tmp = mi; mi = ma; ma = tmp; err = 1;
  448.               end
  449.           end
  450.           if err==1
  451.               set(edi_min,'String',num2str(mi));
  452.               set(edi_stp,'String',num2str(st));
  453.               set(edi_max,'String',num2str(ma));
  454.               col = get(edi_min,'ForegroundColor');
  455.               for k=1:10
  456.                   set([edi_min,edi_stp,edi_max],'ForegroundColor','r');
  457.                   pause(0.5);
  458.                   set([edi_min,edi_stp,edi_max],'ForegroundColor',col);
  459.               end
  460.               err = 0;
  461.           end
  462.           level  = [ '[' num2str(mi) ':' num2str(st) ':' num2str(ma) ']'];
  463.           scales = eval(level);
  465.         case 2
  466.           powmax = get(pop_pow,'Value');
  467.           scales = 2.^[1:powmax];
  468.           level  = '';
  469.           for k=1:powmax , level = [level ' ' int2str(scales(k))]; end
  471.         case 3
  472.           level = get(edi_msc,'String');
  473.           eval('levs = eval(level);','err = 1;');
  474.           if err==1
  475.               set(edi_msc,'String',xlate('Error ...'));
  476.               col = get(edi_msc,'ForegroundColor');
  477.               set(edi_msc,'ForegroundColor','r');
  478.               pause(2)
  479.               set(edi_msc,'String','[ ]');
  480.               set(edi_msc,'ForegroundColor',col);
  481.               varargout = {err,[],[]};
  482.               return
  483.           end
  484.           levs = levs(:)';
  485.           scales = levs(levs>0);
  486.           scales = scales(scales<=scamax);
  487.           if ~isequal(levs,scales) , err = 1; end
  488.           if err==1
  489.               if ~isempty(scales)
  490.                   level = [num2str(scales(1)) ' .... ' ...
  491.                            num2str(scales(end))];
  492.               end
  493.               old_txt = get(edi_msc,'String');
  494.               set(edi_msc,'String',xlate('Warning ...'));
  495.               col = get(edi_msc,'ForegroundColor');
  496.               for k=1:10
  497.                   set(edi_msc,'ForegroundColor','r');
  498.                   pause(0.50);
  499.                   set(edi_msc,'ForegroundColor',col);
  500.               end
  501.               set(edi_msc,'String',old_txt);
  502.               err = 0;
  503.           end
  504.       end
  505.       delta = wstr2num(get(edi_sam,'String'));
  506.       frequences = scal2frq(scales,wav_Name,delta);
  507.       err = (err | isempty(scales));
  508.       if ~err , set(pop_ccm,'Userdata',-1); end
  509.       varargout = {err,scales,frequences};
  511.     case 'computeCoefs'
  512.       sig_Anal = varargin{1};
  513.       scales   = varargin{2};
  514.       wav_Name = varargin{3};
  515.       %----------------------
  516.       txt_msg = wwaiting('handle',fig);
  517.       dynvtool('hide',fig);
  518.       drawnow
  519.       precis   = 10;
  520.       len      = length(sig_Anal);
  521.       nbscales = length(scales);
  522.       varargout{1} = zeros(nbscales,len);
  523.       wtype = wavemngr('type',wav_Name);
  524.       numALG   = 1;
  525.       switch numALG
  526.         case 1
  527.           [psi,psi_xval] = intwave(wav_Name,precis);
  528.           if wtype==5 , psi = conj(psi); end
  529.           psi_xval = psi_xval-psi_xval(1);
  530.           dxval = psi_xval(2);
  531.           xmax  = psi_xval(length(psi_xval));
  532.           ind   = 1;
  533.           for a = scales
  534.               msg = strvcat(' ',sprintf('Computing - scale a = %5.3f',a));
  535.               set(txt_msg,'String',msg);
  536.               drawnow
  537.               j = [1+floor([0:a*xmax]/(a*dxval))];
  538.               if length(j)==1 , j = [1 1]; end
  539.               f = fliplr(psi(j));
  540.               varargout{1}(ind,:) = -sqrt(a)*wkeep1(diff(conv(sig_Anal,f)),len);
  541.               ind = ind+1;
  542.           end
  543.         case 2        
  544.           switch wtype
  545.             case {1,3} , [A,psi,psi_xval] = wavefun(wav_Name,precis);
  546.             case 2     , [A,psi,A,A,psi_xval] = wavefun(wav_Name,precis);
  547.             case {4,5} , [psi,psi_xval] = wavefun(wav_Name,precis);
  548.           end
  549.           if wtype==5 , psi = conj(psi); end
  550.           psi_xval = psi_xval-psi_xval(1);
  551.           dxval = psi_xval(2);
  552.           xmax  = psi_xval(end);
  553.           ind   = 1;
  554.           for a = scales
  555.               msg = strvcat(' ',sprintf('Computing - scale a = %5.3f',a));
  556.               set(txt_msg,'String',msg);
  557.               drawnow
  558.               j = [1+floor([0:a*xmax]/(a*dxval))];
  559.               if length(j)==1 , j = [1 1]; end
  560.               f = fliplr(psi(j));
  561.               varargout{1}(ind,:) = wkeep1(conv(sig_Anal,f),len);
  562.               ind = ind+1;
  563.           end
  564.       end
  565.       set(txt_msg,'String','');
  566.       dynvtool('show',fig);
  568.     case 'computeCoefsMNGR'
  569.       % Loading file.
  570.       %-------------
  571.       [pathname,filename] = wmemtool('rmb',fig,n_InfoInit, ...
  572.                                            ind_pathname,ind_filename);
  573.       [sigInfos,sig_Anal,ok] = ...
  574.           utguidiv('load_dem1D',fig,pathname,filename);
  575.       if ~ok, return; end
  577.       % Getting scales and frequences.
  578.       %-------------------------------
  579.       [err,scales,frequences] = cw1dmngr('getScales',fig);
  580.       if err , return; end
  582.       % Setting Dynamic Visualization tool.
  583.       %------------------------------------
  584.       mngmbtn('delLines',fig,'All');
  586.       % Setting Axes.
  587.       %--------------
  588.       sig_Size = length(sig_Anal);
  589.       NB_Img  = size(scales,2);
  590.       xValMin = 1;
  591.       xValMax = sig_Size;
  592.       axeProp = {...
  593.           'Drawmode','fast',         ...
  594.           'Layer','top',             ...
  595.           'Ydir','reverse',          ...
  596.           'Xlim',[xValMin xValMax],  ...
  597.           'Ylim',[0.5 NB_Img+0.5],   ...
  598.           'YTicklabelMode','manual', ...
  599.           'YTick',[],                ...
  600.           'YTicklabel',[],           ...
  601.           'Box','On',                ...
  602.           'XGrid','Off',             ...
  603.           'YGrid','Off',             ...
  604.           'Nextplot','Replace'       ...
  605.           };
  607.       h_AXES = [hdl_Re_AXES,hdl_Im_AXES];
  608.       set(h_AXES(2,:),axeProp{:});
  610.       axes(hdl_Re_AXES(5));
  611.       image([0 1],[0 1],[1:default_nbcolors],'Parent',hdl_Re_AXES(5));
  612.       ud.dynvzaxe.enable = 'off';
  613.       set(hdl_Re_AXES(5),...
  614.               'XTicklabel',[],'YTicklabel',[],...
  615.               'XGrid','Off','YGrid','Off',...
  616.               'userdata',ud);
  617.       wsetxlab(hdl_Re_AXES(5),'Scale of colors from MIN to MAX');
  619.       % Computing coefficients.
  620.       %------------------------
  621.       wav_Name = wmemtool('rmb',fig,n_param_anal,ind_wav_name);
  622.       coefs    = cw1dmngr('computeCoefs',fig,sig_Anal,scales,wav_Name);
  623.       wmemtool('wmb',fig,n_coefs_sca,ind_coefs,coefs,...
  624.                      ind_scales,scales,ind_frequences,frequences);
  626.       % Begin waiting.
  627.       %---------------
  628.       wwaiting('msg',fig,'Wait ... computing');
  630.       % Coloration of coefficients.
  631.       %----------------------------
  632.       cw1dmngr('colorCoefs',fig,'draw');
  634.       % Plot line of coefficients.
  635.       %---------------------------
  636.       cw1dmngr('newCfsLine',fig,'init');
  638.       % Computing local maxima.
  639.       %------------------------
  640.       cw1dmngr('newChainLine',fig,'init');
  642.       % Setting Dynamic Visualization tool.
  643.       %------------------------------------
  644.       axeCMD = h_AXES(1:4,:);
  645.       axeCMD = axeCMD(:)';
  646.       axeCOO = h_AXES([2,4],:);
  647.       axeCOO = axeCOO(:)';
  648.       dynvtool('init',fig,[],axeCMD,[],[1 0],...
  649.                '','','cw1dcoor',axeCOO,'','','r');
  651.       % End waiting.
  652.       %-------------
  653.       wwaiting('off',fig);
  655.     case 'initColorCoefs'
  656.       testFirst = varargin{1};
  657.       continu   = 0;
  658.       varargout = {continu,{},0,0,'',[]};
  659.       img_cfs   = findobj(hdl_Re_AXES(2),'type','image');
  660.       old_para  = get(pop_ccm,'userdata');
  661.       if testFirst & (isempty(img_cfs) | old_para(1)==0) , return; end
  662.       col_mod   = get(pop_ccm,'value');
  663.       switch toolMode
  664.         case 'real'
  665.            switch col_mod
  666.             case 1 , absval = 1; levval = 'row'; view_m = 'gbl';
  667.             case 2 , absval = 0; levval = 'row'; view_m = 'gbl';
  668.             case 3 , absval = 1; levval = 'mat'; view_m = 'gbl';
  669.             case 4 , absval = 0; levval = 'mat'; view_m = 'gbl';
  670.             case 5 , absval = 1; levval = 'row'; view_m = 'cur';
  671.             case 6 , absval = 0; levval = 'row'; view_m = 'cur';
  672.             case 7 , absval = 1; levval = 'mat'; view_m = 'cur';
  673.             case 8 , absval = 0; levval = 'mat'; view_m = 'cur';
  674.           end
  676.         otherwise
  677.           absval = 0;
  678.           switch col_mod
  679.             case 1 , levval = 'row'; view_m = 'gbl';
  680.             case 2 , levval = 'mat'; view_m = 'gbl';
  681.             case 3 , levval = 'row'; view_m = 'cur';
  682.             case 4 , levval = 'mat'; view_m = 'cur';
  683.           end
  684.       end
  685.       sig_Size = wmemtool('rmb',fig,n_param_anal,ind_sig_size);
  686.       xind1 = 1;
  687.       xind2 = sig_Size;
  688.       if isequal(view_m,'cur')
  689.           xlim_selbox = mngmbtn('getbox',fig);
  690.           if ~isempty(xlim_selbox)
  691.               xlim_selbox = [min(xlim_selbox) max(xlim_selbox)];
  692.           else
  693.               xlim_selbox = get(hdl_Re_AXES(1),'XLim');
  694.           end
  695.           xlim_selbox = round(xlim_selbox);
  696.           xind1 = max(1,xlim_selbox(1));
  697.           xind2 = min(sig_Size,xlim_selbox(2));
  698.       end
  699.       new_para = [col_mod xind1 xind2];
  700.       if isequal(new_para,old_para) , return; end
  701.       set(pop_ccm,'userdata',new_para);
  703.       % Axes properties & Ytickslabel construction .
  704.       %---------------------------------------------
  705.       scales = wmemtool('rmb',fig,n_coefs_sca,ind_scales);
  706.       len  = length(scales);
  707.       nb   = ceil(len/20);
  708.       tics = 1:nb:len;
  709.       tmp  = scales(1:nb:nb*length(tics));
  710.       labs = num2str(tmp(:));
  711.       axeProp = {...
  712.         'XGrid','Off',             ...
  713.         'YGrid','Off',             ...
  714.         'YTicklabelMode','manual', ...
  715.         'YTick',tics,              ...
  716.         'YTicklabel',labs,         ...
  717.         'YDir','normal',           ...
  718.         'Box','On'                 ...
  719.        };
  721.       % Setting outputs.
  722.       %------------------
  723.       continu = 1;
  724.       varargout = {continu,axeProp,levval,absval,view_m,[xind1:xind2]};
  726.     case 'plotColorCoefs'
  727.       [type,axeCOEFS,axeProp,levval,absval,view_m,xVal] = deal(varargin{:});
  729.       % Waiting message.
  730.       %-----------------
  731.       msg_ini = 'Wait ... coefficients coloration';
  732.       txt_msg = wwaiting('msg',fig,msg_ini);
  734.       % Getting coefs and scales.
  735.       %--------------------------
  736.       [coefs,scales] = wmemtool('rmb',fig,n_coefs_sca,...
  737.                                       ind_coefs,ind_scales);
  738.       switch type
  739.         case 'abs'   , coefs = abs(coefs);
  740.         case 'angle' , coefs = angle(coefs);
  741.       end
  743.       % Coloration of coefficients.
  744.       %-----------------------------
  745.       if strcmp(view_m,'cur')
  746.           if strcmp(levval,'mat')
  747.               cmin = min(min(coefs(:,xVal)));
  748.               cmax = max(max(coefs(:,xVal)));
  749.               coefs(coefs<cmin) = cmin;
  750.               coefs(coefs>cmax) = cmax;
  751.           else
  752.               cmin = min((coefs(:,xVal)),[],2);
  753.               cmax = max((coefs(:,xVal)),[],2);
  754.               fprf = 'Coloration - scale a = %5.3f';
  755.               for k=1:length(scales)
  756.                   msg = strvcat(' ',sprintf(fprf,scales(k)));
  757.                   set(txt_msg,'String',msg);
  758.                   drawnow
  759.                   ind = find(coefs(k,:)<cmin(k));
  760.                   coefs(k,ind) = cmin(k);
  761.                   ind = find(coefs(k,:)>cmax(k));
  762.                   coefs(k,ind) = cmax(k);
  763.               end
  764.               txt_msg = wwaiting('msg',fig,msg_ini);
  765.               drawnow
  766.           end
  767.       end
  768.       coefs = wcodemat(coefs,default_nbcolors,levval,absval);
  770.       % Plot coefficients.
  771.       %-------------------
  772.       cfsTitles = cw1dutil('cfsColorTitle',fig,toolMode,pop_ccm);
  773.       indTitle = find(axeCOEFS==[hdl_Re_AXES(2);hdl_Im_AXES]);
  774.       if indTitle>1 , indTitle = 2; end
  775.       axes(axeCOEFS);
  776.       vis = get(axeCOEFS,'Visible');
  777.       img_cfs = findobj(axeCOEFS,'type','image');
  778.       if isempty(img_cfs)
  779.           img_cfs = image('Cdata',coefs,'Visible',vis,'Parent',axeCOEFS);
  780.       else
  781.           set(img_cfs,'Cdata',coefs,'Visible',vis);
  782.       end
  783.       set(axeCOEFS,axeProp{:});
  784.       wtitle(cfsTitles(indTitle,:),'Parent',axeCOEFS,'Visible',vis);
  786.     case 'colorCoefs'
  787.       %******************************************%
  788.       %** changing color mode for coefficients **%
  789.       %******************************************%
  790.       testFirst = (length(varargin)<1);
  791.       [continu,axeProp,levval,absval,view_m,xVal] = ...
  792.            cw1dmngr('initColorCoefs',fig,testFirst);
  793.       if ~continu , return; end
  795.       % Waiting message.
  796.       %-----------------
  797.       msg_ini = 'Wait ... coefficients coloration';
  798.       wwaiting('msg',fig,msg_ini);
  800.       switch toolMode
  801.         case 'real'
  802.           cw1dmngr('plotColorCoefs',fig,'real',...
  803.           hdl_Re_AXES(2),axeProp,levval,absval,view_m,xVal)
  804.  
  805.         otherwise
  806.           cw1dmngr('plotColorCoefs',fig,'abs',...
  807.           hdl_Re_AXES(2),axeProp,levval,absval,view_m,xVal);
  808.           cw1dmngr('plotColorCoefs',fig,'angle',...
  809.           hdl_Im_AXES(2),axeProp,levval,absval,view_m,xVal);
  810.       end
  812.       % End waiting.
  813.       %-------------
  814.       wwaiting('off',fig);
  816.     case 'clean'
  817.       calling_opt = varargin{1};
  819.       % Testing first use. End of Cleaning when first is true.
  820.       %-------------------------------------------------------
  821.       active_option = wmemtool('rmb',fig,n_param_anal,ind_act_option);
  822.       if isempty(active_option) , first = 1; else, first = 0; end
  824.       % Cleaning UIC.
  825.       %--------------
  826.       if ~strcmp(calling_opt,'new_anal')
  827.           [sig_nam,sig_len] = wmemtool('rmb',fig,n_param_anal,...
  828.                                 ind_sig_name,ind_sig_size);
  829.           sig_len = max(sig_len);
  830.           sca_def = int2str(min(64,sig_len));
  831.           lev_def = min(6,nextpow2(sig_len+1)-1);
  833.           pow_max = fix(log(sig_len)/log(2));
  834.           sca_max = 2^(pow_max-1);
  835.           lev_max = min(pow_max,max_lev_anal);
  837.           cbanapar('set',fig,'n_s',{sig_nam,sig_len});
  838.           set(edi_sam,'String','1','Userdata','1');
  839.           set(pop_sca,'Value',1,'Userdata',0);
  840.           set(pop_ccm,'Value',1,'Userdata',0);
  841.           str_pop_pow = int2str([1:lev_max]');
  842.           set(pop_pow,'String',str_pop_pow,'Value',lev_def);
  843.           set(edi_min,'String','1');
  844.           set(edi_stp,'String','1');
  845.           set(edi_max,'String',sca_def);
  846.           set(edi_msc,'String',[ '[1:1:' sca_def ']' ]);
  847.           str_txt_max = sprintf('Max  ( <= %.0f )', sca_max); 
  848.           set(txt_max,'String',str_txt_max);
  849.           action = get(pop_sca,'Callback');
  850.           eval(action);
  851.       end
  852.       if first
  853.           switch toolMode
  854.             case 'real' , set(hdl_Re_AXES,'Visible','on');
  855.             otherwise   , cw1dmngr('setPosAxesIMAG',fig,rad_ALL);
  856.           end
  857.           return;
  858.       end
  860.       % Setting enable property of objects.
  861.       %------------------------------------
  862.       cbanapar('enable',fig,'off');
  864.       % Cleaning DynVTool.
  865.       %-------------------
  866.       dynvtool('stop',fig);
  868.       % Cleaning Axes.
  869.       %---------------
  870.       h_AXES = [hdl_Re_AXES , hdl_Im_AXES];
  871.       toDEL = h_AXES(2:4,:);
  872.       toDEL = allchild(toDEL(:));
  873.       toDEL = cat(1,toDEL{:});
  874.       delete(toDEL);
  875.       if ~strcmp(calling_opt,'new_anal')
  876.           toDEL = h_AXES(1,:);
  877.           toDEL = allchild(toDEL(:));
  878.           if iscell(toDEL),  toDEL = cat(1,toDEL{:}); end
  879.           delete(toDEL)
  880.       end
  881.       set(h_AXES([2,4],:), ...
  882.           'YTicklabelMode','manual','YTick',[],'YTicklabel',[]);
  883.       numView  = toolATTR.Num;
  884.       optDRAW  = 'nothing';
  885.       if ~isequal(numView,1) , optDRAW = 'setPosAxes'; end
  886.       if ~isequal(toolMode,'real') & ~isequal(toolMode,'all')
  887.           optDRAW = 'setPosAxesIMAG';
  888.       end
  889.   
  890.       switch optDRAW
  891.         case 'nothing'
  892.           set(h_AXES,'Visible','on');
  894.         case 'setPosAxes'
  895.           set([chk_DEC,chk_LC,chk_LML],'Value',1)
  896.           cw1dmngr('setPosAxes',fig)
  898.         case 'setPosAxesIMAG'
  899.           set([chk_DEC,chk_LC,chk_LML],'Value',1)
  900.           cw1dmngr('setPosAxesIMAG',fig,rad_ALL)
  901.       end
  903.     case 'set_gui'
  904.       calling_opt = varargin{1};
  905.       switch calling_opt
  906.         case {'demo'}
  907.           wav_Name = wmemtool('rmb',fig,n_param_anal,ind_wav_name);
  908.           cbanapar('set',fig,'wav',wav_Name);
  909.           set(edi_min,'String',sprintf('%.0f',varargin{2}));
  910.           set(edi_stp,'String',sprintf('%.0f',varargin{3}));
  911.           set(edi_max,'String',sprintf('%.0f',varargin{4}));
  912.           set(pop_ccm,'Value',varargin{5});
  913.           if length(varargin)>5
  914.               cbcolmap('set',fig,'pal',{'same',varargin{6}});
  915.           end
  916.       end
  918.     case 'enable'
  919.       calling_opt  = varargin{1};
  920.       HDL_1 = [...
  921.         edi_sam , pop_sca , pus_ana , ...
  922.         edi_min , edi_stp , edi_max , ...
  923.         pop_pow , edi_msc             ...
  924.         ];
  926.       HDL_2 = [...
  927.         chk_DEC , chk_LC  , chk_LML , ...
  928.         rad_SCA , rad_FRQ , pop_ccm   ...
  929.         ];
  931.   HDL_3 = [pus_lin , pus_ref];
  933.       switch toolMode
  934.         case {'real'}
  935.         case {'abs','arg','all'}
  936.           HDL_2 = [HDL_2 , rad_MOD , rad_ANG , rad_ALL];
  937.       end
  939.       switch calling_opt
  940.         case 'load'
  941.           cbanapar('enable',fig,'On');
  942.           cbcolmap('enable',fig,'On');
  943.           set(HDL_1,'enable','On');
  944.           set(HDL_2,'enable','Off');
  945.           set(men_sav,'enable','Off');
  946.           set(chk_for_AXES,'enable','On')
  948.         case {'demo','anal'}
  949.           cbanapar('enable',fig,'On');
  950.           cbcolmap('enable',fig,'On');
  951.           set(HDL_1,'enable','On');
  952.           set(HDL_2,'enable','On');
  953.           set(men_sav,'enable','On');
  954.       end
  955.   
  956.   set(HDL_3,'enable','Off');
  958.     case 'load'
  959.       % Loading file.
  960.       %--------------
  961.       [sigInfos,sig_Anal,ok] = ...
  962.          utguidiv('load_sig',fig,'Signal_Mask','Load Signal');
  963.       if ~ok, return; end
  965.       % Setting Analysis parameters.
  966.       %-----------------------------
  967.       wmemtool('wmb',fig,n_param_anal, ...
  968.                      ind_sig_name,sigInfos.name,...
  969.                      ind_sig_size,sigInfos.size ...
  970.                      );
  971.       wmemtool('wmb',fig,n_InfoInit, ...
  972.                      ind_filename,sigInfos.filename, ...
  973.                      ind_pathname,sigInfos.pathname  ...
  974.                      );
  976.       % Get the current view.
  977.       %---------------------     
  978.       old_valCHK = get(chk_for_AXES,'Value');      
  980.       % Cleaning.
  981.       %----------
  982.       wwaiting('msg',fig,'Wait ... cleaning');
  983.       cw1dmngr('clean',fig,option);
  984.       wmemtool('wmb',fig,n_param_anal,ind_act_option,option);
  985.  
  986.       % Drawing.
  987.       %---------
  988.       cw1dmngr('plotSignal',fig,sig_Anal);
  990.       % Setting enabled values.
  991.       %------------------------
  992.       cw1dmngr('enable',fig,option);
  994.       % Restore the previous view.
  995.       %---------------------------
  996.       restoreView(fig,chk_for_AXES,old_valCHK);
  998.       % End waiting.
  999.       %---------------
  1000.       wwaiting('off',fig);
  1002.     case 'demo'
  1003.       % Loading file.
  1004.       %--------------
  1005.       sig_Name = deblank(varargin{1});
  1006.       wav_Name = deblank(varargin{2});
  1007.       filename = [sig_Name '.mat'];
  1008.       pathname = utguidiv('WTB_DemoPath',filename);
  1009.       [sigInfos,sig_Anal,ok] = ...
  1010.           utguidiv('load_dem1D',fig,pathname,filename);
  1011.       if ~ok, return; end
  1013.       % Setting Analysis parameters.
  1014.       %-----------------------------
  1015.       wmemtool('wmb',fig,n_param_anal, ...
  1016.                      ind_sig_name,sigInfos.name,...
  1017.                      ind_sig_size,sigInfos.size ...
  1018.                      );
  1019.       wmemtool('wmb',fig,n_InfoInit, ...
  1020.                      ind_filename,sigInfos.filename, ...
  1021.                      ind_pathname,sigInfos.pathname  ...
  1022.                      );
  1024.       % Get the current view.
  1025.       %---------------------     
  1026.       old_valCHK = get(chk_for_AXES,'Value');      
  1028.       % Cleaning.
  1029.       %----------      
  1030.       wwaiting('msg',fig,'Wait ... cleaning');
  1031.       cw1dmngr('clean',fig,option);
  1033.       % Setting GUI values.
  1034.       %--------------------
  1035.       wmemtool('wmb',fig,n_param_anal, ...
  1036.                      ind_act_option,option,ind_wav_name,wav_Name);
  1037.       cw1dmngr('set_gui',fig,option,varargin{3:end});
  1039.       % Drawing & Computing .
  1040.       %----------------------
  1041.       cw1dmngr('plotSignal',fig,sig_Anal);
  1042.       wwaiting('msg',fig,'Wait ... computing');
  1043.       cw1dmngr('computeCoefsMNGR',fig);
  1044.  
  1045.       % Setting enabled values.
  1046.       %------------------------
  1047.       cw1dmngr('enable',fig,option);
  1049.       % Restore the previous view.
  1050.       %---------------------------
  1051.       restoreView(fig,chk_for_AXES,old_valCHK);
  1052.       
  1053.       % End waiting.
  1054.       %---------------
  1055.       wwaiting('off',fig);
  1057.     case 'save'
  1058.       % Testing file.
  1059.       %--------------
  1060.       [filename,pathname,ok] = utguidiv('test_save',fig, ...
  1061.                                    '*.mat','Save Coefficients (CW1D)');
  1062.       if ~ok, return; end
  1064.       % Begin waiting.
  1065.       %--------------
  1066.       wwaiting('msg',fig,'Wait ... saving coefficients');
  1068.       % Getting Analysis values.
  1069.       %-------------------------
  1070.       [coefs,scales] = wmemtool('rmb',fig,n_coefs_sca,ind_coefs,ind_scales);
  1071.       wname = wmemtool('rmb',fig,n_param_anal,ind_wav_name);
  1073.       % Saving file.
  1074.       %--------------
  1075.       [name,ext] = strtok(filename,'.');
  1076.       if isempty(ext) | isequal(ext,'.')
  1077.           ext = '.wc1'; filename = [name ext];
  1078.       end
  1079.       saveStr = {'coefs','scales','wname'};
  1080.       wwaiting('off',fig);
  1081.       try
  1082.         save([pathname filename],saveStr{:});
  1083.       catch
  1084.         errargt(mfilename,'Save FAILED !','msg');
  1085.       end
  1087.     case 'anal'
  1088.       active_option = wmemtool('rmb',fig,n_param_anal,ind_act_option);
  1090.       % Waiting message.
  1091.       %-----------------
  1092.       wwaiting('msg',fig,'Wait ... cleaning and computing');
  1094.       % Get the current view.
  1095.       %---------------------     
  1096.       old_valCHK = get(chk_for_AXES,'Value');      
  1097.       
  1098.       if ~strcmp(active_option,'load')
  1099.           % Cleaning.
  1100.           %----------
  1101.           cw1dmngr('clean',fig,'new_anal');
  1103.           % Setting enabled values.
  1104.           %------------------------
  1105.           cw1dmngr('enable',fig,'load');
  1106.       end
  1108.       % Setting Analysis parameters
  1109.       %-----------------------------
  1110.       wav_Name = cbanapar('get',fig,'wav');
  1111.       wmemtool('wmb',fig,n_param_anal,  ...
  1112.                      ind_act_option,option,ind_wav_name,wav_Name);
  1114.       % Computing & Drawing.
  1115.       %--------------------
  1116.       cw1dmngr('computeCoefsMNGR',fig);
  1118.       % Restore the previous view.
  1119.       %---------------------------
  1120.       restoreView(fig,chk_for_AXES,old_valCHK);
  1122.       % Setting enabled values.
  1123.       %------------------------
  1124.       cw1dmngr('enable',fig,option);
  1126.       % End waiting.
  1127.       %-------------
  1128.       wwaiting('off',fig);
  1130.     case 'WindowButtonUpFcn'
  1131. [flag_lin,flag_ref] = cw1dmngr('get_Ena_Flag',fig);
  1132. if flag_lin , ena_lin = 'On'; else , ena_lin = 'Off'; end
  1133. if flag_ref , ena_ref = 'On'; else , ena_ref = 'Off'; end
  1134. set(pus_lin,'Enable',ena_lin); 
  1135. set(pus_ref,'Enable',ena_ref);
  1137.     case 'get_Ena_Flag'
  1138. flag_lin = 0;
  1139.         flag_ref = 0;
  1140. hdl_axe  = NaN;
  1141. switch toolMode
  1142. case {'real'}
  1143. axeLIN = hdl_Re_AXES([2,4]);
  1144.                 axeFLG = hdl_Re_AXES([3,4]);
  1145. case {'abs','arg','all'}
  1146. axeLIN = [hdl_Re_AXES([2,4]) ; hdl_Im_AXES([2,4])];
  1147.                 axeFLG = [hdl_Re_AXES([3,4]) ; hdl_Im_AXES([3,4])];
  1148.                 axeFLG = axeFLG(:)';
  1149. end
  1150. lHor = mngmbtn('getLines',fig,'Hor');
  1151. if ~isempty(lHor) & ishandle(lHor)
  1152. idx = find(axeLIN==get(lHor,'Parent'));
  1153. if ~isempty(idx)
  1154. hdl_axe  = axeLIN(idx);
  1155.                 visFLG = get(axeFLG,'Visible');
  1156.                 switch toolMode
  1157.                     case {'real'}
  1158.                         flag_lin = isequal(visFLG{1},'on');
  1159.                         flag_ref = isequal(visFLG{2},'on');
  1160.                     case {'abs','arg','all'}
  1161.                         flag_lin = isequal(visFLG{1},'on') | ...
  1162.                                    isequal(visFLG{3},'on');
  1163.                         flag_ref = isequal(visFLG{2},'on') | ...
  1164.                                    isequal(visFLG{4},'on');
  1165.                 end
  1166. end
  1167. end
  1168. varargout = {flag_lin,flag_ref,hdl_axe};
  1170. otherwise
  1171.       errargt(mfilename,'Unknown Option','msg');
  1172.       error('*');
  1173. end
  1176. %---------------------------------------------------------%
  1177. function restoreView(fig,chk_for_AXES,old_valCHK)
  1179. new_valCHK = get(chk_for_AXES,'Value'); 
  1180. if ~isequal(old_valCHK,new_valCHK)
  1181.     for k=1:length(old_valCHK) , 
  1182.         set(chk_for_AXES(k),'Value',old_valCHK{k}); 
  1183.     end
  1184.     cw1dmngr('setPosAxes',fig);   
  1185. end
  1186. %---------------------------------------------------------%