summaryrefslogtreecommitdiff
path: root/fonts/twcal/twspec.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/twspec.mf
Initial commit
Diffstat (limited to 'fonts/twcal/twspec.mf')
-rw-r--r--fonts/twcal/twspec.mf390
1 files changed, 390 insertions, 0 deletions
diff --git a/fonts/twcal/twspec.mf b/fonts/twcal/twspec.mf
new file mode 100644
index 0000000000..2a4b3c2255
--- /dev/null
+++ b/fonts/twcal/twspec.mf
@@ -0,0 +1,390 @@
+
+% TW -- special characters (C)1991 Thomas Weinmann
+
+
+beginchar(oct"000",30ut#,39ut#,19ut#);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(2ut,13ut);
+z3=(-4ut,-19ut);
+z4=(17ut,39ut);
+z5=(22ut,35ut);
+z6=(8ut,19ut);
+z7=(19ut,8ut);
+z8=(13ut,0ut);
+z9=(10ut,3ut);
+z10=(30ut,18ut);
+%
+draw z1..z2{z3-z2}--z3
+ & z3--z2{z2-z3}..z4{right}..z5{down}..z6{left}
+ & z6{right}..z7{down}..z8{left}..z9{up}...z10{an};
+%
+labels(range 1 thru 10);
+endchar;
+
+beginchar(oct"001",25 ut#,19 ut#,0ut#);
+pickup va_pen;
+%
+z1=(0ut,17ut);
+z2=(3ut,19ut);
+z3=(7ut,14ut);
+z4=(-1ut,4ut);
+z5=(5ut,-4ut);
+z6=(-5ut,-19ut);
+z7=(-9ut,-16ut);
+z8=(-6ut,-10ut);
+z9=(25ut,18ut);
+%
+draw z1..z2{right}..z3{down}..z4
+ & z4..z5{down}..z6{left}..z7{up}..z8---z9;
+%
+%
+labels(range 1 thru 9);
+endchar;
+
+beginchar(oct"002",18ut#,19ut#,0ut#); % s mit Anstrich und Endung
+pickup va_pen;
+%
+z1=(-10ut,8ut);
+z2=(0ut,19ut);
+z3=(5ut,5ut);
+z4=(0ut,0ut);
+z5=(-3ut,4ut);
+z6=(18ut,18ut);
+%
+draw z1--z2
+ & z2{z3-z2}..z3{down}..z4{left}..z5{dir 70}...z6{an};
+%
+labels(range 1 thru 6);
+endchar;
+
+beginchar(oct"003",6ut#,19ut#,0ut#);
+pickup va_pen;
+%
+z1=(-10ut,10ut); z2=(0ut,19ut); z3=(5ut,5ut); z4=(0ut,0ut); z5=(-5ut,4ut);
+%
+draw z2{z3-z2}..z3{down}..z4{left}..z5;
+%
+labels(range 1 thru 6);
+endchar;
+
+beginchar(oct"004",20 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(-12ut,7ut);
+z2=(0ut,19ut);
+z3=(5ut,4ut);
+z4=(1ut,0ut);
+z5=(-3ut,3ut);
+z6=(20ut,18ut);
+%
+draw %z1--z2
+ z2..z3{down}..z4{left}..z5{dir 70}...z6{an};
+%
+%
+labels(range 1 thru 6);
+endchar;
+
+% e am Anfang eines Wortes
+beginchar(oct"030",15.4 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(4ut,19ut)+(6ut,0ut);
+z2=(-2ut,7ut)+(6ut,0ut);
+z3=(3ut,0ut)+(6ut,0ut);
+z4=(9.3ut,(9.3*8/9-6)*ut)+(6ut,0ut);
+z5=(-1ut,13ut)+(6ut,0ut);
+z6=(8ut,13ut)+(6ut,0ut);
+z7=(9ut,2ut)+(6ut,0ut);
+z8=(-3ut,2ut);
+%
+draw z8..z6{z5-z2}..z1{left}..z5{z2-z5}
+ ..z3{right}..z7--z4;
+%
+%
+labels(range 1 thru 7);
+endchar;
+
+% sz -
+beginchar(oct"031",22ut#,39ut#,19ut#);
+pickup va_pen;
+%
+z1=(0ut,19ut); z2=(2ut,13ut); z3=(-4ut,-19ut); z4=(17ut,39ut);
+z5=(22ut,35ut); z6=(8ut,19ut); z7=(19ut,8ut); z8=(11ut,0ut); z9=(6ut,4ut);
+%
+draw z1..z2{z3-z2}--z3
+ & z3--z2{z2-z3}..z4{right}..z5{down}..z6{left}
+ & z6{right}..z7{down}..z8{left}..z9;
+%
+labels(range 1 thru 9);
+endchar;
+
+
+% diese Buchstaben(-kombinationen) werden am Ende eines Wortes verwendet.
+% Die Zeichen haben 4ut white space am Ende der Box.
+
+% c
+beginchar(oct"006",14 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(10ut,18ut);
+z2=(5ut,19ut);
+z3=(-4ut,6ut);
+z4=(1ut,0ut);
+z5=(9ut,4ut);
+z6=(22ut,18ut);
+%
+draw z1..z2{left}..z3{down}..z4{right}..z5; % --z6;
+%
+%
+labels(range 1 thru 6);
+endchar;
+
+% f
+beginchar(oct"007",16 ut#,39 ut#,19ut#);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(12ut,37ut);
+z3=(9ut,39ut);
+z4=(3ut,31ut);
+z5=(-7ut,-19ut);
+z6=(-7ut,5ut);
+z7=(7ut,6ut);
+z8=(18ut,18ut);
+%
+draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5;
+draw z6..z7; % ---z8{an};
+%
+%
+labels(range 1 thru 8);
+endchar;
+
+% g
+beginchar(oct"010",17 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=(13ut,2ut);
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+draw z10--z11{z11-z10}..z12{left}..z13{up}..z14...z15{an};
+%
+%
+labels(range 1 thru 15);
+endchar;
+
+% j
+beginchar(oct"011",7 ut#,19 ut#,19ut#);
+pickup va_pen;
+%
+z1=(2.5ut,28ut);
+z2=(0ut,19ut);
+z3=(-5ut,-3ut);
+z4=(-13ut,-19ut);
+z5=(3ut,3ut);
+%
+draw z2--z3{z3-z2}...z4{left}..z3{z5-z3}---z5{an};
+pickup pencircle scaled 4ut;
+drawdot z1;
+%
+%
+labels(range 1 thru 5);
+endchar;
+
+% l
+beginchar(oct"012",18 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);
+%
+draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6; % --z5;
+%
+%
+labels(range 1 thru 6);
+endchar;
+
+% q
+beginchar(oct"013",15 ut#,19 ut#,19ut#);
+pickup va_pen;
+%
+z1=(9ut,13ut);
+z2=(0ut,0ut);
+z3=(-6ut,5ut);
+z4=(4ut,19ut);
+z5=(11ut,19ut);
+z6=(4ut,-19ut);
+z7=(8ut,0ut);
+z8=(25ut,18ut);
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+draw z5--z6;
+% draw z7...z8{an};
+%
+%
+labels(range 1 thru 8);
+endchar;
+
+% y
+beginchar(oct"014",20 ut#,19 ut#,19ut#);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-2ut,4ut);
+z3=(1ut,0ut);
+z4=(14ut,19ut);
+z5=(9ut,-13ut);
+z6=(3ut,-19ut);
+z7=(0ut,-16ut);
+z8=(4ut,-9ut);
+z9=(16ut,3ut);
+%
+draw z1--z2..z3{right}..z4{z4-z5}
+ & z4--z5..z6{left}..z7{up}..z8{z9-z8}--z9;
+%
+%
+labels(range 1 thru 9);
+endchar;
+
+% ff
+beginchar(oct"015",31 ut#,39 ut#,19ut#);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(11ut,37ut);
+z3=(9ut,39ut);
+z4=(3ut,31ut);
+z5=(-7ut,-19ut);
+z6=(-9ut,5ut);
+z7=(7ut,6ut)+1.1*z9;
+z8=(18ut,18ut)+z9;
+z9=(16ut, 0ut);
+z10=z1+z9-(0ut,3ut);
+z11=z2+z9;
+z12=z3+z9;
+z13=z4+z9;
+z14=z5+z9;
+%
+draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5
+ ..z10{an}..z11{up}..z12{left}...z13{z14-z13}--z14;
+draw z6..z7; % --z8{an};
+%
+%
+labels(range 1 thru 14);
+endchar;
+
+% ll
+beginchar(oct"016",33.7 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,18ut);
+z2=(12.7ut,36ut);
+z3=(11ut,39ut);
+z4=(1ut,0ut);
+z5=(16ut,18ut);
+z6=(6ut,2ut);
+z7=(6.1ut,(6.1*16/15+(2-64/15))*ut);
+z8=(17ut,0);
+z9=z8+z1;
+z10=z2+z8;
+z11=z3+z8;
+z12=z4+z8;
+z13=z5+z8+(2ut,0);
+z14=z6+z8;
+z15=z8+z1+(6.5ut,0);
+%
+draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
+ ..z10{up}..z11{left}..z9{z12-z11}..z12{right}..z14; % --z13;
+%
+%
+labels(range 1 thru 6);
+endchar;
+
+% t am Anfang eines Wortes ohne folgende Ligaturen und
+% nach speziellen Grossbuchstaben
+beginchar(oct"017",28 ut#,39 ut#,0);
+pickup va_pen;
+%
+z1=(-3ut,7ut);
+z2=(14ut,39ut);
+z3=(7ut,0ut);
+z4=(-2ut,8ut);
+z5=(28ut,18ut);
+%
+draw z1{an}..z2{(0,1)}
+ & z2-- z3;
+draw z4{dir 340}..z5{dir 60};
+%
+%
+labels(range 1 thru 5);
+endchar;
+
+% v
+beginchar(oct"135",18 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-4ut,5ut);
+z3=(2ut,0ut);
+z4=(14ut,19ut);
+z5=(27ut,18ut);
+%
+draw z1..z2{z2-z1}..z3{right}..z4{z1-z2};
+% & z4{dir 300}..z5;
+%
+%
+labels(range 1 thru 5);
+endchar;
+
+% w
+beginchar(oct"136",26 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(-3ut,5ut);
+z3=(0ut,0ut);
+z4=(9ut,8ut);
+z5=(11ut,19ut);
+z6=(13ut,0ut);
+z7=(22ut,19ut);
+z8=(35ut,18ut);
+%
+draw z1--z2..z3{right}..z4--z5
+ & z5--z4..z6{right}..z7{z5-z4};
+% & z7{dir 300}..z8;
+%
+%
+labels(range 1 thru 8);
+endchar;
+
+% x
+beginchar(oct"137",17 ut#,19 ut#,0);
+pickup va_pen;
+%
+z1=(0ut,19ut);
+z2=(11ut,0ut);
+z3=(-5ut,0ut);
+z4=(13ut,19ut);
+z5=(30ut,18ut);
+%
+draw z1--z2;
+draw z3--z4;
+% & z4{dir 300}..z5;
+%
+%
+labels(range 1 thru 5);
+endchar;