1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
% TW -- kalligraphische Schreibschrift (C)6/1991 Thomas Weinmann
% ------------------------------------------------------------------
% - auf der Basis der VA--Schrift
% - Das Copyright bezieht sich nur auf die Veraenderungen von TWCAL14
% gegenueber VA.
% - Nicht gewerbliche Nutzung steht jedem frei.
% - TWCAL14 darf nur als Gesamtpaket weitegegeben werden.
% - mit MetaFont (ab Version 2.0 und plain base)
% sowie TeX (ab Version 3.0) verwenden.
% - Vorsicht bei Trennvorgaben und sonstigen Dingen die Einfluss
% auf die Verwendung von Ligaturen haben koennen! Es gibt bei
% Textstellen, die TWCAL14 benoetigen, kaum Buchstabenpaare,
% die nicht ueber die Ligaturprogrammierung beeinflusst werden.
% - zur (sicheren) Verwendung der Umlaute und des scharfen s zeigen
% TWREADME.TEX und TWCAL14.STY die einzige mir z.Z. bekannte
% Moeglichkeit.
% (Verbesserungsvorschlaege bitte an untenstehende Adresse/E-Mail)
%
% Thomas Weinmann
% Hausaeckerstrasse 4
% D-7024 Filderstadt 1
% e-mail: weinmann@azu.informatik.uni-stuttgart.de
% (die e-mail-Adresse bleibt hoffentlich noch einige Zeit)
message "TW -- Schreibschrift V1.1 (C)6/1991 Thomas Weinmann";
font_identifier "TWCAL"; font_size 14pt#;
font_coding_scheme:="TW text";
mode_setup;
pair auf,ab,an;
auf=(1,7);
ab=(-1,-7);
an=(1,0.8);
ut#:=0.3;
ut=ut#*hppp;
pen va_pen;
va_pen := pencircle yscaled 3.7ut xscaled 0.6ut rotated 60;
pen va_pen_small;
va_pen_small := pencircle yscaled 2.5ut xscaled 1.3ut rotated 60;
pen va_pen_big;
va_pen_big := pencircle yscaled 4.5ut xscaled 1.5ut rotated 60;
% fuer 320*200 CGA (mit Option /gc bei emTex)
% &plain
% mag=0.2;
% input twcal14
screenstrokes;
% imagerules;
showit;
if mode <> smoke:
if mode <> proof:
openwindow currentwindow from (0,0) to (screen_rows,screen_cols) at (-20ut,60ut);
fi
fi
if mode = proof:
openwindow currentwindow from (0,0) to (screen_rows,screen_cols) at (-15ut,20ut);
fi
if mode=smoke:
openwindow currentwindow from (0,0) to (screen_rows,screen_cols) at (-15ut,20ut);
fi
message "digits ";
input twdig;
message "signs ";
input twsign;
message "specials ";
input twspec;
message "conductors ";
input twcon;
message "lowercase ";
input twlow;
message "uppercase ";
input twup;
message "ligaturen ";
input twlig1;
input twlig2;
input twlig3;
input twlig4;
input twlig5;
input twlig6;
input twlig7;
font_quad 33pt#;
font_normal_space 8.7pt#;
font_normal_stretch 3.0pt#;
font_normal_shrink 1.7pt#;
font_x_height 19ut#;
font_quad 28.5ut#;
font_extra_space 2.7pt#;
%
% kerning, ligaturen und Buchstabenverbindungen
%
k#:=-2.25pt#;
kk#:=-1.5pt#;
boundarychar:=oct"133"; % oct"133" ist somit kein freier Platz mehr
input twligtb1;
input twligtb2;
input twligtb3;
input twligtb4;
input twligtb5;
input twligtb6;
input twligtb7;
bye.
|
