WebSVN – planix.SVN – Blame – /os/branches/feature_tlsv12/sys/lib/troff/font/devutf/charlib/rf

Rev	Author	Line No.	Line
2	-	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_rf {`
		8	`pop`
		9	`gsave`
		10	`currentpoint translate newpath`
		11	`bvbbox 6 get size ne {`
		12	`gsave`
		13	`initgraphics`
		14	`scaling scaling scale`
		15
		16	`(\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop`
		17
		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 2 get bvbbox 1 get moveto`
		25	`bvbbox 2 get bvbbox 3 get lineto`
		26	`bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto`
		27	`bvbbox 1 get lineto closepath clip newpath`
		28
		29	`bvbbox 5 get bvbbox 1 get moveto`
		30	`bvbbox 4 get dup dup`
		31	`8 mul neg 0 rlineto`
		32
		33	`8 mul 0 rlineto`
		34	`closepath clip eofill`
		35	`grestore`
		36	`} def`

Subversion Repositories planix.SVN