00000000  2f 74 5f 6d 61 74 72 69  78 5b 31 20 30 20 30 20  |/t_matrix[1 0 0 |
00000010  31 20 30 20 30 5d 64 65  66 2f 74 5f 6d 61 74 66  |1 0 0]def/t_matf|
00000020  6c 61 67 20 66 61 6c 73  65 20 64 65 66 2f 76 5f  |lag false def/v_|
00000030  6b 78 20 30 20 64 65 66  2f 76 5f 6b 79 20 30 20  |kx 0 def/v_ky 0 |
00000040  64 65 66 2f 61 74 70 7b  0a 2f 76 5f 74 70 79 20  |def/atp{./v_tpy |
00000050  65 78 63 68 20 64 65 66  2f 76 5f 74 70 78 20 65  |exch def/v_tpx e|
00000060  78 63 68 20 64 65 66 7d  62 64 2f 54 78 7b 74 5f  |xch def}bd/Tx{t_|
00000070  6d 61 74 66 6c 61 67 7b  67 73 61 76 65 20 74 5f  |matflag{gsave t_|
00000080  6d 61 74 72 69 78 20 63  6f 6e 63 61 74 20 30 20  |matrix concat 0 |
00000090  30 0a 6d 6f 76 65 74 6f  7d 7b 76 5f 74 70 78 20  |0.moveto}{v_tpx |
000000a0  76 5f 74 70 79 20 6d 6f  76 65 74 6f 7d 69 66 65  |v_tpy moveto}ife|
000000b0  6c 73 65 7b 76 5f 63 78  20 76 5f 63 79 20 72 6d  |lse{v_cx v_cy rm|
000000c0  6f 76 65 74 6f 20 70 6f  70 20 33 32 20 65 71 7b  |oveto pop 32 eq{|
000000d0  76 5f 77 78 20 76 5f 77  79 0a 72 6d 6f 76 65 74  |v_wx v_wy.rmovet|
000000e0  6f 7d 69 66 7d 65 78 63  68 20 6b 73 68 6f 77 20  |o}if}exch kshow |
000000f0  74 5f 6d 61 74 66 6c 61  67 7b 2f 74 5f 6d 61 74  |t_matflag{/t_mat|
00000100  66 6c 61 67 20 66 61 6c  73 65 20 64 65 66 2f 74  |flag false def/t|
00000110  5f 6d 61 74 72 69 78 20  6d 61 74 72 69 78 20 64  |_matrix matrix d|
00000120  65 66 0a 67 72 65 73 74  6f 72 65 7d 69 66 20 63  |ef.grestore}if c|
00000130  75 72 72 65 6e 74 70 6f  69 6e 74 20 76 5f 6b 79  |urrentpoint v_ky|
00000140  20 61 64 64 2f 76 5f 74  70 79 20 65 78 63 68 20  | add/v_tpy exch |
00000150  64 65 66 20 76 5f 6b 78  20 61 64 64 2f 76 5f 74  |def v_kx add/v_t|
00000160  70 78 20 65 78 63 68 20  64 65 66 0a 2f 76 5f 6b  |px exch def./v_k|
00000170  78 20 30 20 64 65 66 2f  76 5f 6b 79 20 30 20 64  |x 0 def/v_ky 0 d|
00000180  65 66 7d 62 64 2f 61 74  66 7b 66 69 6e 64 66 6f  |ef}bd/atf{findfo|
00000190  6e 74 20 76 5f 74 78 20  76 5f 74 79 20 6d 61 74  |nt v_tx v_ty mat|
000001a0  72 69 78 20 73 63 61 6c  65 20 6d 61 6b 65 66 6f  |rix scale makefo|
000001b0  6e 74 0a 73 65 74 66 6f  6e 74 7d 62 64 2f 61 74  |nt.setfont}bd/at|
000001c0  78 79 7b 2f 76 5f 74 79  20 65 78 63 68 20 64 65  |xy{/v_ty exch de|
000001d0  66 2f 76 5f 74 78 20 65  78 63 68 20 64 65 66 7d  |f/v_tx exch def}|
000001e0  62 64 2f 61 74 72 6b 7b  2f 76 5f 77 79 20 65 78  |bd/atrk{/v_wy ex|
000001f0  63 68 20 64 65 66 2f 76  5f 77 78 0a 65 78 63 68  |ch def/v_wx.exch|
00000200  20 64 65 66 2f 76 5f 63  79 20 65 78 63 68 20 64  | def/v_cy exch d|
00000210  65 66 2f 76 5f 63 78 20  65 78 63 68 20 64 65 66  |ef/v_cx exch def|
00000220  7d 62 64 2f 61 6b 72 6e  7b 76 5f 74 79 20 6d 75  |}bd/akrn{v_ty mu|
00000230  6c 2f 76 5f 6b 79 20 65  78 63 68 20 64 65 66 20  |l/v_ky exch def |
00000240  76 5f 74 78 20 6d 75 6c  0a 2f 76 5f 6b 78 20 65  |v_tx mul./v_kx e|
00000250  78 63 68 20 64 65 66 7d  62 64 2f 61 63 6f 7b 70  |xch def}bd/aco{p|
00000260  6f 70 20 70 6f 70 7d 62  64 2f 61 73 74 6f 7b 7d  |op pop}bd/asto{}|
00000270  62 64 2f 61 65 74 6f 7b  7d 62 64 2f 61 74 63 7b  |bd/aeto{}bd/atc{|
00000280  70 6f 70 7d 62 64 2f 61  74 70 68 7b 70 6f 70 7d  |pop}bd/atph{pop}|
00000290  62 64 0a 2f 61 74 6f 66  7b 70 6f 70 20 70 6f 70  |bd./atof{pop pop|
000002a0  7d 62 64 2f 54 6d 7b 5b  37 20 31 20 72 6f 6c 6c  |}bd/Tm{[7 1 roll|
000002b0  5d 2f 74 5f 6d 61 74 72  69 78 20 65 78 63 68 20  |]/t_matrix exch |
000002c0  64 65 66 2f 74 5f 6d 61  74 66 6c 61 67 20 74 72  |def/t_matflag tr|
000002d0  75 65 20 64 65 66 7d 62  64 0a                    |ue def}bd.|
000002da