--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/+draw/prompt_point.m	Thu Sep 17 10:12:50 2015 +0200
@@ -0,0 +1,23 @@
+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
\ No newline at end of file