1*3e12c5d1SDavid du Colombier/build_RC { 2*3e12c5d1SDavid du Colombier pop 3*3e12c5d1SDavid du Colombier size 4 div /side exch def 4*3e12c5d1SDavid du Colombier currentpoint 5*3e12c5d1SDavid du Colombier newpath 6*3e12c5d1SDavid du Colombier moveto 7*3e12c5d1SDavid du Colombier 0 side 1.5 mul rmoveto 8*3e12c5d1SDavid du Colombier 0 side rlineto 9*3e12c5d1SDavid du Colombier side 2.5 mul 0 rlineto 10*3e12c5d1SDavid du Colombier 0 side neg rlineto 11*3e12c5d1SDavid du Colombier closepath 12*3e12c5d1SDavid du Colombier fill 13*3e12c5d1SDavid du Colombier} def 14