function points = input_polygon()
% input_polygon(): Polygon mit Maus eingeben
% points: 2-zeilige Matrix der Polygon-Punkte

% Autor: Jörg Hörner
% Datum: 19. März 2007

% Fenster öffnen und Achsensystem festhalten
clf; 
hold on;
set(gca,'xlimmode','manual');
set(gca,'ylimmode','manual');

% Punkte des Polygons initialisieren
points=[]; 


% while-Schleife zur Eingabe der Polygon-Punkte
while 1    
  [x,y,button]=ginput(1);
  % Punkt-Eingabe beenden	
  if button>1  
    break;
  end
  plot(x,y,'hr');    
  % weitere Punkte setzen und Polygonsegmente zeichnen 
  points=[points, [x;y]];
  if size(points,2)>=2
    plot(points(1,end-1:end),points(2,end-1:end),'-r');
  end
end

% Polygon plotten
clf; 
fill(points(1,:),points(2,:),[0,0,1]);

hold off;

