% This font contains single character "L" that looks like the
% lucent logo, except it is black instead of red.
if unknown dsize:
dsize = 45; % The design size in points
fi % logo is this high and this wide
% Fill the paths given by pth[i] for i=loopdef, assuming that they divide
% the plane into regions of winding number 0 and 1.
% Paths with negative turning number are erased rather than filled.
% This takes advantage of the fact that it is harmless to unfill the
% center of an "O" before filling the outside.
vardef multifill(suffix pth)(text loopdef) =
for i_=loopdef:
if turningnumber pth[i_] <0:
unfill pth[i_];
else:
fill pth[i_];
fi
endfor
enddef;
path blot[];
blot[1]= (1492,-820)--(1498,-817)--(1498,-816)--(1488,-816)
--(1492,-820);
blot[2]= (1477,-868)--(1490,-868)--(1481,-859)--(1477,-868);
blot[3]= (1472,-938)--(1485,-940)--(1478,-926)--(1472,-938);
blot[4]= (1456,-697)--(1458,-701)--(1452,-701)--(1456,-697);
blot[5]= (1448,-529)--(1436,-531)--(1440,-541)--(1455,-543)
--(1455,-536)--(1448,-529);
blot[6]= (1434,-589)--(1442,-591)--(1442,-597)--(1432,-597)
--(1434,-589);
blot[7]= (1414,-1097)--(1418,-1093)--(1418,-1089)--(1412,-1089)
--(1414,-1097);
blot[8]= (1345,-346)--(1361,-344)--(1352,-338)--(1343,-338)
--(1345,-346);
blot[9]= (1339,-416)--(1347,-408)--(1347,-418)--(1339,-416);
blot[10]= (1316,-359)--(1323,-349)--(1329,-363)--(1322,-363)
--(1316,-359);
blot[11]= (1315,-344)--(1317,-348)--(1311,-348)--(1315,-344);
blot[12]= (1313,-339)--(1305,-339)--(1303,-346)--(1295,-344)
--(1301,-332)--(1311,-332)--(1313,-339);
blot[13]= (1253,-202)--(1265,-200)--(1265,-194)--(1251,-194)
--(1253,-202);
blot[14]= (1223,-710)--(1231,-697)--(1231,-711)--(1223,-710);
blot[15]= (1238,-193)--(1238,-187)--(1249,-187)--(1244,-178)
--(1232,-174)--(1220,-192)--(1225,-198)--(1238,-193);
blot[16]= (1215,-926)--(1217,-930)--(1211,-930)--(1215,-926);
blot[17]= (1209,-376)--(1221,-388)--(1207,-388)--(1209,-376);
blot[18]= (1203,-145)--(1209,-142)--(1209,-141)--(1199,-141)
--(1203,-145);
blot[19]= (1204,-1379)--(1191,-1387)--(1205,-1387)--(1204,-1379);
blot[20]= (1195,-244)--(1179,-252)--(1197,-252)--(1195,-244);
blot[21]= (1186,-370)--(1186,-355)--(1181,-340)--(1198,-350)
--(1205,-368)--(1186,-370);
blot[22]= (1179,-242)--(1189,-240)--(1189,-238)--(1175,-238)
--(1179,-242);
blot[23]= (1175,-328)--(1181,-331)--(1181,-332)--(1171,-332)
--(1175,-328);
blot[24]= (1171,-324)--(1173,-328)--(1167,-328)--(1171,-324);
blot[25]= (1175,-151)--(1177,-160)--(1185,-162)--(1170,-173)
--(1165,-172)--(1159,-153)--(1175,-151);
blot[26]= (1174,-58)--(1155,-58)--(1157,-61)--(1171,-75)
--(1179,-77)--(1179,-64)--(1174,-58);
blot[27]= (1155,-226)--(1163,-234)--(1163,-224)--(1155,-226);
blot[28]= (1161,-769)--(1159,-778)--(1151,-780)--(1153,-792)
--(1176,-782)--(1171,-771)--(1161,-769);
blot[29]= (1147,-685)--(1135,-687)--(1135,-696)--(1140,-699)
--(1166,-692)--(1147,-685);
blot[30]= (1133,-655)--(1141,-647)--(1131,-647)--(1133,-655);
blot[31]= (1117,-972)--(1125,-974)--(1129,-964)--(1119,-964)
--(1117,-972);
blot[32]= (1115,-531)--(1125,-529)--(1125,-527)--(1111,-527)
--(1115,-531);
blot[33]= (1107,-988)--(1113,-985)--(1113,-984)--(1103,-984)
--(1107,-988);
blot[34]= (1103,-149)--(1109,-146)--(1109,-145)--(1099,-145)
--(1103,-149);
blot[35]= (1106,-1065)--(1120,-1047)--(1109,-1038)--(1088,-1059)
--(1098,-1071)--(1106,-1065);
blot[36]= (1074,-43)--(1070,-47)--(1073,-58)--(1087,-61)
--(1087,-48)--(1074,-43);
blot[37]= (1074,-432)--(1062,-438)--(1062,-440)--(1076,-440)
--(1074,-432);
blot[38]= (1088,-449)--(1077,-455)--(1065,-455)--(1058,-466)
--(1069,-466)--(1082,-458)--(1093,-456)--(1088,-449);
blot[39]= (1054,-279)--(1081,-279)--(1093,-276)--(1105,-264)
--(1118,-267)--(1121,-270)--(1117,-280)--(1097,-282)
--(1095,-292)--(1086,-287)--(1063,-287)--(1054,-279);
blot[40]= (1050,-1084)--(1060,-1082)--(1060,-1080)--(1046,-1080)
--(1050,-1084);
blot[41]= (1042,-1068)--(1046,-1072)--(1047,-1072)--(1059,-1056)
--(1046,-1056)--(1042,-1068);
blot[42]= (1038,-324)--(1040,-328)--(1034,-328)--(1038,-324);
blot[43]= (1034,-320)--(1036,-324)--(1030,-324)--(1034,-320);
blot[44]= (1030,-1157)--(1042,-1151)--(1044,-1151)--(1026,-1169)
--(1030,-1157);
blot[45]= (1020,-1117)--(1013,-1106)--(1021,-1090)--(1030,-1071)
--(1020,-1074)--(1013,-1081)--(1002,-1101)--(1008,-1113)
--(1020,-1117);
blot[46]= (1016,-44)--(1002,-31)--(994,-31)--(1005,-42)
--(1016,-44);
blot[47]= (979,-198)--(993,-195)--(996,-190)--(982,-190)
--(979,-198);
blot[48]= (992,-1114)--(990,-1107)--(988,-1107)--(981,-1114)
--(981,-1121)--(992,-1114);
blot[49]= (1229,-314)--(1218,-303)--(1203,-291)--(1194,-287)
--(1166,-259)--(1151,-229)--(1139,-224)--(1124,-209)
--(1117,-207)--(1090,-185)--(1090,-171)--(1067,-161)
--(1062,-150)--(1069,-146)--(1085,-146)--(1097,-137)
--(1097,-136)--(1041,-143)--(1037,-142)--(1037,-128)
--(1029,-119)--(1029,-137)--(1028,-137)--(1000,-121)
--(988,-119)--(986,-113)--(974,-111)--(984,-103)
--(994,-103)--(1015,-116)--(1035,-104)--(1045,-108)
--(1045,-129)--(1050,-129)--(1052,-122)--(1090,-122)
--(1106,-130)--(1115,-148)--(1124,-149)--(1140,-166)
--(1160,-196)--(1179,-207)--(1181,-214)--(1194,-227)
--(1202,-243)--(1220,-265)--(1225,-282)--(1212,-292)
--(1242,-307)--(1230,-314)--(1229,-314);
blot[50]= (989,-1126)--(959,-1141)--(959,-1149)--(994,-1139)
--(994,-1127)--(989,-1126);
blot[51]= (956,-1129)--(964,-1121)--(954,-1121)--(956,-1129);
blot[52]= (949,-102)--(940,-93)--(972,-98)--(970,-102)
--(949,-102);
blot[53]= (952,-153)--(934,-152)--(941,-161)--(952,-153);
blot[54]= (963,-189)--(975,-173)--(973,-171)--(932,-171)
--(931,-176)--(963,-189);
blot[55]= (928,-149)--(940,-147)--(940,-145)--(932,-136)
--(928,-149);
blot[56]= (891,-1161)--(908,-1153)--(894,-1153)--(891,-1161);
blot[57]= (868,-1482)--(876,-1474)--(866,-1474)--(868,-1482);
blot[58]= (880,-150)--(880,-157)--(865,-167)--(876,-178)
--(898,-178)--(900,-166)--(882,-164)--(884,-156)
--(893,-156)--(909,-166)--(909,-162)--(901,-150)
--(880,-150);
blot[59]= (862,-1165)--(868,-1153)--(868,-1151)--(858,-1161)
--(862,-1165);
blot[60]= (838,-95)--(840,-99)--(834,-99)--(838,-95);
blot[61]= (826,-127)--(810,-129)--(814,-139)--(828,-139)
--(826,-127);
blot[62]= (807,-1173)--(823,-1169)--(828,-1165)--(810,-1165)
--(807,-1173);
blot[63]= (757,-1157)--(767,-1165)--(775,-1165)--(765,-1155)
--(757,-1157);
blot[64]= (755,-318)--(763,-316)--(763,-310)--(753,-310)
--(755,-318);
blot[65]= (751,-149)--(759,-141)--(749,-141)--(751,-149);
blot[66]= (719,-314)--(731,-312)--(731,-306)--(717,-306)
--(719,-314);
blot[67]= (745,-97)--(713,-95)--(721,-85)--(747,-85)
--(745,-97);
blot[68]= (709,-99)--(711,-103)--(705,-103)--(709,-99);
blot[69]= (709,-238)--(731,-236)--(731,-228)--(739,-230)
--(738,-240)--(722,-248)--(705,-250)--(709,-238);
blot[70]= (709,-1161)--(715,-1158)--(715,-1157)--(705,-1157)
--(709,-1161);
blot[71]= (683,-1153)--(691,-1145)--(681,-1145)--(683,-1153);
blot[72]= (660,-115)--(671,-117)--(658,-126)--(653,-126)
--(660,-115);
blot[73]= (668,-287)--(672,-267)--(682,-265)--(676,-292)
--(662,-297)--(649,-290)--(667,-288)--(668,-287);
blot[74]= (649,-268)--(651,-272)--(645,-272)--(649,-268);
blot[75]= (641,-139)--(643,-143)--(637,-143)--(641,-139);
blot[76]= (627,-268)--(631,-272)--(631,-276)--(625,-276)
--(627,-268);
blot[77]= (610,-164)--(619,-166)--(611,-176)--(601,-177)
--(610,-164);
blot[78]= (601,-328)--(604,-334)--(616,-331)--(617,-330)
--(623,-318)--(614,-318)--(601,-328);
blot[79]= (587,-330)--(595,-322)--(585,-322)--(587,-330);
blot[80]= (619,-269)--(608,-279)--(584,-279)--(578,-276)
--(584,-267)--(590,-262)--(610,-262)--(619,-269);
blot[81]= (582,-316)--(569,-324)--(583,-324)--(582,-316);
blot[82]= (557,-202)--(563,-199)--(563,-198)--(553,-198)
--(557,-202);
blot[83]= (551,-226)--(563,-220)--(563,-218)--(549,-218)
--(551,-226);
blot[84]= (546,-285)--(552,-270)--(568,-274)--(571,-279)
--(546,-285);
blot[85]= (543,-95)--(559,-97)--(555,-103)--(541,-103)
--(543,-95);
blot[86]= (539,-210)--(547,-208)--(547,-202)--(537,-202)
--(539,-210);
blot[87]= (529,-33)--(531,-29)--(525,-29)--(529,-33);
blot[88]= (556,-348)--(531,-364)--(517,-366)--(519,-367)
--(541,-367)--(559,-353)--(556,-348);
blot[89]= (516,-213)--(516,-219)--(509,-230)--(515,-228)
--(531,-212)--(531,-208)--(516,-213);
blot[90]= (491,-103)--(499,-105)--(499,-111)--(489,-111)
--(491,-103);
blot[91]= (490,-127)--(508,-118)--(518,-112)--(535,-99)
--(539,-103)--(539,-106)--(533,-124)--(521,-125)
--(508,-136)--(490,-127);
blot[92]= (533,-1494)--(504,-1487)--(485,-1480)--(481,-1484)
--(484,-1491)--(500,-1491)--(526,-1502)--(535,-1500)
--(533,-1494);
blot[93]= (460,-1425)--(462,-1413)--(466,-1410)--(479,-1416)
--(460,-1425);
blot[94]= (452,-134)--(473,-125)--(485,-129)--(474,-147)
--(459,-156)--(452,-134);
blot[95]= (583,-180)--(573,-195)--(577,-198)--(588,-187)
--(588,-177)--(596,-168)--(596,-195)--(606,-198)
--(630,-185)--(623,-170)--(628,-168)--(628,-160)
--(644,-170)--(653,-170)--(655,-162)--(667,-158)
--(684,-163)--(704,-163)--(712,-159)--(712,-141)
--(738,-139)--(747,-132)--(744,-127)--(733,-127)
--(702,-132)--(684,-138)--(676,-138)--(664,-145)
--(653,-143)--(655,-139)--(672,-122)--(689,-122)
--(691,-129)--(704,-126)--(707,-121)--(693,-119)
--(709,-108)--(711,-117)--(714,-117)--(737,-107)
--(739,-119)--(758,-124)--(761,-121)--(762,-110)
--(788,-100)--(809,-110)--(829,-110)--(840,-121)
--(853,-121)--(853,-103)--(877,-103)--(894,-113)
--(897,-114)--(929,-122)--(957,-138)--(987,-148)
--(1007,-162)--(1025,-171)--(1033,-179)--(1058,-195)
--(1060,-214)--(1061,-215)--(1076,-218)--(1088,-230)
--(1091,-229)--(1108,-258)--(1089,-258)--(1077,-251)
--(1065,-251)--(1040,-246)--(1026,-225)--(1035,-214)
--(1007,-200)--(996,-200)--(971,-210)--(979,-221)
--(973,-223)--(946,-223)--(921,-208)--(921,-199)
--(909,-199)--(901,-195)--(873,-195)--(855,-192)
--(809,-176)--(792,-173)--(692,-183)--(670,-191)
--(658,-199)--(630,-207)--(624,-207)--(619,-212)
--(597,-214)--(592,-219)--(588,-219)--(568,-227)
--(541,-236)--(524,-246)--(503,-246)--(501,-239)
--(488,-239)--(476,-243)--(476,-259)--(461,-270)
--(454,-270)--(452,-262)--(465,-260)--(467,-244)
--(470,-241)--(507,-227)--(498,-213)--(524,-203)
--(552,-186)--(582,-180)--(583,-180);
blot[96]= (440,-125)--(442,-117)--(457,-112)--(457,-119)
--(440,-125);
blot[97]= (436,-212)--(432,-202)--(444,-196)--(444,-210)
--(436,-212);
blot[98]= (416,-220)--(422,-223)--(422,-224)--(412,-224)
--(416,-220);
blot[99]= (406,-924)--(414,-922)--(414,-916)--(404,-916)
--(406,-924);
blot[100]= (382,-745)--(374,-737)--(374,-747)--(382,-745);
blot[101]= (368,-1402)--(382,-1401)--(373,-1392)--(368,-1402);
blot[102]= (364,-139)--(366,-143)--(360,-143)--(364,-139);
blot[103]= (324,-244)--(326,-248)--(320,-248)--(324,-244);
blot[104]= (454,-414)--(440,-412)--(440,-406)--(452,-404)
--(454,-396)--(456,-396)--(458,-406)--(466,-403)
--(471,-387)--(460,-385)--(460,-383)--(492,-383)
--(504,-375)--(512,-375)--(515,-370)--(503,-368)
--(513,-358)--(502,-354)--(496,-359)--(486,-374)
--(478,-362)--(494,-351)--(528,-343)--(546,-334)
--(563,-332)--(567,-322)--(549,-320)--(552,-313)
--(559,-311)--(603,-304)--(626,-288)--(635,-288)
--(625,-303)--(625,-304)--(645,-306)--(659,-312)
--(659,-315)--(648,-315)--(647,-320)--(663,-325)
--(673,-313)--(688,-307)--(715,-298)--(712,-295)
--(700,-295)--(695,-292)--(700,-271)--(741,-271)
--(743,-273)--(734,-280)--(717,-282)--(719,-290)
--(753,-290)--(755,-283)--(745,-268)--(759,-271)
--(787,-291)--(788,-298)--(794,-298)--(805,-287)
--(814,-282)--(853,-295)--(861,-295)--(885,-307)
--(915,-315)--(921,-319)--(933,-331)--(949,-339)
--(985,-359)--(994,-354)--(1006,-353)--(1012,-338)
--(982,-322)--(982,-318)--(989,-316)--(989,-301)
--(983,-298)--(962,-296)--(960,-289)--(970,-276)
--(990,-292)--(1004,-294)--(1030,-320)--(1010,-322)
--(1010,-332)--(1030,-334)--(1043,-339)--(1048,-351)
--(1031,-351)--(1026,-359)--(1010,-359)--(1014,-368)
--(1029,-368)--(1069,-415)--(1078,-424)--(1080,-435)
--(1106,-457)--(1123,-481)--(1114,-488)--(1102,-488)
--(1092,-494)--(1107,-519)--(1111,-519)--(1113,-501)
--(1143,-513)--(1145,-517)--(1131,-531)--(1131,-533)
--(1146,-536)--(1153,-579)--(1149,-579)--(1135,-565)
--(1131,-569)--(1138,-592)--(1154,-612)--(1169,-652)
--(1174,-672)--(1178,-680)--(1178,-752)--(1182,-776)
--(1182,-789)--(1188,-804)--(1174,-813)--(1172,-815)
--(1166,-833)--(1162,-841)--(1162,-865)--(1169,-884)
--(1161,-894)--(1143,-896)--(1143,-902)--(1157,-904)
--(1157,-911)--(1139,-923)--(1139,-929)--(1170,-942)
--(1173,-954)--(1185,-956)--(1181,-976)--(1173,-992)
--(1162,-981)--(1150,-985)--(1142,-985)--(1122,-980)
--(1122,-998)--(1111,-1000)--(1111,-1006)--(1121,-1008)
--(1141,-1028)--(1141,-1033)--(1133,-1046)--(1131,-1056)
--(1102,-1085)--(1097,-1088)--(1087,-1078)--(1082,-1078)
--(1072,-1092)--(1045,-1110)--(1039,-1120)--(1041,-1122)
--(1064,-1122)--(1060,-1128)--(1051,-1134)--(1041,-1134)
--(1030,-1151)--(996,-1159)--(985,-1166)--(961,-1190)
--(945,-1198)--(933,-1198)--(924,-1207)--(903,-1209)
--(891,-1215)--(867,-1219)--(857,-1214)--(793,-1214)
--(781,-1218)--(760,-1218)--(730,-1203)--(727,-1203)
--(725,-1213)--(724,-1213)--(712,-1206)--(692,-1202)
--(676,-1198)--(655,-1194)--(644,-1186)--(626,-1168)
--(620,-1166)--(595,-1166)--(593,-1158)--(584,-1155)
--(563,-1139)--(561,-1122)--(544,-1115)--(544,-1107)
--(529,-1101)--(528,-1102)--(516,-1090)--(468,-1054)
--(427,-1013)--(403,-982)--(403,-961)--(393,-937)
--(391,-929)--(391,-917)--(381,-911)--(387,-881)
--(387,-877)--(375,-877)--(372,-862)--(372,-860)
--(383,-849)--(371,-837)--(371,-805)--(382,-805)
--(382,-804)--(364,-786)--(367,-772)--(372,-769)
--(374,-780)--(381,-766)--(379,-764)--(367,-764)
--(356,-749)--(356,-732)--(376,-732)--(378,-718)
--(383,-704)--(383,-680)--(387,-672)--(387,-656)
--(406,-637)--(406,-624)--(382,-609)--(380,-593)
--(359,-598)--(347,-604)--(335,-604)--(323,-608)
--(323,-621)--(305,-626)--(297,-618)--(306,-603)
--(315,-576)--(315,-564)--(333,-510)--(373,-470)
--(387,-463)--(403,-447)--(415,-443)--(441,-430)
--(442,-429)--(433,-419)--(451,-419)--(454,-414);
blot[105]= (301,-1323)--(310,-1317)--(307,-1314)--(294,-1311)
--(294,-1321)--(301,-1323);
blot[106]= (376,-1420)--(371,-1415)--(359,-1407)--(351,-1398)
--(335,-1382)--(319,-1374)--(319,-1370)--(308,-1348)
--(298,-1347)--(296,-1339)--(288,-1347)--(295,-1358)
--(316,-1379)--(318,-1391)--(331,-1393)--(335,-1399)
--(363,-1427)--(387,-1443)--(423,-1463)--(441,-1472)
--(452,-1474)--(454,-1467)--(395,-1432)--(376,-1420);
blot[107]= (266,-1329)--(282,-1341)--(286,-1339)--(281,-1324)
--(271,-1314)--(264,-1314)--(266,-1329);
blot[108]= (256,-1255)--(268,-1259)--(274,-1267)--(260,-1267)
--(256,-1255);
blot[109]= (372,-190)--(374,-183)--(383,-183)--(391,-179)
--(394,-167)--(404,-167)--(406,-174)--(418,-174)
--(411,-155)--(411,-143)--(403,-146)--(400,-158)
--(396,-154)--(398,-139)--(417,-123)--(432,-119)
--(428,-135)--(420,-137)--(420,-143)--(435,-145)
--(435,-154)--(439,-159)--(463,-165)--(467,-169)
--(456,-194)--(444,-198)--(458,-180)--(454,-176)
--(446,-176)--(443,-185)--(435,-189)--(426,-182)
--(414,-186)--(412,-205)--(382,-217)--(380,-226)
--(368,-224)--(368,-218)--(377,-215)--(380,-204)
--(378,-204)--(363,-207)--(360,-222)--(332,-250)
--(331,-250)--(331,-237)--(321,-234)--(313,-238)
--(312,-250)--(295,-267)--(264,-294)--(264,-280)
--(254,-280)--(251,-295)--(244,-297)--(247,-283)
--(259,-271)--(259,-251)--(272,-248)--(274,-232)
--(292,-214)--(297,-201)--(303,-195)--(305,-194)
--(328,-192)--(330,-206)--(343,-199)--(353,-186)
--(340,-184)--(340,-182)--(370,-152)--(370,-139)
--(382,-135)--(390,-155)--(387,-163)--(369,-163)
--(360,-186)--(360,-188)--(372,-190);
blot[110]= (210,-264)--(208,-252)--(203,-259)--(203,-266)
--(210,-264);
blot[111]= (188,-250)--(200,-246)--(206,-238)--(196,-238)
--(188,-250);
blot[112]= (184,-286)--(172,-284)--(176,-278)--(186,-278)
--(184,-286);
blot[113]= (164,-362)--(172,-370)--(172,-360)--(164,-362);
blot[114]= (123,-406)--(125,-418)--(131,-414)--(131,-404)
--(123,-406);
blot[115]= (127,-1050)--(129,-1054)--(123,-1054)--(127,-1050);
blot[116]= (122,-311)--(119,-326)--(123,-326)--(134,-315)
--(134,-308)--(122,-311);
blot[117]= (107,-336)--(129,-338)--(121,-330)--(107,-336);
blot[118]= (117,-1095)--(114,-1081)--(109,-1078)--(109,-1097)
--(117,-1095);
blot[119]= (103,-944)--(104,-956)--(116,-950)--(115,-942)
--(103,-944);
blot[120]= (91,-388)--(94,-403)--(103,-406)--(103,-392)
--(91,-388);
blot[121]= (71,-840)--(73,-852)--(79,-848)--(79,-838)
--(71,-840);
blot[122]= (83,-874)--(76,-877)--(73,-883)--(77,-895)
--(93,-894)--(83,-874);
blot[123]= (79,-854)--(67,-856)--(71,-866)--(81,-866)
--(79,-854);
blot[124]= (69,-794)--(63,-803)--(69,-815)--(75,-803)
--(69,-794);
blot[125]= (69,-934)--(64,-944)--(82,-958)--(87,-956)
--(88,-945)--(69,-934);
blot[126]= (65,-404)--(59,-407)--(61,-422)--(71,-432)
--(75,-434)--(75,-426)--(65,-404);
blot[127]= (61,-471)--(65,-467)--(65,-462)--(59,-462)
--(61,-471);
blot[128]= (65,-910)--(59,-922)--(63,-926)--(76,-922)
--(75,-914)--(65,-910);
blot[129]= (53,-462)--(57,-458)--(57,-450)--(51,-450)
--(53,-462);
blot[130]= (53,-810)--(47,-798)--(45,-798)--(45,-812)
--(53,-810);
blot[131]= (41,-679)--(49,-677)--(49,-671)--(39,-671)
--(41,-679);
blot[132]= (41,-691)--(45,-687)--(45,-683)--(39,-683)
--(41,-691);
blot[133]= (41,-731)--(49,-723)--(39,-723)--(41,-731);
blot[134]= (44,-665)--(53,-659)--(50,-656)--(37,-653)
--(37,-663)--(44,-665);
blot[135]= (37,-529)--(29,-521)--(29,-531)--(37,-529);
blot[136]= (48,-707)--(47,-697)--(39,-707)--(39,-709)
--(56,-711)--(65,-717)--(54,-732)--(50,-740)
--(42,-740)--(35,-747)--(55,-747)--(57,-737)
--(72,-757)--(59,-763)--(62,-772)--(74,-772)
--(83,-819)--(98,-873)--(106,-881)--(106,-893)
--(113,-912)--(109,-916)--(101,-916)--(87,-902)
--(80,-904)--(85,-925)--(96,-925)--(121,-936)
--(121,-954)--(102,-973)--(89,-968)--(77,-972)
--(82,-981)--(82,-993)--(93,-1004)--(101,-1004)
--(105,-1000)--(96,-989)--(107,-974)--(113,-976)
--(121,-1005)--(102,-1025)--(95,-1044)--(99,-1050)
--(121,-1052)--(122,-1053)--(122,-1084)--(127,-1079)
--(129,-1062)--(140,-1067)--(132,-1080)--(140,-1116)
--(147,-1123)--(149,-1145)--(160,-1159)--(162,-1171)
--(171,-1173)--(183,-1189)--(183,-1198)--(191,-1223)
--(227,-1286)--(241,-1286)--(243,-1290)--(243,-1306)
--(258,-1309)--(264,-1309)--(266,-1301)--(252,-1287)
--(254,-1267)--(267,-1278)--(276,-1296)--(284,-1297)
--(286,-1302)--(299,-1302)--(311,-1305)--(314,-1311)
--(326,-1313)--(326,-1319)--(316,-1321)--(318,-1325)
--(334,-1341)--(338,-1338)--(328,-1323)--(337,-1325)
--(373,-1343)--(348,-1345)--(354,-1357)--(363,-1366)
--(378,-1369)--(391,-1382)--(400,-1385)--(403,-1370)
--(411,-1370)--(414,-1379)--(404,-1381)--(404,-1390)
--(455,-1390)--(458,-1397)--(443,-1407)--(437,-1417)
--(451,-1427)--(474,-1438)--(488,-1431)--(497,-1440)
--(515,-1442)--(524,-1447)--(545,-1447)--(548,-1459)
--(577,-1459)--(579,-1478)--(603,-1466)--(621,-1476)
--(624,-1478)--(636,-1471)--(645,-1476)--(665,-1478)
--(667,-1486)--(684,-1486)--(696,-1479)--(720,-1479)
--(722,-1481)--(711,-1492)--(726,-1497)--(752,-1491)
--(777,-1491)--(782,-1482)--(826,-1488)--(844,-1480)
--(845,-1479)--(863,-1456)--(877,-1467)--(912,-1467)
--(912,-1472)--(894,-1474)--(896,-1479)--(925,-1479)
--(937,-1467)--(954,-1467)--(956,-1456)--(962,-1456)
--(963,-1470)--(971,-1466)--(981,-1454)--(993,-1451)
--(1018,-1451)--(1097,-1434)--(1114,-1424)--(1144,-1432)
--(1166,-1415)--(1174,-1407)--(1193,-1392)--(1188,-1391)
--(1149,-1409)--(1136,-1414)--(1123,-1406)--(1134,-1390)
--(1140,-1385)--(1155,-1384)--(1158,-1378)--(1158,-1366)
--(1178,-1350)--(1178,-1342)--(1202,-1330)--(1212,-1324)
--(1230,-1306)--(1242,-1306)--(1255,-1300)--(1262,-1277)
--(1269,-1275)--(1287,-1257)--(1288,-1251)--(1310,-1238)
--(1327,-1221)--(1328,-1211)--(1353,-1197)--(1344,-1186)
--(1350,-1174)--(1364,-1171)--(1374,-1156)--(1374,-1142)
--(1377,-1136)--(1390,-1135)--(1390,-1122)--(1395,-1114)
--(1403,-1098)--(1403,-1090)--(1407,-1081)--(1423,-1073)
--(1417,-1063)--(1419,-1061)--(1431,-1058)--(1431,-1045)
--(1435,-1033)--(1435,-1016)--(1444,-1010)--(1446,-990)
--(1452,-990)--(1454,-1000)--(1467,-989)--(1472,-959)
--(1463,-958)--(1463,-945)--(1455,-933)--(1462,-921)
--(1452,-905)--(1454,-890)--(1460,-890)--(1472,-902)
--(1474,-892)--(1490,-890)--(1490,-885)--(1465,-885)
--(1457,-869)--(1474,-856)--(1474,-852)--(1456,-850)
--(1456,-845)--(1471,-845)--(1477,-827)--(1468,-826)
--(1468,-820)--(1478,-818)--(1475,-813)--(1455,-809)
--(1455,-801)--(1459,-797)--(1479,-797)--(1482,-793)
--(1472,-777)--(1472,-767)--(1490,-765)--(1485,-754)
--(1471,-763)--(1460,-761)--(1463,-752)--(1475,-752)
--(1487,-744)--(1487,-720)--(1483,-712)--(1467,-700)
--(1477,-686)--(1480,-673)--(1474,-673)--(1472,-683)
--(1470,-683)--(1468,-665)--(1467,-664)--(1452,-661)
--(1467,-650)--(1478,-659)--(1482,-655)--(1478,-643)
--(1456,-641)--(1455,-636)--(1455,-624)--(1466,-621)
--(1463,-608)--(1451,-605)--(1451,-588)--(1438,-562)
--(1424,-561)--(1420,-551)--(1428,-549)--(1432,-536)
--(1427,-528)--(1404,-505)--(1404,-499)--(1418,-497)
--(1418,-489)--(1419,-488)--(1433,-488)--(1425,-476)
--(1400,-476)--(1396,-466)--(1391,-464)--(1378,-451)
--(1386,-443)--(1368,-434)--(1366,-431)--(1366,-419)
--(1356,-409)--(1358,-407)--(1392,-407)--(1386,-399)
--(1371,-388)--(1359,-398)--(1351,-396)--(1351,-394)
--(1361,-392)--(1358,-387)--(1343,-384)--(1343,-382)
--(1354,-380)--(1354,-374)--(1361,-372)--(1359,-364)
--(1353,-364)--(1351,-371)--(1331,-371)--(1335,-362)
--(1353,-360)--(1353,-356)--(1335,-348)--(1325,-338)
--(1323,-322)--(1310,-319)--(1310,-311)--(1313,-305)
--(1325,-304)--(1315,-296)--(1314,-296)--(1298,-306)
--(1293,-304)--(1290,-295)--(1290,-279)--(1266,-259)
--(1266,-251)--(1258,-243)--(1250,-239)--(1220,-219)
--(1233,-209)--(1231,-204)--(1216,-199)--(1212,-191)
--(1221,-180)--(1206,-175)--(1187,-175)--(1187,-174)
--(1195,-171)--(1217,-153)--(1201,-151)--(1200,-158)
--(1174,-146)--(1166,-138)--(1158,-138)--(1152,-130)
--(1164,-122)--(1186,-122)--(1193,-115)--(1193,-114)
--(1153,-114)--(1152,-129)--(1119,-110)--(1119,-109)
--(1133,-107)--(1126,-99)--(1113,-107)--(1113,-94)
--(1094,-90)--(1081,-90)--(1066,-85)--(1076,-83)
--(1076,-69)--(1059,-69)--(1049,-54)--(1041,-50)
--(1009,-50)--(997,-57)--(982,-50)--(990,-34)
--(981,-34)--(965,-26)--(941,-18)--(920,-5)
--(889,-10)--(881,-19)--(865,-23)--(857,-17)
--(836,-13)--(833,-14)--(817,-22)--(789,-22)
--(777,-29)--(762,-27)--(742,-17)--(741,-7)
--(728,-10)--(715,-23)--(713,-15)--(711,-15)
--(696,-28)--(678,-21)--(676,-22)--(661,-37)
--(651,-37)--(649,-27)--(643,-27)--(641,-39)
--(629,-43)--(597,-45)--(588,-54)--(571,-54)
--(570,-58)--(545,-68)--(525,-69)--(522,-75)
--(462,-94)--(458,-101)--(407,-118)--(374,-130)
--(367,-134)--(355,-134)--(353,-136)--(362,-150)
--(361,-158)--(347,-142)--(339,-150)--(339,-159)
--(335,-167)--(335,-175)--(319,-183)--(314,-188)
--(305,-185)--(294,-176)--(279,-187)--(258,-224)
--(255,-239)--(239,-239)--(224,-228)--(216,-235)
--(225,-249)--(215,-279)--(207,-279)--(195,-286)
--(195,-271)--(167,-271)--(167,-287)--(163,-296)
--(141,-305)--(139,-324)--(133,-326)--(131,-342)
--(103,-359)--(91,-359)--(98,-371)--(98,-382)
--(103,-382)--(134,-355)--(159,-355)--(159,-343)
--(156,-335)--(139,-335)--(154,-311)--(172,-306)
--(187,-313)--(219,-301)--(232,-298)--(244,-302)
--(239,-307)--(219,-307)--(201,-313)--(192,-324)
--(202,-337)--(191,-365)--(182,-366)--(180,-386)
--(178,-386)--(176,-378)--(166,-376)--(164,-368)
--(150,-371)--(148,-373)--(157,-384)--(176,-386)
--(162,-400)--(160,-414)--(157,-414)--(143,-400)
--(142,-400)--(142,-421)--(136,-430)--(114,-441)
--(114,-472)--(105,-487)--(103,-477)--(96,-479)
--(83,-501)--(95,-503)--(89,-527)--(81,-541)
--(79,-555)--(77,-555)--(75,-525)--(70,-520)
--(70,-477)--(62,-480)--(62,-503)--(54,-500)
--(54,-485)--(42,-488)--(40,-490)--(58,-508)
--(58,-541)--(63,-541)--(65,-591)--(77,-591)
--(81,-601)--(73,-607)--(59,-593)--(30,-599)
--(25,-617)--(35,-619)--(37,-601)--(46,-606)
--(81,-633)--(59,-635)--(59,-637)--(70,-648)
--(70,-660)--(75,-668)--(70,-688)--(61,-691)
--(60,-701)--(48,-707);
blot[137]= (22,-821)--(22,-810)--(16,-819)--(22,-821);
blot[138]= (18,-584)--(35,-591)--(39,-587)--(41,-564)
--(12,-564)--(18,-584);
blot[139]= (17,-530)--(9,-517)--(9,-527)--(17,-530);
blot[140]= (7,-687)--(15,-695)--(15,-685)--(7,-687);
blot[141]= (8,-792)--(17,-784)--(11,-784)--(8,-792);
blot[142]= (7,-715)--(17,-713)--(17,-711)--(3,-711)
--(7,-715);
blot[143]= (3,-729)--(15,-735)--(17,-735)--(7,-725)
--(3,-729);
blot[144]= (3,-745)--(15,-751)--(17,-751)--(7,-741)
--(3,-745);
blot[145]= (8,-542)--(1,-525)--(1,-539)--(8,-542);
blot = 145;
for i=1 upto blot:
blot[i] := blot[i] & cycle;
endfor
mode_setup;
font_size dsize*pt#; % the "design size"; used for "at" scaling
18u# = dsize*pt#;
define_pixels(u);
beginchar("L", 18u#, 18u#, 0);
interim smoothing := 0;
interim autorounding := 0;
currenttransform := (identity shifted (0,1500) scaled (18u/1500))
transformed currenttransform;
multifill(blot, 1 upto blot);
endchar;
end;
|
