1*3e12c5d1SDavid du Colombier/build_14 { 2*3e12c5d1SDavid du Colombier pop 3*3e12c5d1SDavid du Colombier /optsize ptsize def 4*3e12c5d1SDavid du Colombier /osize size def 5*3e12c5d1SDavid du Colombier /ofont font def 6*3e12c5d1SDavid du Colombier 7*3e12c5d1SDavid du Colombier optsize 2 div dup R exch R f 8*3e12c5d1SDavid du Colombier 0 size 2 mul 3 div dup neg exch 0 exch rmoveto 9*3e12c5d1SDavid du Colombier 10*3e12c5d1SDavid du Colombier (1) show 11*3e12c5d1SDavid du Colombier rmoveto 12*3e12c5d1SDavid du Colombier optsize R f 13*3e12c5d1SDavid du Colombier (\244) show 14*3e12c5d1SDavid du Colombier f 15*3e12c5d1SDavid du Colombier (4) show 16*3e12c5d1SDavid du Colombier 17*3e12c5d1SDavid du Colombier optsize ofont f 18*3e12c5d1SDavid du Colombier} def 19