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

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

波变换

开发平台：

Matlab

dw1dscrm.m：源码内容
  1. function [out1,out2] = dw1dscrm(option,win_dw1dtool,in3,in4,in5)
  2. %DW1DSCRM Discrete wavelet 1-D show and scroll mode manager.
  3. %   [OUT1,OUT2] = DW1DSCRM(OPTION,WIN_DW1DTOOL,IN3,IN4,IN5)
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  6. %   Last Revision: 27-Jun-2001.
  7. %   Copyright 1995-2002 The MathWorks, Inc.
  8. %   $Revision: 1.17 $ $Date: 2002/04/14 19:44:27 $
  10. % MemBloc1 of stored values.
  11. %---------------------------
  12. n_param_anal   = 'DWAn1d_Par_Anal';
  13. ind_sig_name   = 1;
  14. ind_sig_size   = 2;
  15. ind_wav_name   = 3;
  16. ind_lev_anal   = 4;
  17. ind_axe_ref    = 5;
  18. ind_act_option = 6;
  19. ind_ssig_type  = 7;
  20. ind_thr_val    = 8;
  21. nb1_stored     = 8;
  23. % MemBloc2 of stored values.
  24. %---------------------------
  25. n_coefs_longs = 'Coefs_and_Longs';
  26. ind_coefs     = 1;
  27. ind_longs     = 2;
  28. nb2_stored    = 2;
  30. % MemBloc4 of stored values.
  31. %---------------------------
  32. n_miscella     = 'DWAn1d_Miscella';
  33. ind_graph_area =  1;
  34. ind_view_mode  =  2;
  35. ind_savepath   =  3;
  36. nb4_stored     =  3;
  38. % Tag property of objects.
  39. %-------------------------
  40. tag_valapp_scr = 'ValApp_Scr';
  41. tag_txtapp_scr = 'TxtApp_Scr';
  42. tag_valdet_scr = 'ValDet_Scr';
  43. tag_txtdet_scr = 'TxtDet_Scr';
  45. tag_axeappini  = 'Axe_AppIni';
  46. tag_axedetini  = 'Axe_DetIni';
  47. tag_axecfsini  = 'Axe_CfsIni';
  48. tag_axecolmap  = 'Axe_ColMap';
  49. tag_s_inapp    = 'Sig_in_App';
  50. tag_ss_inapp   = 'SSig_in_App';
  51. tag_s_indet    = 'Sig_in_Det';
  52. tag_ss_indet   = 'SSig_in_Det';
  53. tag_app        = 'App';
  54. tag_det        = 'Det';
  55. tag_img_cfs    = 'Img_Cfs';
  56. tag_img_sca    = 'Img_Sca';
  58. children    = get(win_dw1dtool,'Children');
  59. axe_handles = findobj(children,'flat','type','axes');
  60. uic_handles = findobj(children,'flat','type','uicontrol');
  61. txt_handles = findobj(uic_handles,'Style','text');
  62. pop_handles = findobj(uic_handles,'Style','popupmenu');
  63. axe_app_ini = findobj(axe_handles,'flat','Tag',tag_axeappini);
  64. axe_det_ini = findobj(axe_handles,'flat','Tag',tag_axedetini);
  65. axe_cfs_ini = findobj(axe_handles,'flat','Tag',tag_axecfsini);
  66. axe_col_map = findobj(axe_handles,'flat','Tag',tag_axecolmap);
  68. switch option
  69.     case 'app'
  70.         pop = findobj(pop_handles,'Tag',tag_valapp_scr);
  71.         num = get(pop,'Value');
  72.         old = findobj(axe_app_ini,'Tag',tag_app);
  73.         if ~isempty(old)
  74.             hdl_line = findobj(old,'Userdata',num);
  75.             if ~isempty(hdl_line)
  76.                 ii = find(old==hdl_line);
  77.                 old(ii) = [];
  78.                 num = 0;
  79.                 try , delete(old); end
  80.                 return
  81.             end
  82.         end
  84.         % Begin waiting.
  85.         %---------------
  86.         wwaiting('msg',win_dw1dtool,'Wait ... computing');
  88.         try , delete(old); end
  89.         x = dw1dfile('app',win_dw1dtool,num);
  90.         Level_Anal = wmemtool('rmb',win_dw1dtool,n_param_anal,ind_lev_anal);
  91.         col_app = wtbutils('colors','app',Level_Anal);
  92.         line('Parent',axe_app_ini,'Xdata',[1:length(x)],'Ydata',x,...
  93.              'Color',col_app(num,:),'Tag',tag_app,'Userdata',num);
  94.         str_tit = get(get(axe_app_ini,'title'),'String');
  95.         ind = findstr(str_tit,'level');
  96.         str_tit = [str_tit(1:ind+5) sprintf('%.0f',num)];
  97.         wtitle(str_tit,'Parent',axe_app_ini);
  99.         % End waiting.
  100.         %-------------
  101.         wwaiting('off',win_dw1dtool);
  103.     case 'det'
  104.         pop = findobj(pop_handles,'Tag',tag_valdet_scr);
  105.         num = get(pop,'Value');
  106.         old = findobj(axe_det_ini,'Tag',tag_det);
  107.         if ~isempty(old)
  108.             hdl_line = findobj(old,'Userdata',num);
  109.             if ~isempty(hdl_line)
  110.                 ii = find(old==hdl_line);
  111.                 old(ii) = [];
  112.                 num = 0;
  113.                 try , delete(old); end
  114.                 return
  115.             end
  116.         end
  118.         % Begin waiting.
  119.         %---------------
  120.         wwaiting('msg',win_dw1dtool,'Wait ... computing');
  122.         try , delete(old); end
  123.         ll = findobj(axe_det_ini,'type','line','Visible','On');
  124.         if isempty(ll)
  125.             [x,set_ylim,ymin,ymax] = dw1dfile('det',win_dw1dtool,num,1);
  126.         else
  127.             set_ylim = 0;
  128.             x = dw1dfile('det',win_dw1dtool,num);
  129.         end
  130.         Level_Anal = wmemtool('rmb',win_dw1dtool,n_param_anal,ind_lev_anal);
  131.         col_det = wtbutils('colors','det',Level_Anal);
  132.         line('Parent',axe_det_ini,'Xdata',[1:length(x)],'Ydata',x,...
  133.              'Color',col_det(num,:),'Tag',tag_det,'Userdata',num);
  134.         if set_ylim , set(axe_det_ini,'Ylim',[ymin,ymax]); end
  135.         str_tit = get(get(axe_det_ini,'title'),'String');
  136.         ind = findstr(str_tit,'level');
  137.         str_tit = [str_tit(1:ind+5) sprintf('%.0f',num)];
  138.         wtitle(str_tit,'Parent',axe_det_ini);
  140.         % End waiting.
  141.         %-------------
  142.         wwaiting('off',win_dw1dtool);
  144.     case 'plot_sig'
  145.         % in3 = signal
  146.         % in4 = display mode
  147.         % in5 = sig  visibility  
  148.         %----------------------
  149.         if     nargin==3 , in4 = 1; in5 = 1;
  150.         elseif nargin==4 , in5 = 1;
  151.         end
  152.         if in4==1 , v = 1; else , v = 0; end
  153.         axe_hdl = dw1dscrm('axes',win_dw1dtool,[1 1 1],1);
  154.         vsig = getonoff(in5);
  155.         set(axe_hdl(1),'Visible',vsig);
  156.         set(axe_hdl(2:4),'Visible',getonoff(v));
  158.         % Drawing.
  159.         %---------
  160.         axeAct = axe_hdl(1);
  161.         wtitle('Loaded Signal','Parent',axeAct);
  162.         col_s = wtbutils('colors','sig');
  163.         line('Parent',axeAct,'Xdata',[1:length(in3)],'Ydata',in3,...
  164.              'Color',col_s,'Visible',vsig,'Tag',tag_s_inapp);
  166.         axeAct = axe_hdl(2);
  167.         xmin = 1;             xmax = length(in3);
  168.         ymin = min(in3)-eps;  ymax = max(in3)+eps;
  169.         line('Parent',axeAct,'Xdata',[xmin:xmax],'Ydata',in3,...
  170.              'Color',col_s,'Visible','Off','Tag',tag_s_indet);
  171.         set(axe_hdl(1:3),'Xlim',[xmin xmax],'Ylim',[ymin ymax]);
  173.     case 'plot_anal'
  174.         lin_handles = findobj(axe_handles,'Type','line');
  175.         ss_in_app   = findobj(lin_handles,'Tag',tag_ss_inapp);
  176.         if isempty(ss_in_app)
  177.             col_ss = wtbutils('colors','ssig');
  178.             ss_rec = dw1dfile('ssig',win_dw1dtool);
  179.             line(...
  180.                  'Parent',axe_app_ini, ...
  181.                  'Xdata',[1:length(ss_rec)],'Ydata',ss_rec, ...
  182.                  'Zdata',2*ones(size(ss_rec)),...
  183.                  'Color',col_ss,'Visible','Off','Tag',tag_ss_inapp);
  184.             line(...
  185.                  'Parent',axe_det_ini, ...
  186.                  'Xdata',[1:length(ss_rec)],'Ydata',ss_rec, ...
  187.                  'Zdata',2*ones(size(ss_rec)), ...
  188.                  'Color',col_ss,'Visible','Off','Tag',tag_ss_indet);
  190.             clear ss_rec
  191.         end
  193.         Level_Anal = wmemtool('rmb',win_dw1dtool,n_param_anal,ind_lev_anal);
  194.         [app_rec,set_ylim,ymin,ymax] = dw1dfile('app',win_dw1dtool,1,1);
  195.         ylim = get(axe_app_ini,'Ylim');
  196.         if ylim(1)<ymin , ymin = ylim(1); end
  197.         if ylim(2)>ymax , ymax = ylim(2); end
  198.         col_app = wtbutils('colors','app',Level_Anal);
  199.         line(...
  200.              'Parent',axe_app_ini,...
  201.              'Xdata',[1:length(app_rec)],'Ydata',app_rec,...
  202.              'Color',col_app(1,:),'Tag',tag_app,'Userdata',1);
  203.         wtitle(sprintf('Signal and Approximation at level %.0f',1),...
  204.                 'Parent',axe_app_ini)
  205.         set(axe_app_ini,'Ylim',[ymin,ymax]);
  206.         clear app_rec
  208.         [det_rec,set_ylim,ymin,ymax] = dw1dfile('det',win_dw1dtool,1,1);
  209.         col_det = wtbutils('colors','det',Level_Anal);
  210.         line(...
  211.              'Parent',axe_det_ini,...
  212.              'Xdata',[1:length(det_rec)],'Ydata',det_rec,...
  213.              'Color',col_det(1,:),'Tag',tag_det,'Userdata',1);
  214.         if set_ylim , set(axe_det_ini,'Ylim',[ymin,ymax]); end
  215.         wtitle(sprintf('Detail at level %.0f',1),...
  216.                 'Parent',axe_det_ini)
  217.         clear det_rec
  219.         clear longs coefs
  220.         [det_cfs,xlim1,xlim2,ymax,ymin,nb_cla,levs,ccfs_vm] = ...
  221.                                 dw1dmisc('col_cfs',win_dw1dtool);
  222.         levlab  = flipud(int2str(levs(:)));
  223.         img_cfs = image(flipud(det_cfs),...
  224.                         'Parent',axe_cfs_ini,         ...
  225.                         'Tag',tag_img_cfs,            ...
  226.                         'Userdata',[ccfs_vm,levs,xlim1,xlim2,nb_cla]);
  227.         set(axe_cfs_ini,'YTicklabelMode','manual',...
  228.                         'YTick',[1:length(levs)], ...
  229.                         'YTickLabel',levlab,      ...
  230.                         'Ylim',[0.5 Level_Anal+0.5], ...
  231.                         'Tag',tag_axecfsini       ...
  232.                         );
  233.         wtitle('Details Coefficients','Parent',axe_cfs_ini);
  234.         wylabel('Level number','Parent',axe_cfs_ini)
  235.         clear dec_cfs
  237.         image([0 1],[0 1],[1:nb_cla],'Parent',axe_col_map,'Tag',tag_img_sca);
  238.         set(axe_col_map,...
  239.                 'XTickLabel',[],'YTickLabel',[],...
  240.                 'XTick',[],'YTick',[],'Tag',tag_axecolmap);
  241.         wsetxlab(axe_col_map,'Scale of colors from MIN to MAX');
  243.         % Reference axes used by stat. & histo & ...
  244.         %-------------------------------------------
  245.         wmemtool('wmb',win_dw1dtool,n_param_anal,ind_axe_ref,axe_app_ini);
  247.         % Axes attachment.
  248.         %-----------------
  249.         dw1dscrm('dynv',win_dw1dtool);
  251.     case 'plot_cfs'
  252.         % in3 = display mode
  253.         %------------------
  254.         if nargin==2 , in3 = 1; end
  255.         if in3==1 , v = 1; else , v = 0; end
  256.         v = 0;  % force l'affichage des coefficients
  258.         axe_hdl = dw1dscrm('axes',win_dw1dtool,[1 v 1],1);
  259.         set(axe_hdl(2),'Visible',getonoff(v));
  260.         set(axe_hdl(1,3:4),'Visible','On');
  262.         Signal_Size = wmemtool('rmb',win_dw1dtool,n_param_anal,ind_sig_size);
  263.         xmin = 1;  xmax = Signal_Size;
  264.         ta3 = 'Loaded Details Coefficients (Colored)';
  265.         if v
  266.             set(axe_hdl(1:3),'Xlim',[xmin xmax]);
  267.         else
  268.             [coefs,longs] = wmemtool('rmb',win_dw1dtool,...
  269.                                             n_coefs_longs,ind_coefs,ind_longs);
  270.             coefs = coefs(longs(1)+1:end);
  271.             longs = longs(2:end-1);
  272.             nbd   = length(longs);
  273.             ymin = min(coefs);
  274.             ymax = max(coefs);
  275.             if ymin==ymax , dy = 0.001; else ,dy = (ymax-ymin)/20; end
  276.             ymin = ymin-dy; ymax = ymax+dy;
  277.             axe_act = axe_hdl(1);
  278.             set(axe_act,'Xlim',[1 length(coefs)],'Ylim',[ymin ymax]);
  279.             wtitle(['Loaded Details Coefficients from level '...
  280.                      sprintf('%.0f',nbd) ' to level 1.'],'Parent',axe_act);
  281.             line('Parent',axe_act,'Xdata',[1:length(coefs)],'Ydata',coefs, ...
  282.                  'Color',wtbutils('colors','coefs'));
  283.             x = 0;
  284.             linCOL = wtbutils('colors','dw1d','sepcfs');
  285.             for k = 1:nbd-1
  286.                 x = x+longs(k);
  287.                 line('Parent',axe_act,'Xdata',[x x],'Ydata',[ymin ymax], ...
  288.                      'Color',linCOL);
  289.             end
  290.             drawnow
  291.             set(axe_hdl(2:3),'Xlim',[xmin xmax]);
  292.         end
  294.         axe_act = axe_hdl(3);
  295.         [det_cfs,xlim1,xlim2,ylim2,ylim1,nb_cla,levs,ccfs_vm] = ...
  296.                                 dw1dmisc('col_cfs',win_dw1dtool);
  297.         levlab  = flipud(int2str(levs(:)));
  298.         img_cfs = image(flipud(det_cfs),   ...
  299.                         'Parent',axe_act,  ...
  300.                         'Tag',tag_img_cfs, ...
  301.                         'Userdata',[ccfs_vm,levs,xlim1,xlim2,nb_cla]);
  302.         wtitle(ta3,'Parent',axe_act);
  303.         wylabel('Level number','Parent',axe_act)
  304.         set(axe_act,'YTicklabelMode','manual',   ...
  305.                     'YTick',[1:length(levs)],    ...
  306.                     'YTickLabel',levlab,         ...
  307.                     'Ylim',[0.5 length(levs)+0.5],...
  308.                     'Tag',tag_axecfsini          ...
  309.                     );
  311.         axe_act = axe_hdl(4);
  312.         image([0 1],[0 1],[1:nb_cla],'Parent',axe_act,'Tag',tag_img_sca);
  313.         set(axe_act,...
  314.                 'XTickLabel',[],'YTickLabel',[],...
  315.                 'XTick',[],'YTick',[],'Tag',tag_axecolmap);
  316.         wsetxlab(axe_act,'Scale of colors from MIN to MAX');
  318.         if v==0
  319.             set(axe_hdl(1),'Xlim',[1 length(coefs)],'Ylim',[ymin ymax]);
  320.         end
  322.     case 'plot_synt'
  323.         % Getting  Synthesis parameters.
  324.         %------------------------------
  325.         Level_Anal = wmemtool('rmb',win_dw1dtool,n_param_anal,ind_lev_anal);
  327.         % Computing Decomposition.
  328.         %-------------------------
  329.         col_s   = wtbutils('colors','sig');
  330.         col_ss  = wtbutils('colors','ssig');
  331.         col_app = wtbutils('colors','app',Level_Anal);
  332.         col_det = wtbutils('colors','det',Level_Anal);
  334.         delete(get(axe_app_ini,'Children'));
  335.         axe_hdl = dw1dscrm('axes',win_dw1dtool,[1 1 1],0);
  336.         set(axe_hdl,'Visible','On');
  338.         sig_rec = dw1dfile('sig',win_dw1dtool);
  339.         line(...
  340.              'Parent',axe_app_ini,...
  341.              'Xdata',[1:length(sig_rec)],'Ydata',sig_rec,...
  342.              'Color',col_s,'Tag',tag_s_inapp);
  343.         line(...
  344.              'Parent',axe_app_ini,...
  345.              'Xdata',[1:length(sig_rec)],'Ydata',sig_rec, ...
  346.              'Zdata',2*ones(size(sig_rec)),...
  347.              'Color',col_ss,'Visible','Off','Tag',tag_ss_inapp);
  349.         app_rec = dw1dfile('app',win_dw1dtool,1);
  350.         line(...
  351.              'Parent',axe_app_ini,...
  352.              'Xdata',[1:length(app_rec)],'Ydata',app_rec,...
  353.              'Color',col_app(1,:),'Tag',tag_app,'Userdata',1);
  354.         wtitle(sprintf('Original Synthesized Signal and Approximation at level %.0f',1),...
  355.        'Parent',axe_app_ini)
  356.         clear app_rec
  357.         [det_rec,set_ylim,ymin,ymax] = dw1dfile('det',win_dw1dtool,1,1);
  358.         line(...
  359.              'Parent',axe_det_ini,...
  360.              'Xdata',[1:length(sig_rec)],'Ydata',sig_rec,...
  361.              'Color',col_s,'Visible','Off','Tag',tag_s_indet);
  362.         line(...
  363.              'Parent',axe_det_ini,...
  364.              'Xdata',[1:length(sig_rec)],'Ydata',sig_rec,...
  365.              'Zdata',2*ones(size(sig_rec)),...
  366.              'Color',col_ss,'Visible','Off','Tag',tag_ss_indet);
  368.         line(...
  369.              'Parent',axe_det_ini,...
  370.              'Xdata',[1:length(det_rec)],'Ydata',det_rec,...
  371.              'Color',col_det(1,:),'Tag',tag_det,'Userdata',1);
  372.         if set_ylim , set(axe_det_ini,'Ylim',[ymin ymax]); end
  373.         wtitle(sprintf('Detail at level %.0f',1),'Parent',axe_det_ini)
  375.         wtitle('Details Coefficients','Parent',axe_cfs_ini);
  376.         wylabel('Level number','Parent',axe_cfs_ini);
  378.         wsetxlab(axe_col_map,'Scale of colors from MIN to MAX');
  380.         % Reference axes used by stat. & histo & ...
  381.         %-------------------------------------------
  382.         wmemtool('wmb',win_dw1dtool,n_param_anal,ind_axe_ref,axe_app_ini);
  384.         % Axes attachment.
  385.         %-----------------
  386.         dw1dscrm('dynv',win_dw1dtool);
  388.     case 'view'
  389.         % in3 = old_mode
  390.         %----------------
  391.         % in3 = -1 : same mode
  392.         % in3 =  0 : clean
  393.         % in3 =  1 : scr mode
  394.         % in3 =  2 : dec mode
  395.         % in3 =  3 : sep mode
  396.         % in3 =  4 : sup mode
  397.         % in3 =  5 : tre mode
  398.         % in3 =  6 : cfs mode
  399.         %---------------------------
  400.         old_mode = in3;
  401.         [flg_axe,flg_sa,flg_app,flg_sd,flg_det,ccfs_m] = ...
  402.                                 dw1dvmod('get_vm',win_dw1dtool,1);
  403.         v_flg = [flg_sa , flg_app , flg_sd , flg_det , flg_axe(3)];
  404.         if flg_axe(1)== 0 , v_flg(1:3) = zeros(1,3); end
  405.         if flg_axe(2)== 0 , v_flg(4:6) = zeros(1,3); end
  406.         if flg_axe(3)== 0 , v_flg(7)   = 0; end
  408.         pop_app  = findobj(pop_handles,'Tag',tag_valapp_scr);
  409.         lev_a    = get(pop_app,'Value');
  410.         pop_det  = findobj(pop_handles,'Tag',tag_valdet_scr);
  411.         lev_d    = get(pop_det,'Value');
  413.         vis_str  = getonoff(v_flg);
  414.         v_s_app  = vis_str(1,:);
  415.         v_ss_app = vis_str(2,:);
  416.         v_app    = vis_str(3,:);
  417.         v_s_det  = vis_str(4,:);
  418.         v_ss_det = vis_str(5,:);
  419.         v_det    = vis_str(6,:);
  420.         v_cfs    = vis_str(7,:);
  422.         axe_hdl     = dw1dscrm('axes',win_dw1dtool,flg_axe);
  423.         lin_handles = findobj(axe_hdl,'Type','line');
  424.         img_handles = findobj(axe_hdl,'Type','image');
  425.         s_in_app    = findobj(lin_handles,'Tag',tag_s_inapp);
  426.         s_in_det    = findobj(lin_handles,'Tag',tag_s_indet);
  427.         app         = findobj(lin_handles,'Tag',tag_app,'Userdata',lev_a);
  428.         ss_in_app   = findobj(lin_handles,'Tag',tag_ss_inapp);
  429.         ss_in_det   = findobj(lin_handles,'Tag',tag_ss_indet);
  430.         det         = findobj(lin_handles,'Tag',tag_det,'Userdata',lev_d);
  431.         img_cfs     = findobj(img_handles,'Tag',tag_img_cfs);
  432.         img_sca     = findobj(img_handles,'Tag',tag_img_sca);
  434.         [Wave_Name,opt_act,Level_Anal,ss_type] = ...
  435.                 wmemtool('rmb',win_dw1dtool,n_param_anal,...
  436.                           ind_wav_name,ind_act_option,ind_lev_anal,...
  437.                                                       ind_ssig_type);
  438.         if     ss_type=='ss', str_ss = 'Synthesized Signal';
  439.         elseif ss_type=='ds', str_ss = 'De-noised Signal';
  440.         elseif ss_type=='cs', str_ss = 'Compressed Signal';
  441.         end
  443.         if strcmp(opt_act,'synt')
  444.             ini_str = 'Orig. Synt. Sig.';
  445.         else
  446.             ini_str = 'Signal';
  447.         end
  448.         if v_flg(1)==1
  449.             if v_flg(2)==1
  450.                 str_tit = [ini_str ', ' str_ss ' and']; 
  451.             else    
  452.                 str_tit = [ini_str ' and'];     
  453.             end
  454.         else
  455.             if v_flg(2)==1
  456.                 str_tit = [str_ss ' and'];      
  457.             else    
  458.                 str_tit = '';   
  459.             end
  460.         end
  461.         wtitle([ str_tit ' Approximation at level ' sprintf('%.0f',lev_a)],...
  462.                 'Parent',axe_hdl(1));
  464.         if v_flg(4)==1
  465.             if v_flg(5)==1
  466.                 str_tit = [ini_str ', ' str_ss ' and']; 
  467.             else    
  468.                 str_tit = [ini_str ' and'];     
  469.             end
  470.         else
  471.             if v_flg(5)==1
  472.                 str_tit = [str_ss ' and'];      
  473.             else    
  474.                 str_tit = '';   
  475.             end
  476.         end
  477.         wtitle([ str_tit ' Detail at level ' sprintf('%.0f',lev_d)],...
  478.                 'Parent',axe_hdl(2));
  480.         if isempty(s_in_app)
  481.             x = dw1dfile('sig',win_dw1dtool);
  482.             xmin = 1;           xmax = length(x);
  483.             ymin = min(x)-eps;  ymax = max(x)+eps;
  484.             set(axe_hdl(1:3),'Xlim',[xmin xmax]);
  485.             col_s = wtbutils('colors','sig');
  486.             line(...
  487.                  'Parent',axe_hdl(1),...
  488.                  'Xdata',[xmin:xmax],'Ydata',x,...
  489.                  'Color',col_s,'Visible',v_s_app,'Tag',tag_s_inapp);
  490.             line(...
  491.                  'Parent',axe_hdl(2),...
  492.                  'Xdata',[xmin:xmax],'Ydata',x,...
  493.                  'Color',col_s,'Visible',v_s_det,'Tag',tag_s_indet);
  494.         else
  495.             set(s_in_app,'Visible',v_s_app);
  496.             set(s_in_det,'Visible',v_s_det);
  497.         end
  498.         if isempty(ss_in_app)
  499.             x = dw1dfile('ssig',win_dw1dtool);
  500.             col_ss = wtbutils('colors','ssig');
  501.             line(...
  502.                  'Parent',axe_hdl(1),...
  503.                  'Xdata',[1:length(x)],'Ydata',x,'Zdata',2*ones(size(x)),...
  504.                  'Color',col_ss,'Visible',v_ss_app,'Tag',tag_ss_inapp);
  505.             line(...
  506.                  'Parent',axe_hdl(2),...
  507.                  'Xdata',[1:length(x)],'Ydata',x,'Zdata',2*ones(size(x)),...
  508.                  'Color',col_ss,'Visible',v_ss_det,'Tag',tag_ss_indet);
  509.         else
  510.             set(ss_in_app,'Visible',v_ss_app);
  511.             set(ss_in_det,'Visible',v_ss_det);
  512.         end
  513.         if isempty(app)
  514.             x = dw1dfile('app',win_dw1dtool,lev_a);
  515.             col_app = wtbutils('colors','app',Level_Anal);
  516.             line(...
  517.                  'Parent',axe_hdl(1),...
  518.                  'Xdata',[1:length(x)],'Ydata',x,...
  519.                  'Color',col_app(lev_a,:),'Visible',v_app, ...
  520.                  'Tag',tag_app,'Userdata',lev_a);
  521.         else
  522.             set(app,'Visible',v_app);
  523.         end
  525.         if isempty(det)
  526.             ll = findobj([s_in_det,ss_in_det], 'Visible','on');
  527.             if isempty(ll)
  528.                 [x,set_ylim,ymin,ymax] = dw1dfile('det',win_dw1dtool,lev_d,1);
  529.             else
  530.                 set_ylim = 0;
  531.                 x = dw1dfile('det',win_dw1dtool,lev_d);
  532.             end
  533.             col_det = wtbutils('colors','det',Level_Anal);
  534.             line(...
  535.                  'Parent',axe_hdl(2),...
  536.                  'Xdata',[1:length(x)],'Ydata',x,...
  537.                  'Color',col_det(lev_d,:),'Visible',v_det, ...
  538.                  'Tag',tag_det,'Userdata',lev_d);
  539.             if set_ylim , set(axe_hdl(2),'Ylim',[ymin,ymax]); end
  540.         else
  541.             set(det,'Visible',v_det);
  542.         end
  544.         axe_act = axe_hdl(3);
  545.         [rep,ccfs_vm,levs,xlim,nb_cla] = ...                            
  546.         dw1dmisc('tst_vm',win_dw1dtool,1,axe_act,[1:Level_Anal]);
  547.         if rep==1 ,  delete(img_cfs); img_cfs = []; end
  548.         if isempty(img_cfs)
  549.             [x,xlim1,xlim2,ymax,ymin,nb_cla,levs,ccfs_vm] = ...
  550.                     dw1dmisc('col_cfs',win_dw1dtool,ccfs_vm,levs,xlim,nb_cla);
  551.             levlab  = flipud(int2str(levs(:)));
  552.             img_cfs = image(flipud(x),...
  553.                             'Parent',axe_act,  ...
  554.                             'Visible',v_cfs,   ...
  555.                             'Tag',tag_img_cfs, ...
  556.                             'Userdata',[ccfs_vm,levs,xlim1,xlim2,nb_cla]);
  557.             xlim = get(axe_hdl(1),'Xlim');
  558.             set(axe_act, ...
  559.                        'Xlim',xlim,              ...
  560.                        'YTicklabelMode','manual',...
  561.                        'YTick',[1:length(levs)], ...
  562.                        'YTickLabel',levlab,      ...
  563.                        'Ylim',[0.5 Level_Anal+0.5], ...
  564.                        'Tag',tag_axecfsini       ...
  565.                        );
  566.             clear x
  567.             axe_act = axe_hdl(4);
  568.             image([0 1],[0 1],[1:nb_cla],...
  569.                   'Parent',axe_act,...
  570.                   'Visible',v_cfs,...
  571.                   'Tag',tag_img_sca);
  572.             set(axe_act,...
  573.                     'XTickLabel',[],'YTickLabel',[],...
  574.                     'XTick',[],'YTick',[],'Tag',tag_axecolmap);
  575.         else
  576.             set([img_cfs img_sca],'Visible',v_cfs);
  577.         end
  578.         set(axe_hdl(3:4),'Visible',v_cfs);
  580.         axe_act = axe_hdl(3);
  581.         wylabel('Level number','Parent',axe_act);
  582.         wtitle('Details Coefficients','Parent',axe_act);
  583.         if strcmp(deblankl(v_cfs),'on') 
  584.             drawnow
  585.             wsetxlab(axe_hdl(4),'Scale of colors from MIN to MAX');
  586.         end
  588.         % Axes attachment.
  589.         %-----------------
  590.         dw1dscrm('dynv',win_dw1dtool,old_mode);
  592.         % Reference axes used by stat. & histo & ...
  593.         %-------------------------------------------
  594.         wmemtool('wmb',win_dw1dtool,n_param_anal,ind_axe_ref,axe_hdl(1));
  596.     case 'dynv'
  597.         % in3 = old_mode or ...
  598.         % in3 = -1 : same mode
  599.         % in3 =  0 : clean 
  600.         %-----------------------
  602.         % Axes attachment.
  603.         %-----------------
  604.         if nargin==2 , in3 = 0; end
  605.         okNew = dw1dvdrv('test_mode',win_dw1dtool,'scr',in3);
  606.         if okNew
  607.             Level_Anal = wmemtool('rmb',win_dw1dtool,n_param_anal,...
  608.                                             ind_lev_anal);
  609.             dynvtool('get',win_dw1dtool,0,'force');
  610.             dynvtool('init',win_dw1dtool,...
  611.                     [],[axe_app_ini axe_det_ini,axe_cfs_ini],[],[1 0], ...
  612.                     '','','dw1dcoor',[win_dw1dtool,axe_cfs_ini,Level_Anal]);
  613.         end
  615.     case 'axes'
  616.         % in3 flag for axes visibility
  617.         % in4 flag for clearing axes
  618.         % in4 = 1 , clear axes.
  619.         %---------------------------
  620.         switch nargin
  621.           case 2 , flg_axe = [1 1 1]; clear_axes = 1;
  622.           case 3 , flg_axe = in3;     clear_axes = 0;
  623.           case 4 , flg_axe = in3;     clear_axes = in4;
  624.         end
  626.         % Axes Positions.
  627.         %----------------
  628.         nb_axes = sum(flg_axe);
  629.         pos_graph = wmemtool('rmb',win_dw1dtool,n_miscella,ind_graph_area);
  630.         pos_win = get(win_dw1dtool,'Position');
  631.         bdx  = 0.06*pos_win(3);
  632.         bdy  = 0.08*pos_win(4);
  633.         bdy0 = 0.04*pos_win(4);
  634.         bdy1 = 0.04*pos_win(4);
  635.         bdy2 = 0.06*pos_win(4);
  636.         %--------------------- Scale of Colors Axes ----------------------%
  637.         h_col  = 0.02*pos_win(4);
  638.         w_col  = pos_graph(3)/3;
  639.         x_col  = pos_graph(1)+w_col;
  640.         y_col  = pos_graph(2)+bdy0;
  641.         pos_ax = zeros(4,4);
  642.         pos_ax(4,:) = [x_col , y_col , w_col , h_col];
  643.         %-----------------------------------------------------------------%
  644.         if nb_axes==0 , nb_axes = 3 ;end
  645.         xleft = pos_graph(1)+bdx;
  646.         width = pos_graph(3)-2*bdx;
  647.         hy = pos_graph(4)-(nb_axes-1)*bdy-bdy0-bdy2;
  648.         if flg_axe(3)==1
  649.             ylow        = y_col+h_col+bdy1;
  650.             height      = (hy-bdy1-h_col)/nb_axes;
  651.             pos_ax(3,:) = [xleft , ylow , width , height];
  652.             ylow = ylow+height+bdy;
  654.         else
  655.             ylow = pos_graph(2)+bdy0;
  656.             height = hy/nb_axes;
  657.         end
  658.         if flg_axe(2)==1
  659.             pos_ax(2,:) = [xleft , ylow , width , height];
  660.             ylow = ylow+height+bdy;
  661.         end
  663.         if flg_axe(1)==1
  664.             pos_ax(1,:) = [xleft , ylow , width , height];      
  665.         end
  666.         axe_hdl = findobj(axe_handles,'flat','Tag',tag_axeappini);
  667.         if ~isempty(axe_hdl)
  668.             out1(1) = axe_hdl;
  669.             out1(2) = findobj(axe_handles,'flat','Tag',tag_axedetini);
  670.             out1(3) = findobj(axe_handles,'flat','Tag',tag_axecfsini);
  671.             out1(4) = findobj(axe_handles,'flat','Tag',tag_axecolmap);
  672.             if clear_axes , cleanaxe(out1) ; end             
  673.         else
  674.             win_units = get(win_dw1dtool,'Units');
  675.             axeProp = {...
  676.                'Parent',win_dw1dtool, ...
  677.                'Units',win_units,     ...
  678.                'Visible','Off',       ...
  679.                'DrawMode','Normal',   ...
  680.                'box','on'             ...
  681.                };            
  682.             out1(1) = axes(axeProp{:},...
  683.                            'NextPlot','Add',   ...
  684.                            'Tag',tag_axeappini ...
  685.                            );
  686.             out1(2) = axes(axeProp{:},...
  687.                            'NextPlot','Add',   ...
  688.                            'Tag',tag_axedetini ...
  689.                            );
  690.             out1(3) = axes(axeProp{:},...
  691.                            'NextPlot','Replace',...
  692.                            'Tag',tag_axecfsini  ...
  693.                            );
  694.             out1(4) = axes(axeProp{:},...
  695.                             'XTicklabelMode','manual',...
  696.                             'YTicklabelMode','manual',...
  697.                             'XTickLabel',[],        ...
  698.                             'YTickLabel',[],        ...
  699.                             'XTick',[],'YTick',[],  ...
  700.                             'NextPlot','Replace',   ...
  701.                             'Tag',tag_axecolmap     ...
  702.                             );
  703.             ud.dynvzaxe.enable = 'off';
  704. setappdata(out1(4),'WTBX_UserData',ud);
  705.         end
  706.         flg_vis = [flg_axe flg_axe(3)];
  707.         for k =1:4
  708.             if flg_vis(k)==0
  709.                 h = findobj(out1(k));
  710.                 set(h,'Visible','off');
  711.             else
  712.                 set(out1(k),'Visible','on','Position',pos_ax(k,:));
  713.             end
  714.         end
  716.     case 'del_ss'
  717.         lin_handles = findobj(axe_handles,'Type','line');
  718.         ss_app = findobj(lin_handles,'Tag',tag_ss_inapp);
  719.         ss_det = findobj(lin_handles,'Tag',tag_ss_indet);
  720.         delete([ss_app ss_det]);
  722.     case 'clear'
  723.         % in3 = 0 : clean 
  724.         %------------------
  725.         new_mode = in3;
  726.         okNew = dw1dvdrv('test_mode',win_dw1dtool,'scr',new_mode);
  727.         if okNew , dynvtool('stop',win_dw1dtool); end
  728.         set(findobj([axe_app_ini,axe_det_ini,axe_cfs_ini,axe_col_map]),...
  729.                 'visible','off');
  730.         if okNew==1
  731.             cleanaxe([axe_app_ini,axe_det_ini,axe_cfs_ini,axe_col_map]);
  732.             drawnow;
  733.         elseif okNew==2     % superimpose mode
  734.             old_app = findobj(axe_app_ini,'Tag',tag_app);
  735.             old_det = findobj(axe_det_ini,'Tag',tag_det);
  736.             delete([old_app;old_det]);
  737.         end
  739.     otherwise
  740.         errargt(mfilename,'Unknown Option','msg');
  741.         error('*');
  742. end
  743.