summaryrefslogtreecommitdiff
path: root/fonts/twcal/twlig4.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/twcal/twlig4.mf
Initial commit
Diffstat (limited to 'fonts/twcal/twlig4.mf')
-rw-r--r--fonts/twcal/twlig4.mf716
1 files changed, 716 insertions, 0 deletions
diff --git a/fonts/twcal/twlig4.mf b/fonts/twcal/twlig4.mf
new file mode 100644
index 0000000000..8ac662498e
--- /dev/null
+++ b/fonts/twcal/twlig4.mf
@@ -0,0 +1,716 @@
+
+% TW -- ligatures 4. generation (C)1991 Thomas Weinmann
+
+
+% zt
+beginchar(oct"260",48 ut#,39 ut#,0ut#);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(11ut,0ut);
+z3=(-5ut,0ut);
+z4=(13ut,19ut);
+z5=((18*7/8)*ut,(18-13.7*8/7)*ut);
+z6=(20ut,0ut);
+z7=(0ut,18ut)+z6;
+z8=(14ut,39ut)+z6;
+z9=(7ut,0ut)+z6;
+z10=(-6ut,11ut)+z6;
+z11=(28ut,18ut)+z6;
+%
+%
+draw z1--z4--z3--z2
+ ..z8{(0,1)}
+ & z8-- z9;
+draw z10{dir 340}..z11{dir 60};
+%
+%
+labels(range 1 thru 11);
+endchar;
+
+% zte
+beginchar(oct"261",54.4 ut#,39 ut#,0ut#);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(11ut,0ut);
+z3=(-5ut,0ut);
+z4=(13ut,19ut);
+z5=((18*7/8)*ut,(18-13.7*8/7)*ut);
+z6=(19ut,0ut);
+z7=(0ut,18ut)+z6;
+z8=(14ut,39ut)+z6;
+z9=(7ut,0ut)+z6;
+z10=(-5ut,11ut)+z6;
+z11=(28ut,18ut)+z6;
+z12=(26ut,0ut)+z6;
+z13=(4ut,19ut)+z12;
+z14=(-2ut,7ut)+z12;
+z15=(3ut,0ut)+z12;
+z16=(9.3ut,(9.3*8/9-6)*ut)+z12;
+z17=(-1ut,13ut)+z12;
+z18=(8ut,13ut)+z12;
+z19=(9ut,2ut)+z12;
+%
+%
+draw z1--z4--z3--z2
+ ..z8{(0,1)}
+ & z8-- z9;
+draw z10{dir 340}
+ ..z18{z17-z14}..z13{left}..z17{z14-z17}
+ ..z15{right}..z19--z16;
+%
+%
+labels(range 1 thru 19);
+endchar;
+
+% tet
+beginchar(oct"262",90 ut#,39 ut#,0); %u-Umlaut
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-3ut,3ut);
+z3=(2ut,0ut);
+z4=(15ut,19ut);
+z5=(12ut,3ut);
+z6=(14ut,0ut);
+z7=(33ut,18ut);
+z8=(18ut,2ut);
+z9=(4ut,26ut);
+z10=(12ut,26ut);
+z11=(23ut,0ut);
+z12=(0ut,18ut)+z11;
+z13=(14ut,39ut)+z11;
+z14=(7ut,0ut)+z11;
+z15=(-4ut,11ut)+z11;
+z16=(28ut,18ut)+z11;
+z17=(1ut,0ut)+z11;
+z18=(4ut,19ut)+z17+z11;
+z19=(-2ut,7ut)+z17+z11;
+z20=(3ut,0ut)+z17+z11;
+z21=(9.3ut,(9.3*8/9-6)*ut)+z17+z11;
+z22=(-1ut,13ut)+z17+z11;
+z23=(8ut,13ut)+z17+z11;
+z24=(9ut,2ut)+z17+z11;
+z25=(15ut,0ut)+z17+z11;
+z26=(0ut,18ut)+z25;
+z27=(14ut,39ut)+z25;
+z28=(7ut,0ut)+z25;
+z29=(-3ut,15ut)+z25;
+z30=(28ut,18ut)+z25;
+%
+%
+draw z1--z2{z2-z1}..z3{right}..z4{z4-z5}
+ & z4--z5..z6{right}
+ ..z13{(0,1)}
+ & z13-- z14;
+draw z15{dir 340}
+ ..z23{z22-z19}..z18{left}..z22{z19-z22}
+ ..z20{right}..z24
+ ..z27{(0,1)}
+ & z27-- z28;
+draw z29{dir 340}..z30{dir 60};
+%
+pickup pencircle scaled 4ut;
+drawdot z9; drawdot z10;
+%
+labels(range 1 thru 30);
+endchar;
+
+% utet
+beginchar(oct"263",90 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-3ut,3ut);
+z3=(2ut,0ut);
+z4=(15ut,19ut);
+z5=(12ut,3ut);
+z6=(14ut,0ut);
+z7=(33ut,18ut);
+z8=(18ut,2ut);
+z9=(4ut,26ut);
+z10=(12ut,26ut);
+z11=(23ut,0ut);
+z12=(0ut,18ut)+z11;
+z13=(14ut,39ut)+z11;
+z14=(7ut,0ut)+z11;
+z15=(-4ut,11ut)+z11;
+z16=(28ut,18ut)+z11;
+z17=(1ut,0ut)+z11;
+z18=(4ut,19ut)+z17+z11;
+z19=(-2ut,7ut)+z17+z11;
+z20=(3ut,0ut)+z17+z11;
+z21=(9.3ut,(9.3*8/9-6)*ut)+z17+z11;
+z22=(-1ut,13ut)+z17+z11;
+z23=(8ut,13ut)+z17+z11;
+z24=(9ut,2ut)+z17+z11;
+z25=(15ut,0ut)+z17+z11;
+z26=(0ut,18ut)+z25;
+z27=(14ut,39ut)+z25;
+z28=(7ut,0ut)+z25;
+z29=(-3ut,15ut)+z25;
+z30=(28ut,18ut)+z25;
+%
+%
+draw z1--z2{z2-z1}..z3{right}..z4{z4-z5}
+ & z4--z5..z6{right}
+ ..z13{(0,1)}
+ & z13-- z14;
+draw z15{dir 340}
+ ..z23{z22-z19}..z18{left}..z22{z19-z22}
+ ..z20{right}..z24
+ ..z27{(0,1)}
+ & z27-- z28;
+draw z29{dir 340}..z30{dir 60};
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 30);
+endchar;
+
+% tete
+beginchar(oct"264",93 ut#,39 ut#,0); %u-Umlaut
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-3ut,3ut);
+z3=(2ut,0ut);
+z4=(15ut,19ut);
+z5=(12ut,3ut);
+z6=(14ut,0ut);
+z7=(33ut,18ut);
+z8=(18ut,2ut);
+z9=(4ut,26ut);
+z10=(12ut,26ut);
+z11=(23ut,0ut);
+z12=(0ut,18ut)+z11;
+z13=(14ut,39ut)+z11;
+z14=(7ut,0ut)+z11;
+z15=(-4ut,11ut)+z11;
+z16=(28ut,18ut)+z11;
+z17=(0ut,0ut)+z11;
+z18=(4ut,19ut)+z17+z11;
+z19=(-2ut,7ut)+z17+z11;
+z20=(3ut,0ut)+z17+z11;
+z21=(9.3ut,(9.3*8/9-6)*ut)+z17+z11;
+z22=(-1ut,13ut)+z17+z11;
+z23=(8ut,13ut)+z17+z11;
+z24=(9ut,2ut)+z17+z11;
+z25=(15ut,0ut)+z17+z11;
+z26=(0ut,18ut)+z25;
+z27=(14ut,39ut)+z25;
+z28=(7ut,0ut)+z25;
+z29=(-3ut,12ut)+z25;
+z30=(28ut,18ut)+z25;
+z31=(23ut,0ut)+z25;
+z32=(4ut,19ut)+z31;
+z33=(-2ut,7ut)+z31;
+z34=(3ut,0ut)+z31;
+z35=(9.3ut,(9.3*8/9-6)*ut)+z31;
+z36=(-1ut,13ut)+z31;
+z37=(8ut,13ut)+z31;
+z38=(9ut,2ut)+z31;
+%
+%
+%
+draw z1--z2{z2-z1}..z3{right}..z4{z4-z5}
+ & z4--z5..z6{right}
+ ..z13{(0,1)}
+ & z13-- z14;
+draw z15{dir 340}
+ ..z23{z22-z19}..z18{left}..z22{z19-z22}
+ ..z20{right}..z24
+ ..z27{(0,1)}
+ & z27-- z28;
+draw z29{dir 340}
+ ..z37{z36-z33}..z32{left}..z36{z33-z36}
+ ..z34{right}..z38--z35;
+%
+pickup pencircle scaled 4ut;
+drawdot z9; drawdot z10;
+%
+labels(range 1 thru 38);
+endchar;
+
+% utete
+beginchar(oct"265",93 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-3ut,3ut);
+z3=(2ut,0ut);
+z4=(15ut,19ut);
+z5=(12ut,3ut);
+z6=(14ut,0ut);
+z7=(33ut,18ut);
+z8=(18ut,2ut);
+z9=(4ut,26ut);
+z10=(12ut,26ut);
+z11=(23ut,0ut);
+z12=(0ut,18ut)+z11;
+z13=(14ut,39ut)+z11;
+z14=(7ut,0ut)+z11;
+z15=(-4ut,11ut)+z11;
+z16=(28ut,18ut)+z11;
+z17=(0ut,0ut)+z11;
+z18=(4ut,19ut)+z17+z11;
+z19=(-2ut,7ut)+z17+z11;
+z20=(3ut,0ut)+z17+z11;
+z21=(9.3ut,(9.3*8/9-6)*ut)+z17+z11;
+z22=(-1ut,13ut)+z17+z11;
+z23=(8ut,13ut)+z17+z11;
+z24=(9ut,2ut)+z17+z11;
+z25=(15ut,0ut)+z17+z11;
+z26=(0ut,18ut)+z25;
+z27=(14ut,39ut)+z25;
+z28=(7ut,0ut)+z25;
+z29=(-3ut,12ut)+z25;
+z30=(28ut,18ut)+z25;
+z31=(23ut,0ut)+z25;
+z32=(4ut,19ut)+z31;
+z33=(-2ut,7ut)+z31;
+z34=(3ut,0ut)+z31;
+z35=(9.3ut,(9.3*8/9-6)*ut)+z31;
+z36=(-1ut,13ut)+z31;
+z37=(8ut,13ut)+z31;
+z38=(9ut,2ut)+z31;
+%
+%
+%
+draw z1--z2{z2-z1}..z3{right}..z4{z4-z5}
+ & z4--z5..z6{right}
+ ..z13{(0,1)}
+ & z13-- z14;
+draw z15{dir 340}
+ ..z23{z22-z19}..z18{left}..z22{z19-z22}
+ ..z20{right}..z24
+ ..z27{(0,1)}
+ & z27-- z28;
+draw z29{dir 340}
+ ..z37{z36-z33}..z32{left}..z36{z33-z36}
+ ..z34{right}..z38--z35;
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 38);
+endchar;
+
+% get
+beginchar(oct"266",68 ut#,19 ut#,19ut#);
+pickup va_pen;
+%
+z1=(11ut,13ut);
+z2=(1ut,0ut);
+z3=(-5ut,7ut);
+z4=(5ut,19ut);
+z10=(12ut,19ut);
+z11=(7ut,-10ut);
+z12=(0ut,-19ut);
+z13=(-4ut,-15ut);
+z14=(0ut,-9ut);
+z15=(29ut,18ut);
+z16=(24ut,0ut);
+z17=(4ut,19ut)+z16;
+z18=(-2ut,7ut)+z16;
+z19=(3ut,0ut)+z16;
+z20=(9.3ut,(9.3*8/9-6)*ut)+z16;
+z21=(-1ut,13ut)+z16;
+z22=(8ut,13ut)+z16;
+z23=(9ut,2ut)+z16;
+z24=(16ut,0ut)+z16;
+z25=(0ut,18ut)+z24;
+z26=(14ut,39ut)+z24;
+z27=(7ut,0ut)+z24;
+z28=(-2ut,16ut)+z24;
+z29=(28ut,18ut)+z24;
+%
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+draw z10--z11{z11-z10}..z12{left}..z13{up}..z14
+ ..z22{z21-z18}..z17{left}..z21{z18-z21}
+ ..z19{right}..z23
+ ..z26{(0,1)}
+ & z26-- z27;
+draw z28{dir 340}..z29{dir 60};
+%
+%
+labels(range 1 thru 29);
+endchar;
+
+% gete
+beginchar(oct"267",73.3 ut#,19 ut#,19ut#);
+pickup va_pen;
+%
+z1=(11ut,13ut);
+z2=(1ut,0ut);
+z3=(-5ut,7ut);
+z4=(5ut,19ut);
+z10=(12ut,19ut);
+z11=(7ut,-10ut);
+z12=(0ut,-19ut);
+z13=(-4ut,-15ut);
+z14=(0ut,-9ut);
+z15=(29ut,18ut);
+z16=(24ut,0ut);
+z17=(4ut,19ut)+z16;
+z18=(-2ut,7ut)+z16;
+z19=(3ut,0ut)+z16;
+z20=(9.3ut,(9.3*8/9-6)*ut)+z16;
+z21=(-1ut,13ut)+z16;
+z22=(8ut,13ut)+z16;
+z23=(9ut,2ut)+z16;
+z24=(17ut,0ut)+z16;
+z25=(0ut,18ut)+z24;
+z26=(14ut,39ut)+z24;
+z27=(7ut,0ut)+z24;
+z28=(-3ut,15ut)+z24;
+z29=(28ut,18ut)+z24;
+z30=(23ut,0ut)+z24;
+z31=(4ut,19ut)+z30;
+z32=(-2ut,7ut)+z30;
+z33=(3ut,0ut)+z30;
+z34=(9.3ut,(9.3*8/9-6)*ut)+z30;
+z35=(-1ut,13ut)+z30;
+z36=(8ut,13ut)+z30;
+z37=(9ut,2ut)+z30;
+%
+%
+%
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+draw z10--z11{z11-z10}..z12{left}..z13{up}..z14
+ ..z22{z21-z18}..z17{left}..z21{z18-z21}
+ ..z19{right}..z23--z20
+ ..z26{(0,1)}
+ & z26-- z27;
+draw z28{dir 340}
+ ..z36{z35-z32}..z31{left}..z35{z32-z35}
+ ..z33{right}..z37--z34;
+%
+%
+labels(range 1 thru 37);
+endchar;
+
+% t
+beginchar(oct"270",53 ut#,39ut#,0); %a-Umlaut
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(25ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-3ut,13ut)+z12;
+z17=(28ut,18ut)+z12;
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z16{dir 340}..z17{dir 60};
+%
+pickup pencircle scaled 4ut;
+drawdot z10; drawdot z11;
+%
+labels(range 1 thru 17);
+endchar;
+
+% at
+beginchar(oct"271",53 ut#,39ut#,0);
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(25ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-4ut,16ut)+z12;
+z17=(28ut,18ut)+z12;
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z16{dir 340}..z17{dir 60};
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 17);
+endchar;
+
+% tt
+beginchar(oct"272",55 ut#, 39 ut#,0); %a-Umlaut
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(17ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,11ut)+z12;
+z17=(38ut,18ut)+z12;
+z18=(24ut,39ut)+z12;
+z19=(17ut,0ut)+z12;
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z18--z19;
+draw z16{dir 340}..z17{dir 60};
+%
+pickup pencircle scaled 4ut;
+drawdot z10; drawdot z11;
+%
+labels(range 1 thru 19);
+endchar;
+
+% att
+beginchar(oct"273",55 ut#, 39 ut#,0);
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(17ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,11ut)+z12;
+z17=(38ut,18ut)+z12;
+z18=(24ut,39ut)+z12;
+z19=(17ut,0ut)+z12;
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z18--z19;
+draw z16{dir 340}..z17{dir 60};
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 19);
+endchar;
+
+% te
+beginchar(oct"274",58.3 ut#,39ut#,0); %a-Umlaut
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(23ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-6ut,14ut)+z12;
+z17=(28ut,18ut)+z12;
+z18=(26ut,0ut)+z12;
+z19=(4ut,19ut)+z18;
+z20=(-2ut,7ut)+z18;
+z21=(3ut,0ut)+z18;
+z22=(9.3ut,(9.3*8/9-6)*ut)+z18;
+z23=(-1ut,13ut)+z18;
+z24=(8ut,13ut)+z18;
+z25=(9ut,2ut)+z18;
+%
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z16{dir 340}
+ ..z24{z23-z20}..z19{left}..z23{z20-z23}
+ ..z21{right}..z25--z22;
+%
+pickup pencircle scaled 4ut;
+drawdot z10; drawdot z11;
+%
+labels(range 1 thru 25);
+endchar;
+
+% ate
+beginchar(oct"275",58.3 ut#,39ut#,0);
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(23ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-6ut,13ut)+z12;
+z17=(28ut,18ut)+z12;
+z18=(26ut,0ut)+z12;
+z19=(4ut,19ut)+z18;
+z20=(-2ut,7ut)+z18;
+z21=(3ut,0ut)+z18;
+z22=(9.3ut,(9.3*8/9-6)*ut)+z18;
+z23=(-1ut,13ut)+z18;
+z24=(8ut,13ut)+z18;
+z25=(9ut,2ut)+z18;
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z16{dir 340}
+ ..z24{z23-z20}..z19{left}..z23{z20-z23}
+ ..z21{right}..z25--z22;
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 25);
+endchar;
+
+% tte
+beginchar(oct"276",60.3 ut#, 39 ut#,0); %a-Umlaut
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(17ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,11ut)+z12;
+z17=(38ut,18ut)+z12;
+z18=(24ut,39ut)+z12;
+z19=(17ut,0ut)+z12;
+z20=(34ut,0ut)+z12;
+z21=(4ut,19ut)+z20;
+z22=(-2ut,7ut)+z20;
+z23=(3ut,0ut)+z20;
+z24=(9.3ut,(9.3*8/9-6)*ut)+z20;
+z25=(-1ut,13ut)+z20;
+z26=(8ut,13ut)+z20;
+z27=(9ut,2ut)+z20;
+%
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z18--z19;
+draw z16{dir 340}
+ ..z26{z25-z22}..z21{left}..z25{z22-z25}
+ ..z23{right}..z27--z24;
+%
+pickup pencircle scaled 4ut;
+drawdot z10; drawdot z11;
+%
+labels(range 1 thru 27);
+endchar;
+
+% atte
+beginchar(oct"277",60.3 ut#, 39 ut#,0);
+pickup va_pen;
+z1=(5ut,19ut);
+z2=(-4ut,6ut);
+z3=(1ut,0ut);
+z4=(11ut,13ut);
+z5=(13ut,19ut);
+z6=(10ut,5ut);
+z7=(12ut,0ut);
+z8=(30ut,18ut);
+z9=(16ut,2ut);
+z10=(3ut,26ut);
+z11=(10ut,26ut);
+z12=(17ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,11ut)+z12;
+z17=(38ut,18ut)+z12;
+z18=(24ut,39ut)+z12;
+z19=(17ut,0ut)+z12;
+z20=(34ut,0ut)+z12;
+z21=(4ut,19ut)+z20;
+z22=(-2ut,7ut)+z20;
+z23=(3ut,0ut)+z20;
+z24=(9.3ut,(9.3*8/9-6)*ut)+z20;
+z25=(-1ut,13ut)+z20;
+z26=(8ut,13ut)+z20;
+z27=(9ut,2ut)+z20;
+%
+%
+%
+draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
+draw z5--z6{z6-z5}..z7{right}
+ ..z14{(0,1)}
+ & z14-- z15;
+draw z18--z19;
+draw z16{dir 340}
+ ..z26{z25-z22}..z21{left}..z25{z22-z25}
+ ..z23{right}..z27--z24;
+%
+pickup pencircle scaled 4ut;
+%
+labels(range 1 thru 27);
+endchar;