function zufallsquadrate (wiederholungen,varargin)
% function zufallsquadrate (wiederholungen)
% erzeugt einen visuellen Stimulus, der aus einem Vieleck zufaelliger Farbe 
% und Groesse besteht, das vor einheitlichem Hintergrund jeweils nach einem
% optionalen Zeitinterval seine Position zufaellig aendert.
% Vom Benutzer wird die Anzahl der Wiederholungen und die Pausendauer vorgegeben. 

% Eingangsargument?
if nargin==0
    disp('Bitte Eingabe ueberprüfen! Zu wenige Eingaben!')
else
    if nargin==1
     pausendauer=2;
    elseif nargin==2
     pausendauer=varargin{1};
    else
     disp('Zu viele Eingaben!')
    end
    
% Abbildung erzeugen 
hold off
bild=figure;
set(bild,'Color','black');

% Achsen festlegen
axis([0 12 0 12])
axis off 'square'  % eigentlich kein Viereck sondern eine fraktale Figur
hold on

% Erzeugen des Vielecks
qx=[1.618 cos(1.618) pi sin(1.618) 1.618 cos(pi)];
qy=[cos(1.618) 1.618 cos(pi) pi sin(1.618) 1.618];

% Schleife ueber die Wiederholungen:
for w=1:wiederholungen 
    % Auswuerfeln der Position (durch Faktor 10 wird sichergestellt, dass
    % das 2*2 Einheiten grosse Vieleck nicht aus dem sichtbaren Bereich 
    % verschwindet)
    posx=1.618*randn+5;
    posy=pi*randn+5;
    % plotten des Vielecks mit zufaelligen Farben
    a=rand(1,3);
    fill(qx+posx,qy+posy,a,'EdgeColor',a)
    %Wartezeit
    if pausendauer==varargin{1}
       pause(varargin{1})
    else pause(pausendauer)
    end
    % Loeschen des Vielecks
    fill(qx+posx,qy+posy,'white','EdgeColor','white')
end

end %Ende der allerersten if-Abfrage

hold off
close all