wolffd@0: function ss = set(s,varargin)
wolffd@0: % SET Set properties for the MIRscalar object
wolffd@0: % and return the updated object
wolffd@0: 
wolffd@0: propertyArgIn = varargin;
wolffd@0: m = s.mode;
wolffd@0: l = s.legend;
wolffd@0: p = s.parameter;
wolffd@0: d = mirdata(s);
wolffd@0: d = set(d,'Title',get(s,'Title'),'Abs',get(s,'Abs'),'Ord',get(s,'Ord'));
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 'Mode'
wolffd@0:            m = val;
wolffd@0:        case 'Legend'
wolffd@0:            l = val;
wolffd@0:        case 'Parameter'
wolffd@0:            p = val;
wolffd@0:        otherwise
wolffd@0:            d = set(d,prop,val);
wolffd@0:    end
wolffd@0: end
wolffd@0: ss.mode = m;
wolffd@0: ss.legend = l;
wolffd@0: ss.parameter = p;
wolffd@0: ss = class(ss,'mirscalar',d);