/texlabel_dim {
   lx ly % ptojpoint 
   ux uy % ptojpoint
} def

/texlabel {
gsave
   currentpoint lx ly addv translate 
   label
grestore
} def

/dltexlabel {(texlabel) dlpict} def
/dctexlabel {(texlabel) dcpict} def
/drtexlabel {(texlabel) drpict} def
/dbtexlabel {(texlabel) dbpict} def
/ultexlabel {(texlabel) ulpict} def
/uctexlabel {(texlabel) ucpict} def
/urtexlabel {(texlabel) urpict} def
/ubtexlabel {(texlabel) ubpict} def
/bltexlabel {(texlabel) blpict} def
/bctexlabel {(texlabel) bcpict} def
/brtexlabel {(texlabel) brpict} def
/bbtexlabel {(texlabel) bbpict} def
/cltexlabel {(texlabel) clpict} def
/cctexlabel {(texlabel) ccpict} def
/crtexlabel {(texlabel) crpict} def
/cbtexlabel {(texlabel) cbpict} def