+
−% FROMSPECWIN Construct an ao from a Spectral window
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% FUNCTION:    fromSpecWin
+
−%
+
−% DESCRIPTION: Construct an ao from a Spectral window
+
−%
+
−% CALL:        a = fromSpecWin(a, win)
+
−%
+
−% PARAMETER:   win: Spectral window object
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−function a = fromSpecWin(a, pli)
+
−  
+
−  VERSION = '$Id: fromSpecWin.m,v 1.21 2011/08/15 06:50:45 hewitson Exp $';
+
−  
+
−  % get AO info
+
−  ii = ao.getInfo('ao', 'From Window');
+
−  
+
−  % Set the method version string in the minfo object
+
−  ii.setMversion([VERSION '-->' ii.mversion]);
+
−  
+
−  % If the user input a specwin object, construct an appropriate plist
+
−  if isa(pli, 'specwin')
+
−    pli = toPlist(pli);
+
−  end
+
−  
+
−  % If the 'win' value in the input plist is a specwin object, expand it in
+
−  % to plist keys
+
−  if isa(pli.find('win'), 'specwin')
+
−    win = pli.find('win');
+
−    pli.remove('win');
+
−    pli.append(toPlist(win));
+
−  end
+
−  
+
−  % Apply defaults
+
−  pl = applyDefaults(ii.plists, pli);
+
−  win = find(pl, 'win');
+
−    
+
−  if ischar(win)
+
−    len = pl.find('length');
+
−    switch lower(win)
+
−      case 'kaiser'
+
−        psll = pl.find('psll');
+
−        win = specwin(win, len,  psll);
+
−      case 'levelledhanning'
+
−        levelorder = pl.find('levelorder');
+
−        win = specwin(win, len, levelorder);
+
−      otherwise
+
−        win = specwin(win, len);
+
−    end
+
−    pl.pset('win', win.type);
+
−  else
+
−    % we have a specwin and we just use the values
+
−  end
+
−  
+
−  % Make a cdata object
+
−  a.data = cdata(win.win);
+
−  if isempty(pl.find('name'))
+
−    pl.pset('name', sprintf('ao(%s)', win.type));
+
−  end
+
−  
+
−  % Add history
+
−  a.addHistory(ii, pl, [], []);
+
−  
+
−  % Set Yunits
+
−  a.setYunits(pl.find('yunits'));
+
−  
+
−  % Set object properties from plist
+
−  a.setObjectProperties(pl);
+
−  
+
−end
+
−
+
−