input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; pair zaaac ; zaaac = ( 2cm , 2cm ) ; numeric xaaad ; xaaad = angle zaaac ; numeric xaaae ; xaaae = 0 * xaaad; path paaaf ; paaaf:=zaaab -- zaaac; path paaag ; paaag:=paaaf rotated xaaae ; drawarrow paaag ; numeric xaaah ; numeric xaaai ; xaaai = -0.3333282470703125 * xaaad; path paaaj ; path paaak ; paaak:=paaaf rotated xaaai ; drawarrow paaak ; numeric xaaal ; numeric xaaam ; xaaam = -0.666656494140625 * xaaad; path paaan ; path paaao ; paaao:=paaaf rotated xaaam ; drawarrow paaao ; numeric xaaap ; numeric xaaaq ; xaaaq = -1.0 * xaaad; path paaar ; path paaas ; paaas:=paaaf rotated xaaaq ; drawarrow paaas ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;