Initial commit

1 files changed, 566 insertions, 0 deletions

diff --git a/fonts/twcal/twlig5.mf b/fonts/twcal/twlig5.mf
new file mode 100644
index 0000000000..f7296170b6
--- /dev/null
+++ b/fonts/twcal/twlig5.mf
@@ -0,0 +1,566 @@
+
+% TW -- ligatures 5. generation    (C)1991  Thomas Weinmann
+
+
+% h”
+beginchar(oct"300",55 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(10ut,36ut);
+z3=(7ut,39ut);
+z4=(3ut,34ut);
+z5=(-4ut,0ut);
+z6=(11ut,19ut);
+z7=(13ut,15ut);
+z8=(11ut,3ut);
+z9=(17ut,2ut);
+z10=(17.3ut,((17.3*8/7+(2-17.3*8/7))+0.3)*ut);
+z11=(30ut,0ut);
+z12=(11ut,16ut)+z11;
+z13=(2ut,0ut)+z11;
+z14=(-4ut,5ut)+z11;
+z15=(5ut,19ut)+z11;
+z16=(13ut,19ut)+z11;
+z17=(25ut,18ut)+z11;
+z18=(5ut,26ut)+z11;
+z19=(11ut,26ut)+z11;
+z20=(-1ut,16ut)+z11;
+%
+%
+draw z1{an}..z2{up}..z3{left}..z4..z1--z5
+  & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9..z20;
+draw z16..z12{dir -75}..z13{left}..z14{up}
+       ..z15{right}..z12{dir -75}...z17{dir 60};
+%
+pickup pencircle scaled  4ut;
+drawdot z18;drawdot z19;
+%
+%
+labels(range 1 thru 20);
+endchar;
+
+% nt
+beginchar(oct"301",54 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,0ut);
+z3=(10ut,19ut);
+z4=(15ut,15ut);
+z5=(12ut,3ut);
+z6=(15ut,0ut);
+z7=(18ut,1ut);
+z8=(18.3ut,(18.3*17/16+(1-9*17/8))*ut);
+z9=(0ut,0ut);
+z10=(26ut,0ut);
+z11=(0ut,18ut)+z10;
+z12=(14ut,39ut)+z10;
+z13=(7ut,0ut)+z10;
+z14=(-5ut,13ut)+z10;
+z15=(28ut,18ut)+z10;
+%
+%
+draw z1--z2
+  & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7
+     ..z12{(0,1)}
+  & z12-- z13;
+draw z14{dir 340}..z15{dir 60};
+%
+%
+labels(range 1 thru 15);
+endchar;
+
+% nte
+beginchar(oct"302",61.3 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,0ut);
+z3=(10ut,19ut);
+z4=(15ut,15ut);
+z5=(12ut,3ut);
+z6=(15ut,0ut);
+z7=(18ut,1ut);
+z8=(18.3ut,(18.3*17/16+(1-9*17/8))*ut);
+z9=(0ut,0ut);
+z10=(26ut,0ut);
+z11=(0ut,18ut)+z10;
+z12=(14ut,39ut)+z10;
+z13=(7ut,0ut)+z10;
+z14=(-5ut,18ut)+z10;
+z15=(28ut,18ut)+z10;
+z16=(0ut,0ut);
+z17=z16;
+z18=z17;
+z19=z18;
+z20=(26ut,0ut)+z10;
+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--z2
+  & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7
+     ..z12{(0,1)}
+  & z12-- z13;
+draw z14{dir 340}
+	..z26{z25-z22}..z21{left}..z25{z22-z25}
+	..z23{right}..z27--z24;
+%
+%
+labels(range 1 thru 27);
+endchar;
+
+% Ke
+beginchar(oct"303",40.3 ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(8ut,39ut);
+z2=(0ut,0ut);
+z3=(31ut,39ut);
+z4=(4ut,20ut);
+z5=(17ut,2ut);
+z6=(21ut,0ut);
+z7=(41ut,18ut);
+z8=(26ut,3ut);
+z9=(0ut,0ut);
+z10=(31ut,0ut);
+z11=(4ut,19ut)+z10;
+z12=(-2ut,7ut)+z10;
+z13=(3ut,0ut)+z10;
+z14=(9.3ut,(9.3*8/9-6)*ut)+z10;
+z15=(-1ut,13ut)+z10;
+z16=(8ut,13ut)+z10;
+z17=(9ut,2ut)+z10;
+%
+%
+draw z1--z2;
+draw z3..z4
+ & z4--z5..z6{(1,0)}
+	..z16{z15-z12}..z11{left}..z15{z12-z15}
+	..z13{right}..z17--z14;
+labels(range 1 thru 17);
+endchar;
+
+% it
+beginchar(oct"304",36 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,4ut);
+z3=(-1ut,0ut);
+z4=(3ut,2ut);
+z5=(3.3ut,2.3ut);
+z6=(2.5ut,28ut);
+z7=(8ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-3ut,12ut)+z7;
+z12=(28ut,18ut)+z7;
+%
+%
+draw z1--z2..z3{right}
+       ..z9{(0,1)}
+  & z9-- z10;
+draw z11{dir 340}..z12{dir 60};
+%pickup va_pen_big;
+pickup pencircle scaled  4ut;
+drawdot z6;
+%
+%
+labels(range 1 thru 12);
+endchar;
+
+% ite
+beginchar(oct"305",42.4 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,4ut);
+z3=(-1ut,0ut);
+z4=(3ut,2ut);
+z5=(3.3ut,2.3ut);
+z6=(2.5ut,28ut);
+z7=(7ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-2ut,13ut)+z7;
+z12=(28ut,18ut)+z7;
+z13=(33ut,0ut);
+z14=(4ut,19ut)+z13;
+z15=(-2ut,7ut)+z13;
+z16=(3ut,0ut)+z13;
+z17=(9.3ut,(9.3*8/9-6)*ut)+z13;
+z18=(-1ut,13ut)+z13;
+z19=(8ut,13ut)+z13;
+z20=(9ut,2ut)+z13;
+%
+%
+%
+draw z1--z2..z3{right}
+       ..z9{(0,1)}
+  & z9-- z10;
+draw z11{dir 340}
+	..z19{z18-z15}..z14{left}..z18{z15-z18}
+	..z16{right}..z20--z17;
+%pickup va_pen_big;
+pickup pencircle scaled  4ut;
+drawdot z6;
+%
+%
+labels(range 1 thru 20);
+endchar;
+
+% itt
+beginchar(oct"306",48 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,4ut);
+z3=(-1ut,0ut);
+z4=(3ut,2ut);
+z5=(3.3ut,2.3ut);
+z6=(2.5ut,28ut);
+z7=(10ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-4ut,13ut)+z7;
+z12=(38ut,18ut)+z7;
+z13=(24ut,39ut)+z7;
+z14=(17ut,0ut)+z7;
+%
+%
+draw z1--z2..z3{right}..z4
+      ..z9{(0,1)}
+  & z9-- z10;
+draw z13--z14;
+draw z11{dir 340}..z12{dir 60};
+%pickup va_pen_big;
+pickup pencircle scaled  4ut;
+drawdot z6;
+%
+%
+labels(range 1 thru 14);
+endchar;
+
+% itte
+beginchar(oct"307",54.3 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,4ut);
+z3=(-1ut,0ut);
+z4=(3ut,2ut);
+z5=(3.3ut,2.3ut);
+z6=(2.5ut,28ut);
+z7=(11ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-4ut,17ut)+z7;
+z12=(38ut,18ut)+z7;
+z13=(24ut,39ut)+z7;
+z14=(17ut,0ut)+z7;
+z15=(44ut,0ut);
+z16=(4ut,19ut)+z15;
+z17=(-2ut,7ut)+z15;
+z18=(3ut,0ut)+z15;
+z19=(9.3ut,(9.3*8/9-6)*ut)+z15;
+z20=(-1ut,13ut)+z15;
+z21=(8ut,13ut)+z15;
+z22=(9ut,2ut)+z15;
+%
+%
+%
+draw z1--z2..z3{right}..z4
+      ..z9{(0,1)}
+  & z9-- z10;
+draw z13--z14;
+draw z11{dir 340}
+	..z21{z20-z17}..z16{left}..z20{z17-z20}
+	..z18{right}..z22--z19;
+%pickup va_pen_big;
+pickup pencircle scaled  4ut;
+drawdot z6;
+%
+%
+labels(range 1 thru 22);
+endchar;
+
+% kt
+beginchar(oct"310", 48 ut#, 39ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(11ut,36ut);
+z3=(8ut,39ut);
+z4=(1ut,28ut);
+z5=(-4ut,0ut);
+z6=(10ut,19ut);
+z7=(11ut,17ut);
+z8=(3ut,9ut);
+z9=(11ut,0ut);
+z10=(16.3ut,(16.3*16/13+(2-16*16/13))*ut);
+z11=(16ut,2ut);
+z12=(20ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,15ut)+z12;
+z17=(28ut,18ut)+z12;
+%
+%
+draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5
+  & z5{z1-z5}..z6{dir -20}..z7{down}..z8
+    & z8..z9{right}..z11
+     ..z14{(0,1)}
+  & z14-- z15;
+draw z16{dir 340}..z17{dir 60};
+%
+%
+labels(range 1 thru 17);
+endchar;
+
+% kte
+beginchar(oct"311", 55.3 ut#, 39ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(11ut,36ut);
+z3=(8ut,39ut);
+z4=(1ut,28ut);
+z5=(-4ut,0ut);
+z6=(10ut,19ut);
+z7=(11ut,17ut);
+z8=(3ut,9ut);
+z9=(11ut,0ut);
+z10=(16.3ut,(16.3*16/13+(2-16*16/13))*ut);
+z11=(16ut,2ut);
+z12=(20ut,0ut);
+z13=(0ut,18ut)+z12;
+z14=(14ut,39ut)+z12;
+z15=(7ut,0ut)+z12;
+z16=(-2ut,17ut)+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{an}..z2{up}..z3{left}...z4{z5-z4}--z5
+  & z5{z1-z5}..z6{dir -20}..z7{down}..z8
+    & z8..z9{right}..z11
+     ..z14{(0,1)}
+  & z14-- z15;
+draw z16{dir 340}
+	..z24{z23-z20}..z19{left}..z23{z20-z23}
+	..z21{right}..z25--z22;
+%
+%
+labels(range 1 thru 25);
+endchar;
+
+% n�
+beginchar(oct"312",60 ut#,29 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,0ut);
+z3=(10ut,19ut);
+z4=(15ut,15ut);
+z5=(12ut,3ut);
+z6=(15ut,0ut);
+z7=(18ut,1ut);
+z8=(18.3ut,(18.3*17/16+(1-9*17/8))*ut);
+z9=(0ut,0ut);
+z10=(29ut,0ut);
+z11=(0ut,19ut)+z10;
+z12=(-3ut,3ut)+z10;
+z13=(2ut,0ut)+z10;
+z14=(15ut,19ut)+z10;
+z15=(12ut,3ut)+z10;
+z16=(14ut,0ut)+z10;
+z17=(33ut,18ut)+z10;
+z18=(18ut,2ut)+z10;
+z19=(4ut,26ut)+z10;
+z20=(12ut,26ut)+z10;
+%
+%
+draw z1--z2
+  & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z11{(0,1)};
+draw z11--z12{z12-z11}..z13{right}..z14{z14-z15}
+  & z14--z15..z16{right}..z18--z17;
+%
+pickup pencircle scaled  4ut;
+drawdot z19; drawdot z20;
+%
+%
+labels(range 1 thru 20);
+endchar;
+
+% Le
+beginchar(oct"313",40.3 ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(14ut,39ut);
+z2=(8ut,32ut);
+z3=(4ut,8ut);
+z4=(0ut,0ut);
+z5=(17ut,0ut);
+z6=(38ut,18ut);
+z7=(22ut,2ut);
+z8=(31ut,0ut);
+z9=(4ut,19ut)+z8;
+z10=(-2ut,7ut)+z8;
+z11=(3ut,0ut)+z8;
+z12=(9.3ut,(9.3*8/9-6)*ut)+z8;
+z13=(-1ut,13ut)+z8;
+z14=(8ut,13ut)+z8;
+z15=(9ut,2ut)+z8;
+%
+%
+draw z1..z2..z3..z4
+ & z4{dir 40}..z5{right}
+	..z14{z13-z10}..z9{left}..z13{z10-z13}
+	..z11{right}..z15--z12;
+labels(range 1 thru 15);
+endchar;
+
+% Me
+beginchar(oct"314",76.3 ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(0ut,0ut);
+z2=(8ut,4ut);
+z3=(33ut,39ut);
+z4=(25ut,0ut);
+z5=(53ut,39ut);
+z6=(47ut,4ut);
+z7=(51ut,0ut);
+z8=(70ut,18ut);
+z9=(55ut,2ut);
+z10=(67ut,0ut);
+z11=(4ut,19ut)+z10;
+z12=(-2ut,7ut)+z10;
+z13=(3ut,0ut)+z10;
+z14=(9.3ut,(9.3*8/9-6)*ut)+z10;
+z15=(-1ut,13ut)+z10;
+z16=(8ut,13ut)+z10;
+z17=(9ut,2ut)+z10;
+%
+%
+draw z1{right}..z2--z3
+ & z3--z4
+ & z4--z5
+ &z5--z6{z6-z5}..z7{right}
+	..z16{z15-z12}..z11{left}..z15{z12-z15}
+	..z13{right}..z17--z14;
+labels(range 1 thru 17);
+endchar;
+
+% Re
+beginchar(oct"315",45.3 ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(5ut,39ut);
+z2=(14ut,39ut);
+z3=(21ut,30ut);
+z4=(3ut,19ut);
+z5=(7ut,39ut);
+z6=(0ut,0ut);
+z7=(17ut,3ut);
+z8=(21ut,0ut);
+z9=(25ut,3ut);
+z10=(36ut,0ut);
+z11=(4ut,19ut)+z10;
+z12=(-2ut,7ut)+z10;
+z13=(3ut,0ut)+z10;
+z14=(9.3ut,(9.3*8/9-6)*ut)+z10;
+z15=(-1ut,13ut)+z10;
+z16=(8ut,13ut)+z10;
+z17=(9ut,2ut)+z10;
+%
+%
+draw z1--z2..z3{down}..z4
+  & z4--z7{z7-z4}..z8{(1,0)}
+	..z16{z15-z12}..z11{left}..z15{z12-z15}
+	..z13{right}..z17--z14;
+draw z5--z6;
+labels(range 1 thru 17);
+endchar;
+
+% lt
+beginchar(oct"316",46 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(14ut,36ut);
+z3=(11ut,39ut);
+z4=(1ut,0ut);
+z5=(21ut,18ut);
+z6=(6ut,2ut);
+z7=(18ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-5ut,17ut)+z7;
+z12=(28ut,18ut)+z7;
+%
+%
+draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
+	..z9{(0,1)}
+  & z9-- z10;
+draw z11{dir 340}..z12{dir 60};
+%
+%
+labels(range 1 thru 12);
+endchar;
+
+% lte
+beginchar(oct"317",51.3 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(14ut,36ut);
+z3=(11ut,39ut);
+z4=(1ut,0ut);
+z5=(21ut,18ut);
+z6=(6ut,2ut);
+z7=(18ut,0ut);
+z8=(0ut,18ut)+z7;
+z9=(14ut,39ut)+z7;
+z10=(7ut,0ut)+z7;
+z11=(-7ut,15ut)+z7;
+z12=(28ut,18ut)+z7;
+z13=(24ut,0ut)+z7;
+z14=(4ut,19ut)+z13;
+z15=(-2ut,7ut)+z13;
+z16=(3ut,0ut)+z13;
+z17=(9.3ut,(9.3*8/9-6)*ut)+z13;
+z18=(-1ut,13ut)+z13;
+z19=(8ut,13ut)+z13;
+z20=(9ut,2ut)+z13;
+%
+%
+%
+draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
+	..z9{(0,1)}
+  & z9-- z10;
+draw z11{dir 340}
+	..z19{z18-z15}..z14{left}..z18{z15-z18}
+	..z16{right}..z20--z17;
+%
+%
+labels(range 1 thru 20);
+endchar;