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