summaryrefslogtreecommitdiff
path: root/fonts/twcal/twup.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/twup.mf
Initial commit
Diffstat (limited to 'fonts/twcal/twup.mf')
-rw-r--r--fonts/twcal/twup.mf463
1 files changed, 463 insertions, 0 deletions
diff --git a/fonts/twcal/twup.mf b/fonts/twcal/twup.mf
new file mode 100644
index 0000000000..ac45fa5793
--- /dev/null
+++ b/fonts/twcal/twup.mf
@@ -0,0 +1,463 @@
+
+% TW -- uppercase letters
+
+
+beginchar("A",46ut#,39ut#,0);
+pickup va_pen;
+z1=(0ut,0ut)+z7;
+z2=(12ut,6ut)+z7;
+z3=(36ut,39ut)+z7;
+z4=(30ut,0ut)+z7;
+z5=(12ut,14ut)+z7;
+z6=(46ut,18ut)+z7;
+z7=(0ut,0ut);
+%
+draw z1{right}..z2--z3
+ & z3--z4;
+draw z5{dir 345}..z6{an};
+%
+labels(range 1 thru 7);
+endchar;
+
+beginchar(oct"035",46ut#,47ut#,0); % A-Umlaut
+pickup va_pen;
+z1=(0ut,0ut);
+z2=(12ut,6ut);
+z3=(36ut,39ut);
+z4=(30ut,0ut);
+z5=(12ut,14ut);
+z6=(46ut,18ut);
+z7=(32ut,46ut);
+z8=(41ut,46ut);
+%
+draw z1{right}..z2--z3
+ & z3--z4;
+ draw z5{dir 345}..z6{an};
+%
+pickup pencircle scaled 4ut;
+drawdot z7;drawdot z8;
+%
+labels(range 1 thru 8);
+endchar;
+
+
+beginchar("B",36ut#,39ut#,0);
+pickup va_pen;
+z1=(6ut,39ut);
+z2=(21ut,39ut);
+z3=(27ut,31ut);
+z4=(10ut,19ut);
+z5=(28ut,9ut);
+z6=(0ut,0ut);
+z7=(12ut,39ut);
+z8=(6ut,0ut);
+%
+draw z1--z2..z3{down}...z4{left}
+ & z4{right}..z5{down}...z8{left}--z6;
+ draw z7--z8;
+labels(range 1 thru 8);
+endchar;
+
+beginchar("C",32ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(27ut,36ut);
+z2=(18ut,39ut);
+z3=(0ut,10ut);
+z4=(8ut,0ut);
+z5=(32ut,18ut);
+z6=(14ut,2ut);
+%
+draw z1..z2{left}..z3{down}..z4{right}..z6--z5;
+
+labels(range 1 thru 6);
+endchar;
+
+beginchar("D",42ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(3ut,39ut);
+z2=(17ut,39ut);
+z3=(34ut,24ut);
+z4=(0ut,0ut);
+z5=(11ut,39ut);
+z6=(3ut,0ut);
+%
+draw z1--z2..z3{down}..z6{left}--z4;
+draw z5--z6;
+labels(range 1 thru 6);
+endchar;
+
+beginchar("E",32ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(24ut,37ut);
+z2=(6ut,29ut);
+z3=(15ut,19ut);
+z4=(0ut,8ut);
+z5=(10ut,0ut);
+z6=(32ut,18ut);
+z7=(15ut,2ut);
+%
+draw z1..z2{down}..z3
+ & z3..z4..z5{right}..z7--z6{an};
+labels(range 1 thru 6);
+endchar;
+
+beginchar("F",30ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(8ut,39ut);
+z2=(0ut,0ut);
+z3=(0ut,39ut);
+z4=(26ut,39ut);
+z5=(-2ut,18ut);
+z6=(23ut,18ut);
+%
+draw z3--z4;
+draw z1--z2;
+draw z5{dir 340}..z6{dir 8};
+labels(range 1 thru 6);
+endchar;
+
+beginchar("G",39ut#,39ut#,19ut#);
+pickup va_pen;
+z1=(28ut,36ut);
+z2=(21ut,39ut);
+z3=(0ut,8ut);
+z4=(5ut,0ut);
+z5=(25ut,19ut);
+z6=(22ut,0ut);
+z7=(12ut,-19ut);
+z8=(8ut,-15ut);
+z9=(13ut,-7ut);
+z10=(39ut,18ut);
+%
+draw z1..z2{left}..z3{down}..z4{right}..z5{z5-z6}
+ & z5--z6{z6-z5}..z7{left}..z8{up}..z9{z10-z9}---z10;
+labels(range 1 thru 10);
+endchar;
+
+beginchar("H",35ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(6ut,39ut);
+z2=(0ut,0ut);
+z3=(27ut,39ut);
+z4=(21ut,0ut);
+z5=(-4ut,14ut);
+z6=(35ut,18ut);
+%
+draw z1--z2;
+draw z3--z4;
+draw z5{dir 340}..z6{dir 30};
+labels(range 1 thru 6);
+endchar;
+
+beginchar("I",29ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(9ut,39ut);
+z2=(25ut,39ut);
+z3=(20ut,10ut);
+z4=(10ut,0ut);
+z5=(0ut,5ut);
+%
+draw z1--z2
+ & z2--z3..z4{left}..z5;
+labels(range 1 thru 5);
+endchar;
+
+beginchar("J",21ut#,39ut#,19ut#);
+pickup va_pen;
+z1=(0ut,39ut);
+z2=(15ut,39ut);
+z3=(9ut,4ut);
+z4=(-2ut,-19ut);
+z5=(-7ut,-14ut);
+z6=(-4ut,-5ut);
+z7=(21ut,18ut);
+%
+draw z1--z2
+ & z2--z3{z3-z2}...z4{left}..z5{up}..z6--z7;
+labels(range 1 thru 7);
+endchar;
+
+beginchar("K",41ut#,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);
+%
+draw z1--z2;
+draw z3..z4
+ & z4--z5..z6{right}..z8--z7;
+labels(range 1 thru 8);
+endchar;
+
+beginchar("L",38ut#,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);
+%
+draw z1..z2..z3..z4
+ & z4{dir 40}..z5{right}..z7--z6;
+labels(range 1 thru 7);
+endchar;
+
+beginchar("M",70ut#,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);
+%
+draw z1{right}..z2--z3
+ & z3--z4
+ & z4--z5
+ &z5--z6{z6-z5}..z7{right}..z9--z8;
+labels(range 1 thru 9 );
+endchar;
+
+beginchar("N",42ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(0ut,0ut);
+z2=(5ut,5ut);
+z3=(11ut,39ut);
+z4=(29ut,0ut);
+z5=(35ut,30ut);
+z6=(40ut,39ut);
+%
+draw z1{right}..z2{z3-z2}--z3
+ & z3--z4
+ & z4--z5{z5-z4}...z6;
+labels(range 1 thru 6);
+endchar;
+
+beginchar("O",36ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(28ut,25ut);
+z2=(10ut,0ut);
+z3=(0ut,16ut);
+z4=(17ut,39ut);
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+labels(range 1 thru 4);
+endchar;
+
+beginchar(oct"036",36ut#,47ut#,0ut#); % O-Umlaut
+pickup va_pen;
+z1=(28ut,25ut);
+z2=(10ut,0ut);
+z3=(0ut,16ut);
+z4=(17ut,39ut);
+z5=(14ut,46ut);
+z6=(22ut,46ut);
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+%
+pickup pencircle scaled 4ut;
+drawdot z5; drawdot z6;
+labels(range 1 thru 6);
+endchar;
+
+
+beginchar("P",28ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(0ut,39ut);
+z2=(17ut,39ut);
+z3=(26ut,31ut);
+z4=(4ut,19ut);
+z5=(7ut,39ut);
+z6=(0ut,0ut);
+%
+draw z1--z2..z3{down}...z4{left};
+draw z5--z6;
+labels(range 1 thru 6);
+endchar;
+
+beginchar("Q",44ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(28ut,25ut);
+z2=(10ut,0ut);
+z3=(0ut,16ut);
+z4=(17ut,39ut);
+z5=(13ut,12ut);
+z6=(18ut,5ut);
+z7=(24ut,0ut);
+z8=(30ut,3ut);
+z9=(44ut,18ut);
+%
+draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
+draw z5--z6..z7..z8--z9;
+labels(range 1 thru 9);
+endchar;
+
+beginchar("R",39ut#,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=(39ut,18ut);
+%
+draw z1--z2..z3{down}..z4
+ & z4--z7{z7-z4}..z8..z9---z10;
+draw z5--z6;
+labels(range 1 thru 10);
+endchar;
+
+beginchar("S",32ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(0ut,3ut);
+z2=(10ut,0ut);
+z3=(22ut,9ut);
+z4=(8ut,30ut);
+z5=(17ut,39ut);
+z6=(25ut,36ut);
+%
+draw z1..z2{right}..z3{up}..z4{up}..z5{right}..z6;
+labels(range 1 thru 6);
+endchar;
+
+beginchar("T",31ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(15ut,39ut);
+z2=(8ut,0ut);
+z3=(0ut,39ut);
+z4=(29ut,39ut);
+%
+draw z1--z2;
+draw z3--z4;
+labels(range 1 thru 4);
+endchar;
+
+beginchar("U",45ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(6ut,39ut);
+z2=(0ut,8ut);
+z3=(6ut,0ut);
+z4=(25ut,20ut);
+z5=(29ut,39ut);
+z6=(22ut,5ut);
+z7=(25ut,0ut);
+z8=(45ut,18ut);
+z9=(29ut,2ut);
+%
+draw z1--z2..z3{right}..z4..z5
+ & z5--z6{z6-z5}..z7..{z8-z9}z9--z8;
+labels(range 1 thru 9);
+endchar;
+
+beginchar(oct"037",45ut#,47ut#,0ut#); % U-Umlaut
+pickup va_pen;
+z1=(6ut,39ut);
+z2=(0ut,8ut);
+z3=(6ut,0ut);
+z4=(25ut,20ut);
+z5=(29ut,39ut);
+z6=(22ut,5ut);
+z7=(25ut,0ut);
+z8=(45ut,18ut);
+z9=(29ut,2ut);
+z10=(13ut,46ut);
+z11=(22ut,46ut);
+%
+draw z1--z2..z3{right}..z4..z5
+ & z5--z6{z6-z5}..z7..{z8-z9}z9--z8;
+%
+pickup pencircle scaled 4ut;
+drawdot z10; drawdot z11;
+%
+labels(range 1 thru 9);
+endchar;
+
+
+beginchar("V",41ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(7ut,39ut);
+z2=(0ut,0ut);
+z3=(34ut,34ut);
+z4=(41ut,39ut);
+%
+draw z1--z2
+ & z2--z3{z4-z3}...z4;
+labels(range 1 thru 4);
+endchar;
+
+beginchar("W",58ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(8ut,39ut);
+z2=(3ut,0ut);
+z3=(30ut,39ut);
+z4=(26ut,0ut);
+z5=(53ut,35ut);
+z6=(58ut,39ut);
+%
+draw z1--z2
+ & z2--z3
+ & z3--z4
+ & z4--z5{z5-z4}...z6;
+labels(range 1 thru 6);
+endchar;
+
+beginchar("X",48ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(8ut,39ut);
+z2=(22ut,5ut);
+z3=(28ut,0ut);
+z4=(33ut,3ut);
+z5=(48ut,18ut);
+z6=(33ut,39ut);
+z7=(0ut,0ut);
+%
+draw z1--z2..z3..z4{z5-z4}---z5;
+draw z6--z7;
+labels(range 1 thru 7);
+endchar;
+
+beginchar("Y",43ut#,39ut#,19ut#);
+pickup va_pen;
+z1=(6ut,39ut);
+z2=(0ut,5ut);
+z3=(9ut,0ut);
+z4=(30ut,39ut);
+z5=(22ut,-5ut);
+z6=(14ut,-19ut);
+z7=(10ut,-15ut);
+z8=(15ut,-7ut);
+z9=(43ut,18ut);
+%
+draw z1--z2{z2-z1}..z3{right}...z4{z4-z5}
+ & z4--z5{z5-z4}..z6{left}..z7..z8{z9-z8}---z9;
+labels(range 1 thru 9);
+endchar;
+
+beginchar("Z",41ut#,39ut#,0ut#);
+pickup va_pen;
+z1=(7ut,39ut);
+z2=(32ut,39ut);
+z3=(0ut,0ut);
+z4=(22ut,0ut);
+z5=(27ut,3ut);
+z6=(41ut,18ut);
+%
+draw z1--z2
+ & z2--z3
+ & z3{dir 20}..z4{right}..z5{z6-z5}---z6;
+labels(range 1 thru 6);
+endchar;