\startMPinclusions

color gold	;
gold := (255/255,215/255,0/255) ;


picture grid ;
grid :=
	image (
		width := 10 ;
		height := 10 ;
		draw vlingrid (0, 10, 1, width, height) withcolor .6white ;
		draw hlingrid (0, 10, 1, height, width ) withcolor .6white ;
		linecap := squared ;
	) ;


\stopMPinclusions


\startMPpage
draw grid withpen pencircle scaled 1/20;


% circles 1
draw fullcircle scaled 4 withpen pencircle scaled 0.2 withcolor red;

% circles 2
draw (3,3) withcolor gold ;
draw fullcircle scaled 4 shifted (5,5) withpen pencircle scaled 0.2 withcolor gold;

draw (3,3) -- (5,5) dashed evenly scaled 0.1 withpen pencircle scaled 0.1 withcolor 0.8black ;


% UNITSQUARE
fill unitsquare scaled 2 shifted (8,1) withcolor .8blue ; 
draw (8,1) withcolor .4blue ;


currentpicture := currentpicture xsized 10cm ;



setbounds currentpicture to boundingbox currentpicture enlarged 1/2cm ;



		



\stopMPpage
