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 / 10.0; pair zaaak ; zaaak = ( xaaab , xaaaj ) ; numeric xaaal ; xaaal = 1cm / -10.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 ; numeric xaabs ; xaabs = 1cm / 20.0; pair zaabt ; zaabt = ( xaaab , xaabs ) ; numeric xaabu ; xaabu = 1cm / -20.0; pair zaabv ; zaabv = ( xaaab , xaabu ) ; path paabw ; paabw:=zaabt -- zaabv; draw paabw ; pair zaabx ; zaabx = ( xaabs , xaaab ) ; pair zaaby ; zaaby = ( xaabu , xaaab ) ; path paabz ; paabz:=zaabx -- zaaby; draw paabz ; numeric xaaca ; xaaca = -1.79998779296875 * 1cm; pair zaacb ; zaacb = ( xaaca , xaabs ) ; pair zaacc ; zaacc = ( xaaca , xaabu ) ; path paacd ; paacd:=zaacb -- zaacc; draw paacd ; pair zaace ; zaace = ( xaabs , xaaca ) ; pair zaacf ; zaacf = ( xaabu , xaaca ) ; path paacg ; paacg:=zaace -- zaacf; draw paacg ; numeric xaach ; xaach = -1.5999908447265625 * 1cm; pair zaaci ; zaaci = ( xaach , xaabs ) ; pair zaacj ; zaacj = ( xaach , xaabu ) ; path paack ; paack:=zaaci -- zaacj; draw paack ; pair zaacl ; zaacl = ( xaabs , xaach ) ; pair zaacm ; zaacm = ( xaabu , xaach ) ; path paacn ; paacn:=zaacl -- zaacm; draw paacn ; numeric xaaco ; xaaco = -1.399993896484375 * 1cm; pair zaacp ; zaacp = ( xaaco , xaabs ) ; pair zaacq ; zaacq = ( xaaco , xaabu ) ; path paacr ; paacr:=zaacp -- zaacq; draw paacr ; pair zaacs ; zaacs = ( xaabs , xaaco ) ; pair zaact ; zaact = ( xaabu , xaaco ) ; path paacu ; paacu:=zaacs -- zaact; draw paacu ; numeric xaacv ; xaacv = -1.1999969482421875 * 1cm; pair zaacw ; zaacw = ( xaacv , xaabs ) ; pair zaacx ; zaacx = ( xaacv , xaabu ) ; path paacy ; paacy:=zaacw -- zaacx; draw paacy ; pair zaacz ; zaacz = ( xaabs , xaacv ) ; pair zaada ; zaada = ( xaabu , xaacv ) ; path paadb ; paadb:=zaacz -- zaada; draw paadb ; pair zaadc ; zaadc = ( xaaar , xaabs ) ; pair zaadd ; zaadd = ( xaaar , xaabu ) ; path paade ; paade:=zaadc -- zaadd; draw paade ; pair zaadf ; zaadf = ( xaabs , xaaar ) ; pair zaadg ; zaadg = ( xaabu , xaaar ) ; path paadh ; paadh:=zaadf -- zaadg; draw paadh ; numeric xaadi ; xaadi = -0.79998779296875 * 1cm; pair zaadj ; zaadj = ( xaadi , xaabs ) ; pair zaadk ; zaadk = ( xaadi , xaabu ) ; path paadl ; paadl:=zaadj -- zaadk; draw paadl ; pair zaadm ; zaadm = ( xaabs , xaadi ) ; pair zaadn ; zaadn = ( xaabu , xaadi ) ; path paado ; paado:=zaadm -- zaadn; draw paado ; numeric xaadp ; xaadp = -0.5999908447265625 * 1cm; pair zaadq ; zaadq = ( xaadp , xaabs ) ; pair zaadr ; zaadr = ( xaadp , xaabu ) ; path paads ; paads:=zaadq -- zaadr; draw paads ; pair zaadt ; zaadt = ( xaabs , xaadp ) ; pair zaadu ; zaadu = ( xaabu , xaadp ) ; path paadv ; paadv:=zaadt -- zaadu; draw paadv ; numeric xaadw ; xaadw = -0.399993896484375 * 1cm; pair zaadx ; zaadx = ( xaadw , xaabs ) ; pair zaady ; zaady = ( xaadw , xaabu ) ; path paadz ; paadz:=zaadx -- zaady; draw paadz ; pair zaaea ; zaaea = ( xaabs , xaadw ) ; pair zaaeb ; zaaeb = ( xaabu , xaadw ) ; path paaec ; paaec:=zaaea -- zaaeb; draw paaec ; numeric xaaed ; xaaed = -0.1999969482421875 * 1cm; pair zaaee ; zaaee = ( xaaed , xaabs ) ; pair zaaef ; zaaef = ( xaaed , xaabu ) ; path paaeg ; paaeg:=zaaee -- zaaef; draw paaeg ; pair zaaeh ; zaaeh = ( xaabs , xaaed ) ; pair zaaei ; zaaei = ( xaabu , xaaed ) ; path paaej ; paaej:=zaaeh -- zaaei; draw paaej ; numeric xaaek ; xaaek = -0.0 * 1cm; pair zaael ; zaael = ( xaaek , xaabs ) ; pair zaaem ; zaaem = ( xaaek , xaabu ) ; path paaen ; paaen:=zaael -- zaaem; draw paaen ; pair zaaeo ; zaaeo = ( xaabs , xaaek ) ; pair zaaep ; zaaep = ( xaabu , xaaek ) ; path paaeq ; paaeq:=zaaeo -- zaaep; draw paaeq ; numeric xaaer ; xaaer = 0.1999969482421875 * 1cm; pair zaaes ; zaaes = ( xaaer , xaabs ) ; pair zaaet ; zaaet = ( xaaer , xaabu ) ; path paaeu ; paaeu:=zaaes -- zaaet; draw paaeu ; pair zaaev ; zaaev = ( xaabs , xaaer ) ; pair zaaew ; zaaew = ( xaabu , xaaer ) ; path paaex ; paaex:=zaaev -- zaaew; draw paaex ; numeric xaaey ; xaaey = 0.399993896484375 * 1cm; pair zaaez ; zaaez = ( xaaey , xaabs ) ; pair zaafa ; zaafa = ( xaaey , xaabu ) ; path paafb ; paafb:=zaaez -- zaafa; draw paafb ; pair zaafc ; zaafc = ( xaabs , xaaey ) ; pair zaafd ; zaafd = ( xaabu , xaaey ) ; path paafe ; paafe:=zaafc -- zaafd; draw paafe ; numeric xaaff ; xaaff = 0.5999908447265625 * 1cm; pair zaafg ; zaafg = ( xaaff , xaabs ) ; pair zaafh ; zaafh = ( xaaff , xaabu ) ; path paafi ; paafi:=zaafg -- zaafh; draw paafi ; pair zaafj ; zaafj = ( xaabs , xaaff ) ; pair zaafk ; zaafk = ( xaabu , xaaff ) ; path paafl ; paafl:=zaafj -- zaafk; draw paafl ; numeric xaafm ; xaafm = 0.79998779296875 * 1cm; pair zaafn ; zaafn = ( xaafm , xaabs ) ; pair zaafo ; zaafo = ( xaafm , xaabu ) ; path paafp ; paafp:=zaafn -- zaafo; draw paafp ; pair zaafq ; zaafq = ( xaabs , xaafm ) ; pair zaafr ; zaafr = ( xaabu , xaafm ) ; path paafs ; paafs:=zaafq -- zaafr; draw paafs ; numeric xaaft ; xaaft = 0.9999847412109375 * 1cm; pair zaafu ; zaafu = ( xaaft , xaabs ) ; pair zaafv ; zaafv = ( xaaft , xaabu ) ; path paafw ; paafw:=zaafu -- zaafv; draw paafw ; pair zaafx ; zaafx = ( xaabs , xaaft ) ; pair zaafy ; zaafy = ( xaabu , xaaft ) ; path paafz ; paafz:=zaafx -- zaafy; draw paafz ; numeric xaaga ; xaaga = 1.1999969482421875 * 1cm; pair zaagb ; zaagb = ( xaaga , xaabs ) ; pair zaagc ; zaagc = ( xaaga , xaabu ) ; path paagd ; paagd:=zaagb -- zaagc; draw paagd ; pair zaage ; zaage = ( xaabs , xaaga ) ; pair zaagf ; zaagf = ( xaabu , xaaga ) ; path paagg ; paagg:=zaage -- zaagf; draw paagg ; numeric xaagh ; xaagh = 1.399993896484375 * 1cm; pair zaagi ; zaagi = ( xaagh , xaabs ) ; pair zaagj ; zaagj = ( xaagh , xaabu ) ; path paagk ; paagk:=zaagi -- zaagj; draw paagk ; pair zaagl ; zaagl = ( xaabs , xaagh ) ; pair zaagm ; zaagm = ( xaabu , xaagh ) ; path paagn ; paagn:=zaagl -- zaagm; draw paagn ; numeric xaago ; xaago = 1.5999908447265625 * 1cm; pair zaagp ; zaagp = ( xaago , xaabs ) ; pair zaagq ; zaagq = ( xaago , xaabu ) ; path paagr ; paagr:=zaagp -- zaagq; draw paagr ; pair zaags ; zaags = ( xaabs , xaago ) ; pair zaagt ; zaagt = ( xaabu , xaago ) ; path paagu ; paagu:=zaags -- zaagt; draw paagu ; numeric xaagv ; xaagv = 1.79998779296875 * 1cm; pair zaagw ; zaagw = ( xaagv , xaabs ) ; pair zaagx ; zaagx = ( xaagv , xaabu ) ; path paagy ; paagy:=zaagw -- zaagx; draw paagy ; pair zaagz ; zaagz = ( xaabs , xaagv ) ; pair zaaha ; zaaha = ( xaabu , xaagv ) ; path paahb ; paahb:=zaagz -- zaaha; draw paahb ; numeric xaahc ; xaahc = 1.9999847412109375 * 1cm; pair zaahd ; zaahd = ( xaahc , xaabs ) ; pair zaahe ; zaahe = ( xaahc , xaabu ) ; path paahf ; paahf:=zaahd -- zaahe; draw paahf ; pair zaahg ; zaahg = ( xaabs , xaahc ) ; pair zaahh ; zaahh = ( xaabu , xaahc ) ; path paahi ; paahi:=zaahg -- zaahh; draw paahi ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;