1 %
2 % This stuff has gotten terribly complicated - sorry.
3 %
4 
5 currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
6 
7 /build_lc {
8     pop
9     gsave
10 	currentpoint translate newpath
11 	bvbbox 6 get size ne {
12 	    gsave
13 		initgraphics
14 		scaling scaling scale
15 		0 0 moveto
16 		(\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
17 		0 1 idtransform dup mul exch dup mul add sqrt dup
18 		bvbbox 1 get add bvbbox 1 3 -1 roll put
19 		bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
20 		bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
21 		bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
22 	    grestore
23 	} if
24 	bvbbox 0 get bvbbox 1 get moveto
25 	bvbbox 0 get bvbbox 3 get lineto
26 	bvbbox 5 get bvbbox 4 get 8 mul add dup bvbbox 3 get lineto
27 	bvbbox 1 get lineto closepath clip newpath
28 	0 0 moveto (\357) show
29 	bvbbox 5 get bvbbox 3 get moveto
30 	bvbbox 4 get dup dup
31 	8 mul 0 rlineto
32 	0 exch neg rlineto
33 	8 mul neg 0 rlineto
34 	closepath clip eofill
35     grestore
36 } def