19 lines
273 B
Plaintext
19 lines
273 B
Plaintext
![]() |
/build_34 {
|
||
|
pop
|
||
|
/optsize ptsize def
|
||
|
/osize size def
|
||
|
/ofont font def
|
||
|
|
||
|
optsize 2 div dup R exch R f
|
||
|
0 size 2 mul 3 div dup neg exch 0 exch rmoveto
|
||
|
|
||
|
(3) show
|
||
|
rmoveto
|
||
|
optsize R f
|
||
|
(\244) show
|
||
|
f
|
||
|
(4) show
|
||
|
|
||
|
optsize ofont f
|
||
|
} def
|