\startMPpage


linejoin := mitered ;


picture oblsquare ; 
	oblsquare:= image (
		path blsq;
       	blsq := (1/3,0) -- (1,1/3) -- (2/3,1) -- (0,2/3) -- (1/3,0) -- cycle;
	   	fill blsq withcolor black ;
	);
	
	



picture squaremos ;
	squaremos := image (
		draw oblsquare ;
		draw oblsquare reflectedabout ((1,0),(1,1));
		draw oblsquare shifted (2,0) ;
		draw oblsquare reflectedabout ((0,1),(1,1));
		draw oblsquare shifted (1,1) ;
		draw oblsquare reflectedabout ((0,1),(1,1)) shifted (2,0);
		draw oblsquare shifted (0,2) ;
		draw oblsquare reflectedabout ((0,1),(1,1)) shifted (1,1);
		draw oblsquare shifted (2,2) ;
		draw boundingbox currentpicture
		enlarged 1/24		
		withpen pencircle scaled (1/12) ;
	);


draw squaremos ;


currentpicture := currentpicture xsized 5cm ;



\stopMPpage