Fadensterne zwischen den Szenen

Einfache Fadenstern-Figuren füllen den Zwischenraum zwischen den Teilen der Filmserie.

% fadensternfilm.m - Animation eines vierstrahligen Fadensternes
figure(1); clf;
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
stern0paus = 0.04; stern0spaus = 0.4; stern0dpaus = 0.012;
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(stern0paus)
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(stern0paus)
end  
% 2. Quadrant
for k=1:11
  hdx(11+k) = plot(-xmatb(:,k),ymatb(:,k),'b') ;
  pause(stern0paus)
end  
% 3. Quadrant
for k=1:11
  hdx(22+k) = plot(-xmat(:,k),-ymat(:,k),'b');
  pause(stern0paus)
end  
% 4. Quadrant
for k=1:11
  hdx(33+k) = plot(xmatb(:,k),-ymatb(:,k),'b'); 
  pause(stern0paus)
end  
pause(stern0spaus)
% deleteserie
for k=1:44
  delete(hdx(k));
  pause(stern0dpaus)
end

% fadensternfilm4.m - Animation eines vierstrahligen Fadensternes
%  invertierte Version im Innern des Quadrates
figure(1) ; clf;
nullen = [0 0 0 0 0 0 0 0 0 0 0];
fad4inipaus = 0.06; fad4plpaus = 0.04; fad4mpaus = 0.5;
fad4dpaus = 0.012;
% 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(8-1.6*xmat(:,1),8-1.6*ymat(:,1),'b');
  pause(fad4inipaus)
hold on
axis([-10 10 -10 10]); axis square; axis off
% 1.Quadrant x und y positiv
for k=2:11
  hdx(k) = plot(8-1.6*xmat(:,k),8-1.6*ymat(:,k),'b'); 
  pause(fad4plpaus)
end  
% 2. Quadrant
for k=1:11
  hdx(11+k) = plot(8-1.6*xmatb(:,k),-8+1.6*ymatb(:,k),'b') ;
  pause(fad4plpaus)
end  
% 3. Quadrant
for k=1:11
  hdx(22+k) = plot(-8+1.6*xmat(:,k),-8+1.6*ymat(:,k),'b');
  pause(fad4plpaus)
end  
% 4. Quadrant
for k=1:11
  hdx(33+k) = plot(-8+1.6*xmatb(:,k),8-1.6*ymatb(:,k),'b'); 
  pause(fad4plpaus)
end  
  pause(fad4mpaus)
for k=1:44
  delete(hdx(k));
  pause(fad4dpaus)
end