1 /build_ci { 2 pop 3 size 3 mul 8 div /rad exch def 4 currentpoint 5 newpath 6 rad add exch rad add exch rad 0 360 arc 7 stroke 8 } def