/usr/share/texmf-texlive/metapost/support/charlib/rh is in texlive-metapost 2009-15.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | % $Id: rh,v 1.2 2004/09/19 21:47:11 karl Exp $
% Public domain.
vardef C.rh(expr n) =
save p,a;
picture p; p=nullpicture;
def a expr q =
addto p doublepath q withpen pencircle scaled15 enddef;
a(15,66)--(15,86)--(16,131)--(17,146)--(18,158)--(19,167)--(21,181)--
(24,190)--(34,193)--(49,189)--(58,182)--(60,177)--(60,166)--(59,156)--
(58,143)--(57,130)--(56,117)--(55,102)--(54,42)--(53,39)--(49,35)--
(34,34)--(19,39)--(16,47)--(15,66)--cycle;
a(65,60)--(65,111)--(66,127)--(67,139)--(69,153)--(72,163)--(83,171)--
(98,177)--(113,182)--(128,187)--(143,190)--(158,194)--(173,196)--
(188,199)--(203,201)--(218,203)--(233,205)--(248,205)--(263,206)--
(278,206)--(293,206)--(308,206)--(323,206)--(338,205)--(353,203)--
(368,202)--(383,200)--(394,197)--(389,190)--(389,180)--(391,176)--
(391,173)--(380,173)--(365,173)--(350,174)--(335,175)--(320,176)--
(305,176)--(290,176)--(275,177)--(260,177)--(245,177)--(240,173)--
(240,170)--(245,165)--(260,164)--(275,164)--(290,164)--(305,163)--
(320,160)--(327,155)--(330,149)--(330,134)--(328,129)--(323,124)--
(309,121)--(294,121)--(279,121)--(264,121)--(249,121)--(234,121)--
(228,118)--(228,112)--(234,109)--(249,109)--(264,109)--(279,108)--
(294,108)--(306,104)--(311,97)--(312,91)--(312,88)--(311,82)--(305,74)--
(290,72)--(275,72)--(260,72)--(245,73)--(230,73)--(215,73)--(205,70)--
(205,63)--(217,60)--(232,60)--(247,60)--(262,60)--(277,57)--(283,52)--
(285,44)--(285,41)--(284,35)--(280,30)--(268,26)--(253,25)--(238,26)--
(223,28)--(208,31)--(193,33)--(178,34)--(163,33)--(148,31)--(133,28)--
(118,27)--(103,28)--(88,34)--(73,43)--(67,52)--(65,60)--cycle;
a(396,180)--(396,188)--(399,194)--(410,196)--(416,190)--(416,180)--
(415,177)--(411,173)--(400,173)--(396,180)--cycle;
p scaled(.0022*fontsize n) enddef;
|