1%%BeginResource: procset dpost_charrc 1.0 0
2% from OpenSolaris "lp:filter/postscript/font/devpost/charlib/rc	1.2"
3%
4% CDDL HEADER START
5%
6% The contents of this file are subject to the terms of the
7% Common Development and Distribution License, Version 1.0 only
8% (the "License").  You may not use this file except in compliance
9% with the License.
10%
11% You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
12% or http://www.opensolaris.org/os/licensing.
13% See the License for the specific language governing permissions
14% and limitations under the License.
15%
16% When distributing Covered Code, include this CDDL HEADER in each
17% file and include the License file at usr/src/OPENSOLARIS.LICENSE.
18% If applicable, add the following below this CDDL HEADER, with the
19% fields enclosed by brackets "[]" replaced with your own identifying
20% information: Portions Copyright [yyyy] [name of copyright owner]
21%
22% CDDL HEADER END
23%
24% Portions Copyright 2005 Gunnar Ritter, Freiburg i. Br, Germany
25%
26% This stuff has gotten terribly complicated - sorry.
27%
28
29currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
30
31/build_rc {
32    pop
33    gsave
34	currentpoint translate newpath
35	bvbbox 6 get size ne {
36	    gsave
37		initgraphics
38		scaling scaling scale
39		0 0 moveto
40		(\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
41		0 1 idtransform dup mul exch dup mul add sqrt dup
42		bvbbox 1 get add bvbbox 1 3 -1 roll put
43		bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
44		bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
45		bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
46	    grestore
47	} if
48	bvbbox 2 get bvbbox 1 get moveto
49	bvbbox 2 get bvbbox 3 get lineto
50	bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto
51	bvbbox 1 get lineto closepath clip newpath
52	0 0 moveto (\357) show
53	bvbbox 5 get bvbbox 3 get moveto
54	bvbbox 4 get dup dup
55	8 mul neg 0 rlineto
56	0 exch neg rlineto
57	8 mul 0 rlineto
58	closepath clip eofill
59    grestore
60} def
61%%EndResource
62