
\startMPinclusions

ps:= 8mm;

def bg(expr bw,bh,bc) =
	path b ; b := (0,0) -- (bw*ps,0) -- (bw*ps,bh*ps) -- (0,bh*ps) -- (0,0) -- cycle;
	fill b withcolor bc;
enddef;
 
\stopMPinclusions



\startMPpage


bg (4,4,black) ;
	
		
picture loopcomp ;
	loopcomp :=
		image (
			interim linecap := squared;
			draw ((9/16*ps),(2+7/16)*ps) -- (0.5*ps,2.5*ps) -- (0.5*ps,3.5*ps) -- (1.5*ps,3.5*ps) -- ((2+9/16)*ps, (2+7/16)*ps)
			withcolor white withpen pencircle scaled (9/16*ps) ;
			) ;

draw loopcomp ;
draw loopcomp rotated 90 shifted (4*ps,0);
draw loopcomp rotated 180 shifted (4*ps,4*ps);
draw loopcomp rotated 270 shifted (0,4*ps);



\stopMPpage

