Setwindow([-0.2,1.2], [-0.2,1.2]);

function f=f(t); f=[cos(t), sin(t)]; endfunction

C1=Paramplot('f(t)', 't=[0,%pi/2]');
L1=Listplot([1,0], [0,1], [0,0], [1,0]);

//Windisp(L1, C1);

A1=Arrowheaddata([0.5, 0.5], Listplot([1, 0], [0, 1]),..
                 0.6, 25, 1.5, 'lc');
A2=Arrowheaddata([0, 0.5], Listplot([0, 1], [0, 0]),..
                 0.6, 25, 1.5, 'lc');
A3=Arrowheaddata([0.5, 0], Listplot([0, 0], [1, 0]),..
                 0.6, 25, 1.5, 'lc');
A4=Arrowheaddata(f(%pi/4), Paramplot('f(t)', 't=[0,2*%pi]'),..
                 0.6, 25, 1.5, 'lc');

Openfile('tex/arrow_sample2.tex');
Beginpicture('2cm');
Setax(6, 'O')
//Drwline(Projpara(surface));
Drwline(L1, C1, A1, A2, A3, A4, 1.8);

Setpen(4);
Drwpt([1, 0], [0, 1] , [0, 0]);

Setpen(0.8);

Expr([0.5, 0.5], 'ws', 'C_1');
Expr([0, 0.5], 'w1', 'C_2');
Expr([0.5, 0], 's1.5', 'C_3');
Expr(f(%pi/4), 'ne', 'C_4');
Expr([1, 0], 'se', 'A');
Expr([0, 1], 'nw', 'B');

Setpen(0.8);
Endpicture(1);
Closefile();
