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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
.cmchar "The letter L";
.beginchar("L",8.9u#,8.7m*u#,0);
.adjust_fit(0,0);
z1=(2.15u,1.45v); z2=(2.3u,1.7v); z3=(2.1u,1.95v); z4=(1.7u,1.9v);
z5=(1.55u,2.3v); z6=(2.1u,2.65v); z7=(2.9u,1.7v); z8=(1.9u,0.8v); z9=(0.75u,2v);
z10=(2.3u,3.4v); z11=(3.65u,2.75v); z12=(4.9u,1.4v); z13=(6.35u,v);
z14=(7.9u,2.5v); z15=(7.1u,3.4v); z16=(6.4u,3v); z17=(6.45u,2.6v);
z18=(6.85u,2.45v); z19=(6.8u,2.05v); z20=(6.5u,1.9v); z21=(4.05u,2.25v);
z22=(4.2u,2.05v); z23=(4.3u,1.9v); z24=(4.4u,1.85v); z25=(4.4u,1.7v);
z26=(4.6u,1.6v); z24'=(5.1u,3.3v); z25'=(3.85u,4.55v); z26'=(3.75u,5.2v);
z27=(2.35u,3.95v); z28=(5.8u,4v); z29=(5.55u,4.8v); z30=(4.3u,5.7v);
z31=(4.05u,6.5v); z32=(4.5u,7.4v); z33=(6.45u,8.3v); z34=(7.95u,7.25v);
z35=(5u,5.25v); z36=(8.35u,8v); z37=(7.65u,8.7v); z38=(7.1u,8.2v);
z39=(7.45u,7.7v); z40=(7.8u,8v); ka(1,-53); penpos2(0.2u,0); penpos3(0.45v,90);
penpos4(0.6v,90); penpos5(0.3u,0); penpos6(1.2hair,-90); ka(7,180); ka(8,90);
penpos9(1.2hair,0); penpos10(0.55v,-90); penpos11(0.85uv,-139);
penpos12(0.9uv,-138); penpos13(0.5v,-90); penpos14(1.2hair,0); ka(15,90);
penpos16(0.3u,180); penpos17(0.55uv,-123); penpos18(0.55uv,-121);
penpos19(0.15u,180); ka(20,90); ka(21,-21.5); ka(22,-52); ka(23,-53);
ka(24,-55); ka(25,-59); ka(26,-59); penpos24'(0.2u,0); penpos25'(0.75uv,69);
ka(26',180); ka(27,-60); penpos28(0.4u,0); penpos29(0.85uv,46);
penpos30(0.9uv,32); penpos31(0.55u,0); penpos32(1.5hair,-57); ka(33,156);
ka(34,-56); ka(36,0); ka(37,90); ka(38,180); ka(39,-90); ka(40,0); ka(35,125);
penstroke z1e...z3e{left}... z4e...z6e...z7e...z8e...
z9e...z10e...z11e...z12e...z13e... z14e...z15e... z17e{(9u,1.3v)-(0,6.2v)}...
z18e{(9u,1.3v)-(0,6.2v)} ...z20e{left}; filldraw z22l{(9u,6v)-(2u,0)}...
z24'l...z25'l{(0,4.6v)-(9u,3.6v)}... z27r{z27-z34} & z27r--z27l &
z27l{z34-z27}...z26'r{up} & z26'r--z26'l & z26'l{down}...
z25'r{(9u,2.5v)-(0,6.75v)}... z24'r...z22r{(2u,0)-(9u,6v)} & z22r--z22l & cycle;
penstroke z23e{(9u,5v)-(1.6u,0)}... z28e...z29e...z30e...z31e...
z32e{(7.5u,9v)-(0,5v)}; filldraw z32r{(7.5u,9v)-(0,5v)}...
(6.25u,7.1v)...z35r{z35-z34} & z35r--z35l & z35l---z34r...z36r{up} & z36r--z36l
& z36l{down}...z34l{z35-z34} ...(6.6u,7.35v)...z33l{z33-z35} & z33l--z33r &
z33r{z35-z33}... (6u,7.9v)...z32l{(0,5v)-(7.5u,9v)} & z32l--z32r & cycle;
penstroke z36e{up}...z37e...z38e... z39e...z40e{up}; kouki(40,1,1.5);
z41=(2.85u,4.15v); z42=(0.4u,2.5v); z43=(0.9u,0.8v); z44=(1.9u,0.5v);
z45=(3.15u,1.7v); z46=(2u,2.9v); z47=(1.05u,2v); z48=(1.6u,1.2v);
z49=(1.9u,1.1v); z50=(2.6u,1.8v); z51=(2u,2.4v); z41'=(1.3u,3.85v);
z45'=(2.8u,2.6v); z52=(3.4u,0.5v); z53=(2.9u,0.1v); z54=(4.45u,0.15v);
z54'=(3.7u,1.45v); z55=(6.1u,0.3v); z56=(7.3u,0.6v); z57=(8.4u,2.5v);
z56'=(8u,1.3v); z58=(8.2u,3.4v); z59=(6.7u,4.3v); z60=(5.2u,3v);
z61=(6.45u,1.6v); z62=(7.4u,2.5v); z63=(6.8u,3v); z64=(8.6u,0.3v); z65=(8.3u,0);
z66=(8u,0.25v); z67=(8.5u,4v); z68=(6.15u,3v); z69=(6.8u,4.3v); z70=(7.9u,5.45v);
z71=(8.7u,5.8v); z72=(8.6u,4.7v); z73=(8u,4.15v); z74=(7.6u,4.5v);
z75=(5.9u,3.1v); z75'=(6.4u,4.2v); z76=(5.55u,5.65v); z77=(4.8u,7.2v);
z78=(6.5u,8.8v); z79=(8u,7.2v); z80=(6.8u,5.85v); z81=(5.6u,7v);
z82=(6.5u,7.9v); z83=(6.9u,7.6v); z84=(8.35u,8v); z85=(8.9u,8.35v);
z86=(6.7u,5.5v); z87=(5.15u,8.25v); z88=(3.5u,8.7v); z89=(2.35u,8.4v);
z90=(0.9u,7.7v); z91=(0.35u,8.4v); z92=(0.8u,8.9v); z93=(1.25u,8.75v);
z94=(1.7u,8.65v); z95=(1.3u,8.4v); z95'=(0.95u,8.15v); z96=(u,6.4v);
z97=(1.85u,5v); z98=(u,5.85v); z99=(0.35u,6.15v); z100=(0.3u,5.15v);
z101=(0.9u,4.55v); z102=(1.35u,5v); z103=(1.05u,5.35v); z104=(4.75u,6.25v);
z105=(3.1u,7.7v); z106=(2.5u,7.5v); z107=(2.05u,6.6v); z108=(2.25u,6v);
z109=(3.2u,5.65v); z110=(0,0.65v); z111=(0.55u,0); z112=(u,0.3v);
z113=(0.65u,0.8v); z114=(0.45u,0.7v); z115=(4.6u,2.9v); z120=(7.7u,1.9v);
z121=(7.9u,2.5v); z122=(8.85u,1.4v); z130=(-0.2u,3.4v); z131=(0.3u,4.3v);
z132=(1.1u,2.7v); z140=(3.5u,7v); z141=(2.9u,7.2v); z142=(4u,8.2v);
z150=(3u,7v); z151=(3.7u,6.7v); z152=(1.9u,5v); z160=(2.1u,7.15v);
z161=(1.8u,6.2v); z162=(0.25u,7.7v); ka(41,90); ka(41',123); ka(42,174);
ka(43,-124); ka(44,-90); ka(45,0); ka(45',50); ka(46,90); ka(47,180);
ka(48,-113); ka(49,-90); ka(50,0); ka(51,90); ka(52,180); ka(53,90); ka(54,-90);
ka(55,-87); ka(54',-139); ka(56,-62); ka(56',-28); ka(57,0); ka(58,23);
ka(59,90); ka(60,180); ka(61,-90); ka(62,0); ka(63,90); ka(64,180); ka(65,90);
ka(66,0); ka(67,-90); ka(68,-36); ka(69,-17); ka(70,-90); ka(71,0); ka(72,180);
ka(73,90); ka(74,0); ka(75,-35); ka(75',0); ka(76,50); ka(77,0); ka(78,-90);
ka(79,180); ka(80,90); ka(81,0); ka(82,-90); ka(83,-153); ka(84,-90); ka(85,0);
ka(86,0); ka(87,61); ka(88,90); ka(89,121); ka(90,90); ka(91,0); ka(92,-90);
ka(93,-134); ka(94,-90); ka(95,180); ka(95',90); ka(96,180); ka(97,0); ka(98,90);
ka(99,0); ka(100,180); ka(101,-90); ka(102,0); ka(103,90); ka(104,0);
ka(105,90); ka(106,128); ka(107,180); ka(108,-129); ka(109,-112); ka(110,180);
ka(111,-90); ka(112,0); ka(113,90); ka(114,180); ka(115,0); penstroke
z21e{(8.3u,9v)-(2.7u,0)}... z41e{left}...z41'e...z42e...z43e... z44e...z45e...
z45'e{(0,5.4v)-(5.4u,0)}...z46e... z47e...z48e...z49e...z50e...z51e;
mpalla(42,1.8); z45''=z45'; ka(45'',-134); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
z52e...z53e{left}; kouki(53,5,1); penstroke z54'e{(5u,0)-(0,5.8v)}...
z54e{right}; kouki(54,6,1); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
z54'e{(5u,0)-(0,5.8v)}... z55e...z56e{(9u,1.4v)-(6u,0)}...
z56'...z57e...z58e...z59e...z60e... z61e...z62e...z63e; mpalla(56',1.5);
mpalla(55,1.2); triaina(120,121,122,0.6); penstroke
z56e{(9u,1.4v)-(6u,0)}...z64e...z65e... z66e{up}; kouki(66,2,1.2); penstroke
z58e...z67e{right}; kouki(67,8,1.1); penstroke z26e{(9u,4.3v)-(2u,0)}...
z68e...z69e...z70e{right}...z71e{up}; kouki(71,1,1.6); penstroke
z70e{right}...z72e...z73e... z74e{up}; kouki(74,2,2); z77'=z87; ka(77',-39);
z76'=(6.2u,5v); ka(76',30); penstroke z25e{(9u,4.3v)-(2u,0)}...
z75e...z75'e...z76'e... z76e...z77e...z77'e...
z78e...z79e...z80e...z81e...z82e... z83e{down}; kouki(83,3,1); z84'=(7.5u,8.4v);
ka(84',-121); penstroke z84'e...z84e...z85e{up}; kouki(85,1,1.5); penstroke
z75'e{(7.8u,9v)-(5.2u,0)}... z86e...z87e...z88e...
z89e{(0,7v)-(3.4u,9v)}...z90e...z91e... z92e...z93e{(9u,2v)-(u,9v)}...
z94e{right}; kouki(94,6,1.3); penstroke z93e{(9u,2v)-(u,9v)}...
z95e...z95'e{left}; kouki(95',5,1.3); mpalla(89,1.6); z41''=z41; ka(41'',-90);
penstroke z89e{(0,7v)-(3.4u,9v)}... z96e...z41''e{right}; mpalla(41',1.5);
z41.2=z41'; ka(41.2,-55); penstroke z41.2... z97e...z98e{left}...z99e{up};
kouki(99,2,1.2); penstroke z98e{left}...z100e...z101e... z102e...z103e{left};
kouki(103,7,1.8); penstroke z41''e{right}...z104e...
z105e...z106e...z107e...z108e--- z109e; z48'=z48; ka(48',66); penstroke
z48'e{(0,2v)-(4u,0)}... z110e{down}...z111e...z112e...z113e ...z114e{down};
kouki(114,4,1.3); penstroke z21e{(9u,6v)-(1.7u,0)}... z115e{up};
kouki(115,1,1.1); triaina(130,131,132,0.4); triaina(140,141,142,0.5);
triaina(150,151,152,0.39); triaina(160,161,162,0.5); z107.1=(3.2u,5.65v);
z107.2=(3.6u,5.9v); z107.3=(3.95u,5.4v); z107.4=(3.4u,5.25v); filldraw
z107.1{z107.3-z107.1}... z107.4{z107.4-z107.2} & z107.4{z107.2-z107.4}...
z107.3{z107.3-z107.1} & z107.3{z107.1-z107.3}... z107.2{z107.2-z107.4} &
z107.2{z107.4-z107.2}... z107.1{z107.1-z107.3} & cycle; penlabels(range 1 thru
170);
.endchar;
|
