input TEX;

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

beginfig(1);
pickup pencircle scaled t;
draw  for theta=0 step 10 until 350:  (2u,u)+(3u*dir(theta))..  endfor  cycle;
pickup pencircle scaled 0.5;
drawarrow (-2.5u,0)--(6.5u,0);
drawarrow (0,-3.5u)--(0,5.5u);
picture l;
for i=-2 upto 6:
	if (i<>0):
		draw (i*u,0)--(i*u,0.3u);
		if (i<>-1) and (i<>5):
			l:=thelabel.bot(TEX("$\scriptstyle" & decimal(i) & "$"), (i*u,0));
			unfill bbox l;
			draw l;
		fi
	fi
endfor
for i=-3 upto 5:
	if (i<>0):
		draw (0,i*u)--(0.3u,i*u);
		if (i<>-1) and (i<>3):
			l:=thelabel.lft(TEX("$\scriptstyle" & decimal(i) & "$"), (0,i*u));
			unfill bbox l;
			draw l;
		fi
	fi
endfor
label.rt(btex$x$etex, (6.5u,0));
label.top(btex$y$etex, (0,5.5u));
endfig;

bye