\startMPinclusions
	input boxes;
\stopMPinclusions

\startMPpage
	u := 1cm;
	
	circleit.fact(\sometxt{\bf Fakt});
	fact.c = (0u, 0u);
	fact.dx = fact.dy;

	drawboxed(fact);

	for i = 45 step 72 until 360:
		circleit.dim[i](\sometxt{Dimension});
		dim[i].c = 3u*right rotated i;
		dim[i].dx = dim[i].dy;
		drawoptions(dashed evenly);
		drawboxed(dim[i]);
		drawoptions();
		drawarrow fact.c -- dim[i].c cutbefore bpath.fact cutafter bpath.dim[i];
	endfor;
\stopMPpage