function voidbk = garagefilmz(varargin);
% garagefilm.m simple Simulation der Bewegung
% eines vereinfachten Autos auf einer
% Parkhausrampe
%axis([-10 10 -10 10]); axis square;
voidbk = 0;
%view(-71,20)
 winpr = 40*pi/180; tetpr = -15*pi/180; 
P=[5.15 6.85 6.85 5.15 5.15 ;
    -0.6  -0.6    4.2    4.2    -0.6; 
    0.3   0.3  0.3  0.3  0.3;
    1 1 1 1 1];
t = (0:0.01:1)*2*pi;
xi = 4.2*cos(t);
yi = 4.2*sin(t);
xa = 8.5*cos(t);
ya = 8.5*sin(t);
z = t/2/pi*3.8;
hdi = plot3ers(xi,yi,z, winpr, tetpr, 0,-5, 'b', 2) ;
%axis([-10 10 -10 10]); axis square;
hold on
hdtx = text(-8,6,'Parkhaus-Rampe', ...
    'FontUnits','points','FontSize',18 , ...
   'Fontweight','demi');
%
% Muster  hdkr1 = plot3ers(x,y,zc1, 0,tet,0,0,'g',2) ; hold on; 

hdo = plot3ers(xa,ya,z, winpr, tetpr, 0,-5, 'b', 2);
%axis ([-10 10 -10 10 -2 18]);
%axis square; 
%
for k=1:101
  tx = t(k);
  T = [cos(tx) -sin(tx) 0  0; sin(tx) cos(tx) 0 0; 0 0 1 z(k); 0 0 0 1];
  Q=T*P;
  if k > 1
    delete(ph)
  end
  ph = plot3ers(Q(1,:),Q(2,:),Q(3,:), winpr, tetpr, 0,-5, 'r', 2);
  pause(0.1)
end
pause(0.3)
delete(hdi); delete(hdo); delete( ph)
  delete(hdtx)
  view(0,90)
