ci 145 B

12345678
  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