wolffd@0: function pp = set(p,varargin)
wolffd@0: % SET Set properties for the MIRpitch object
wolffd@0: % and return the updated object
wolffd@0: 
wolffd@0: propertyArgIn = varargin;
wolffd@0: a = p.amplitude;
wolffd@0: s = mirscalar(p);
wolffd@0: while length(propertyArgIn) >= 2,
wolffd@0:    prop = propertyArgIn{1};
wolffd@0:    val = propertyArgIn{2};
wolffd@0:    propertyArgIn = propertyArgIn(3:end);
wolffd@0:    switch prop
wolffd@0:        case 'Amplitude'
wolffd@0:            a = val;
wolffd@0:        otherwise
wolffd@0:            s = set(s,prop,val);
wolffd@0:    end
wolffd@0: end
wolffd@0: pp.amplitude = a;
wolffd@0: pp = class(pp,'mirpitch',s);