Mercurial > repos > public > sbplib

view +draw/prompt_point.m @ 99:ecf77a50d4fe feature/arclen-param

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The arclength parameter function was slow because it called fzero. Now it is constructed once and for all with splines. Much better performance.
author Martin Almquist <martin.almquist@it.uu.se>
date Sun, 06 Dec 2015 15:41:42 +0100
parents 48b6fb693025
children 00eb5db89da5
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

    a = gca;

    function get_point(src,event)
        cp = a.CurrentPoint;
        p = cp(1,1:2)';
        a.ButtonDownFcn = [];
    end

    a.ButtonDownFcn = @get_point;
    waitfor(a,'ButtonDownFcn', [])

    set(gcf,'Pointer','arrow')

end