%lsalto.m : Salto Mortale rueckwarts des "L"
clf
L = [5 5 6; 2 0 0; 1 1 1];
lhand = plothclin(L);
stdhcaxis;
hold on
B = [ 1 0 -5; 0 1 0 ; 0 0 1]*L;
dw = pi/36;
for k = 1:36
 T = [cos(2*k*dw) -sin(2*k*dw) 5*cos(k*dw); ...
       sin(2*k*dw) cos(2*k*dw) 5*sin(k*dw); 0 0 1];
 Lt = T*B;
% input('WEITER?');
 pause(0.12);
 delete(lhand);
 lhand = plothclin(Lt);
end
 input('APPLAUS!!');
