% fadensternfilm.m - Animation eines vierstrahligen Fadensternes
function voidbk = fadensternfilm(varargin)
voidbk = 0;
nullen = [0 0 0 0 0 0 0 0 0 0 0];
% Die Eigenschaft von MATLAB wird ausgenuetzt, 
% jede Spalte als eigene Linie zu betrachten
xmat = [ (10:-1:0); nullen];
ymat = [nullen ; (0:10)];
xmatb = [ (0:10); nullen];
ymatb = [nullen ; (10:-1:0)];
 hdx = zeros(1,44);
  hdx(1) = plot(xmat(:,1),ymat(:,1),'b');
  pause(0.05)
hold on
axis([-10 10 -10 10]); axis square; axis off
% 1.Quadrant x und y positiv
for k=2:11
  hdx(k) = plot(xmat(:,k),ymat(:,k),'b'); 
  pause(0.05)
end  
% 2. Quadrant
for k=1:11
  hdx(11+k) = plot(-xmatb(:,k),ymatb(:,k),'b') ;
  pause(0.05)
end  
% 3. Quadrant
for k=1:11
  hdx(22+k) = plot(-xmat(:,k),-ymat(:,k),'b');
  pause(0.05)
end  
% 4. Quadrant
for k=1:11
  hdx(33+k) = plot(xmatb(:,k),-ymatb(:,k),'b'); 
  pause(0.05)
end  
for k=1:44
  delete(hdx(k));
  pause(0.05)
end

