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

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

波变换

开发平台：

Matlab

wshowdrv.m：源码内容
  1. function varargout = wshowdrv(action,varargin);
  2. % WSHOWDRV Wavelet toolbox slide show helper.
  3. %   WSHOWDRV filename plays slide show from file filename.
  4. %   Slide shows can be created using MAKESHOW.
  5. %    
  6. %   See also MAKESHOW, PLAYSHOW.
  8. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  9. %   Last Revision: 09-Sep-2003.
  10. %   Copyright 1995-2004 The MathWorks, Inc.
  11. % $Revision: 1.17.4.2 $
  13. if nargin<1,
  14.    disp('You need to assign a name for script, for example: wshowdrv intro');
  15.    return
  16. else
  17.    if strmatch('#',action) 
  18.    action = action(2:end);
  19.    if nargin<2 , figHandle = gcbf; else , figHandle = varargin{1}; end
  20.    if ishandle(figHandle)
  21.    oldVisibility = get(figHandle,'HandleVisibility');
  22.    set(figHandle,'HandleVisibility','on');
  23.    end
  24.    else
  25.    funDemoName = action;
  26.    action = 'initialize';
  27.    end;
  28. end;
  30. switch action
  31. case 'initialize',
  32.    figHandle = wfindobj('figure','tag',funDemoName);
  33.    makeFIG   = isempty(figHandle);
  34.    if makeFIG 
  35.        try
  36.    [figName,showType] = feval(funDemoName,'getFigParam');
  37.        catch
  38.    figName = ''; showType = 'mixed';
  39.        end
  40.        new_DESIGN = 1;
  41.        figHandle = LocalInitFigure(funDemoName,figName,showType,new_DESIGN);
  42.        if nargin>1
  43.    slideData = get(figHandle,'UserData');
  44.    closeHndl = slideData.closeHndl;
  45.    callbackStr = get(closeHndl,'Callback');
  46.    callbackStr = ['try, ' , callbackStr , ';', varargin{1} , ' end'];
  47.    set(closeHndl,'callBack',callbackStr);
  48.    if length(varargin)>1
  49.    set(closeHndl,'tag',varargin{2});
  50.    end
  51.    set(figHandle,'CloseRequestFcn',['closereq;',varargin{1}]);
  52.        end
  53.    else
  54.        figure(figHandle);
  55.    end
  56.    if nargout>0 ,varargout{1} = figHandle; end
  58. case 'next',
  59.    LocalDoCmd(figHandle,1);
  60.    
  61. case 'back',
  62.    slideData = get(figHandle,'UserData');
  63.    idxSlide = slideData.index;
  64.    deltaBackDEF = -1;
  65.    deltaBack = deltaBackDEF;   
  66.    if isfield(slideData.slide,'idxPrev')
  67.    idxPrev = slideData.slide(idxSlide).idxPrev;
  68.    if ~isempty(idxPrev) & isnumeric(idxPrev)
  69.         deltaBack = idxPrev-idxSlide;
  70.    else
  71.    end
  72.    end
  73.    LocalDoCmd(figHandle,deltaBack);
  75. case 'reset',
  76.    slideData = get(figHandle,'UserData');
  77.    slideData.index = 1;
  78.    set(figHandle,'UserData',slideData);   
  79.    LocalDoCmd(figHandle,0);
  80.    
  81.    % 'try, wshowdrv('#close',1);demoguim('endshow'); end'
  83. case 'autoplay',
  84.    figNumber = figHandle;
  85.    if nargin<3
  86.    direction = +1;
  87.    else
  88.    direction = varargin{2};
  89.    if ~isequal(direction,-1), direction = +1; end
  90.    end
  91.    step = direction;
  92.    allBtns  = findobj(figNumber,'Type','uicontrol','Style','pushbutton');
  93.    autoHndl = findobj(allBtns,'Tag','autoPlay');
  95.    % to check whether Handle is still there in case figure is closed
  96.    if ishandle(autoHndl)
  97.       btnStr = get(autoHndl,'String');
  98.    else
  99.       btnStr = '';
  100.    end
  101.    
  102.    if strcmp(btnStr,xlate('AutoPlay'))
  103.       slideData = get(figNumber,'UserData');
  104.       cmdlen = length(slideData.slide);
  105.       n = slideData.index;
  106.       set(allBtns,'Enable','off');
  107.       set(autoHndl,'String',xlate('Stop'),'Enable','on');
  108.   if direction==1
  109.   ok = (n<cmdlen);
  110.   else 
  111.   ok = (n>0);
  112.   findSTEP = isfield(slideData.slide,'idxPrev');
  113.   end
  114.       while ok & ishandle(autoHndl) & strcmp(get(autoHndl,'String'),xlate('Stop')),
  115.          figure(figNumber);
  116.  if direction==-1 & findSTEP
  117.  idxPrev = slideData.slide(n).idxPrev;
  118.  if ~isempty(idxPrev)
  119.  step = idxPrev-n;
  120.  else
  121.  step = -1;
  122.  end
  123.  end
  124.          LocalDoCmd(figNumber,step);  
  125.          drawnow;
  126.          pause(2);
  127.          n = n+step;
  128.  if direction==1 , ok = (n<cmdlen); else , ok = (n>0); end
  129.       end;
  130.    end
  131.    if ishandle(autoHndl)
  132.       set(autoHndl,'String',xlate('AutoPlay'));    
  133.       set(allBtns,'Enable','on');
  134.       slideData = get(figNumber,'UserData');
  135.       n = slideData.index;
  136.       LocalEnableBtns(n,slideData)
  137.    end
  138. %------------- Added for Wavelet ToolBox ---------%
  139. case 'close',
  140. slideData = get(figHandle,'UserData');
  141. delete(figHandle);
  142.    
  143. case 'info',
  144. slideData = get(figHandle,'UserData');
  145. idxSlide = slideData.index;
  146. infoStrDEF = slideData.funDemoName;
  147. infoStr = infoStrDEF;
  148. if isfield(slideData.slide,'info')
  149. infoStr = slideData.slide(idxSlide).info;
  150. if isempty(infoStr) , infoStr = infoStrDEF; end
  151. end
  152. try 
  153. % feval('helpwin',infoStr);
  154. feval('doc',infoStr);
  155. catch
  156. % feval('helpwin',infoStrDEF);
  157. feval('doc',infoStrDEF);
  158. end
  160. case 'set_axes',
  161. axes_mat = varargin{2};
  162. LocalBuildAxes(figHandle,axes_mat);   
  164. case 'get_axes',
  165. slideData = get(figHandle,'UserData');
  166. varargout{1} = slideData.axesHandles;
  167.    
  168. case 'get_idxSlide',
  169. slideData = get(figHandle,'UserData');
  170. varargout{1} = slideData.index;
  172. case 'modify_Comment',
  173. slideData = get(figHandle,'UserData');
  174. txtHndl = slideData.txtHndl;
  175. txtStr = get(slideData.txtHndl,'String');
  176. % idxLine = varargin{2};
  177. % txtLine = varargin{3};
  178. txtStr{varargin{2}} = varargin{3};
  179. set(txtHndl,'String',txtStr);
  181. case 'bloc_BackBtn',
  182. slideData = get(figHandle,'UserData');
  183. backHndl = slideData.backHndl;
  184. wtbxappdata('set',backHndl,'blockbackHndl',1);
  186. case 'free_BackBtn',
  187. slideData = get(figHandle,'UserData');
  188. backHndl = slideData.backHndl;
  189. if isappdata(backHndl,'blockbackHndl')
  190. wtbxappdata('del',backHndl,'blockbackHndl');
  191. end;
  193. case 'eval_cbClose',
  194. slideData = get(figHandle,'UserData');
  195. closeHndl = slideData.closeHndl;
  196. callbackStr = get(closeHndl,'Callback');
  197. eval(callbackStr);
  198.    
  199. case {'modify_cbClose','modify_cbClose_NEW'}
  200.     win_act = varargin{2};
  201.     if ishandle(win_act);
  202.         funName = varargin{3};
  203.         slideData = get(figHandle,'UserData');
  204.         closeHndl = slideData.closeHndl;
  205.         callbackStr = get(closeHndl,'Callback');
  206.         str_winact = num2str(win_act,16);
  207.         str1 = 'try,';
  208.         str2 = ['OKfig = any(findall(0,''type'',''figure'')==' str_winact ');'];
  209.         switch action
  210.             case 'modify_cbClose'
  211.                 funParamSTR = [funName '(''close'',' str_winact ');'];
  212.             case 'modify_cbClose_NEW'
  213.                 funParamSTR = [...
  214.                         'if ishandle(' str_winact ') ,' ...
  215.                         funName '(''closeDEMO'',' str_winact ',[],[]);' ...
  216.                     'end;'];
  217.         end
  218.         str3 = ['if OKfig==true , ' ...
  219.                 funParamSTR 'delete(' str_winact '); end;'];
  220.         str4 = 'end;';
  221.         addStr = [str1,str2,str3,str4];
  222.         callbackStr = [addStr,'try,',callbackStr,';end; clear OKfig;'];
  223.         set(closeHndl,'Callback',callbackStr);
  224.         set(figHandle,'CloseRequestFcn',callbackStr);
  225.     end
  226.     
  227. case 'gui_wait'
  228. figGUI = varargin{2};
  229. msg = varargin{3};
  230. dynvtool('hide',figGUI);
  231. hdlTxt = wwaiting('handle',figGUI);
  232. oldBkCol = get(hdlTxt,'Backgroundcolor');
  233. set(hdlTxt,'Backgroundcolor','w');
  234. nblin = size(msg,1);
  235. for k = 1:nblin
  236. hdlTxt = wwaiting('msg',figGUI,deblank(msg(k,:)));
  237. mousefrm(0,'watch');            
  238. pause(1.5);
  239. mousefrm(0,'arrow');            
  240. end
  241. hdlTxt = wwaiting('off',figGUI);
  242. set(hdlTxt,'Backgroundcolor',oldBkCol);
  243. dynvtool('show',figGUI);
  244.    
  245. case 'disp_msg'
  246. msg = varargin{2};
  247. wait_mode = varargin{3};
  248. active_fig = varargin{4};
  249. wait_Control = 0;
  250. max_lig = 6;
  251. max_lig = Inf;
  252. cellMSG = formatMSG(msg,max_lig);
  253. nbMSG = length(cellMSG);
  255. NEW_VERSION = 0;
  256. if NEW_VERSION & nbMSG>1
  257. slideData = get(figHandle,'UserData');
  258. nextHndl  = slideData.nextHndl;
  259. backHndl  = slideData.backHndl;
  260. resetHndl = slideData.resetHndl;
  261. autoHndl  = slideData.autoHndl;
  262. infoHndl  = slideData.infoHndl;
  263. closeHndl = slideData.closeHndl;
  264. idxSlide  = slideData.index;
  265. if ishandle(autoHndl)
  266. wait_Control = 1;
  267. btnStr = get(autoHndl,'String');
  268. if strcmp(btnStr,xlate('Stop'))
  269. wait_mode = 'auto';
  270. else
  271. wait_mode = 'step';
  272. end
  273. saveCallBack= {...
  274. get(nextHndl,'callback'),get(backHndl,'callback'), ...
  275. get(resetHndl,'callback'),get(autoHndl,'callback'), ...
  276. get(infoHndl,'callback'),get(closeHndl,'callback') ...
  277. };
  278. end
  279. end
  281. for j = 1:nbMSG
  282. msg = cellMSG{j};
  283. dmsgfun('create',msg,active_fig);
  284. if j<nbMSG
  285. wait_time = 1.5*size(msg,1);
  286. else
  287. wait_time = 0;
  288. end
  289. if NEW_VERSION & wait_Control
  290. LocalEnableBtns(idxSlide,slideData)
  291. switch wait_mode
  292. case 'fixed' , pause(wait_time);
  293. case 'step'  , pause(wait_time);
  294. case 'auto'  , set(autoHndl,'Enable','on'); pause(wait_time);
  295. end
  296. else
  297. mousefrm(0,'watch');
  298. pause(wait_time);
  299. mousefrm(0,'arrow');
  300. end
  301. end
  302. if NEW_VERSION & wait_Control
  303. set(nextHndl,'callback',saveCallBack{1});
  304. set(backHndl,'callback',saveCallBack{2});
  305. set(resetHndl,'callback',saveCallBack{3});
  306. set(autoHndl,'callback',saveCallBack{4});
  307. set(infoHndl,'callback',saveCallBack{5});
  308. set(closeHndl,'callback',saveCallBack{6});
  309. end
  311. case 'autoMode'
  312. funDemoName = varargin{1};
  313. flagClose   = length(varargin)>1;
  314. figNumber = wshowdrv(funDemoName); pause(0.5)
  315. wshowdrv('#autoplay',figNumber);
  316. if flagClose
  317. try , wshowdrv('#eval_cbClose',figNumber); end
  318. end
  320. case 'gr_autoMode'  % For test only
  321. funDemoName = varargin{1};
  322. flagClose   = length(varargin)>1;
  323. figNumber = wshowdrv(funDemoName); pause(0.5)
  324. wshowdrv('#autoplay',figNumber);
  325. wshowdrv('#autoplay',figNumber,-1);
  326. if flagClose
  327. try , wshowdrv('#eval_cbClose',figNumber); end
  328. end
  330. end    % switch action
  332. if ishandle(figHandle) & ~isequal(action,'initialize')
  333.    set(figHandle,'HandleVisibility',oldVisibility);
  334. end
  336. % End of function wshowdrv
  337. %------------------------------------------------------------------------------%
  341. %------------------------------------------------------------------------------%
  342. function LocalDoCmd(figNumber,ichange)
  343. % execute the command in the command window 
  344. % when ichange = 1, go to the next slide;
  345. % when ichange = -1, go to the previous slide;
  346. % when ichange = 0, stay with the current slide;
  348. set(figNumber,'Pointer','watch');
  349. % retrieve variables from saved UserData workspace
  351. slideData = get(figNumber,'UserData');
  352. SlideShowi = slideData.index+ichange;
  353. cmdlen = length(slideData.slide);
  354. if SlideShowi>1
  355.    SlideShowVars = slideData.param(SlideShowi-1).vars;
  356.    for SlideShown = 1:size(SlideShowVars,1); 
  357.       eval([SlideShowVars{SlideShown,1} ' = SlideShowVars{SlideShown,2};']);
  358.    end;
  359. end;
  361. %  guarantee the index is always inside the boundary
  362. if SlideShowi<=0,
  363.    SlideShowi = 1;
  364. elseif SlideShowi>cmdlen
  365.    SlideShowi = cmdlen;
  366. end   
  367. autoHndl = findobj(figNumber,'style','pushbutton','tag','autoPlay');
  368. if strcmp(get(autoHndl,'String'),xlate('AutoPlay'))
  369.    LocalEnableBtns(SlideShowi,slideData); 
  370. end
  371. % get slides
  372. SlideShowcmdS = slideData.slide(SlideShowi).code;
  373. if length(SlideShowcmdS)>0
  374.    SlideShowcmdS = char(SlideShowcmdS);
  375. else
  376.    SlideShowcmdS = '';
  377. end
  378. SlideShowcmdNum = size(SlideShowcmdS,1);   
  379. SlideShowtextStr = slideData.slide(SlideShowi).text;
  381. % consider the empty case
  382. if length(SlideShowtextStr)==0
  383.    SlideShowtextStr = '';
  384.    % else leave it alone: no need to call char(SlideShowtextStr)
  385. end
  386. set(slideData.txtHndl,'String',SlideShowtextStr);
  387. sHndl = findobj(figNumber,'Type','uicontrol','Tag','slide');
  388. %set(sHndl,'String',['Slide ',num2str(SlideShowi)]);
  389. set(sHndl,'String',sprintf('Slide %s of %s',num2str(SlideShowi),num2str(cmdlen)));
  391. % take comments out of the commands before eval them
  392. SlideShowNoCmt = SlideShowcmdS;
  393. if ~isempty(SlideShowcmdS)
  394.    SlideShowNoCmt = LocalNoComments(SlideShowcmdS);
  395. end
  396. SlideShowerrorFlag = 0;
  397. % add ',' at the end of each command 
  398. SlideShowcmdStemp = [SlideShowNoCmt char(','*ones(size(SlideShowcmdS,1),1))];   
  399. % make SlideShowcmdStemp in one line for eval (it has to be that way with 'for' or 'if')
  400. SlideShowcmdStemp = SlideShowcmdStemp';
  401. % evaluate the whole command window's code
  403. h_ENA_ON = findobj(figNumber,'Style','Pushbutton','Enable','On');
  404. set(h_ENA_ON,'Enable','Off');
  405. try
  406.   eval(SlideShowcmdStemp(:)')
  407. catch
  408.   SlideShowerrorFlag = 1;
  409. end
  410. set(h_ENA_ON,'Enable','On');
  412. if SlideShowerrorFlag,
  413.    return;
  414. end
  416. % -----------------------------------------------------------------%
  417. % MiMi - Add the following line to manage the change of
  418. % 'UserData' field during the eval(SlideShowcmdStemp(:)') command.
  419. %------------------------------------------------------------------%
  420. slideData = get(figNumber,'UserData');
  421. %--------------------------------------%
  422. slideData.index = SlideShowi;
  423. set(figNumber,'UserData',slideData); 
  425. % clear all wshowdrv specific variables  
  426. clear SlideShowVars SlideShowcmdS SlideShowNoCmt cmdlen SlideShowi ichange 
  427. clear SlideShown SlideShowtextStr slideData SlideShowcmdNum
  428. % put variables into UserData workspace
  429. vars = who;
  430. slideData = get(figNumber,'UserData');
  431. for SlideShown=1:size(vars,1),
  432.    vars{SlideShown,2} = eval(vars{SlideShown,1});
  433. end
  435. slideData.param(slideData.index).vars = vars;
  436. set(figNumber,'UserData',slideData);
  438. set(figNumber,'Pointer','arrow');
  439. %------------------------------------------------------------------------------%
  442. %------------------------------------------------------------------------------%
  443. function NoComments = LocalNoComments(SlideShowcmdS)
  444. % take out comments from command window commands
  445. SlideShowNoCmt = SlideShowcmdS;
  446. for SlideShowj=1:size(SlideShowcmdS,1)
  447.    SlideShowCmt = find(SlideShowcmdS(SlideShowj,:)=='%');
  448.    if ~isempty(SlideShowCmt)
  449.       if SlideShowCmt(1)==1
  450.          SlideShowNoCmt(SlideShowj,:) = ';';
  451.       else
  452.          % check whether '%' is inside quotes
  453.          SlideShowQut = find(SlideShowcmdS(SlideShowj,:)=='''');
  454.          if ~isempty(SlideShowQut)
  455.             str = SlideShowcmdS(SlideShowj,:);  %to find out % inside '', and ignore it
  456.             a = (str=='''');
  457.             b = 1-rem(cumsum(a),2);
  458.             c = (str=='%');
  459.             d = b.*c;
  460.             SlideShowCmt = find(d==1); 
  461.             if isempty(SlideShowCmt),
  462.                SlideShowCmt(1) = length(SlideShowcmdS(SlideShowj,:))+1;
  463.             end
  464.          end
  465.          SlideShowNoCmt(SlideShowj,1:(SlideShowCmt(1)-1)) = SlideShowcmdS(SlideShowj,1:(SlideShowCmt(1)-1));
  466.          SlideShowNoCmt(SlideShowj,SlideShowCmt(1):end) = ' ';
  467.       end   
  468.    else
  469.       SlideShowNoCmt(SlideShowj,:) = SlideShowcmdS(SlideShowj, :);
  470.    end
  471. end
  472. NoComments = SlideShowNoCmt;
  473. %------------------------------------------------------------------------------%
  474. function LocalEnableBtns(i,slideData)
  475. % control the enable property for Next and Prev. buttons
  476. cmdlen = length(slideData.slide);
  477. nextHndl = slideData.nextHndl;
  478. backHndl = slideData.backHndl;  
  479. autoHndl = slideData.autoHndl;  
  480. set(autoHndl,'Enable','on');
  482. lastPage  = (i==cmdlen);
  483. firstPage = (i==1);
  485. if lastPage & firstPage
  486.    set(nextHndl,'Enable','off');
  487.    set(backHndl,'Enable','off');
  488.    set(autoHndl,'Enable','off');   
  489. elseif lastPage
  490.    set(nextHndl,'Enable','off');
  491.    set(backHndl,'Enable','on');
  492.    set(autoHndl,'Enable','off');   
  493. elseif firstPage
  494.    set(backHndl,'Enable','off');
  495.    set(nextHndl,'Enable','on','String',xlate('Start >>'));  
  496. else
  497.    set(nextHndl,'Enable','on','String',xlate('Next >>'));
  498.    set(backHndl,'Enable','on');        
  499. end
  501. if isappdata(backHndl,'blockbackHndl')
  502.    set(backHndl,'Enable','off');        
  503. end
  504. %------------------------------------------------------------------------------%
  506. %==============================================================================%
  507. function figNumber = LocalInitFigure(funDemoName,figName,showType,new_DESIGN)
  509. % Check inputs.
  510. %--------------
  511. if isempty(figName) , figName = 'Slide Player'; end
  512. if strcmp(showType,'command') 
  513.     no_output = 1;
  514. menubarVAL = 'none';
  515. else
  516.     no_output = 0;
  517. menubarVAL = 'figure';
  518. end
  519. pos_win = depOfMachine(no_output);
  521. %===================================
  522. % Now initialize the whole figure...
  524. % Display mixed, text, or graphics only based on showType.
  525. % If the figure is to be text only, hide the axis.
  526. % If it is to be graphics only, hide the comment window.
  527. % Otherwise, we'll assume that figure is mixed
  528. defaultTextFontsize = wdfigutl('fontsize');
  529. defLeftAxes  = 0.10; defLeftAxes  = 0.075;
  530. defWidthAxes = 0.65; defWidthAxes = 0.675;
  531. switch showType
  532.     case 'text'
  533.         axesVisStatus  = 'off';
  534.         textVisStatus  = 'on';
  535.         textBoxTop     = 0.97;
  536.         defaultAxesPos = [0.45 0.45 0.1 0.1];
  538.     case 'graphic'
  539.         axesVisStatus  = 'on';
  540.         textVisStatus  = 'off';
  541.         textBoxTop     = 0.35;
  542.         defaultAxesPos = [defLeftAxes 0.10 defWidthAxes 0.8];
  544.     case 'mixed'  
  545.         axesVisStatus  = 'on';
  546.         textVisStatus  = 'on';
  547.         textBoxTop     = 0.40;
  548.         defaultAxesPos = [defLeftAxes 0.50 defWidthAxes 0.43];
  550.     case 'manual'
  551.         axesVisStatus  = 'off';
  552.         textVisStatus  = 'off';
  553.         textBoxTop     = 0.40;
  554.         defaultAxesPos = [defLeftAxes 0.10 defWidthAxes 0.8];
  556.     case 'command'
  557.         axesVisStatus  = 'off';
  558.         textVisStatus  = 'off';
  559.         textBoxTop     = 0.40;
  560.         defaultAxesPos = [defLeftAxes 0.10 defWidthAxes 0.8];
  562.     otherwise
  563.         if strcmp(showType(1:3),'mix'), 
  564.             nb =  showType(4:length(showType));
  565.             nb = wstr2num(nb);
  566. if new_DESIGN , nb = nb-1; end
  567.             if      isempty(nb) , nb = 1;
  568.             elseif  nb<1 ,  nb = 1;
  569.             elseif  nb>20 , nb = 20;
  570.             end
  571.             nb = (nb-11);
  572.             linh = (0.40-0.03)/11;
  573.             axesVisStatus  = 'on';
  574.             textVisStatus  = 'on';
  575.             dy             = nb*linh;
  576.             textBoxTop     = 0.40+dy;
  577.             defaultAxesPos = [defLeftAxes 0.50+dy defWidthAxes 0.43-dy];
  578.         else % mixed
  579.             axesVisStatus  = 'on';
  580.             textVisStatus  = 'on';
  581.             textBoxTop     = 0.40;
  582.             defaultAxesPos = [defLeftAxes 0.50 defWidthAxes 0.43];
  583.         end
  584. end;
  586. if new_DESIGN
  587. defColDef = 'black';
  588. defFigColor = 0.4*[1 1 1];
  589. defFontWeight = 'bold';
  590. defFontSize   = 8;
  591. else
  592. defColDef = 'white';
  593. defFigColor = get(0,'DefaultFigureColor');
  594. defFontWeight = 'normal';
  595. defFontSize   = 8;
  596. end
  598. figProp_1 = {...
  599.         'Name',figName,         ...
  600.         'NumberTitle','off',  ...
  601.         'IntegerHandle','On',  ...
  602.         'Visible','off',        ...
  603. 'Position',pos_win,     ...
  604. 'menubar','None'     ...
  605.         };
  606. figProp_2 = {...
  607.         'DefaultUicontrolFontWeight',defFontWeight, ...
  608.         'DefaultAxesFontWeight',defFontWeight,      ...
  609.         'DefaultTextFontWeight',defFontWeight,      ...
  610.         'DefaultAxesFontSize',defFontSize,   ...
  611.         'DefaultTextFontSize',defFontSize,   ...
  612. 'Position',pos_win,                  ...
  613. 'DefaultAxesPosition',defaultAxesPos, ...
  614. 'Color',defFigColor,                  ...
  615.         'Tag',funDemoName                     ...
  616.         };
  617. if ~strcmp(showType,'command')
  618. figNumber = wfigmngr('init',figProp_1{:});
  619. set(figNumber,'HandleVisibility','On');
  620. wfigmngr('extfig',figNumber,'ExtFig_Demos')
  621.     try
  622.         feval(funDemoName,'addHelp',figNumber);
  623.     end
  624. set(figNumber,'HandleVisibility','On');
  625. else
  626. figNumber = figure(figProp_1{:});
  627. colordef(figNumber,defColDef);
  628.     wfigmngr('extfig',figNumber,'Empty');
  629.     set(figNumber,'HandleVisibility','On');
  630. end
  631. set(figNumber,figProp_2{:});
  632. figNumberSTR = num2str(figNumber,16);
  635. % Information for uicontrols.
  636. %----------------------------
  637. spacing = 0.005;
  638. btnWid  = 0.15;
  639. btnHt   = 0.04;
  640. btnSpacing = 0.03;
  641. btnHtBig = 0.06;
  643. if new_DESIGN
  644. left = 0.025; right = 0.7875; bottom = 0.025;
  645. frmBorder = 0.01; btnLeft = 0.8250; topFrm = 0.95;
  646. if no_output
  647. btnLeft = 0.10; btnWid = 0.80; btnHtBig = 0.10;
  648.         bottom  = 0.08; topFrm = 0.85; frmBorder = 0.05;
  649. btnHt   = 0.05;
  650. end
  651. yPosTxt = bottom+topFrm-btnHt;
  652. % dx = 0.02; right = right-dx; btnLeft = btnLeft-dx; btnWid = btnWid+dx;
  653. btnPosParam = [btnLeft,bottom,yPosTxt,btnWid,btnHtBig,btnSpacing];
  654. frmBkColor = 0.6*ones(1,3);
  655. else
  656. left = 0.05; right = 0.75; bottom = 0.05;
  657. frmBorder = 0.02; btnLeft = 0.80; topFrm = 0.9;
  658. if no_output
  659. btnLeft = 0.10; btnWid = 0.80; btnHtBig = 0.10;
  660.         bottom  = 0.08; topFrm = 0.85; frmBorder = 0.05;
  661. btnHt   = 0.05;
  662. end
  663. yPosTxt = 0.92;
  664. btnPosParam = [btnLeft,bottom,topFrm,btnWid,btnHtBig,btnSpacing];
  665. frmBkColor = [0.5 0.5 0.5];
  666. end
  669. % The Text Window frame.
  670. %-----------------------
  671. frmPos = [left-frmBorder bottom-frmBorder ...
  672.            (right-left)+2*frmBorder (textBoxTop-bottom+2*frmBorder)];
  673. frmHndl = LocalBuildFrmTxt(frmPos,frmBkColor,'','frame','','');
  674. set(frmHndl,'BackgroundColor',frmBkColor);
  675. slideData.winFrmHndl = frmHndl;
  676. if isequal(no_output,1) , set(slideData.winFrmHndl,'Visible','Off'); end
  678. % The editable text field.
  679. %-------------------------
  680. mcwPos = [left bottom (right-left) textBoxTop-bottom]; 
  681. callbackStr = [mfilename,'(''#changetext'',',figNumberSTR,');'];
  682. slideData.txtHndl = LocalBuildFrmTxt(mcwPos,frmBkColor,'','edit','comments',callbackStr);
  683. set(slideData.txtHndl,...
  684. 'BackgroundColor',[1 1 1],'ForegroundColor',[0 0 0],...
  685. 'FontWeight','bold');
  686. if isequal(no_output,1) , set(slideData.txtHndl,'Visible','Off'); end
  688. % The CONSOLE frame.
  689. %-------------------
  690. yPos = bottom-frmBorder;
  691. frmPos = [btnLeft-frmBorder yPos btnWid+2*frmBorder topFrm+2*frmBorder];
  692. frmHndl = LocalBuildFrmTxt(frmPos,frmBkColor,'','frame','','');
  693. set(frmHndl,'BackgroundColor',frmBkColor);
  694. slideData.cmdFrmHndl = frmHndl;
  696. % The CONSOLE text (title).
  697. %--------------------------
  698. btnPos = [btnLeft yPosTxt btnWid btnHt];
  699. slideHandle = LocalBuildFrmTxt(btnPos,frmBkColor,'Slide 1','text','slide','');
  700. set(slideHandle,'HorizontalAlignment','center');
  701. slideData.slitxtHndl = slideHandle;
  703. % The Next button.
  704. %-----------------
  705. btnNumber = 1;
  706. labelStr = 'Start >>';
  707. callbackStr = [mfilename,'(''#next'',',figNumberSTR,');'];
  708. slideData.nextHndl = LocalBuildBtn('pushbutton',btnNumber,labelStr,callbackStr,'next',btnPosParam);
  710. % The Prev button.
  711. %-----------------
  712. btnNumber = 2;
  713. labelStr = 'Prev <<';
  714. callbackStr = [mfilename,'(''#back'',',figNumberSTR,');'];
  715. slideData.backHndl = LocalBuildBtn('pushbutton',btnNumber,labelStr,callbackStr,'back',btnPosParam);
  717. % The Reset button.
  718. %------------------
  719. btnNumber = 3;
  720. labelStr = 'Reset';
  721. callbackStr = [mfilename,'(''#reset'',',figNumberSTR,');'];
  722. slideData.resetHndl = LocalBuildBtn('pushbutton',btnNumber,labelStr,callbackStr,'reset',btnPosParam);
  724. % The AutoPlay button.
  725. %---------------------
  726. btnNumber = 4;
  727. labelStr = 'AutoPlay';
  728. callbackStr = [mfilename,'(''#autoplay'',',figNumberSTR,');'];
  729. slideData.autoHndl = LocalBuildBtn('pushbutton',btnNumber,labelStr,callbackStr,'autoPlay',btnPosParam);
  731. % The Info button.
  732. %-----------------
  733. btnNumber = 0;
  734. labelStr = 'Info';
  735. callbackStr = [mfilename,'(''#info'',',figNumberSTR,');'];
  736. slideData.infoHndl = LocalBuildBtn('pushbutton',btnNumber,labelStr,callbackStr,'info',btnPosParam);
  738. % The Close button.
  739. %-----------------
  740. callbackStr = [mfilename,'(''#close'',',figNumberSTR,');'];
  741. slideData.closeHndl = LocalBuildBtn('pushbutton',0,'Close',callbackStr,'close',btnPosParam);
  742. set(figNumber,'CloseRequestFcn',callbackStr);
  744. % Now initiate userdata and uncover the figure
  745. %---------------------------------------------
  746. slideData.slide(1).code = {''};
  747. slideData.slide(1).text = {''};
  748. slideData.slide(1).info = {''};   % User defined for help!
  749. slideData.slide(1).idxPrev = {};  % User defined for back button!
  750. slideData.param(1).vars = {};
  752. try
  753.    slides = eval(funDemoName);
  754.    set(slideData.slitxtHndl,'String', sprintf('Slide 1 of %s',num2str(length(slides))));
  755. catch
  756.    slides = [];
  757. end
  759. if ~isstruct(slides) | ...
  760.       ~isfield(slides,'code') | ...
  761.       ~isfield(slides,'text')
  762.    slides.code = {'load logo'
  763.       ' surf(L,R), colormap(M)'
  764.       ' n = length(L(:,1));'
  765.       ' axis off, axis([1 n 1 n -.2 .8]),view(-37.5,30)'
  766.       'title(''Invalid WSHOWDRV File Requested'');'};
  767.    slides.text = {'You have requested a file which does not exist'
  768.       'or which is not a valid WSHOWDRV file.'};
  769.    set(infoHndl,'Enable','off');
  770. end
  772. slideData.slide = slides;
  773. slideData.index = 1;
  774. slideData.funDemoName = funDemoName; 
  775. set(figNumber,'UserData',slideData);
  776. LocalDoCmd(figNumber,0);   
  778. try 
  779. feval(funDemoName,'initShowViewer',figNumber);
  780. end
  782. %--------------------------------------------------------------%
  783. % last thing: turn it on
  784. % we are calling slide show code above, so don't switch
  785. % HandleVis until we have computed the first slide: in case
  786. % the code calls gcf or some such thing, if the demo is
  787. % invoked from the command line, the fig won't be visible if
  788. % we set handlevis to callback before computing...
  789. %--------------------------------------------------------------%
  790. set(figNumber, ...
  791.         'Visible','on',...
  792.         'HandleVisibility','callback');
  793. %==============================================================================%
  796. %==============================================================================%
  797. %------------------------------------------------------------------------------%
  798. function frmHndl = LocalBuildFrmTxt(frmPos,frmBkCol,txtStr,uiStyle,uiTag,uiCallback)
  799. frmHndl = uicontrol( ...
  800.         'Style', uiStyle, ...
  801.         'HorizontalAlignment','left', ...
  802.         'Units','normalized', ...
  803.         'Max', 20, ...
  804.         'Position',frmPos, ...
  805.         'BackgroundColor',frmBkCol, ...
  806.         'ForegroundColor',[1 1 1], ...             % generates an edge
  807.         'String', txtStr, ...
  808.         'Tag', uiTag);
  809. %------------------------------------------------------------------------------%
  810. function btHandle = LocalBuildBtn(btnStyle,btnNumber,labelStr,callbackStr,uiTag,btnPosParam)
  811. % build buttons and check boxes on the right panel
  812. labelColor = [0.8 0.8 0.8];
  813. left = btnPosParam(1); bottom = btnPosParam(2); top = btnPosParam(3);
  814. btnWid = btnPosParam(4); btnHt = btnPosParam(5); spacing = btnPosParam(6);
  815. % Spacing between the button and the next command's label
  817. yPos = top-(btnNumber-1)*(btnHt+spacing);
  818. if strcmp(labelStr,'Close')==1
  819.    yPos = bottom;
  820. elseif strcmp(labelStr,'Info')==1
  821.    yPos = bottom+btnHt+spacing; 
  822. else
  823.    yPos = top-(btnNumber-1)*(btnHt+spacing)-btnHt;
  824.    yPos = yPos-btnHt/2;
  825.    
  826. end
  827. % ui position
  828. btnPos = [left yPos btnWid btnHt];
  829. btHandle = uicontrol( ...
  830.         'Style', btnStyle, ...
  831.         'Units','normalized', ...
  832.         'Position',btnPos, ...
  833.         'String',xlate(labelStr), ...
  834.         'Tag', uiTag, ...
  835.         'Callback',callbackStr); 
  836. %------------------------------------------------------------------------------%
  837. function slideData = LocalBuildAxes(figNumber,axes_mat)
  839. slideData = get(figNumber,'UserData');
  840. delete(findobj(figNumber,'type','axes'));
  841. if length(axes_mat)==0
  842. slideData.axesHandles = [];
  843. set(figNumber,'UserData',slideData);
  844. return;
  845. end
  847. nb_axes = prod(axes_mat);
  848. axesHandles = zeros(1,nb_axes);
  849. if length(axes_mat)==1 , axes_mat = [axes_mat 1]; end
  851. % defAxesPos = get(figNumber,'DefaultAxesPosition');
  852. left_a  = 0;  right_a = 0.85;  % right_a = 0.80;
  853. bottom_a = 0;  top_a = 1;
  854. dy_axe = 0.08;
  855. dx_axe = 0.1;
  856. frmHndl = slideData.winFrmHndl;
  857. if ishandle(frmHndl)
  858. pos_t = get(frmHndl,'Position');
  859. bottom_a = pos_t(2)+pos_t(4);
  860. end
  861. h_axe = (top_a-bottom_a-(axes_mat(1)+1)*dy_axe)/axes_mat(1);
  862. w_axe = (right_a-left_a-(axes_mat(2)+1)*dx_axe)/axes_mat(2);
  863. num = 1;
  864. y_axe = top_a;
  866. for r = 1:axes_mat(1)
  867. y_axe = y_axe-h_axe-dy_axe;        
  868. x_axe = left_a+dx_axe;
  869. for c = 1:axes_mat(2)
  870. pos_a = [x_axe y_axe w_axe h_axe];
  871. axesHandles(num) = axes('Parent',figNumber,...
  872. 'Visible','off','Position',pos_a,'Userdata',num);
  873. num = num+1;
  874. x_axe = x_axe+w_axe+dx_axe;
  875. end
  876. end
  877. slideData.axesHandles = axesHandles;
  878. set(figNumber,'UserData',slideData);
  879. %------------------------------------------------------------------------------%
  880. function varargout = depOfMachine(varargin)
  882. no_output = varargin{1};
  883. ShiftTop_Fig = mextglob('get','ShiftTop_Fig');
  884. screen = get(0,'ScreenSize');
  885. if no_output,
  886.     height = 420; width = 240; height = 500; 
  887.     if screen(4)<800
  888.         height = height/2;
  889.         width = 140;
  890.     else
  891.         height = height/1.5;
  892.         width = 160;
  893.     end
  894.     left   = screen(3)*0.01;
  895.     bottom = screen(4)-height-ShiftTop_Fig;
  896. else
  897.     height = 500; width  = 560;
  898.     if screen(4)<height+ShiftTop_Fig , height = screen(4)-ShiftTop_Fig; end
  899.     pos    = get(0,'DefaultFigurePosition');
  900.     left   = (screen(3)-width)/2;
  901.     bottom = screen(4)-height-ShiftTop_Fig;
  902. end
  903. varargout{1} = [left bottom width height];
  904. %------------------------------------------------------------------------------%
  905. %==============================================================================%
  907. %==============================================================================%
  908. %------------------------------------------------------------------------------%
  909. function cellMSG = formatMSG(msg,max_lig)
  911. if nargin<2 , max_lig = 6; end
  913. if isequal(max_lig,Inf)
  914. ind = findstr(msg(:,1)','$');
  915. msg(ind) = ' ';
  916. cellMSG = {msg};
  917. return
  918. end
  920. i_msg = 0; cellMSG = {};
  921. loop = 1;
  922. while loop
  923. col1   = msg(:,1)';
  924. nb_lin = length(col1);
  925. ind    = findstr(col1,'$');
  926. if ~isempty(ind)
  927. lig = ind(1);
  928. if lig>max_lig+1
  929. beg = lig;
  930. tmp = msg(max_lig+1:nb_lin,:);
  931. msg = msg(1:max_lig,:);
  932. else
  933. beg = lig+1;
  934. tmp = msg(beg:nb_lin,:);
  935. msg = msg(1:lig-1,:);
  936. end
  937. elseif nb_lin>max_lig
  938. tmp = msg(max_lig+1:nb_lin,:);
  939. msg = msg(1:max_lig,:);
  940. else
  941. loop = 0;
  942. end
  943. i_msg = i_msg+1;
  944. cellMSG{i_msg} = msg;
  945. if loop , msg = tmp; end
  946. end  % while loop
  947. %------------------------------------------------------------------------------%
  948. %==============================================================================%