/inch {72 mul} def
/cm {inch 2.54 div } def
/mm {cm 10 div } def

/DT {
 4 index 4 index translate
 2 index rotate

 0 0 moveto
 0 index 2 div 0 rmoveto
 1 index neg 0 exch rlineto

 0 0 moveto
 0 index 2 div neg 0 rmoveto
 1 index neg 0 exch rlineto

 4 index neg 4 index neg translate
 2 index neg rotate

 clear
 } def