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

beginfig(1)
numeric xaaab ;
 xaaab = 1.0 * 2cm;
path paaac ;
 paaac:=makepath pencircle ;
path paaad ;
 paaad:=paaac scaled xaaab ;
color caaae ;
 caaae = 1.0 * white;
fill paaad  withcolor caaae    ;
 numeric xaaaf ;
 xaaaf = 0.989990234375 * 2cm;
path paaag ;
 paaag:=paaac scaled xaaaf ;
color caaah ;
 caaah = 0.989990234375 * white;
fill paaag  withcolor caaah    ;
 numeric xaaai ;
 xaaai = 0.9799957275390625 * 2cm;
path paaaj ;
 paaaj:=paaac scaled xaaai ;
color caaak ;
 caaak = 0.9799957275390625 * white;
fill paaaj  withcolor caaak    ;
 numeric xaaal ;
 xaaal = 0.9699859619140625 * 2cm;
path paaam ;
 paaam:=paaac scaled xaaal ;
color caaan ;
 caaan = 0.9699859619140625 * white;
fill paaam  withcolor caaan    ;
 numeric xaaao ;
 xaaao = 0.959991455078125 * 2cm;
path paaap ;
 paaap:=paaac scaled xaaao ;
color caaaq ;
 caaaq = 0.959991455078125 * white;
fill paaap  withcolor caaaq    ;
 numeric xaaar ;
 xaaar = 0.9499969482421875 * 2cm;
path paaas ;
 paaas:=paaac scaled xaaar ;
color caaat ;
 caaat = 0.9499969482421875 * white;
fill paaas  withcolor caaat    ;
 numeric xaaau ;
 xaaau = 0.9399871826171875 * 2cm;
path paaav ;
 paaav:=paaac scaled xaaau ;
color caaaw ;
 caaaw = 0.9399871826171875 * white;
fill paaav  withcolor caaaw    ;
 numeric xaaax ;
 xaaax = 0.92999267578125 * 2cm;
path paaay ;
 paaay:=paaac scaled xaaax ;
color caaaz ;
 caaaz = 0.92999267578125 * white;
fill paaay  withcolor caaaz    ;
 numeric xaaba ;
 xaaba = 0.9199981689453125 * 2cm;
path paabb ;
 paabb:=paaac scaled xaaba ;
color caabc ;
 caabc = 0.9199981689453125 * white;
fill paabb  withcolor caabc    ;
 numeric xaabd ;
 xaabd = 0.9099884033203125 * 2cm;
path paabe ;
 paabe:=paaac scaled xaabd ;
color caabf ;
 caabf = 0.9099884033203125 * white;
fill paabe  withcolor caabf    ;
 numeric xaabg ;
 xaabg = 0.899993896484375 * 2cm;
path paabh ;
 paabh:=paaac scaled xaabg ;
color caabi ;
 caabi = 0.899993896484375 * white;
fill paabh  withcolor caabi    ;
 numeric xaabj ;
 xaabj = 0.8899993896484375 * 2cm;
path paabk ;
 paabk:=paaac scaled xaabj ;
color caabl ;
 caabl = 0.8899993896484375 * white;
fill paabk  withcolor caabl    ;
 numeric xaabm ;
 xaabm = 0.8799896240234375 * 2cm;
path paabn ;
 paabn:=paaac scaled xaabm ;
color caabo ;
 caabo = 0.8799896240234375 * white;
fill paabn  withcolor caabo    ;
 numeric xaabp ;
 xaabp = 0.8699951171875 * 2cm;
path paabq ;
 paabq:=paaac scaled xaabp ;
color caabr ;
 caabr = 0.8699951171875 * white;
fill paabq  withcolor caabr    ;
 numeric xaabs ;
 xaabs = 0.8599853515625 * 2cm;
path paabt ;
 paabt:=paaac scaled xaabs ;
color caabu ;
 caabu = 0.8599853515625 * white;
fill paabt  withcolor caabu    ;
 numeric xaabv ;
 xaabv = 0.8499908447265625 * 2cm;
path paabw ;
 paabw:=paaac scaled xaabv ;
color caabx ;
 caabx = 0.8499908447265625 * white;
fill paabw  withcolor caabx    ;
 numeric xaaby ;
 xaaby = 0.839996337890625 * 2cm;
path paabz ;
 paabz:=paaac scaled xaaby ;
color caaca ;
 caaca = 0.839996337890625 * white;
fill paabz  withcolor caaca    ;
 numeric xaacb ;
 xaacb = 0.829986572265625 * 2cm;
path paacc ;
 paacc:=paaac scaled xaacb ;
color caacd ;
 caacd = 0.829986572265625 * white;
fill paacc  withcolor caacd    ;
 numeric xaace ;
 xaace = 0.8199920654296875 * 2cm;
path paacf ;
 paacf:=paaac scaled xaace ;
color caacg ;
 caacg = 0.8199920654296875 * white;
fill paacf  withcolor caacg    ;
 numeric xaach ;
 xaach = 0.80999755859375 * 2cm;
path paaci ;
 paaci:=paaac scaled xaach ;
color caacj ;
 caacj = 0.80999755859375 * white;
fill paaci  withcolor caacj    ;
 numeric xaack ;
 xaack = 0.79998779296875 * 2cm;
path paacl ;
 paacl:=paaac scaled xaack ;
color caacm ;
 caacm = 0.79998779296875 * white;
fill paacl  withcolor caacm    ;
 numeric xaacn ;
 xaacn = 0.7899932861328125 * 2cm;
path paaco ;
 paaco:=paaac scaled xaacn ;
color caacp ;
 caacp = 0.7899932861328125 * white;
fill paaco  withcolor caacp    ;
 numeric xaacq ;
 xaacq = 0.779998779296875 * 2cm;
path paacr ;
 paacr:=paaac scaled xaacq ;
color caacs ;
 caacs = 0.779998779296875 * white;
fill paacr  withcolor caacs    ;
 numeric xaact ;
 xaact = 0.769989013671875 * 2cm;
path paacu ;
 paacu:=paaac scaled xaact ;
color caacv ;
 caacv = 0.769989013671875 * white;
fill paacu  withcolor caacv    ;
 numeric xaacw ;
 xaacw = 0.7599945068359375 * 2cm;
path paacx ;
 paacx:=paaac scaled xaacw ;
color caacy ;
 caacy = 0.7599945068359375 * white;
fill paacx  withcolor caacy    ;
 numeric xaacz ;
 xaacz = 0.7499847412109375 * 2cm;
path paada ;
 paada:=paaac scaled xaacz ;
color caadb ;
 caadb = 0.7499847412109375 * white;
fill paada  withcolor caadb    ;
 numeric xaadc ;
 xaadc = 0.739990234375 * 2cm;
path paadd ;
 paadd:=paaac scaled xaadc ;
color caade ;
 caade = 0.739990234375 * white;
fill paadd  withcolor caade    ;
 numeric xaadf ;
 xaadf = 0.7299957275390625 * 2cm;
path paadg ;
 paadg:=paaac scaled xaadf ;
color caadh ;
 caadh = 0.7299957275390625 * white;
fill paadg  withcolor caadh    ;
 numeric xaadi ;
 xaadi = 0.7199859619140625 * 2cm;
path paadj ;
 paadj:=paaac scaled xaadi ;
color caadk ;
 caadk = 0.7199859619140625 * white;
fill paadj  withcolor caadk    ;
 numeric xaadl ;
 xaadl = 0.709991455078125 * 2cm;
path paadm ;
 paadm:=paaac scaled xaadl ;
color caadn ;
 caadn = 0.709991455078125 * white;
fill paadm  withcolor caadn    ;
 numeric xaado ;
 xaado = 0.6999969482421875 * 2cm;
path paadp ;
 paadp:=paaac scaled xaado ;
color caadq ;
 caadq = 0.6999969482421875 * white;
fill paadp  withcolor caadq    ;
 numeric xaadr ;
 xaadr = 0.6899871826171875 * 2cm;
path paads ;
 paads:=paaac scaled xaadr ;
color caadt ;
 caadt = 0.6899871826171875 * white;
fill paads  withcolor caadt    ;
 numeric xaadu ;
 xaadu = 0.67999267578125 * 2cm;
path paadv ;
 paadv:=paaac scaled xaadu ;
color caadw ;
 caadw = 0.67999267578125 * white;
fill paadv  withcolor caadw    ;
 numeric xaadx ;
 xaadx = 0.6699981689453125 * 2cm;
path paady ;
 paady:=paaac scaled xaadx ;
color caadz ;
 caadz = 0.6699981689453125 * white;
fill paady  withcolor caadz    ;
 numeric xaaea ;
 xaaea = 0.6599884033203125 * 2cm;
path paaeb ;
 paaeb:=paaac scaled xaaea ;
color caaec ;
 caaec = 0.6599884033203125 * white;
fill paaeb  withcolor caaec    ;
 numeric xaaed ;
 xaaed = 0.649993896484375 * 2cm;
path paaee ;
 paaee:=paaac scaled xaaed ;
color caaef ;
 caaef = 0.649993896484375 * white;
fill paaee  withcolor caaef    ;
 numeric xaaeg ;
 xaaeg = 0.6399993896484375 * 2cm;
path paaeh ;
 paaeh:=paaac scaled xaaeg ;
color caaei ;
 caaei = 0.6399993896484375 * white;
fill paaeh  withcolor caaei    ;
 numeric xaaej ;
 xaaej = 0.6299896240234375 * 2cm;
path paaek ;
 paaek:=paaac scaled xaaej ;
color caael ;
 caael = 0.6299896240234375 * white;
fill paaek  withcolor caael    ;
 numeric xaaem ;
 xaaem = 0.6199951171875 * 2cm;
path paaen ;
 paaen:=paaac scaled xaaem ;
color caaeo ;
 caaeo = 0.6199951171875 * white;
fill paaen  withcolor caaeo    ;
 numeric xaaep ;
 xaaep = 0.6099853515625 * 2cm;
path paaeq ;
 paaeq:=paaac scaled xaaep ;
color caaer ;
 caaer = 0.6099853515625 * white;
fill paaeq  withcolor caaer    ;
 numeric xaaes ;
 xaaes = 0.5999908447265625 * 2cm;
path paaet ;
 paaet:=paaac scaled xaaes ;
color caaeu ;
 caaeu = 0.5999908447265625 * white;
fill paaet  withcolor caaeu    ;
 numeric xaaev ;
 xaaev = 0.589996337890625 * 2cm;
path paaew ;
 paaew:=paaac scaled xaaev ;
color caaex ;
 caaex = 0.589996337890625 * white;
fill paaew  withcolor caaex    ;
 numeric xaaey ;
 xaaey = 0.579986572265625 * 2cm;
path paaez ;
 paaez:=paaac scaled xaaey ;
color caafa ;
 caafa = 0.579986572265625 * white;
fill paaez  withcolor caafa    ;
 numeric xaafb ;
 xaafb = 0.5699920654296875 * 2cm;
path paafc ;
 paafc:=paaac scaled xaafb ;
color caafd ;
 caafd = 0.5699920654296875 * white;
fill paafc  withcolor caafd    ;
 numeric xaafe ;
 xaafe = 0.55999755859375 * 2cm;
path paaff ;
 paaff:=paaac scaled xaafe ;
color caafg ;
 caafg = 0.55999755859375 * white;
fill paaff  withcolor caafg    ;
 numeric xaafh ;
 xaafh = 0.54998779296875 * 2cm;
path paafi ;
 paafi:=paaac scaled xaafh ;
color caafj ;
 caafj = 0.54998779296875 * white;
fill paafi  withcolor caafj    ;
 numeric xaafk ;
 xaafk = 0.5399932861328125 * 2cm;
path paafl ;
 paafl:=paaac scaled xaafk ;
color caafm ;
 caafm = 0.5399932861328125 * white;
fill paafl  withcolor caafm    ;
 numeric xaafn ;
 xaafn = 0.529998779296875 * 2cm;
path paafo ;
 paafo:=paaac scaled xaafn ;
color caafp ;
 caafp = 0.529998779296875 * white;
fill paafo  withcolor caafp    ;
 numeric xaafq ;
 xaafq = 0.519989013671875 * 2cm;
path paafr ;
 paafr:=paaac scaled xaafq ;
color caafs ;
 caafs = 0.519989013671875 * white;
fill paafr  withcolor caafs    ;
 numeric xaaft ;
 xaaft = 0.5099945068359375 * 2cm;
path paafu ;
 paafu:=paaac scaled xaaft ;
color caafv ;
 caafv = 0.5099945068359375 * white;
fill paafu  withcolor caafv    ;
 numeric xaafw ;
 xaafw = 0.4999847412109375 * 2cm;
path paafx ;
 paafx:=paaac scaled xaafw ;
color caafy ;
 caafy = 0.4999847412109375 * white;
fill paafx  withcolor caafy    ;
 numeric xaafz ;
 xaafz = 0.489990234375 * 2cm;
path paaga ;
 paaga:=paaac scaled xaafz ;
color caagb ;
 caagb = 0.489990234375 * white;
fill paaga  withcolor caagb    ;
 numeric xaagc ;
 xaagc = 0.4799957275390625 * 2cm;
path paagd ;
 paagd:=paaac scaled xaagc ;
color caage ;
 caage = 0.4799957275390625 * white;
fill paagd  withcolor caage    ;
 numeric xaagf ;
 xaagf = 0.4699859619140625 * 2cm;
path paagg ;
 paagg:=paaac scaled xaagf ;
color caagh ;
 caagh = 0.4699859619140625 * white;
fill paagg  withcolor caagh    ;
 numeric xaagi ;
 xaagi = 0.459991455078125 * 2cm;
path paagj ;
 paagj:=paaac scaled xaagi ;
color caagk ;
 caagk = 0.459991455078125 * white;
fill paagj  withcolor caagk    ;
 numeric xaagl ;
 xaagl = 0.4499969482421875 * 2cm;
path paagm ;
 paagm:=paaac scaled xaagl ;
color caagn ;
 caagn = 0.4499969482421875 * white;
fill paagm  withcolor caagn    ;
 numeric xaago ;
 xaago = 0.4399871826171875 * 2cm;
path paagp ;
 paagp:=paaac scaled xaago ;
color caagq ;
 caagq = 0.4399871826171875 * white;
fill paagp  withcolor caagq    ;
 numeric xaagr ;
 xaagr = 0.42999267578125 * 2cm;
path paags ;
 paags:=paaac scaled xaagr ;
color caagt ;
 caagt = 0.42999267578125 * white;
fill paags  withcolor caagt    ;
 numeric xaagu ;
 xaagu = 0.4199981689453125 * 2cm;
path paagv ;
 paagv:=paaac scaled xaagu ;
color caagw ;
 caagw = 0.4199981689453125 * white;
fill paagv  withcolor caagw    ;
 numeric xaagx ;
 xaagx = 0.4099884033203125 * 2cm;
path paagy ;
 paagy:=paaac scaled xaagx ;
color caagz ;
 caagz = 0.4099884033203125 * white;
fill paagy  withcolor caagz    ;
 numeric xaaha ;
 xaaha = 0.399993896484375 * 2cm;
path paahb ;
 paahb:=paaac scaled xaaha ;
color caahc ;
 caahc = 0.399993896484375 * white;
fill paahb  withcolor caahc    ;
 numeric xaahd ;
 xaahd = 0.3899993896484375 * 2cm;
path paahe ;
 paahe:=paaac scaled xaahd ;
color caahf ;
 caahf = 0.3899993896484375 * white;
fill paahe  withcolor caahf    ;
 numeric xaahg ;
 xaahg = 0.3799896240234375 * 2cm;
path paahh ;
 paahh:=paaac scaled xaahg ;
color caahi ;
 caahi = 0.3799896240234375 * white;
fill paahh  withcolor caahi    ;
 numeric xaahj ;
 xaahj = 0.3699951171875 * 2cm;
path paahk ;
 paahk:=paaac scaled xaahj ;
color caahl ;
 caahl = 0.3699951171875 * white;
fill paahk  withcolor caahl    ;
 numeric xaahm ;
 xaahm = 0.3599853515625 * 2cm;
path paahn ;
 paahn:=paaac scaled xaahm ;
color caaho ;
 caaho = 0.3599853515625 * white;
fill paahn  withcolor caaho    ;
 numeric xaahp ;
 xaahp = 0.3499908447265625 * 2cm;
path paahq ;
 paahq:=paaac scaled xaahp ;
color caahr ;
 caahr = 0.3499908447265625 * white;
fill paahq  withcolor caahr    ;
 numeric xaahs ;
 xaahs = 0.339996337890625 * 2cm;
path paaht ;
 paaht:=paaac scaled xaahs ;
color caahu ;
 caahu = 0.339996337890625 * white;
fill paaht  withcolor caahu    ;
 numeric xaahv ;
 xaahv = 0.329986572265625 * 2cm;
path paahw ;
 paahw:=paaac scaled xaahv ;
color caahx ;
 caahx = 0.329986572265625 * white;
fill paahw  withcolor caahx    ;
 numeric xaahy ;
 xaahy = 0.3199920654296875 * 2cm;
path paahz ;
 paahz:=paaac scaled xaahy ;
color caaia ;
 caaia = 0.3199920654296875 * white;
fill paahz  withcolor caaia    ;
 numeric xaaib ;
 xaaib = 0.30999755859375 * 2cm;
path paaic ;
 paaic:=paaac scaled xaaib ;
color caaid ;
 caaid = 0.30999755859375 * white;
fill paaic  withcolor caaid    ;
 numeric xaaie ;
 xaaie = 0.29998779296875 * 2cm;
path paaif ;
 paaif:=paaac scaled xaaie ;
color caaig ;
 caaig = 0.29998779296875 * white;
fill paaif  withcolor caaig    ;
 numeric xaaih ;
 xaaih = 0.2899932861328125 * 2cm;
path paaii ;
 paaii:=paaac scaled xaaih ;
color caaij ;
 caaij = 0.2899932861328125 * white;
fill paaii  withcolor caaij    ;
 numeric xaaik ;
 xaaik = 0.279998779296875 * 2cm;
path paail ;
 paail:=paaac scaled xaaik ;
color caaim ;
 caaim = 0.279998779296875 * white;
fill paail  withcolor caaim    ;
 numeric xaain ;
 xaain = 0.269989013671875 * 2cm;
path paaio ;
 paaio:=paaac scaled xaain ;
color caaip ;
 caaip = 0.269989013671875 * white;
fill paaio  withcolor caaip    ;
 numeric xaaiq ;
 xaaiq = 0.2599945068359375 * 2cm;
path paair ;
 paair:=paaac scaled xaaiq ;
color caais ;
 caais = 0.2599945068359375 * white;
fill paair  withcolor caais    ;
 numeric xaait ;
 xaait = 0.2499847412109375 * 2cm;
path paaiu ;
 paaiu:=paaac scaled xaait ;
color caaiv ;
 caaiv = 0.2499847412109375 * white;
fill paaiu  withcolor caaiv    ;
 numeric xaaiw ;
 xaaiw = 0.239990234375 * 2cm;
path paaix ;
 paaix:=paaac scaled xaaiw ;
color caaiy ;
 caaiy = 0.239990234375 * white;
fill paaix  withcolor caaiy    ;
 numeric xaaiz ;
 xaaiz = 0.2299957275390625 * 2cm;
path paaja ;
 paaja:=paaac scaled xaaiz ;
color caajb ;
 caajb = 0.2299957275390625 * white;
fill paaja  withcolor caajb    ;
 numeric xaajc ;
 xaajc = 0.2199859619140625 * 2cm;
path paajd ;
 paajd:=paaac scaled xaajc ;
color caaje ;
 caaje = 0.2199859619140625 * white;
fill paajd  withcolor caaje    ;
 numeric xaajf ;
 xaajf = 0.209991455078125 * 2cm;
path paajg ;
 paajg:=paaac scaled xaajf ;
color caajh ;
 caajh = 0.209991455078125 * white;
fill paajg  withcolor caajh    ;
 numeric xaaji ;
 xaaji = 0.1999969482421875 * 2cm;
path paajj ;
 paajj:=paaac scaled xaaji ;
color caajk ;
 caajk = 0.1999969482421875 * white;
fill paajj  withcolor caajk    ;
 numeric xaajl ;
 xaajl = 0.1899871826171875 * 2cm;
path paajm ;
 paajm:=paaac scaled xaajl ;
color caajn ;
 caajn = 0.1899871826171875 * white;
fill paajm  withcolor caajn    ;
 numeric xaajo ;
 xaajo = 0.17999267578125 * 2cm;
path paajp ;
 paajp:=paaac scaled xaajo ;
color caajq ;
 caajq = 0.17999267578125 * white;
fill paajp  withcolor caajq    ;
 numeric xaajr ;
 xaajr = 0.1699981689453125 * 2cm;
path paajs ;
 paajs:=paaac scaled xaajr ;
color caajt ;
 caajt = 0.1699981689453125 * white;
fill paajs  withcolor caajt    ;
 numeric xaaju ;
 xaaju = 0.1599884033203125 * 2cm;
path paajv ;
 paajv:=paaac scaled xaaju ;
color caajw ;
 caajw = 0.1599884033203125 * white;
fill paajv  withcolor caajw    ;
 numeric xaajx ;
 xaajx = 0.149993896484375 * 2cm;
path paajy ;
 paajy:=paaac scaled xaajx ;
color caajz ;
 caajz = 0.149993896484375 * white;
fill paajy  withcolor caajz    ;
 numeric xaaka ;
 xaaka = 0.1399993896484375 * 2cm;
path paakb ;
 paakb:=paaac scaled xaaka ;
color caakc ;
 caakc = 0.1399993896484375 * white;
fill paakb  withcolor caakc    ;
 numeric xaakd ;
 xaakd = 0.1299896240234375 * 2cm;
path paake ;
 paake:=paaac scaled xaakd ;
color caakf ;
 caakf = 0.1299896240234375 * white;
fill paake  withcolor caakf    ;
 numeric xaakg ;
 xaakg = 0.1199951171875 * 2cm;
path paakh ;
 paakh:=paaac scaled xaakg ;
color caaki ;
 caaki = 0.1199951171875 * white;
fill paakh  withcolor caaki    ;
 numeric xaakj ;
 xaakj = 0.1099853515625 * 2cm;
path paakk ;
 paakk:=paaac scaled xaakj ;
color caakl ;
 caakl = 0.1099853515625 * white;
fill paakk  withcolor caakl    ;
 numeric xaakm ;
 xaakm = 0.0999908447265625 * 2cm;
path paakn ;
 paakn:=paaac scaled xaakm ;
color caako ;
 caako = 0.0999908447265625 * white;
fill paakn  withcolor caako    ;
 numeric xaakp ;
 xaakp = 0.089996337890625 * 2cm;
path paakq ;
 paakq:=paaac scaled xaakp ;
color caakr ;
 caakr = 0.089996337890625 * white;
fill paakq  withcolor caakr    ;
 numeric xaaks ;
 xaaks = 0.079986572265625 * 2cm;
path paakt ;
 paakt:=paaac scaled xaaks ;
color caaku ;
 caaku = 0.079986572265625 * white;
fill paakt  withcolor caaku    ;
 numeric xaakv ;
 xaakv = 0.0699920654296875 * 2cm;
path paakw ;
 paakw:=paaac scaled xaakv ;
color caakx ;
 caakx = 0.0699920654296875 * white;
fill paakw  withcolor caakx    ;
 numeric xaaky ;
 xaaky = 0.05999755859375 * 2cm;
path paakz ;
 paakz:=paaac scaled xaaky ;
color caala ;
 caala = 0.05999755859375 * white;
fill paakz  withcolor caala    ;
 numeric xaalb ;
 xaalb = 0.04998779296875 * 2cm;
path paalc ;
 paalc:=paaac scaled xaalb ;
color caald ;
 caald = 0.04998779296875 * white;
fill paalc  withcolor caald    ;
 numeric xaale ;
 xaale = 0.0399932861328125 * 2cm;
path paalf ;
 paalf:=paaac scaled xaale ;
color caalg ;
 caalg = 0.0399932861328125 * white;
fill paalf  withcolor caalg    ;
 numeric xaalh ;
 xaalh = 0.029998779296875 * 2cm;
path paali ;
 paali:=paaac scaled xaalh ;
color caalj ;
 caalj = 0.029998779296875 * white;
fill paali  withcolor caalj    ;
 numeric xaalk ;
 xaalk = 0.019989013671875 * 2cm;
path paall ;
 paall:=paaac scaled xaalk ;
color caalm ;
 caalm = 0.019989013671875 * white;
fill paall  withcolor caalm    ;
 numeric xaaln ;
 xaaln = 0.0099945068359375 * 2cm;
path paalo ;
 paalo:=paaac scaled xaaln ;
color caalp ;
 caalp = 0.0099945068359375 * white;
fill paalo  withcolor caalp    ;
 path paalq ;
 paalq:=paaac scaled 2cm ;
pen qaalr ;
 qaalr = pencircle scaled 2bp ;
draw paalq   withpen qaalr   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;