xmin=-2.4;
xmax=2.4;
ymin=-2.4;
ymax=2.4;

Setwindow([xmin,xmax], [ymin,ymax]);

C1=Paramplot('[2*cos(t), 2*sin(t)]', 't=[0,2*%pi]');
C2=Paramplot('[cos(t)+1, sin(t)]', 't=[0,2*%pi]');

L1=Listplot([xmin,0], [xmax,0]);
L2=Listplot([0,ymin], [0,ymax]);

H=Hatchdata('ioii', list(C1, '[0,0]'), list(C2, [1,0]),..
                    list(L1, 'n'), list(L2, 'e'), 30, 0.6);

Windisp(C1, C2, H);

Openfile('tex/hatch_sample.tex');
Beginpicture('1cm');
//Setax(6,' ');
Drwline(C1, C2, 1.2);
Drwline(H, 0.5);
Setpen(4);
Drwpt([1,0]);

Setpen(0.8);
Expr([2*cos(%pi/4),2*sin(%pi/4)], 'ne', 'D');
Expr([2,0], 'se', '2');
Expr([1,0], 's2', '1');
Setpen(1);
Endpicture(1);
Closefile();

