v = [0 0 0; 1 0 0; 0 1 0; 1 1 0;
     0 0 1; 1 0 1; 0 1 1; 1 1 1];
e = [1 2; 1 3; 2 4; 3 4;
     5 6; 5 7; 6 8; 7 8;
     1 5; 2 6; 3 7; 4 8];
i = 2*pi/30;
a = 0;
r = 10;
f = 1;
for k = 1:100
  a = a + i;
  t = [r*cos(a),r*sin(a),k*10];
  u = translate(v,t);
  u = scale(u,f);
  wireplot(u,e);
  r = 0.99*r;
  f = 0.99*f; 
end;