%      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.
