diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/twcal/twup.mf |
Initial commit
Diffstat (limited to 'fonts/twcal/twup.mf')
-rw-r--r-- | fonts/twcal/twup.mf | 463 |
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; |