input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; numeric xaaac ; xaaac = 2.0 * 2cm; numeric xaaad ; xaaad = -0.5 * 2cm; pair zaaae ; zaaae = ( xaaac , xaaad ) ; pair zaaaf ; zaaaf = ( 2cm , 2cm ) ; pair zaaag ; pair zaaah ; path paaai ; paaai:=zaaab -- zaaae -- zaaaf -- cycle; draw paaai ; pair zaaaj ; zaaaj = zaaag - zaaab; numeric xaaak ; pair zaaal ; zaaal = zaaae - zaaab; numeric xaaam ; xaaam = angle zaaal ; pair zaaan ; zaaan = zaaaf - zaaab; numeric xaaao ; xaaao = angle zaaan ; numeric xaaap ; xaaap = xaaam - xaaao; numeric xaaaq ; xaaaq = 0.5 * xaaap; pair zaaar ; zaaar = zaaab - zaaaf; pair zaaas ; zaaas = zaaar rotated xaaaq ; pair zaaat ; zaaat = xaaak * zaaas; zaaaj = zaaat; pair zaaau ; zaaau = zaaag - zaaae; numeric xaaav ; pair zaaaw ; zaaaw = zaaaf - zaaae; numeric xaaax ; xaaax = angle zaaaw ; pair zaaay ; zaaay = zaaab - zaaae; numeric xaaaz ; xaaaz = angle zaaay ; numeric xaaba ; xaaba = xaaax - xaaaz; numeric xaabb ; xaabb = 0.5 * xaaba; pair zaabc ; zaabc = zaaal rotated xaabb ; pair zaabd ; zaabd = xaaav * zaabc; zaaau = zaabd; path paabe ; paabe:=zaaag -- zaaab; draw paabe ; path paabf ; paabf:=zaaag -- zaaae; draw paabf ; path paabg ; paabg:=zaaag -- zaaaf; draw paabg ; pair zaabh ; zaabh = zaaag - zaaah; numeric xaabi ; pair zaabj ; zaabj = zaaae - zaaaf; pair zaabk ; zaabk = zaabj rotated 90.0 ; pair zaabl ; zaabl = xaabi * zaabk; zaabh = zaabl; numeric xaabm ; pair zaabn ; zaabn = ( xaabm ) [ zaaae , zaaaf ] ; zaaah = zaabn; numeric xaabo ; xaabo = abs zaabh ; numeric xaabp ; xaabp = 2.0 * xaabo; path paabq ; paabq:=makepath pencircle ; path paabr ; paabr:=paabq scaled xaabp ; path paabs ; paabs:=paabr shifted zaaag ; draw paabs ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;