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