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