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 ) ; pair zaaae ; zaaae = ( 0.5 ) [ zaaac , zaaad ] ; pair zaaaf ; zaaaf = ( 0.5 ) [ zaaab , zaaad ] ; pair zaaag ; zaaag = ( 0.5 ) [ zaaab , zaaac ] ; pair zaaah ; numeric xaaai ; pair zaaaj ; zaaaj = ( 0.5 ) [ zaaaf , zaaag ] ; pair zaaak ; zaaak = zaaah - zaaaj; numeric xaaal ; pair zaaam ; zaaam = zaaaf - zaaag; pair zaaan ; zaaan = zaaam rotated 90.0 ; pair zaaao ; zaaao = xaaal * zaaan; zaaak = zaaao; pair zaaap ; zaaap = ( 0.5 ) [ zaaae , zaaaf ] ; pair zaaaq ; zaaaq = zaaah - zaaap; numeric xaaar ; pair zaaas ; zaaas = zaaae - zaaaf; pair zaaat ; zaaat = zaaas rotated 90.0 ; pair zaaau ; zaaau = xaaar * zaaat; zaaaq = zaaau; path paaav ; paaav:=zaaab -- zaaac -- zaaad -- cycle; draw paaav ; pen qaaaw ; qaaaw = pencircle scaled 4bp ; draw zaaae withpen qaaaw ; draw zaaaf withpen qaaaw ; draw zaaag withpen qaaaw ; pair zaaax ; zaaax = zaaah - zaaae; numeric xaaay ; xaaay = abs zaaax ; numeric xaaaz ; xaaaz = 2.0 * xaaay; path paaba ; paaba:=makepath pencircle ; path paabb ; paabb:=paaba scaled xaaaz ; path paabc ; paabc:=paabb shifted zaaah ; draw paabc ; pair zaabd ; pair zaabe ; pair zaabf ; pair zaabg ; pair zaabh ; zaabh = zaabd - zaaab; numeric xaabi ; pair zaabj ; zaabj = zaaac - zaaad; pair zaabk ; zaabk = zaabj rotated 90.0 ; pair zaabl ; zaabl = xaabi * zaabk; zaabh = zaabl; numeric xaabm ; pair zaabn ; zaabn = ( xaabm ) [ zaaac , zaaad ] ; zaabd = zaabn; pair zaabo ; zaabo = zaabe - zaaac; numeric xaabp ; pair zaabq ; zaabq = zaaad - zaaab; pair zaabr ; zaabr = zaabq rotated 90.0 ; pair zaabs ; zaabs = xaabp * zaabr; zaabo = zaabs; numeric xaabt ; pair zaabu ; zaabu = ( xaabt ) [ zaaad , zaaab ] ; zaabe = zaabu; pair zaabv ; zaabv = zaabf - zaaad; numeric xaabw ; pair zaabx ; zaabx = zaaab - zaaac; pair zaaby ; zaaby = zaabx rotated 90.0 ; pair zaabz ; zaabz = xaabw * zaaby; zaabv = zaabz; numeric xaaca ; pair zaacb ; zaacb = ( xaaca ) [ zaaab , zaaac ] ; zaabf = zaacb; path paacc ; paacc:=zaaab -- zaabd; draw paacc ; path paacd ; paacd:=zaaac -- zaabe; draw paacd ; path paace ; paace:=zaaad -- zaabf; draw paace ; draw zaabd withpen qaaaw ; draw zaabe withpen qaaaw ; draw zaabf withpen qaaaw ; numeric xaacf ; pair zaacg ; zaacg = ( xaacf ) [ zaaab , zaabd ] ; zaabg = zaacg; numeric xaach ; pair zaaci ; zaaci = ( xaach ) [ zaaac , zaabe ] ; zaabg = zaaci; pair zaacj ; zaacj = ( 0.5 ) [ zaaab , zaabg ] ; draw zaacj withpen qaaaw ; pair zaack ; zaack = ( 0.5 ) [ zaaac , zaabg ] ; draw zaack withpen qaaaw ; pair zaacl ; zaacl = ( 0.5 ) [ zaaad , zaabg ] ; draw zaacl withpen qaaaw ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;