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 = ( 3cm , 0 ) ;
pair zaaad ;
 zaaad = ( 1cm , 2cm ) ;
path paaae ;
 paaae:=zaaab -- zaaac -- zaaad -- cycle;
draw paaae     ;
 numeric xaaaf ;
 xaaaf = 1.0 * 0.5mm;
numeric xaaag ;
 xaaag = 4.5mm + xaaaf;
pair zaaah ;
 zaaah = zaaac - zaaab;
numeric xaaai ;
 xaaai = angle zaaah ;
pair zaaaj ;
 zaaaj = zaaad - zaaab;
numeric xaaak ;
 xaaak = angle zaaaj ;
pair zaaal ;
 zaaal = dir xaaai ;
pair zaaam ;
 zaaam = xaaag * zaaal;
pair zaaan ;
 zaaan = zaaab + zaaam;
numeric xaaao ;
 xaaao = xaaai + 90.0;
pair zaaap ;
 zaaap = dir xaaao ;
pair zaaaq ;
 zaaaq = dir xaaak ;
pair zaaar ;
 zaaar = xaaag * zaaaq;
pair zaaas ;
 zaaas = zaaab + zaaar;
numeric xaaat ;
 xaaat = xaaak + 90.0;
pair zaaau ;
 zaaau = dir xaaat ;
path paaav ;
 paaav:=zaaan { zaaap }  .. zaaas { zaaau }  ;
draw paaav     ;
 numeric xaaaw ;
 xaaaw = 2.0 * 0.5mm;
numeric xaaax ;
 xaaax = 4.5mm + xaaaw;
pair zaaay ;
 zaaay = zaaad - zaaac;
numeric xaaaz ;
 xaaaz = angle zaaay ;
pair zaaba ;
 zaaba = zaaab - zaaac;
numeric xaabb ;
 xaabb = angle zaaba ;
pair zaabc ;
 zaabc = dir xaaaz ;
pair zaabd ;
 zaabd = xaaax * zaabc;
pair zaabe ;
 zaabe = zaaac + zaabd;
numeric xaabf ;
 xaabf = xaaaz + 90.0;
pair zaabg ;
 zaabg = dir xaabf ;
pair zaabh ;
 zaabh = dir xaabb ;
pair zaabi ;
 zaabi = xaaax * zaabh;
pair zaabj ;
 zaabj = zaaac + zaabi;
numeric xaabk ;
 xaabk = xaabb + 90.0;
pair zaabl ;
 zaabl = dir xaabk ;
path paabm ;
 paabm:=zaabe { zaabg }  .. zaabj { zaabl }  ;
draw paabm     ;
 numeric xaabn ;
 numeric xaabo ;
 pair zaabp ;
 numeric xaabq ;
 pair zaabr ;
 numeric xaabs ;
 pair zaabt ;
 pair zaabu ;
 zaabu = xaaag * zaabc;
pair zaabv ;
 zaabv = zaaac + zaabu;
numeric xaabw ;
 pair zaabx ;
 pair zaaby ;
 pair zaabz ;
 zaabz = xaaag * zaabh;
pair zaaca ;
 zaaca = zaaac + zaabz;
numeric xaacb ;
 pair zaacc ;
 path paacd ;
 paacd:=zaabv { zaabg }  .. zaaca { zaabl }  ;
draw paacd     ;
 numeric xaace ;
 xaace = 3.0 * 0.5mm;
numeric xaacf ;
 xaacf = 4.5mm + xaace;
pair zaacg ;
 zaacg = zaaab - zaaad;
numeric xaach ;
 xaach = angle zaacg ;
pair zaaci ;
 zaaci = zaaac - zaaad;
numeric xaacj ;
 xaacj = angle zaaci ;
pair zaack ;
 zaack = dir xaach ;
pair zaacl ;
 zaacl = xaacf * zaack;
pair zaacm ;
 zaacm = zaaad + zaacl;
numeric xaacn ;
 xaacn = xaach + 90.0;
pair zaaco ;
 zaaco = dir xaacn ;
pair zaacp ;
 zaacp = dir xaacj ;
pair zaacq ;
 zaacq = xaacf * zaacp;
pair zaacr ;
 zaacr = zaaad + zaacq;
numeric xaacs ;
 xaacs = xaacj + 90.0;
pair zaact ;
 zaact = dir xaacs ;
path paacu ;
 paacu:=zaacm { zaaco }  .. zaacr { zaact }  ;
draw paacu     ;
 numeric xaacv ;
 numeric xaacw ;
 pair zaacx ;
 numeric xaacy ;
 pair zaacz ;
 numeric xaada ;
 pair zaadb ;
 pair zaadc ;
 zaadc = xaaax * zaack;
pair zaadd ;
 zaadd = zaaad + zaadc;
numeric xaade ;
 pair zaadf ;
 pair zaadg ;
 pair zaadh ;
 zaadh = xaaax * zaacp;
pair zaadi ;
 zaadi = zaaad + zaadh;
numeric xaadj ;
 pair zaadk ;
 path paadl ;
 paadl:=zaadd { zaaco }  .. zaadi { zaact }  ;
draw paadl     ;
 numeric xaadm ;
 numeric xaadn ;
 pair zaado ;
 numeric xaadp ;
 pair zaadq ;
 numeric xaadr ;
 pair zaads ;
 pair zaadt ;
 zaadt = xaaag * zaack;
pair zaadu ;
 zaadu = zaaad + zaadt;
numeric xaadv ;
 pair zaadw ;
 pair zaadx ;
 pair zaady ;
 zaady = xaaag * zaacp;
pair zaadz ;
 zaadz = zaaad + zaady;
numeric xaaea ;
 pair zaaeb ;
 path paaec ;
 paaec:=zaadu { zaaco }  .. zaadz { zaact }  ;
draw paaec     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;