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 , 0 ) ; path paaad ; paaad:=zaaab -- zaaac; path paaae ; paaae:=paaad ; numeric xaaaf ; xaaaf = -1.0 * 1cm; pair zaaag ; zaaag = ( 1cm , xaaaf ) ; pen qaaah ; qaaah = pencircle scaled 1bp ; drawarrow paaae withpen qaaah ; pair zaaai ; zaaai = -1.0 * zaaag; path paaaj ; paaaj:=paaae shifted zaaai ; path paaak ; paaak:=paaaj rotated 90.0 ; path paaal ; paaal:=paaak shifted zaaag ; drawarrow paaal ; pair zaaam ; path paaan ; path paaao ; path paaap ; pen qaaaq ; drawarrow paaal withpen qaaah dashed withdots ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;