diff toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirpitch/set.m @ 0:e9a9cd732c1e tip

first hg version after svn

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirpitch/set.m	Tue Feb 10 15:05:51 2015 +0000
@@ -0,0 +1,20 @@
+function pp = set(p,varargin)
+% SET Set properties for the MIRpitch object
+% and return the updated object
+
+propertyArgIn = varargin;
+a = p.amplitude;
+s = mirscalar(p);
+while length(propertyArgIn) >= 2,
+   prop = propertyArgIn{1};
+   val = propertyArgIn{2};
+   propertyArgIn = propertyArgIn(3:end);
+   switch prop
+       case 'Amplitude'
+           a = val;
+       otherwise
+           s = set(s,prop,val);
+   end
+end
+pp.amplitude = a;
+pp = class(pp,'mirpitch',s);
\ No newline at end of file