Setwindow([-15,15], [-0.5,1.2]);
Setscaling(6);

curve=Paramplot('[x, sin(x)/x]', 'x=[-25,25]', 'N=300');

//Windisp(curve);

Openfile('tex/scaling_sample.tex');
Beginpicture('0.5cm');
Drwline(curve, 0.4);
for i=-9:9
  Htickmark(%pi/2*i, ' ');
end
Vtickmark('m0.5n1r1');
Expr([%pi/2,0], 's6', '\frac{\pi}{2}');
Expr([%pi,0], 'n3e3', '\pi');
Expr([%pi-0.4,1/2], 'e', '\displaystyle y=\frac{\sin x}{x}');
Endpicture(1);
Closefile();

Setscaling(1);
