wolffd@0: function s = mirscalar(orig,varargin)
wolffd@0: %   s = mirscalar(x,n) creates a scalar object
wolffd@0: 
wolffd@0: if nargin == 0
wolffd@0:     orig = [];
wolffd@0: end
wolffd@0: if iscell(orig)
wolffd@0:     orig = orig{1};
wolffd@0: end
wolffd@0: if isa(orig,'mirscalar')
wolffd@0:     s.mode = orig.mode;
wolffd@0:     s.legend = orig.legend;
wolffd@0:     s.parameter = orig.parameter;
wolffd@0: else
wolffd@0:     s.mode = [];
wolffd@0:     s.legend = '';
wolffd@0:     s.parameter = struct;
wolffd@0: end
wolffd@0: s = class(s,'mirscalar',mirdata(orig));
wolffd@0: s = purgedata(s);
wolffd@0: s = set(s,'Pos',{},'Abs','Temporal position of frames','Ord','Value',varargin{:});