o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use the Plan 9 version of the world.

Browse source
This commit is contained in:
wkj 2004-05-16 08:02:19 +00:00
parent b4bf678f38
commit 282ce666c3
7 changed files with 803 additions and 4366 deletions
Download patch file Download diff file Expand all files Collapse all files

45
troff/font/devutf/charlib/RC
View file

@ -1,13 +1,36 @@
/build_RC {
%
% This stuff has gotten terribly complicated - sorry.
%
currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
/build_rc {
pop
size 4 div /side exch def
currentpoint
newpath
moveto
0 side 1.5 mul rmoveto
0 side rlineto
side 2.5 mul 0 rlineto
0 side neg rlineto
closepath
fill
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 3 get moveto
bvbbox 4 get dup dup
8 mul neg 0 rlineto
0 exch neg rlineto
8 mul 0 rlineto
closepath clip eofill
grestore
} def