function [x , y , nc] = CylCoords (xc , yc , R , ncirc , phianf)

% ... berechnet Polygon für die Darstellung eines Kreises:
% Koordinaten werden in x und y abgeliefert, nc ist die Anzahl
% der Polygonpunkte auf dem Kreisumfang, der Anfangspunkt wird
% als Endpunkt noch einmal abgeliefert
%
% Inputparameter:
%
% xc, yc - Koordinaten des Kreismittelpunktes
% R      - Radius des Kreises
% ncirc  - Anzahl der Abschnitte auf dem Kreisumfang
% phianf - ... bestimmt, welcher Punkt als erster berechnet
%          wird, phi zaehlt von der Vertikalen positiv im
%          Uhrzeigersinn

phi = phianf : 2*pi/ncirc : phianf+2*pi ;

for i=1:ncirc+1
   x(i) = xc + R*sin(phi(i)) ;
   y(i) = yc + R*cos(phi(i)) ;
end

nc = ncirc+1 ;