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