input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) numeric xaaab ; xaaab = -2.0 * 1cm; pair zaaac ; zaaac = ( xaaab , 0 ) ; numeric xaaad ; xaaad = 2.0 * 1cm; pair zaaae ; zaaae = ( xaaad , 0 ) ; path paaaf ; paaaf:=zaaac -- zaaae; draw paaaf ; pair zaaag ; zaaag = ( 0 , xaaab ) ; pair zaaah ; zaaah = ( 0 , xaaad ) ; path paaai ; paaai:=zaaag -- zaaah; draw paaai ; numeric xaaaj ; xaaaj = 1cm / 20.0; pair zaaak ; zaaak = ( xaaab , xaaaj ) ; numeric xaaal ; xaaal = 1cm / -20.0; pair zaaam ; zaaam = ( xaaab , xaaal ) ; path paaan ; paaan:=zaaak -- zaaam; draw paaan ; pair zaaao ; zaaao = ( xaaaj , xaaab ) ; pair zaaap ; zaaap = ( xaaal , xaaab ) ; path paaaq ; paaaq:=zaaao -- zaaap; draw paaaq ; numeric xaaar ; xaaar = -1.0 * 1cm; pair zaaas ; zaaas = ( xaaar , xaaaj ) ; pair zaaat ; zaaat = ( xaaar , xaaal ) ; path paaau ; paaau:=zaaas -- zaaat; draw paaau ; pair zaaav ; zaaav = ( xaaaj , xaaar ) ; pair zaaaw ; zaaaw = ( xaaal , xaaar ) ; path paaax ; paaax:=zaaav -- zaaaw; draw paaax ; numeric xaaay ; xaaay = 0 * 1cm; pair zaaaz ; zaaaz = ( xaaay , xaaaj ) ; pair zaaba ; zaaba = ( xaaay , xaaal ) ; path paabb ; paabb:=zaaaz -- zaaba; draw paabb ; pair zaabc ; zaabc = ( xaaaj , xaaay ) ; pair zaabd ; zaabd = ( xaaal , xaaay ) ; path paabe ; paabe:=zaabc -- zaabd; draw paabe ; numeric xaabf ; xaabf = 1.0 * 1cm; pair zaabg ; zaabg = ( xaabf , xaaaj ) ; pair zaabh ; zaabh = ( xaabf , xaaal ) ; path paabi ; paabi:=zaabg -- zaabh; draw paabi ; pair zaabj ; zaabj = ( xaaaj , xaabf ) ; pair zaabk ; zaabk = ( xaaal , xaabf ) ; path paabl ; paabl:=zaabj -- zaabk; draw paabl ; pair zaabm ; zaabm = ( xaaad , xaaaj ) ; pair zaabn ; zaabn = ( xaaad , xaaal ) ; path paabo ; paabo:=zaabm -- zaabn; draw paabo ; pair zaabp ; zaabp = ( xaaaj , xaaad ) ; pair zaabq ; zaabq = ( xaaal , xaaad ) ; path paabr ; paabr:=zaabp -- zaabq; draw paabr ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;