Setwindow([-1.5,2.0], [-1.2,1.2]);

function f=f(x);
  if x>1 then
    f=1;
  else 
    f=-1;
  end
endfunction

G=Plotdata('f(x)', 'x', 'N=500', 'D=1');

C=Circledata([1,1], 0.08);
L1=Listplot([1,1], [1,-1]);

//Windisp(G);

Openfile('tex/function_sample.tex');
Beginpicture('1.0cm');
Drwxy();
Dashline(L1, 1);
Drwline(G, 1.5);
Shade(C, 0);
Drwline(C, 1);

Setpen(8);
Drwpt([1,-1]);
Expr([1,0], 'ne', '1');
Expr([0,1], 'w2', '1');
Expr([0,-1], 'nw', '-1');
Setpen(1);
Endpicture(0);
Closefile();
