/t_matrix[1 0 0 1 0 0]def/t_matflag false def/v_kx 0 def/v_ky 0 def/atp{
/v_tpy exch def/v_tpx exch def}bd/Tx{t_matflag{gsave t_matrix concat 0 0
moveto}{v_tpx v_tpy moveto}ifelse{v_cx v_cy rmoveto pop 32 eq{v_wx v_wy
rmoveto}if}exch kshow t_matflag{/t_matflag false def/t_matrix matrix def
grestore}if currentpoint v_ky add/v_tpy exch def v_kx add/v_tpx exch def
/v_kx 0 def/v_ky 0 def}bd/atf{findfont v_tx v_ty matrix scale makefont
setfont}bd/atxy{/v_ty exch def/v_tx exch def}bd/atrk{/v_wy exch def/v_wx
exch def/v_cy exch def/v_cx exch def}bd/akrn{v_ty mul/v_ky exch def v_tx mul
/v_kx exch def}bd/aco{pop pop}bd/asto{}bd/aeto{}bd/atc{pop}bd/atph{pop}bd
/atof{pop pop}bd/Tm{[7 1 roll]/t_matrix exch def/t_matflag true def}bd
