// make epsfig.eps with xs2eps(nr_window,"epsfig.eps")
A=read("CPALya.txt",-1,3);
stacksize('max')
[m,n]=size(A);
drawlater
for k=1:3:m
    x=A(k:k+2,1);
    y=A(k:k+2,2);
    z=A(k:k+2,3);
    x(4)=A(k,1);
    y(4)=A(k,2);
    z(4)=A(k,3);
    param3d(x,y,z);
end
//for k=1:m/1000
//    x=A(k,1);
//    y=A(k,2);
//    z=A(k,3);
//    param3d(x,y,z);
//end
drawnow
