view arrows/@plotter/plotter.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

% plotter - Arrow for doing plots.
%
% plotter :: options {
%    dom     :: [[N]->nonneg] / (1:N) ~'X values for plots';
%    ylim    :: [[_]->nonneg] / [] ~'passed to ylim if not empty';
%    xlim    :: [[_]->nonneg] / [] ~'passed to xlim if not empty';
%    xlabel  :: [[_]->nonneg] / [] ~'passed to xlabel if not empty';
%    ylabel  :: [[_]->nonneg] / [] ~'passed to ylabel if not empty';
%    plotfn  :: plotfn / @plot     ~'function to create image';
%    args    :: {[_]}  / {}        ~'extra arguments for plotfn'
% } -> arrow({[[N,M]]}, {}, empty) ~'arrow from 2D arrays'.
%
% plotter is an arrow which displays each input array as line plots
% using plot by default. The essential thing about plotter is that
% the graphics must be updated by setting the 'YData' property of
% the handle graphics object returned by the plotting function.

function o=plotter(varargin)
	s.opts=options('dlim',[],'dom',[],'ylim',[],'xlim',[],'plotfn',@plot,'args',{},'transpose',0,varargin{:});
	if isempty(s.opts.ylim), s.opts.ylim=s.opts.dlim; end
	o=class(s,'plotter',agraph(1,s.opts));
end