1 files changed, 106 insertions, 0 deletions
diff --git a/fonts/twcal/twcon.mf b/fonts/twcal/twcon.mf
new file mode 100644
index 0000000000..7afb327833
--- /dev/null
+++ b/fonts/twcal/twcon.mf
@@ -0,0 +1,106 @@
+
+% TW -- conductors   (C)1991  Thomas Weinmann
+
+% e-
+beginchar(oct"020",17.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,(18-17.7*8/9)*ut);
+z2=(17.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% i-
+beginchar(oct"021",15.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,2.3ut);
+z2=(15.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% a- d- h- x-
+beginchar(oct"022",13.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,((18-13.7*8/7)-0.3)*ut);
+z2=(13.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% u-
+beginchar(oct"023",14.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,(18-14.7*16/15)*ut);
+z2=(14.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% k-
+beginchar(oct"024",12.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,(18-12.7*16/13)*ut);
+z2=(12.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% n-
+beginchar(oct"025",15.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,(18-15.7*17/16)*ut);
+z2=(15.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% p-
+beginchar(oct"026",14.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(0ut,(18-14.7*17/15)*ut);
+z2=(14.7ut,18ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;
+
+% Start fuer verschiedene Kleinbuchstaben
+beginchar(oct"027",13.7 ut#,19 ut#, 0ut#);
+pickup va_pen;
+%
+z1=(((8-(18-15.7*17/16))*16/17)*ut,8ut)-(2ut,0ut);
+z2=(15.7ut,18ut)-(2ut,0ut);
+%
+draw z1..z2;
+%
+%
+labels(range 1 thru 2);
+endchar;