\startMPinclusions

color coral	;
coral:= (255/255,127/255,80/255) ;

color dorange ;
dorange := (255/255, 140/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 ;




%draw original object "sail" in red
path p;
p := (2,2) -- (4,1) -- (5,5) .. (3.5,4) .. (2,2) .. cycle ;
draw p withcolor .2white withpen pencircle scaled 1/10 ;
fill p withcolor .8red;



% rotate 120 degrees around (5,5)
fill p rotatedaround ((5,5),120) withcolor red ;









currentpicture := currentpicture xsized 10cm ;



setbounds currentpicture to boundingbox currentpicture enlarged 1/2cm ;



		



\stopMPpage
