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/twspec.mf |
Initial commit
Diffstat (limited to 'fonts/twcal/twspec.mf')
-rw-r--r-- | fonts/twcal/twspec.mf | 390 |
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; |