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 = ( 1cm , 2cm ) ; pair zaaad ; zaaad = ( 2cm , 1cm ) ; numeric xaaae ; xaaae = angle zaaac ; numeric xaaaf ; xaaaf = angle zaaad ; numeric xaaag ; xaaag = xaaae - xaaaf; path paaah ; paaah:=zaaab -- zaaac; drawarrow paaah ; path paaai ; paaai:=zaaab -- zaaad; drawarrow paaai ; numeric xaaaj ; xaaaj = 0 * xaaag; path paaak ; path paaal ; paaal:=paaah rotated xaaaj ; drawarrow paaal ; numeric xaaam ; xaaam = -0.3333282470703125 * xaaag; path paaan ; path paaao ; paaao:=paaah rotated xaaam ; drawarrow paaao ; numeric xaaap ; xaaap = -0.666656494140625 * xaaag; path paaaq ; path paaar ; paaar:=paaah rotated xaaap ; drawarrow paaar ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;