xmin=-1;
xmax=3;
ymin=-1/2;
ymax=3;
Setwindow([xmin,xmax], [ymin,ymax]);

function f=f(x)
  f=1/2*(x-1)+3/2;
endfunction

L1=Paramplot('[x, f(x)]', 'x=[xmin,xmax]', 'N=100');

//Windisp(L1);


Openfile('tex/axis_sample.tex');
Beginpicture('1cm');
Setpen(1);
Drwline(L1, 1.5);
Setpen(4);
Drwpt([1, 3/2]);

// axis
Arrowline([Xmin(),0], [Xmax(),0], 1, 25, 1, 1.5, 'l');
Arrowline([0,Ymin()], [0,Ymax()], 1, 25, 1, 1.5, 'l');
Expr([Xmax(),0], 'e', 'x');
Expr([0, Ymax()], 'n', 'y');
Expr([0, 0], 'sw', 'O');

Endpicture(0);
Closefile();
