input TEX;

u=0.7cm;
t=1.5pt;
r=2pt;

beginfig(1);
for i=1 upto 5:
	draw (-5.5u,-i*u)--(5.5u,-i*u);
	draw (-5.5u,i*u)--(5.5u,i*u);
	draw (-i*u,-5.5u)--(-i*u,5.5u);
	draw (i*u,-5.5u)--(i*u,5.5u);
endfor
pickup pencircle scaled t;
drawarrow (-6u,0)--(6u,0);
drawarrow (0,-6u)--(0,6u);
picture l;
for i=1 upto 5:
	l:=thelabel.top(TEX("$\scriptstyle" & decimal(-i) & "$"), (-i*u,0));
	unfill bbox l;
	draw l;
	l:=thelabel.top(TEX("$\scriptstyle" & decimal(i) & "$"), (i*u,0));
	unfill bbox l;
	draw l;
	l:=thelabel.rt(TEX("$\scriptstyle" & decimal(-i) & "$"), (0,-i*u));
	unfill bbox l;
	draw l;
	l:=thelabel.rt(TEX("$\scriptstyle" & decimal(i) & "$"), (0,i*u));
	unfill bbox l;
	draw l;
endfor
label.rt(btex$x$etex, (6u,0));
label.top(btex$y$etex, (0,6u));
endfig;

beginfig(2);
z0=(0,0);
z1=z0+(3u,0);
z2=z1+(z1-z0);
z3=z0+(0,4u);
z4=z3+(z1-z0);
z5=z4+(z1-z0);
z6=z3+(0,6pt);
z7=z5+(z6-z3);
draw z0--z2--z5--z3--z0;
draw z1--z4;
drawdblarrow z6--z7;
picture l;
l:=thelabel(btex$w$etex, 0.5[z6,z7]);
unfill bbox l;
draw l;
label.lft(btex$h$etex, 0.5[z0,z3]);
endfig;

bye