1 13f7391e 2004-05-15 devnull /build_ci { 2 13f7391e 2004-05-15 devnull pop 3 13f7391e 2004-05-15 devnull size 3 mul 8 div /rad exch def 4 13f7391e 2004-05-15 devnull currentpoint 5 13f7391e 2004-05-15 devnull newpath 6 13f7391e 2004-05-15 devnull rad add exch rad add exch rad 0 360 arc 7 13f7391e 2004-05-15 devnull stroke 8 13f7391e 2004-05-15 devnull } def