aboutsummaryrefslogtreecommitdiff
path: root/troff/font/devutf/charlib/_r_f
blob: d13d85bca776992900ed2267042210db9a5f29a2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
%
% This stuff has gotten terribly complicated - sorry.
%

currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if

/build_rf {
    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 1 get moveto
	bvbbox 4 get dup dup
	8 mul neg 0 rlineto
	0 exch rlineto
	8 mul 0 rlineto
	closepath clip eofill
    grestore
} def