--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@miir/fromAllpass.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,36 @@
+% 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)
+
+