input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) numeric xaaab ; xaaab = -1.0 ** 2.0 ; numeric xaaac ; xaaac = 1.0 + xaaab; pair zaaad ; zaaad = ( -1.0 , xaaac ) ; numeric xaaae ; xaaae = -0.899993896484375 ** 2.0 ; numeric xaaaf ; xaaaf = 1.0 + xaaae; pair zaaag ; zaaag = ( -0.899993896484375 , xaaaf ) ; numeric xaaah ; xaaah = -0.79998779296875 ** 2.0 ; numeric xaaai ; xaaai = 1.0 + xaaah; pair zaaaj ; zaaaj = ( -0.79998779296875 , xaaai ) ; numeric xaaak ; xaaak = -0.6999969482421875 ** 2.0 ; numeric xaaal ; xaaal = 1.0 + xaaak; pair zaaam ; zaaam = ( -0.6999969482421875 , xaaal ) ; numeric xaaan ; xaaan = -0.5999908447265625 ** 2.0 ; numeric xaaao ; xaaao = 1.0 + xaaan; pair zaaap ; zaaap = ( -0.5999908447265625 , xaaao ) ; numeric xaaaq ; xaaaq = -0.5 ** 2.0 ; numeric xaaar ; xaaar = 1.0 + xaaaq; pair zaaas ; zaaas = ( -0.5 , xaaar ) ; numeric xaaat ; xaaat = -0.399993896484375 ** 2.0 ; numeric xaaau ; xaaau = 1.0 + xaaat; pair zaaav ; zaaav = ( -0.399993896484375 , xaaau ) ; numeric xaaaw ; xaaaw = -0.29998779296875 ** 2.0 ; numeric xaaax ; xaaax = 1.0 + xaaaw; pair zaaay ; zaaay = ( -0.29998779296875 , xaaax ) ; numeric xaaaz ; xaaaz = -0.1999969482421875 ** 2.0 ; numeric xaaba ; xaaba = 1.0 + xaaaz; pair zaabb ; zaabb = ( -0.1999969482421875 , xaaba ) ; numeric xaabc ; xaabc = -0.0999908447265625 ** 2.0 ; numeric xaabd ; xaabd = 1.0 + xaabc; pair zaabe ; zaabe = ( -0.0999908447265625 , xaabd ) ; numeric xaabf ; xaabf = -0.0 ** 2.0 ; numeric xaabg ; xaabg = 1.0 + xaabf; pair zaabh ; zaabh = ( -0.0 , xaabg ) ; numeric xaabi ; xaabi = 0.0999908447265625 ** 2.0 ; numeric xaabj ; xaabj = 1.0 + xaabi; pair zaabk ; zaabk = ( 0.0999908447265625 , xaabj ) ; numeric xaabl ; xaabl = 0.1999969482421875 ** 2.0 ; numeric xaabm ; xaabm = 1.0 + xaabl; pair zaabn ; zaabn = ( 0.1999969482421875 , xaabm ) ; numeric xaabo ; xaabo = 0.29998779296875 ** 2.0 ; numeric xaabp ; xaabp = 1.0 + xaabo; pair zaabq ; zaabq = ( 0.29998779296875 , xaabp ) ; numeric xaabr ; xaabr = 0.399993896484375 ** 2.0 ; numeric xaabs ; xaabs = 1.0 + xaabr; pair zaabt ; zaabt = ( 0.399993896484375 , xaabs ) ; numeric xaabu ; xaabu = 0.4999847412109375 ** 2.0 ; numeric xaabv ; xaabv = 1.0 + xaabu; pair zaabw ; zaabw = ( 0.4999847412109375 , xaabv ) ; numeric xaabx ; xaabx = 0.5999908447265625 ** 2.0 ; numeric xaaby ; xaaby = 1.0 + xaabx; pair zaabz ; zaabz = ( 0.5999908447265625 , xaaby ) ; numeric xaaca ; xaaca = 0.6999969482421875 ** 2.0 ; numeric xaacb ; xaacb = 1.0 + xaaca; pair zaacc ; zaacc = ( 0.6999969482421875 , xaacb ) ; numeric xaacd ; xaacd = 0.79998779296875 ** 2.0 ; numeric xaace ; xaace = 1.0 + xaacd; pair zaacf ; zaacf = ( 0.79998779296875 , xaace ) ; numeric xaacg ; xaacg = 0.899993896484375 ** 2.0 ; numeric xaach ; xaach = 1.0 + xaacg; pair zaaci ; zaaci = ( 0.899993896484375 , xaach ) ; numeric xaacj ; xaacj = 0.9999847412109375 ** 2.0 ; numeric xaack ; xaack = 1.0 + xaacj; pair zaacl ; zaacl = ( 0.9999847412109375 , xaack ) ; numeric xaacm ; xaacm = 1.0999908447265625 ** 2.0 ; numeric xaacn ; xaacn = 1.0 + xaacm; pair zaaco ; zaaco = ( 1.0999908447265625 , xaacn ) ; numeric xaacp ; xaacp = 1.1999969482421875 ** 2.0 ; numeric xaacq ; xaacq = 1.0 + xaacp; pair zaacr ; zaacr = ( 1.1999969482421875 , xaacq ) ; numeric xaacs ; xaacs = 1.29998779296875 ** 2.0 ; numeric xaact ; xaact = 1.0 + xaacs; pair zaacu ; zaacu = ( 1.29998779296875 , xaact ) ; numeric xaacv ; xaacv = 1.399993896484375 ** 2.0 ; numeric xaacw ; xaacw = 1.0 + xaacv; pair zaacx ; zaacx = ( 1.399993896484375 , xaacw ) ; path paacy ; paacy:=zaaad .. zaaag .. zaaaj .. zaaam .. zaaap .. zaaas .. zaaav .. zaaay .. zaabb .. zaabe .. zaabh .. zaabk .. zaabn .. zaabq .. zaabt .. zaabw .. zaabz .. zaacc .. zaacf .. zaaci .. zaacl .. zaaco .. zaacr .. zaacu .. zaacx; path paacz ; paacz:=paacy scaled 1cm ; numeric xaada ; xaada = -0.5 - 1.0; numeric xaadb ; xaadb = xaada ** 2.0 ; numeric xaadc ; xaadc = 2.0 - xaadb; pair zaadd ; zaadd = ( -0.5 , xaadc ) ; numeric xaade ; xaade = -0.399993896484375 - 1.0; numeric xaadf ; xaadf = xaade ** 2.0 ; numeric xaadg ; xaadg = 2.0 - xaadf; pair zaadh ; zaadh = ( -0.399993896484375 , xaadg ) ; numeric xaadi ; xaadi = -0.29998779296875 - 1.0; numeric xaadj ; xaadj = xaadi ** 2.0 ; numeric xaadk ; xaadk = 2.0 - xaadj; pair zaadl ; zaadl = ( -0.29998779296875 , xaadk ) ; numeric xaadm ; xaadm = -0.1999969482421875 - 1.0; numeric xaadn ; xaadn = xaadm ** 2.0 ; numeric xaado ; xaado = 2.0 - xaadn; pair zaadp ; zaadp = ( -0.1999969482421875 , xaado ) ; numeric xaadq ; xaadq = -0.0999908447265625 - 1.0; numeric xaadr ; xaadr = xaadq ** 2.0 ; numeric xaads ; xaads = 2.0 - xaadr; pair zaadt ; zaadt = ( -0.0999908447265625 , xaads ) ; numeric xaadu ; xaadu = -0.0 - 1.0; numeric xaadv ; xaadv = xaadu ** 2.0 ; numeric xaadw ; xaadw = 2.0 - xaadv; pair zaadx ; zaadx = ( -0.0 , xaadw ) ; numeric xaady ; xaady = 0.0999908447265625 - 1.0; numeric xaadz ; xaadz = xaady ** 2.0 ; numeric xaaea ; xaaea = 2.0 - xaadz; pair zaaeb ; zaaeb = ( 0.0999908447265625 , xaaea ) ; numeric xaaec ; xaaec = 0.1999969482421875 - 1.0; numeric xaaed ; xaaed = xaaec ** 2.0 ; numeric xaaee ; xaaee = 2.0 - xaaed; pair zaaef ; zaaef = ( 0.1999969482421875 , xaaee ) ; numeric xaaeg ; xaaeg = 0.29998779296875 - 1.0; numeric xaaeh ; xaaeh = xaaeg ** 2.0 ; numeric xaaei ; xaaei = 2.0 - xaaeh; pair zaaej ; zaaej = ( 0.29998779296875 , xaaei ) ; numeric xaaek ; xaaek = 0.399993896484375 - 1.0; numeric xaael ; xaael = xaaek ** 2.0 ; numeric xaaem ; xaaem = 2.0 - xaael; pair zaaen ; zaaen = ( 0.399993896484375 , xaaem ) ; numeric xaaeo ; xaaeo = 0.5 - 1.0; numeric xaaep ; xaaep = xaaeo ** 2.0 ; numeric xaaeq ; xaaeq = 2.0 - xaaep; pair zaaer ; zaaer = ( 0.5 , xaaeq ) ; numeric xaaes ; xaaes = 0.5999908447265625 - 1.0; numeric xaaet ; xaaet = xaaes ** 2.0 ; numeric xaaeu ; xaaeu = 2.0 - xaaet; pair zaaev ; zaaev = ( 0.5999908447265625 , xaaeu ) ; numeric xaaew ; xaaew = 0.6999969482421875 - 1.0; numeric xaaex ; xaaex = xaaew ** 2.0 ; numeric xaaey ; xaaey = 2.0 - xaaex; pair zaaez ; zaaez = ( 0.6999969482421875 , xaaey ) ; numeric xaafa ; xaafa = 0.79998779296875 - 1.0; numeric xaafb ; xaafb = xaafa ** 2.0 ; numeric xaafc ; xaafc = 2.0 - xaafb; pair zaafd ; zaafd = ( 0.79998779296875 , xaafc ) ; numeric xaafe ; xaafe = 0.899993896484375 - 1.0; numeric xaaff ; xaaff = xaafe ** 2.0 ; numeric xaafg ; xaafg = 2.0 - xaaff; pair zaafh ; zaafh = ( 0.899993896484375 , xaafg ) ; numeric xaafi ; xaafi = 0.9999847412109375 - 1.0; numeric xaafj ; xaafj = xaafi ** 2.0 ; numeric xaafk ; xaafk = 2.0 - xaafj; pair zaafl ; zaafl = ( 0.9999847412109375 , xaafk ) ; numeric xaafm ; xaafm = 1.0999908447265625 - 1.0; numeric xaafn ; xaafn = xaafm ** 2.0 ; numeric xaafo ; xaafo = 2.0 - xaafn; pair zaafp ; zaafp = ( 1.0999908447265625 , xaafo ) ; numeric xaafq ; xaafq = 1.1999969482421875 - 1.0; numeric xaafr ; xaafr = xaafq ** 2.0 ; numeric xaafs ; xaafs = 2.0 - xaafr; pair zaaft ; zaaft = ( 1.1999969482421875 , xaafs ) ; numeric xaafu ; xaafu = 1.29998779296875 - 1.0; numeric xaafv ; xaafv = xaafu ** 2.0 ; numeric xaafw ; xaafw = 2.0 - xaafv; pair zaafx ; zaafx = ( 1.29998779296875 , xaafw ) ; numeric xaafy ; xaafy = 1.399993896484375 - 1.0; numeric xaafz ; xaafz = xaafy ** 2.0 ; numeric xaaga ; xaaga = 2.0 - xaafz; pair zaagb ; zaagb = ( 1.399993896484375 , xaaga ) ; numeric xaagc ; xaagc = 1.5 - 1.0; numeric xaagd ; xaagd = xaagc ** 2.0 ; numeric xaage ; xaage = 2.0 - xaagd; pair zaagf ; zaagf = ( 1.5 , xaage ) ; numeric xaagg ; xaagg = 1.5999908447265625 - 1.0; numeric xaagh ; xaagh = xaagg ** 2.0 ; numeric xaagi ; xaagi = 2.0 - xaagh; pair zaagj ; zaagj = ( 1.5999908447265625 , xaagi ) ; numeric xaagk ; xaagk = 1.6999969482421875 - 1.0; numeric xaagl ; xaagl = xaagk ** 2.0 ; numeric xaagm ; xaagm = 2.0 - xaagl; pair zaagn ; zaagn = ( 1.6999969482421875 , xaagm ) ; numeric xaago ; xaago = 1.79998779296875 - 1.0; numeric xaagp ; xaagp = xaago ** 2.0 ; numeric xaagq ; xaagq = 2.0 - xaagp; pair zaagr ; zaagr = ( 1.79998779296875 , xaagq ) ; numeric xaags ; xaags = 1.899993896484375 - 1.0; numeric xaagt ; xaagt = xaags ** 2.0 ; numeric xaagu ; xaagu = 2.0 - xaagt; pair zaagv ; zaagv = ( 1.899993896484375 , xaagu ) ; path paagw ; paagw:=zaadd .. zaadh .. zaadl .. zaadp .. zaadt .. zaadx .. zaaeb .. zaaef .. zaaej .. zaaen .. zaaer .. zaaev .. zaaez .. zaafd .. zaafh .. zaafl .. zaafp .. zaaft .. zaafx .. zaagb .. zaagf .. zaagj .. zaagn .. zaagr .. zaagv; path paagx ; paagx:=paagw scaled 1cm ; path paagy ; paagy:=reverse paagx ; pair zaagz ; zaagz = paacz intersectiontimes paagy ; pair zaaha ; zaaha = paagy intersectiontimes paacz ; numeric xaahb ; xaahb = xpart zaagz ; numeric xaahc ; xaahc = xpart zaaha ; numeric xaahd ; xaahd = ypart zaagz ; numeric xaahe ; xaahe = ypart zaaha ; path paahf ; paahf:=subpath ( xaahb , xaahe ) of paacz ; path paahg ; paahg:=subpath ( xaahc , xaahd ) of paagy ; path paahh ; paahh:=paahf .. paahg .. cycle; color caahi ; caahi = red + green; fill paahh withcolor caahi ; pen qaahj ; qaahj = pencircle scaled 1bp ; draw paacz withpen qaahj ; draw paagx withpen qaahj ; pair zaahk ; zaahk = ( -1cm , 0 ) ; pair zaahl ; zaahl = ( 2cm , 0 ) ; path paahm ; paahm:=zaahk -- zaahl; draw paahm ; numeric xaahn ; xaahn = xaadc * 1cm; pair zaaho ; zaaho = ( 0 , xaahn ) ; numeric xaahp ; xaahp = 1.5 ** 2.0 ; numeric xaahq ; xaahq = 1.0 + xaahp; numeric xaahr ; xaahr = xaahq * 1cm; pair zaahs ; zaahs = ( 0 , xaahr ) ; path paaht ; paaht:=zaaho -- zaahs; draw paaht ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;