Mercurial > repos > public > sbplib
view +draw/prompt_point.m @ 930:34d882bffae4 feature/timesteppers
Add stepping function for RK with discrete data.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Mon, 03 Dec 2018 16:26:18 -0800 |
parents | 00eb5db89da5 |
children |
line wrap: on
line source
function [p, button] = prompt_point(s, varargin) default_arg('s',[]) set(gcf,'Pointer','crosshair') if ~isempty(s) fprintf(s, varargin{:}); end fh = gcf(); ah = gca(); function get_point(src, event) cp = ah.CurrentPoint; p = cp(1,1:2)'; fh.WindowButtonUpFcn = []; end fh.WindowButtonUpFcn = @get_point; waitfor(fh,'WindowButtonUpFcn', []) set(gcf,'Pointer','arrow') end