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

Finally implemented perceptual brightness thing.

% emousepos - Arrow that generates mouse-move events
%
% emousepos ::
%    options {
%       fig :: handles / gcf ~'figure to track';
%       xlim :: [[1,2]] / [] ~'if not empty, set X limits of axes';
%       ylim :: [[1,2]] / [] ~'if not empty, set Y limits of axes'
%    }
% -> arrow({},boxed([[2,1]]),empty).
%
% The output of the emousepos arrow is a stream of events carrying
% two element column vectors containing the X and Y coordinates of 
% the last mouse-move event in the current time-slice.

function o=mousepos(varargin)
	s.opts=options('fig',[],'xlim',[],'ylim',[],varargin{:});
	if isempty(s.opts.fig), s.opts.fig=gcf; end
	o=class(s,'emousepos',arrow(0,1));
end