Plan 9 from Bell Labs’s /usr/web/sources/contrib/steve/root/sys/lib/texmf/metapost/support/charlib/LH

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


vardef C.LH(expr n) =
 save p,a,e;
 picture p; p=nullpicture;
 def a=addto p contour enddef;
 def e=withcolor (1,1,1)enddef;
 a(68,149)--(68,149)--(60,148)--(55,147)--(52,146)--(49,145)--(47,144)--
 (44,143)--(42,142)--(40,141)--(38,140)--(37,139)--(39,139)--(53,140)--
 (68,139)--(76,138)--(112,138)--(111,139)--(109,140)--(108,141)--(105,142)--
 (103,143)--(101,144)--(98,145)--(95,146)--(92,147)--(88,148)--(80,149)--
 cycle;
 a(84,133)--(84,133)--(78,132)--(70,131)--(50,130)--(30,131)--(25,131)--
 (24,130)--(23,129)--(22,128)--(21,127)--(20,126)--(19,125)--(19,124)--
 (20,124)--(32,125)--(50,126)--(69,125)--(83,124)--(92,123)--(129,123)--
 (129,124)--(128,125)--(127,126)--(126,127)--(125,128)--(124,129)--
 (123,130)--(122,131)--(121,132)--(119,133)--cycle;
 a(99,118)--(99,118)--(93,117)--
 (86,116)--(52,115)--(18,116)--(12,116)--(11,115)--(11,114)--(10,113)--
 (10,112)--(9,111)--(9,110)--(9,109)--(15,109)--(51,110)--(87,109)--
 (99,108)--(139,108)--(139,109)--(139,110)--(138,111)--(137,112)--
 (137,113)--(136,114)--(136,115)--(135,116)--(134,117)--(134,118)--
 cycle;
 a(110,103)--(110,103)--(102,102)--(94,101)--(82,100)--(59,99)--(36,100)--
 (8,101)--(5,101)--(4,100)--(4,99)--(4,98)--(3,97)--(3,96)--(3,95)--
 (3,94)--(2,93)--(7,93)--(16,94)--(51,95)--(86,94)--(98,93)--(110,92)--
 (145,92)--(145,93)--(145,94)--(145,95)--(145,96)--(144,97)--(144,98)--
 (144,99)--(143,100)--(143,101)--(142,102)--(142,103)--cycle;
 a(178,101)--
 (178,101)--(178,100)--(177,99)--(177,98)--(177,97)--(176,96)--(176,95)--
 (176,94)--(175,93)--(175,92)--(175,91)--(174,90)--(174,89)--(174,88)--
 (173,87)--(173,86)--(173,85)--(172,84)--(172,83)--(172,82)--(171,81)--
 (171,80)--(171,79)--(170,78)--(170,77)--(170,76)--(169,75)--(169,74)--
 (169,73)--(168,72)--(168,71)--(168,70)--(167,69)--(167,68)--(167,67)--
 (166,66)--(166,65)--(166,64)--(165,63)--(165,62)--(165,61)--(164,60)--
 (164,59)--(164,58)--(163,57)--(163,56)--(163,55)--(162,54)--(162,53)--
 (162,52)--(161,51)--(161,50)--(161,49)--(160,48)--(174,48)--(174,49)--
 (175,50)--(175,51)--(175,52)--(176,53)--(176,54)--(176,55)--(177,56)--
 (185,57)--(194,56)--(194,55)--(195,54)--(195,53)--(195,52)--(195,51)--
 (196,50)--(196,49)--(196,48)--(210,48)--(209,49)--(209,50)--(209,51)--
 (208,52)--(208,53)--(208,54)--(208,55)--(207,56)--(207,57)--(207,58)--
 (206,59)--(206,60)--(206,61)--(205,62)--(205,63)--(205,64)--(204,65)--
 (204,66)--(204,67)--(203,68)--(203,69)--(203,70)--(202,71)--(202,72)--
 (202,73)--(202,74)--(201,75)--(201,76)--(201,77)--(200,78)--(200,79)--
 (200,80)--(199,81)--(199,82)--(199,83)--(198,84)--(198,85)--(198,86)--
 (197,87)--(197,88)--(197,89)--(197,90)--(196,91)--(196,92)--(196,93)--
 (195,94)--(195,95)--(195,96)--(194,97)--(194,98)--(194,99)--(193,100)--
 (193,101)--cycle;
 a(200,101)--(200,101)--(200,100)--(200,99)--(200,98)--(200,97)--
 (200,96)--(200,95)--(200,94)--(200,93)--(200,92)--(200,91)--(200,90)--
 (214,89)--(214,88)--(214,87)--(214,86)--(214,85)--(214,84)--(214,83)--
 (214,82)--(214,81)--(214,80)--(214,79)--(214,78)--(214,77)--(214,76)--
 (214,75)--(214,74)--(214,73)--(214,72)--(214,71)--(214,70)--(214,69)--
 (214,68)--(214,67)--(214,66)--(214,65)--(214,64)--(214,63)--(214,62)--
 (214,61)--(214,60)--(214,59)--(214,58)--(214,57)--(214,56)--(214,55)--
 (214,54)--(214,53)--(214,52)--(214,51)--(214,50)--(214,49)--(214,48)--
 (228,48)--(228,49)--(228,50)--(228,51)--(228,52)--(228,53)--(228,54)--
 (228,55)--(228,56)--(228,57)--(228,58)--(228,59)--(228,60)--(228,61)--
 (228,62)--(228,63)--(228,64)--(228,65)--(228,66)--(228,67)--(228,68)--
 (228,69)--(228,70)--(228,71)--(228,72)--(228,73)--(228,74)--(228,75)--
 (228,76)--(228,77)--(228,78)--(228,79)--(228,80)--(228,81)--(228,82)--
 (228,83)--(228,84)--(228,85)--(228,86)--(228,87)--(228,88)--(228,89)--
 (241,90)--(241,91)--(241,92)--(241,93)--(241,94)--(241,95)--(241,96)--
 (241,97)--(241,98)--(241,99)--(241,100)--(241,101)--cycle;
 a(266,101)--(266,101)--
 (266,100)--(266,99)--(266,98)--(266,97)--(266,96)--(266,95)--(266,94)--
 (266,93)--(266,92)--(266,91)--(266,90)--(280,89)--(280,88)--(280,87)--
 (280,86)--(280,85)--(280,84)--(280,83)--(280,82)--(280,81)--(280,80)--
 (280,79)--(280,78)--(280,77)--(280,76)--(280,75)--(280,74)--(280,73)--
 (280,72)--(280,71)--(280,70)--(280,69)--(280,68)--(280,67)--(280,66)--
 (280,65)--(280,64)--(280,63)--(280,62)--(280,61)--(280,60)--(280,59)--
 (280,58)--(280,57)--(280,56)--(280,55)--(280,54)--(280,53)--(280,52)--
 (280,51)--(280,50)--(280,49)--(280,48)--(294,48)--(294,49)--(294,50)--
 (294,51)--(294,52)--(294,53)--(294,54)--(294,55)--(294,56)--(294,57)--
 (294,58)--(294,59)--(294,60)--(294,61)--(294,62)--(294,63)--(294,64)--
 (294,65)--(294,66)--(294,67)--(294,68)--(294,69)--(294,70)--(294,71)--
 (294,72)--(294,73)--(294,74)--(294,75)--(294,76)--(294,77)--(294,78)--
 (294,79)--(294,80)--(294,81)--(294,82)--(294,83)--(294,84)--(294,85)--
 (294,86)--(294,87)--(294,88)--(294,89)--(308,90)--(308,91)--(308,92)--
 (308,93)--(308,94)--(308,95)--(308,96)--(308,97)--(308,98)--(308,99)--
 (308,100)--(308,101)--cycle;
 a(251,91)--(251,91)--(245,90)--(243,89)--(241,88)--
 (240,87)--(239,86)--(239,85)--(238,84)--(238,83)--(237,82)--(237,81)--
 (237,80)--(237,79)--(237,78)--(238,77)--(238,76)--(238,75)--(239,74)--
 (239,73)--(240,72)--(239,71)--(238,70)--(237,69)--(237,68)--(237,67)--
 (236,66)--(236,65)--(235,64)--(235,63)--(235,62)--(235,61)--(235,60)--
 (235,59)--(235,58)--(236,57)--(236,56)--(237,55)--(237,54)--(238,53)--
 (239,52)--(240,51)--(241,50)--(243,49)--(245,48)--(249,47)--(259,47)--
 (262,48)--(265,49)--(267,50)--(270,49)--(272,48)--(276,48)--(276,49)--
 (276,50)--(276,51)--(276,52)--(276,53)--(276,54)--(276,55)--(276,56)--
 (276,57)--(273,58)--(273,59)--(274,60)--(274,61)--(274,62)--(274,63)--
 (274,64)--(274,65)--(274,66)--(274,67)--(274,68)--(274,69)--(274,70)--
 (274,71)--(274,72)--(274,73)--(274,74)--(264,75)--(264,76)--(264,77)--
 (264,78)--(264,79)--(264,80)--(264,81)--(264,82)--(264,83)--(263,84)--
 (263,85)--(263,86)--(262,87)--(261,88)--(260,89)--(258,90)--(253,91)--
 cycle;
 a(114,88)--(114,88)--(101,87)--(93,86)--(84,85)--(49,84)--(15,85)--
 (3,86)--(1,86)--(1,85)--(1,84)--(0,83)--(0,82)--(0,81)--(0,80)--(0,79)--
 (0,78)--(0,77)--(4,77)--(11,78)--(28,79)--(53,80)--(79,79)--(92,78)--
 (102,77)--(148,77)--(148,78)--(148,79)--(148,80)--(147,81)--(147,82)--
 (147,83)--(147,84)--(147,85)--(147,86)--(146,87)--(146,88)--cycle;
 a(185,82)--
 (185,82)--(186,83)--(187,82)--(187,81)--(187,80)--(188,79)--(188,78)--
 (188,77)--(188,76)--(189,75)--(189,74)--(189,73)--(189,72)--(190,71)--
 (190,70)--(190,69)--(185,68)--(181,69)--(181,70)--(181,71)--(182,72)--
 (182,73)--(182,74)--(183,75)--(183,76)--(183,77)--(184,78)--(184,79)--
 (184,80)--(184,81)--cycle e;
 a(250,82)--(250,82)--(251,83)--(253,82)--(254,81)--
 (254,80)--(254,79)--(254,78)--(254,77)--(254,76)--(254,75)--(252,74)--
 (251,75)--(250,76)--(249,77)--(249,78)--(249,79)--(249,80)--(249,81)--
 cycle e;
 a(254,73)--(254,73)--(259,74)--(264,73)--(264,72)--(264,71)--(264,70)--
 (264,69)--(264,68)--(264,67)--(264,66)--(263,65)--(262,66)--(261,67)--
 (260,68)--(258,69)--(257,70)--(256,71)--(255,72)--cycle e;
 a(100,72)--(100,72)--
 (90,71)--(80,70)--(48,69)--(17,70)--(8,71)--(0,71)--(0,70)--(0,69)--
 (0,68)--(0,67)--(0,66)--(1,65)--(1,64)--(1,63)--(1,62)--(7,62)--(17,63)--
 (49,64)--(81,63)--(94,62)--(147,62)--(147,63)--(147,64)--(147,65)--
 (147,66)--(147,67)--(148,68)--(148,69)--(148,70)--(148,71)--(148,72)--
 cycle;
 a(246,64)--(246,64)--(247,65)--(249,64)--(250,63)--(252,62)--(253,61)--
 (254,60)--(255,59)--(255,58)--(252,57)--(250,58)--(248,59)--(247,60)--
 (247,61)--(246,62)--(246,63)--cycle e;
 a(91,57)--(91,57)--(75,56)--(65,55)--
 (64,54)--(63,55)--(62,55)--(44,54)--(27,55)--(13,56)--(2,56)--(3,55)--
 (3,54)--(3,53)--(3,52)--(4,51)--(4,50)--(4,49)--(5,48)--(5,47)--(6,46)--
 (6,45)--(12,45)--(24,46)--(40,47)--(46,48)--(53,47)--(143,47)--(143,48)--
 (144,49)--(144,50)--(144,51)--(145,52)--(145,53)--(145,54)--(145,55)--
 (145,56)--(145,57)--cycle;
 a(8,42)--(8,42)--(8,41)--(9,40)--(9,39)--(9,38)--
 (10,37)--(11,36)--(11,35)--(12,34)--(12,33)--(13,32)--(14,31)--(15,30)--
 (24,30)--(37,31)--(46,32)--(55,31)--(134,31)--(135,32)--(135,33)--
 (136,34)--(137,35)--(137,36)--(138,37)--(139,38)--(139,39)--(139,40)--
 (140,41)--(140,42)--(78,42)--(59,41)--(45,40)--(32,41)--(13,42)--
 cycle;
 a(18,26)--(18,26)--(19,25)--(20,24)--(20,23)--(21,22)--(22,21)--(23,20)--
 (24,19)--(26,18)--(27,17)--(28,16)--(120,16)--(121,17)--(123,18)--
 (124,19)--(125,20)--(126,21)--(127,22)--(128,23)--(129,24)--(129,25)--
 (130,26)--cycle;
 a(36,11)--(36,11)--(37,10)--(39,9)--(40,8)--(42,7)--(44,6)--
 (47,5)--(49,4)--(52,3)--(56,2)--(60,1)--(67,0)--(80,0)--(88,1)--(92,2)--
 (96,3)--(99,4)--(101,5)--(104,6)--(106,7)--(108,8)--(110,9)--(111,10)--
 (113,11)--cycle;
 p scaled (fontsize n/150) enddef;

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.