Permalink
Fetching contributors…
Cannot retrieve contributors at this time
70 lines (61 sloc) 1.28 KB
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 56 74 216 217
%%Creator: Gisle Aas (Copyright 1998), Reini Urban (Copyright 2012)
%require "common.ps"
%require "box.ps"
%require "rect.ps"
%require "mws.ps"
%require "ptr.ps"
%require "sv.ps"
%require "he.ps"
/myhe {
1 dict begin
/strtab exch def
M
strtab { currentpoint 3 3 newbox } if
gsave currentpoint 3 box grestore
/Courier 8 SF
gsave 50 2 rmoveto (he) rshow grestore
5 -13 rmoveto
/Helvetica 11 SF
[(next) (hek) (val)]
strtab { dup 2 (refcnt) put } if
{
gsave
show
grestore
0 -15 rmoveto
} forall
strtab not {
-5 13 rmoveto
gsave
42.5 7.5 rmoveto
currentpoint 165 ptr1
grestore
gsave
65 10 rmoveto currentpoint translate 0.5 dup scale
0 0 sv
grestore
} if
end
} def
0.7 dup scale
100 300 false myhe
100 230 true myhe
100 160 false myhe
180 215 (foobar) hek
% pointers
142.5 207.5 180 207.5 ptrn
142.5 277.5 200 277.5 200 240 180 240 180 216 ptrn
142.5 137.5 180 137.5 180 202 ptrn
/Helvetica 10 SF
154 187 M (2) show
gsave
red
/Courier-Bold 10 SF
100 115 translate
90 rotate
22.5 6 M (%hash2) cshow
22.5 70 add 6 M (strtab) cshow
22.5 140 add 6 M (%hash1) cshow
grestore