tic();

Setangle(75,-65);
Setwindow([-12.5,12.5], [-1.5,19.0]);

K=2;
Curv=Spacecurve('[t/K*cos(t), t/K*sin(t), t/3*2]',..
                't=[0,8*%pi]', 'N=300');

axis=Xyzax3data('x=[-4,4]', 'y=[-4,4]', 'z=[0,8*%pi]');
//Windisp(Projpara(Curv, axis));

sCurv=Skeletonpara3data(Curv, list(Curv, axis), 4);
saxis=Skeletonpara3data(axis, list(Curv), 4);

//Windisp(Projpara(sCurv, saxis));


Openfile('tex/spacecurve_sample.tex');
Beginpicture('0.5cm');
Drwline(Projpara(sCurv), 1.8);
Drwline(Projpara(saxis), 1.0);
Endpicture(0);
Closefile();

T=toc();
minute=floor(T/60);
second=floor(T-60*minute);
disp(strcat([string(minute), ' minutes ', string(second), ' seconds']));

