1210b12f28
All of these files appear to have been imported from sources in a case-insensitive manner and consequently lost their original content. - Hx, Hb, and Hi fonts should be narrow versions of Helvetica - c[1-3] fonts should be condensed versions of Century Old Style - the lH character should be a filled left hand symbol - the rh character should be a stroked right hand symbol - the rc character should be the right ceiling symbol I've verified that these are the only files that collide with others when ignoring case (aside from rc/bin/[Kk]ill but those are correct).
37 lines
974 B
Plaintext
37 lines
974 B
Plaintext
%
|
|
% This stuff has gotten terribly complicated - sorry.
|
|
%
|
|
|
|
currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
|
|
|
|
/build_rc {
|
|
pop
|
|
gsave
|
|
currentpoint translate newpath
|
|
bvbbox 6 get size ne {
|
|
gsave
|
|
initgraphics
|
|
scaling scaling scale
|
|
0 0 moveto
|
|
(\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
|
|
0 1 idtransform dup mul exch dup mul add sqrt dup
|
|
bvbbox 1 get add bvbbox 1 3 -1 roll put
|
|
bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
|
|
bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
|
|
bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
|
|
grestore
|
|
} if
|
|
bvbbox 2 get bvbbox 1 get moveto
|
|
bvbbox 2 get bvbbox 3 get lineto
|
|
bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto
|
|
bvbbox 1 get lineto closepath clip newpath
|
|
0 0 moveto (\357) show
|
|
bvbbox 5 get bvbbox 3 get moveto
|
|
bvbbox 4 get dup dup
|
|
8 mul neg 0 rlineto
|
|
0 exch neg rlineto
|
|
8 mul 0 rlineto
|
|
closepath clip eofill
|
|
grestore
|
|
} def
|