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;