tr2post: rename charlib files to not be case-dependent (OS X)

1 files changed, 36 insertions, 0 deletions

diff --git a/troff/font/devutf/charlib/_r_f b/troff/font/devutf/charlib/_r_f
new file mode 100644
index 00000000..d13d85bc
--- /dev/null
+++ b/troff/font/devutf/charlib/_r_f
@@ -0,0 +1,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