 function [x,y]=klickadata(mark);
% Grafisk inmatning 
  disp(['Klicka punkter (bryt med musens mittknapp)'])
  x=[]; y=[];
  for i=1:15
    [xp,yp,button]=ginput(1);  
    if button==2, break, else plotus(xp,yp,mark) 
    x=[x; xp]; y=[y; yp]; end
  end
