| % |
| % This stuff has gotten terribly complicated - sorry. |
| % |
| |
| currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if |
| |
| /build_lf { |
| 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 0 get bvbbox 1 get moveto |
| bvbbox 0 get bvbbox 3 get lineto |
| bvbbox 5 get bvbbox 4 get 8 mul add dup bvbbox 3 get lineto |
| bvbbox 1 get lineto closepath clip newpath |
| 0 0 moveto (\357) show |
| bvbbox 5 get bvbbox 1 get moveto |
| bvbbox 4 get dup dup |
| 8 mul 0 rlineto |
| 0 exch rlineto |
| 8 mul neg 0 rlineto |
| closepath clip eofill |
| grestore |
| } def |
