%function sternenhimmel

% sternenhimmel
% schließt Figure-Fenster und öffnet ein neues mit einem
% schwarzen Hintergrund und mehreren bunten, zufällig verteilten Sternen

%% Hintergrund

close 

m=zeros(30,30);
imagesc(m)
colormap([0 0 0])

axis equal
hold on

%% Sterne

% Zufallszahl Anzahl

m=ceil(rand*9)+10;

% Zufallszahlen Position
    
a=ceil(rand*25)+2.5;
b=ceil(rand*25)+2.5;

k=[a b];

for n=3:m

    w=0:(360/5):360;
    
    % Zufallszahlen Farbe
    
    c=rand;
    d=rand;
    e=rand;
    
    % Zufallszahl Größe
    
    f=ceil(rand*12)+2;

    % Sternmitte
    
    si=f*sin(w*pi/180)/10.7+a;
    co=f*cos(w*pi/180)/10.7+b;

    fill(co,si,[c d e]) % plottet mit Farbe gefüllt

    % Sternzacken

    si=f*sin(2*w*pi/180)/5+a;
    co=f*cos(2*w*pi/180)/5+b;

    fill(co,si,[c d e]) % plottet mit Farbe gefüllt
    
    % Zufallszahlen Position
    
    a=ceil(rand*25)+2.5;
    b=ceil(rand*25)+2.5;
    
       % Prüfung auf Überlappungen (funktioniert nicht!)
    
       for i=1:(n-2)
           if (k(i,1)-5)>a & a>(k(i,1)+5) | (k(i,2)-5)>b & b>(k(i,2)+5)
           else
               a=ceil(rand*25)+2.5;
               b=ceil(rand*25)+2.5;
               %k=[k;a b];
               %n=n+1;
           end
       end
    
   % if (k(:,1)-5)<a & a<(k(:,1)+5) & (k(:,2)-5)<b & b<(k(:,2)+5)
   %     a=ceil(rand*25)+2.5;
   %     b=ceil(rand*25)+2.5;
   % end
    
    k=[k; a b];
    
end

%%

hold off


