input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = ( 50.0 , 50.0 ) ;
pair zaaac ;
 zaaac = zaaab rotated 90.0 ;
pair zaaad ;
 zaaad = zaaac rotated 90.0 ;
pair zaaae ;
 zaaae = zaaad rotated 90.0 ;
path paaaf ;
 paaaf:=zaaab -- zaaac -- zaaad -- zaaae -- cycle;
pair zaaag ;
 zaaag = ( 0.0099945068359375 ) [ zaaad , zaaae ] ;
pair zaaah ;
 zaaah = ( 0.0099945068359375 ) [ zaaac , zaaab ] ;
path paaai ;
 paaai:=zaaac -- zaaad -- zaaae -- zaaag -- zaaah -- cycle;
pair zaaaj ;
 zaaaj = zaaab - zaaac;
pair zaaak ;
 zaaak = 0.0 * zaaaj;
path paaal ;
 paaal:=paaai shifted zaaak ;
color caaam ;
 caaam = 0.0 * white;
fill paaal  withcolor caaam    ;
 pair zaaan ;
 zaaan = 0.0099945068359375 * zaaaj;
path paaao ;
 paaao:=paaai shifted zaaan ;
color caaap ;
 caaap = 0.0099945068359375 * white;
fill paaao  withcolor caaap    ;
 pair zaaaq ;
 zaaaq = 0.019989013671875 * zaaaj;
path paaar ;
 paaar:=paaai shifted zaaaq ;
color caaas ;
 caaas = 0.019989013671875 * white;
fill paaar  withcolor caaas    ;
 pair zaaat ;
 zaaat = 0.029998779296875 * zaaaj;
path paaau ;
 paaau:=paaai shifted zaaat ;
color caaav ;
 caaav = 0.029998779296875 * white;
fill paaau  withcolor caaav    ;
 pair zaaaw ;
 zaaaw = 0.0399932861328125 * zaaaj;
path paaax ;
 paaax:=paaai shifted zaaaw ;
color caaay ;
 caaay = 0.0399932861328125 * white;
fill paaax  withcolor caaay    ;
 pair zaaaz ;
 zaaaz = 0.04998779296875 * zaaaj;
path paaba ;
 paaba:=paaai shifted zaaaz ;
color caabb ;
 caabb = 0.04998779296875 * white;
fill paaba  withcolor caabb    ;
 pair zaabc ;
 zaabc = 0.05999755859375 * zaaaj;
path paabd ;
 paabd:=paaai shifted zaabc ;
color caabe ;
 caabe = 0.05999755859375 * white;
fill paabd  withcolor caabe    ;
 pair zaabf ;
 zaabf = 0.0699920654296875 * zaaaj;
path paabg ;
 paabg:=paaai shifted zaabf ;
color caabh ;
 caabh = 0.0699920654296875 * white;
fill paabg  withcolor caabh    ;
 pair zaabi ;
 zaabi = 0.079986572265625 * zaaaj;
path paabj ;
 paabj:=paaai shifted zaabi ;
color caabk ;
 caabk = 0.079986572265625 * white;
fill paabj  withcolor caabk    ;
 pair zaabl ;
 zaabl = 0.089996337890625 * zaaaj;
path paabm ;
 paabm:=paaai shifted zaabl ;
color caabn ;
 caabn = 0.089996337890625 * white;
fill paabm  withcolor caabn    ;
 pair zaabo ;
 zaabo = 0.0999908447265625 * zaaaj;
path paabp ;
 paabp:=paaai shifted zaabo ;
color caabq ;
 caabq = 0.0999908447265625 * white;
fill paabp  withcolor caabq    ;
 pair zaabr ;
 zaabr = 0.1099853515625 * zaaaj;
path paabs ;
 paabs:=paaai shifted zaabr ;
color caabt ;
 caabt = 0.1099853515625 * white;
fill paabs  withcolor caabt    ;
 pair zaabu ;
 zaabu = 0.1199951171875 * zaaaj;
path paabv ;
 paabv:=paaai shifted zaabu ;
color caabw ;
 caabw = 0.1199951171875 * white;
fill paabv  withcolor caabw    ;
 pair zaabx ;
 zaabx = 0.1299896240234375 * zaaaj;
path paaby ;
 paaby:=paaai shifted zaabx ;
color caabz ;
 caabz = 0.1299896240234375 * white;
fill paaby  withcolor caabz    ;
 pair zaaca ;
 zaaca = 0.1399993896484375 * zaaaj;
path paacb ;
 paacb:=paaai shifted zaaca ;
color caacc ;
 caacc = 0.1399993896484375 * white;
fill paacb  withcolor caacc    ;
 pair zaacd ;
 zaacd = 0.149993896484375 * zaaaj;
path paace ;
 paace:=paaai shifted zaacd ;
color caacf ;
 caacf = 0.149993896484375 * white;
fill paace  withcolor caacf    ;
 pair zaacg ;
 zaacg = 0.1599884033203125 * zaaaj;
path paach ;
 paach:=paaai shifted zaacg ;
color caaci ;
 caaci = 0.1599884033203125 * white;
fill paach  withcolor caaci    ;
 pair zaacj ;
 zaacj = 0.1699981689453125 * zaaaj;
path paack ;
 paack:=paaai shifted zaacj ;
color caacl ;
 caacl = 0.1699981689453125 * white;
fill paack  withcolor caacl    ;
 pair zaacm ;
 zaacm = 0.17999267578125 * zaaaj;
path paacn ;
 paacn:=paaai shifted zaacm ;
color caaco ;
 caaco = 0.17999267578125 * white;
fill paacn  withcolor caaco    ;
 pair zaacp ;
 zaacp = 0.1899871826171875 * zaaaj;
path paacq ;
 paacq:=paaai shifted zaacp ;
color caacr ;
 caacr = 0.1899871826171875 * white;
fill paacq  withcolor caacr    ;
 pair zaacs ;
 zaacs = 0.1999969482421875 * zaaaj;
path paact ;
 paact:=paaai shifted zaacs ;
color caacu ;
 caacu = 0.1999969482421875 * white;
fill paact  withcolor caacu    ;
 pair zaacv ;
 zaacv = 0.209991455078125 * zaaaj;
path paacw ;
 paacw:=paaai shifted zaacv ;
color caacx ;
 caacx = 0.209991455078125 * white;
fill paacw  withcolor caacx    ;
 pair zaacy ;
 zaacy = 0.2199859619140625 * zaaaj;
path paacz ;
 paacz:=paaai shifted zaacy ;
color caada ;
 caada = 0.2199859619140625 * white;
fill paacz  withcolor caada    ;
 pair zaadb ;
 zaadb = 0.2299957275390625 * zaaaj;
path paadc ;
 paadc:=paaai shifted zaadb ;
color caadd ;
 caadd = 0.2299957275390625 * white;
fill paadc  withcolor caadd    ;
 pair zaade ;
 zaade = 0.239990234375 * zaaaj;
path paadf ;
 paadf:=paaai shifted zaade ;
color caadg ;
 caadg = 0.239990234375 * white;
fill paadf  withcolor caadg    ;
 pair zaadh ;
 zaadh = 0.25 * zaaaj;
path paadi ;
 paadi:=paaai shifted zaadh ;
color caadj ;
 caadj = 0.25 * white;
fill paadi  withcolor caadj    ;
 pair zaadk ;
 zaadk = 0.2599945068359375 * zaaaj;
path paadl ;
 paadl:=paaai shifted zaadk ;
color caadm ;
 caadm = 0.2599945068359375 * white;
fill paadl  withcolor caadm    ;
 pair zaadn ;
 zaadn = 0.269989013671875 * zaaaj;
path paado ;
 paado:=paaai shifted zaadn ;
color caadp ;
 caadp = 0.269989013671875 * white;
fill paado  withcolor caadp    ;
 pair zaadq ;
 zaadq = 0.279998779296875 * zaaaj;
path paadr ;
 paadr:=paaai shifted zaadq ;
color caads ;
 caads = 0.279998779296875 * white;
fill paadr  withcolor caads    ;
 pair zaadt ;
 zaadt = 0.2899932861328125 * zaaaj;
path paadu ;
 paadu:=paaai shifted zaadt ;
color caadv ;
 caadv = 0.2899932861328125 * white;
fill paadu  withcolor caadv    ;
 pair zaadw ;
 zaadw = 0.29998779296875 * zaaaj;
path paadx ;
 paadx:=paaai shifted zaadw ;
color caady ;
 caady = 0.29998779296875 * white;
fill paadx  withcolor caady    ;
 pair zaadz ;
 zaadz = 0.30999755859375 * zaaaj;
path paaea ;
 paaea:=paaai shifted zaadz ;
color caaeb ;
 caaeb = 0.30999755859375 * white;
fill paaea  withcolor caaeb    ;
 pair zaaec ;
 zaaec = 0.3199920654296875 * zaaaj;
path paaed ;
 paaed:=paaai shifted zaaec ;
color caaee ;
 caaee = 0.3199920654296875 * white;
fill paaed  withcolor caaee    ;
 pair zaaef ;
 zaaef = 0.329986572265625 * zaaaj;
path paaeg ;
 paaeg:=paaai shifted zaaef ;
color caaeh ;
 caaeh = 0.329986572265625 * white;
fill paaeg  withcolor caaeh    ;
 pair zaaei ;
 zaaei = 0.339996337890625 * zaaaj;
path paaej ;
 paaej:=paaai shifted zaaei ;
color caaek ;
 caaek = 0.339996337890625 * white;
fill paaej  withcolor caaek    ;
 pair zaael ;
 zaael = 0.3499908447265625 * zaaaj;
path paaem ;
 paaem:=paaai shifted zaael ;
color caaen ;
 caaen = 0.3499908447265625 * white;
fill paaem  withcolor caaen    ;
 pair zaaeo ;
 zaaeo = 0.3599853515625 * zaaaj;
path paaep ;
 paaep:=paaai shifted zaaeo ;
color caaeq ;
 caaeq = 0.3599853515625 * white;
fill paaep  withcolor caaeq    ;
 pair zaaer ;
 zaaer = 0.3699951171875 * zaaaj;
path paaes ;
 paaes:=paaai shifted zaaer ;
color caaet ;
 caaet = 0.3699951171875 * white;
fill paaes  withcolor caaet    ;
 pair zaaeu ;
 zaaeu = 0.3799896240234375 * zaaaj;
path paaev ;
 paaev:=paaai shifted zaaeu ;
color caaew ;
 caaew = 0.3799896240234375 * white;
fill paaev  withcolor caaew    ;
 pair zaaex ;
 zaaex = 0.3899993896484375 * zaaaj;
path paaey ;
 paaey:=paaai shifted zaaex ;
color caaez ;
 caaez = 0.3899993896484375 * white;
fill paaey  withcolor caaez    ;
 pair zaafa ;
 zaafa = 0.399993896484375 * zaaaj;
path paafb ;
 paafb:=paaai shifted zaafa ;
color caafc ;
 caafc = 0.399993896484375 * white;
fill paafb  withcolor caafc    ;
 pair zaafd ;
 zaafd = 0.4099884033203125 * zaaaj;
path paafe ;
 paafe:=paaai shifted zaafd ;
color caaff ;
 caaff = 0.4099884033203125 * white;
fill paafe  withcolor caaff    ;
 pair zaafg ;
 zaafg = 0.4199981689453125 * zaaaj;
path paafh ;
 paafh:=paaai shifted zaafg ;
color caafi ;
 caafi = 0.4199981689453125 * white;
fill paafh  withcolor caafi    ;
 pair zaafj ;
 zaafj = 0.42999267578125 * zaaaj;
path paafk ;
 paafk:=paaai shifted zaafj ;
color caafl ;
 caafl = 0.42999267578125 * white;
fill paafk  withcolor caafl    ;
 pair zaafm ;
 zaafm = 0.4399871826171875 * zaaaj;
path paafn ;
 paafn:=paaai shifted zaafm ;
color caafo ;
 caafo = 0.4399871826171875 * white;
fill paafn  withcolor caafo    ;
 pair zaafp ;
 zaafp = 0.4499969482421875 * zaaaj;
path paafq ;
 paafq:=paaai shifted zaafp ;
color caafr ;
 caafr = 0.4499969482421875 * white;
fill paafq  withcolor caafr    ;
 pair zaafs ;
 zaafs = 0.459991455078125 * zaaaj;
path paaft ;
 paaft:=paaai shifted zaafs ;
color caafu ;
 caafu = 0.459991455078125 * white;
fill paaft  withcolor caafu    ;
 pair zaafv ;
 zaafv = 0.4699859619140625 * zaaaj;
path paafw ;
 paafw:=paaai shifted zaafv ;
color caafx ;
 caafx = 0.4699859619140625 * white;
fill paafw  withcolor caafx    ;
 pair zaafy ;
 zaafy = 0.4799957275390625 * zaaaj;
path paafz ;
 paafz:=paaai shifted zaafy ;
color caaga ;
 caaga = 0.4799957275390625 * white;
fill paafz  withcolor caaga    ;
 pair zaagb ;
 zaagb = 0.489990234375 * zaaaj;
path paagc ;
 paagc:=paaai shifted zaagb ;
color caagd ;
 caagd = 0.489990234375 * white;
fill paagc  withcolor caagd    ;
 pair zaage ;
 zaage = 0.5 * zaaaj;
path paagf ;
 paagf:=paaai shifted zaage ;
color caagg ;
 caagg = 0.5 * white;
fill paagf  withcolor caagg    ;
 pair zaagh ;
 zaagh = 0.5099945068359375 * zaaaj;
path paagi ;
 paagi:=paaai shifted zaagh ;
color caagj ;
 caagj = 0.5099945068359375 * white;
fill paagi  withcolor caagj    ;
 pair zaagk ;
 zaagk = 0.519989013671875 * zaaaj;
path paagl ;
 paagl:=paaai shifted zaagk ;
color caagm ;
 caagm = 0.519989013671875 * white;
fill paagl  withcolor caagm    ;
 pair zaagn ;
 zaagn = 0.529998779296875 * zaaaj;
path paago ;
 paago:=paaai shifted zaagn ;
color caagp ;
 caagp = 0.529998779296875 * white;
fill paago  withcolor caagp    ;
 pair zaagq ;
 zaagq = 0.5399932861328125 * zaaaj;
path paagr ;
 paagr:=paaai shifted zaagq ;
color caags ;
 caags = 0.5399932861328125 * white;
fill paagr  withcolor caags    ;
 pair zaagt ;
 zaagt = 0.54998779296875 * zaaaj;
path paagu ;
 paagu:=paaai shifted zaagt ;
color caagv ;
 caagv = 0.54998779296875 * white;
fill paagu  withcolor caagv    ;
 pair zaagw ;
 zaagw = 0.55999755859375 * zaaaj;
path paagx ;
 paagx:=paaai shifted zaagw ;
color caagy ;
 caagy = 0.55999755859375 * white;
fill paagx  withcolor caagy    ;
 pair zaagz ;
 zaagz = 0.5699920654296875 * zaaaj;
path paaha ;
 paaha:=paaai shifted zaagz ;
color caahb ;
 caahb = 0.5699920654296875 * white;
fill paaha  withcolor caahb    ;
 pair zaahc ;
 zaahc = 0.579986572265625 * zaaaj;
path paahd ;
 paahd:=paaai shifted zaahc ;
color caahe ;
 caahe = 0.579986572265625 * white;
fill paahd  withcolor caahe    ;
 pair zaahf ;
 zaahf = 0.589996337890625 * zaaaj;
path paahg ;
 paahg:=paaai shifted zaahf ;
color caahh ;
 caahh = 0.589996337890625 * white;
fill paahg  withcolor caahh    ;
 pair zaahi ;
 zaahi = 0.5999908447265625 * zaaaj;
path paahj ;
 paahj:=paaai shifted zaahi ;
color caahk ;
 caahk = 0.5999908447265625 * white;
fill paahj  withcolor caahk    ;
 pair zaahl ;
 zaahl = 0.6099853515625 * zaaaj;
path paahm ;
 paahm:=paaai shifted zaahl ;
color caahn ;
 caahn = 0.6099853515625 * white;
fill paahm  withcolor caahn    ;
 pair zaaho ;
 zaaho = 0.6199951171875 * zaaaj;
path paahp ;
 paahp:=paaai shifted zaaho ;
color caahq ;
 caahq = 0.6199951171875 * white;
fill paahp  withcolor caahq    ;
 pair zaahr ;
 zaahr = 0.6299896240234375 * zaaaj;
path paahs ;
 paahs:=paaai shifted zaahr ;
color caaht ;
 caaht = 0.6299896240234375 * white;
fill paahs  withcolor caaht    ;
 pair zaahu ;
 zaahu = 0.6399993896484375 * zaaaj;
path paahv ;
 paahv:=paaai shifted zaahu ;
color caahw ;
 caahw = 0.6399993896484375 * white;
fill paahv  withcolor caahw    ;
 pair zaahx ;
 zaahx = 0.649993896484375 * zaaaj;
path paahy ;
 paahy:=paaai shifted zaahx ;
color caahz ;
 caahz = 0.649993896484375 * white;
fill paahy  withcolor caahz    ;
 pair zaaia ;
 zaaia = 0.6599884033203125 * zaaaj;
path paaib ;
 paaib:=paaai shifted zaaia ;
color caaic ;
 caaic = 0.6599884033203125 * white;
fill paaib  withcolor caaic    ;
 pair zaaid ;
 zaaid = 0.6699981689453125 * zaaaj;
path paaie ;
 paaie:=paaai shifted zaaid ;
color caaif ;
 caaif = 0.6699981689453125 * white;
fill paaie  withcolor caaif    ;
 pair zaaig ;
 zaaig = 0.67999267578125 * zaaaj;
path paaih ;
 paaih:=paaai shifted zaaig ;
color caaii ;
 caaii = 0.67999267578125 * white;
fill paaih  withcolor caaii    ;
 pair zaaij ;
 zaaij = 0.6899871826171875 * zaaaj;
path paaik ;
 paaik:=paaai shifted zaaij ;
color caail ;
 caail = 0.6899871826171875 * white;
fill paaik  withcolor caail    ;
 pair zaaim ;
 zaaim = 0.6999969482421875 * zaaaj;
path paain ;
 paain:=paaai shifted zaaim ;
color caaio ;
 caaio = 0.6999969482421875 * white;
fill paain  withcolor caaio    ;
 pair zaaip ;
 zaaip = 0.709991455078125 * zaaaj;
path paaiq ;
 paaiq:=paaai shifted zaaip ;
color caair ;
 caair = 0.709991455078125 * white;
fill paaiq  withcolor caair    ;
 pair zaais ;
 zaais = 0.7199859619140625 * zaaaj;
path paait ;
 paait:=paaai shifted zaais ;
color caaiu ;
 caaiu = 0.7199859619140625 * white;
fill paait  withcolor caaiu    ;
 pair zaaiv ;
 zaaiv = 0.7299957275390625 * zaaaj;
path paaiw ;
 paaiw:=paaai shifted zaaiv ;
color caaix ;
 caaix = 0.7299957275390625 * white;
fill paaiw  withcolor caaix    ;
 pair zaaiy ;
 zaaiy = 0.739990234375 * zaaaj;
path paaiz ;
 paaiz:=paaai shifted zaaiy ;
color caaja ;
 caaja = 0.739990234375 * white;
fill paaiz  withcolor caaja    ;
 pair zaajb ;
 zaajb = 0.75 * zaaaj;
path paajc ;
 paajc:=paaai shifted zaajb ;
color caajd ;
 caajd = 0.75 * white;
fill paajc  withcolor caajd    ;
 pair zaaje ;
 zaaje = 0.7599945068359375 * zaaaj;
path paajf ;
 paajf:=paaai shifted zaaje ;
color caajg ;
 caajg = 0.7599945068359375 * white;
fill paajf  withcolor caajg    ;
 pair zaajh ;
 zaajh = 0.769989013671875 * zaaaj;
path paaji ;
 paaji:=paaai shifted zaajh ;
color caajj ;
 caajj = 0.769989013671875 * white;
fill paaji  withcolor caajj    ;
 pair zaajk ;
 zaajk = 0.779998779296875 * zaaaj;
path paajl ;
 paajl:=paaai shifted zaajk ;
color caajm ;
 caajm = 0.779998779296875 * white;
fill paajl  withcolor caajm    ;
 pair zaajn ;
 zaajn = 0.7899932861328125 * zaaaj;
path paajo ;
 paajo:=paaai shifted zaajn ;
color caajp ;
 caajp = 0.7899932861328125 * white;
fill paajo  withcolor caajp    ;
 pair zaajq ;
 zaajq = 0.79998779296875 * zaaaj;
path paajr ;
 paajr:=paaai shifted zaajq ;
color caajs ;
 caajs = 0.79998779296875 * white;
fill paajr  withcolor caajs    ;
 pair zaajt ;
 zaajt = 0.80999755859375 * zaaaj;
path paaju ;
 paaju:=paaai shifted zaajt ;
color caajv ;
 caajv = 0.80999755859375 * white;
fill paaju  withcolor caajv    ;
 pair zaajw ;
 zaajw = 0.8199920654296875 * zaaaj;
path paajx ;
 paajx:=paaai shifted zaajw ;
color caajy ;
 caajy = 0.8199920654296875 * white;
fill paajx  withcolor caajy    ;
 pair zaajz ;
 zaajz = 0.829986572265625 * zaaaj;
path paaka ;
 paaka:=paaai shifted zaajz ;
color caakb ;
 caakb = 0.829986572265625 * white;
fill paaka  withcolor caakb    ;
 pair zaakc ;
 zaakc = 0.839996337890625 * zaaaj;
path paakd ;
 paakd:=paaai shifted zaakc ;
color caake ;
 caake = 0.839996337890625 * white;
fill paakd  withcolor caake    ;
 pair zaakf ;
 zaakf = 0.8499908447265625 * zaaaj;
path paakg ;
 paakg:=paaai shifted zaakf ;
color caakh ;
 caakh = 0.8499908447265625 * white;
fill paakg  withcolor caakh    ;
 pair zaaki ;
 zaaki = 0.8599853515625 * zaaaj;
path paakj ;
 paakj:=paaai shifted zaaki ;
color caakk ;
 caakk = 0.8599853515625 * white;
fill paakj  withcolor caakk    ;
 pair zaakl ;
 zaakl = 0.8699951171875 * zaaaj;
path paakm ;
 paakm:=paaai shifted zaakl ;
color caakn ;
 caakn = 0.8699951171875 * white;
fill paakm  withcolor caakn    ;
 pair zaako ;
 zaako = 0.8799896240234375 * zaaaj;
path paakp ;
 paakp:=paaai shifted zaako ;
color caakq ;
 caakq = 0.8799896240234375 * white;
fill paakp  withcolor caakq    ;
 pair zaakr ;
 zaakr = 0.8899993896484375 * zaaaj;
path paaks ;
 paaks:=paaai shifted zaakr ;
color caakt ;
 caakt = 0.8899993896484375 * white;
fill paaks  withcolor caakt    ;
 pair zaaku ;
 zaaku = 0.899993896484375 * zaaaj;
path paakv ;
 paakv:=paaai shifted zaaku ;
color caakw ;
 caakw = 0.899993896484375 * white;
fill paakv  withcolor caakw    ;
 pair zaakx ;
 zaakx = 0.9099884033203125 * zaaaj;
path paaky ;
 paaky:=paaai shifted zaakx ;
color caakz ;
 caakz = 0.9099884033203125 * white;
fill paaky  withcolor caakz    ;
 pair zaala ;
 zaala = 0.9199981689453125 * zaaaj;
path paalb ;
 paalb:=paaai shifted zaala ;
color caalc ;
 caalc = 0.9199981689453125 * white;
fill paalb  withcolor caalc    ;
 pair zaald ;
 zaald = 0.92999267578125 * zaaaj;
path paale ;
 paale:=paaai shifted zaald ;
color caalf ;
 caalf = 0.92999267578125 * white;
fill paale  withcolor caalf    ;
 pair zaalg ;
 zaalg = 0.9399871826171875 * zaaaj;
path paalh ;
 paalh:=paaai shifted zaalg ;
color caali ;
 caali = 0.9399871826171875 * white;
fill paalh  withcolor caali    ;
 pair zaalj ;
 zaalj = 0.9499969482421875 * zaaaj;
path paalk ;
 paalk:=paaai shifted zaalj ;
color caall ;
 caall = 0.9499969482421875 * white;
fill paalk  withcolor caall    ;
 pair zaalm ;
 zaalm = 0.959991455078125 * zaaaj;
path paaln ;
 paaln:=paaai shifted zaalm ;
color caalo ;
 caalo = 0.959991455078125 * white;
fill paaln  withcolor caalo    ;
 pair zaalp ;
 zaalp = 0.9699859619140625 * zaaaj;
path paalq ;
 paalq:=paaai shifted zaalp ;
color caalr ;
 caalr = 0.9699859619140625 * white;
fill paalq  withcolor caalr    ;
 pair zaals ;
 zaals = 0.9799957275390625 * zaaaj;
path paalt ;
 paalt:=paaai shifted zaals ;
color caalu ;
 caalu = 0.9799957275390625 * white;
fill paalt  withcolor caalu    ;
 pair zaalv ;
 zaalv = 0.989990234375 * zaaaj;
path paalw ;
 paalw:=paaai shifted zaalv ;
color caalx ;
 caalx = 0.989990234375 * white;
fill paalw  withcolor caalx    ;
 pen qaaly ;
 qaaly = pencircle scaled 2bp ;
draw paaaf   withpen qaaly   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;