summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/support/charlib/rh
blob: 7c97461b755809b623a54675f6222498a2fab492 (plain)
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;