/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{v_fc v_fm v_fy v_fk setcmykcolor
t_matflag{6 array currentmatrix /t_matrixo exch def 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_matrixo setmatrix}if currentpoint v_ky
add/v_tpy exch def v_kx add/v_tpx exch def /v_kx 0 def/v_ky 0 def t_matrix
4 v_tpx put t_matrix 5 v_tpy put}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{6 array astore/t_matrix exch def /t_matflag
true def}bd
