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