function u=construct(s,sizes_in)
	figure(fig(s));
	if ~isempty(s.opts.colormap), colormap(s.opts.colormap); end
	%if isempty(s.opts.xlim) && numel(dom)>1, s.opts.xlim=[dom(1),dom(end)]; end
	%if ~isempty(s.opts.ylim), ylim(s.opts.ylim); end
	%if ~isempty(s.opts.xlim), xlim(s.opts.xlim); end
	%if isfield(s.opts,'ylabel'), ylabel(s.opts.ylabel); end
	%if isfield(s.opts,'xlabel'), xlabel(s.opts.xlabel); end

	u=mkunit(s);
	u.sizes_out = {};
	if autoflush(s), u.process =@proc_flush;
	else u.process=@proc_noflush; end
	u.dispose = @()clf(fig(s));

	function proc_flush(x), figure(fig(s)); s.fn(x); drawnow; end
	function proc_noflush(x), figure(fig(s)); s.fn(x); end
end
