%% %% ============================ ecrire du texte ====================================

%% syntaxe : str x y show_dim --> str x y llx lly wx wy 
%% attention, doit laisser la pile intacte
/show_dim {
   3 copy pop pop
   newpath
      0 0 moveto
      true charpath flattenpath pathbbox 
   closepath
} def

/dltext {(show) dlpict} def
/dctext {(show) dcpict} def
/drtext {(show) drpict} def
/dbtext {(show) dbpict} def

/ultext {(show) ulpict} def
/uctext {(show) ucpict} def
/urtext {(show) urpict} def
/ubtext {(show) ubpict} def

/bltext {(show) blpict} def
/bctext {(show) bcpict} def
/brtext {(show) brpict} def
/bbtext {(show) bbpict} def

/cltext {(show) clpict} def
/cctext {(show) ccpict} def
/crtext {(show) crpict} def
/cbtext {(show) cbpict} def

%% les anciennes commandes

/utext {uctext} def
/dtext {dctext} def
/rtext {brtext} def
/ltext {bltext} def
/text {urtext} def