function voidbk = lissfilm3dz(varargin)
%liss3dmn Film einer Lissajous-Figur MLISS:NLISS (def 1:2) in 3D
t = (0:0.004:1)*2*pi;  voidbk = 0;
%%
%  nur standalone!! figure(1); axis([-10 10 -10 10]), axis square; hold on


hdtx1 = text(-4.8, 5,'3D', ...
    'FontUnits','points','FontSize',18 , ...
   'Fontweight','demi');
hdtx2 = text(-4.8, 3,'Lissajous-', ...  
    'FontUnits','points','FontSize',18 , ...
   'Fontweight','demi');
hdtx3 = text(-4.8, 1,'Figuren', ...
    'FontUnits','points','FontSize',18 , ...
   'Fontweight','demi');
%
r=7.7;  tet = 13*pi/180;
nl = [1 1 2 2]; ml = [1 2 1 3];
for irep =2:3
pause(0.2)
  a = nl(irep); b = ml(irep);
  x = r*cos(a*t) ;  y = r*sin(a*t) ;  z = r*cos(b*t);
  zc1 =r* ones(1,length(t)) ;  zc2 = -r*ones(1,length(t));
  xl = [r r] ;  yl = [0 0] ;  zl = [-r r];
%
  hdkr1 = plot3ers(x,y,zc1, 0,tet,0,0,'g',2) ; hold on; 
  hdkr2 = plot3ers(x,y,zc2, 0,tet,0,0,'g',2) ; 
%
  for k=0:2:360
   wink = k*pi/180;
    if k>0
      delete(hdll);delete(hdlr);delete(hdlb);
    end
    hdll = plot3ers(x,y,z, -wink,tet, 0,0,'k',2) ; 
    hdlr = plot3ers(xl,yl,zl, -wink,tet, 0,0,'r',2) ;  
    hdlb = plot3ers(yl,xl,zl, -wink,tet, 0,0,'b',2);
    pause(0.05);
  end 
    pause(0.2) 
  delete(hdll);delete(hdlr);delete(hdlb);
  delete(hdkr1); delete(hdkr2);
end
delete(hdtx1);  delete(hdtx2);delete(hdtx3);
