Daniel@0: function ss = set(s,varargin)
Daniel@0: % SET Set properties for the MIRspectrum object
Daniel@0: % and return the updated object
Daniel@0: 
Daniel@0: propertyArgIn = varargin;
Daniel@0: ph = s.phase;
Daniel@0: log = s.log;
Daniel@0: pow = s.pow;
Daniel@0: xs = s.xscale;
Daniel@0: d = mirdata(s);
Daniel@0: d = set(d,'Title',get(s,'Title'),'Abs',get(s,'Abs'),'Ord',get(s,'Ord'));
Daniel@0: while length(propertyArgIn) >= 2,
Daniel@0:    prop = propertyArgIn{1};
Daniel@0:    val = propertyArgIn{2};
Daniel@0:    propertyArgIn = propertyArgIn(3:end);
Daniel@0:    switch prop
Daniel@0:        case 'Magnitude'
Daniel@0:            d = set(d,'Data',val);
Daniel@0:        case 'Frequency'
Daniel@0:            d = set(d,'Pos',val);
Daniel@0:        case 'Phase'
Daniel@0:            ph = val;
Daniel@0:        case 'log'
Daniel@0:            log = val;
Daniel@0:        case 'XScale'
Daniel@0:            xs = val;
Daniel@0:        case 'Power'
Daniel@0:            pow = val;
Daniel@0:        otherwise
Daniel@0:            d = set(d,prop,val);
Daniel@0:    end
Daniel@0: end
Daniel@0: ss.phase = ph;
Daniel@0: ss.log = log;
Daniel@0: ss.xscale = xs;
Daniel@0: ss.pow = pow;
Daniel@0: ss = class(ss,'mirspectrum',d);