%ident "@(#)lp:filter/postscript/font/devpost/charlib/lc 1.2"

%

% CDDL HEADER START

%

% The contents of this file are subject to the terms of the

% Common Development and Distribution License, Version 1.0 only

% (the "License"). You may not use this file except in compliance

% with the License.

%

% You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

% or http://www.opensolaris.org/os/licensing.

% See the License for the specific language governing permissions

% and limitations under the License.

%

% When distributing Covered Code, include this CDDL HEADER in each

% file and include the License file at usr/src/OPENSOLARIS.LICENSE.

% If applicable, add the following below this CDDL HEADER, with the

% fields enclosed by brackets "[]" replaced with your own identifying

% information: Portions Copyright [yyyy] [name of copyright owner]

%

% CDDL HEADER END

%

%

% This stuff has gotten terribly complicated - sorry.

%

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

/build_lc {

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 0 get bvbbox 1 get moveto

bvbbox 0 get bvbbox 3 get lineto

bvbbox 5 get bvbbox 4 get 8 mul add dup bvbbox 3 get lineto

bvbbox 1 get lineto closepath clip newpath

0 0 moveto (\357) show

bvbbox 5 get bvbbox 3 get moveto

bvbbox 4 get dup dup

8 mul 0 rlineto

0 exch neg rlineto

8 mul neg 0 rlineto

closepath clip eofill

grestore

} def