tic();

Setwindow([-0.2,1.5], [-0.5,1.5]);
Setangle(75,-75);

axis=Xyzax3data('x=[0,1.2]', 'y=[0,1.2]', 'z=[0,1.2]');

e=0.01;
fd=list('z=x^2*y',..
        'x=s', 'y=s*t', 's=[0+e,1]', 't=[0,1]', 'esn');
surface=Sf3data(fd, 25, 25);
outline=Sfbdparadata(fd, 100);
wire=Wireparadata(outline, fd, 5, 5);
L1=Spaceline([[0,0,0], [1,1,0]]);
L2=Spaceline([[1,1,1], [1,1,0], [1,0,0]]);


Openfile('tex/error_sample1.tex');
Beginpicture('2.5cm');
Drwline(Projpara(outline, L2, L1), 1.2);
Drwline(Projpara(wire, axis), 0.5);
//Drwline(Projpara(saxis), 1);
Setpen(0.5);
//Dashline(Projpara(wire3), 0.8);
Setpen(1);
Xyzaxparaname(axis, 'x', 'y', 'z');
Endpicture(0);
Closefile();

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