% Construct an miir allpass filter
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FUNCTION:    fromStandard
%
% DESCRIPTION: Construct an miir allpass filter
%
% CALL:        f = fromAllpass(f, pli)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function f = fromAllpass(f, pli)
  
  VERSION = '$Id: fromAllpass.m,v 1.5 2011/08/15 11:22:59 hewitson Exp $';
  
  ii = miir.getInfo('miir', 'Allpass');
  % Set the method version string in the minfo object
  ii.setMversion([VERSION '-->' ii.mversion]);
  
  % Add default values
  pl = applyDefaults(ii.plists, pli);
  
  f = mkallpass(f, pl);
  
  if isempty(pl.find('name'))
    pl.pset('name', 'allpass');
  end
  
  % Add history
  f.addHistory(ii, pl, [], []);
  
  % Set object properties
  f.setObjectProperties(pl);
  
end % function f = miirFromStandardType(type, pli, version, algoname)