% VA Zeichensatz mit breiter Feder
%
%  Original  Ludewig, Siegen
%
%   leichte Modifikation N. Schwarz, Bochum
%
%  Juli 1990: leichte Modifikation N. Schwarz, Bochum
%
%  Juli 1991: Anpassung an die Zeichensatzbelegung der DC/EC-Fonts und
%             Nutzung der Ligaturmoeglichkeiten von TeX 3.0. Ludewig, Siegen
%
%  Aug. 1992: Ligaturen fuer Is, Ps, Ts, Os und OEs eingefuehrt.
%
%             ---------------------
%
% Wuensche, Fehler und Anregungen bitte an:
%
% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
%
%    E-mail:         ludewig@hrz.uni-siegen.de
%

%  plain



font_identifier "VACAL"; font_size 14pt#;
font_coding_scheme:="VA text";

mode_setup;

boolean serifs,monospace;
%
xpt#:=pt#;
monospace:=false;
serifs:=true;
%
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.5ut xscaled 1ut 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;

%
input va-in;
%

font_quad 33pt#;
font_normal_space 6.6pt#;
font_normal_stretch 3pt#;
font_normal_shrink 1pt#;
%
%  etwas kerning ist doch notwendig:
%
k#:=-2.25pt#;
kk#:=-1.5pt#;
neg_k#:=2pt#;

boundarychar:=oct"040";

ligtable      "-": "-"   =:  oct"025",   % -
                    "s" |=:  oct"035";
ligtable oct"025": "-"   =:  oct"026",   % --
                   "s"  |=:  oct"035";


% s am Wortanfang
ligtable ||:
"I": "P": "O": oct"326": oct"000": oct"020": oct"022": oct"026":              % `   ``   ,,   ---
oct"047": oct"050": oct"052": oct"053": oct"054":    % '   (    *     +   ,
oct"056": oct"057": oct"072": oct"073":              % .   /    :     ;
oct"074": oct"075": oct"076": oct"077": oct"140":    % <   =    >     ?   `
                                           oct"035" kern k#,
                                            "s" |=: oct"035";

% lig-s am Ende
ligtable oct"035":
              oct"040"  =:| oct"033",  % space
              oct"001"  =:| oct"033",  % '
              oct"021"  =:| oct"033",  % ''
              oct"025"  =:| oct"033",  % --
              oct"026"  =:| oct"033",  % ---
              oct"041"  =:| oct"033",  % !
              oct"042"  =:| oct"033",  % ''
              oct"047"  =:| oct"033",  % '
              oct"051"  =:| oct"033",  % )
              oct"052"  =:| oct"033",  % *
              oct"053"  =:| oct"033",  % +
              oct"054"  =:| oct"033",  % ,
              oct"055"  =:| oct"033",  % -
              oct"056"  =:| oct"033",  % .
              oct"057"  =:| oct"033",  % /
              oct"072"  =:| oct"033",  % :
              oct"073"  =:| oct"033",  % ;
              oct"075"  =:| oct"033",  % =
              oct"074"  =:| oct"033",  % <
              oct"076"  =:| oct"033",  % >
              oct"077"  =:| oct"033",  % ?
              oct"140"  =:| oct"033";  % `

% sz am Ende
ligtable oct"377":
              oct"040"  =:| oct"036",  % space
              oct"001"  =:| oct"036",  % '
              oct"021"  =:| oct"036",  % ''
              oct"025"  =:| oct"036",  % --
              oct"026"  =:| oct"036",  % ---
              oct"041"  =:| oct"036",  % !
              oct"042"  =:| oct"036",  % ''
              oct"047"  =:| oct"036",  % '
              oct"051"  =:| oct"036",  % )
              oct"052"  =:| oct"036",  % *
              oct"053"  =:| oct"036",  % +
              oct"054"  =:| oct"036",  % ,
              oct"055"  =:| oct"036",  % -
              oct"056"  =:| oct"036",  % .
              oct"057"  =:| oct"036",  % /
              oct"072"  =:| oct"036",  % :
              oct"073"  =:| oct"036",  % ;
              oct"075"  =:| oct"036",  % =
              oct"074"  =:| oct"036",  % <
              oct"076"  =:| oct"036",  % >
              oct"077"  =:| oct"036",  % ?
              oct"140"  =:| oct"036";  % `

%s am Wortende
ligtable "s":
              oct"040"  =:| oct"034",  % space
              oct"001"  =:| oct"034",  % '
              oct"021"  =:| oct"034",  % ''
              oct"025"  =:| oct"034",  % --
              oct"026"  =:| oct"034",  % ---
              "!"       =:| oct"034",  % !
              oct"042"  =:| oct"034",  % ''
              oct"047"  =:| oct"034",  % '
              oct"051"  =:| oct"034",  % )
              oct"052"  =:| oct"034",  % *
              oct"053"  =:| oct"034",  % +
              ","       =:| oct"034",  % ,
              oct"055"  =:| oct"034",  % -
              oct"056"  =:| oct"034",  % .
              oct"057"  =:| oct"034",  % /
              oct"072"  =:| oct"034",  % :
              oct"073"  =:| oct"034",  % ;
              oct"075"  =:| oct"034",  % =
              oct"074"  =:| oct"034",  % <
              oct"076"  =:| oct"034",  % >
              "?"       =:| oct"034",  % ?
              oct"140"  =:| oct"034";  % `



ligtable "V" : "W" : "T" : "a" kern k#,
                           "o" kern k#,
                           "e" kern k#,
                           "u" kern kk#,
                          oct"035" kern k#,
                           "s" |=: oct"035",
                           "r" kern kk#;

% End-s gefolgt von Punkt usw.
ligtable oct"033" : oct"034":
              oct"001"  kern neg_k#, % '
              oct"021"  kern neg_k#, % ''
              oct"025"  kern neg_k#, % --
              oct"026"  kern neg_k#, % ---
              oct"041"  kern neg_k#, % !
              oct"042"  kern neg_k#, % ''
              oct"047"  kern neg_k#, % '
              oct"051"  kern neg_k#, % )
              oct"052"  kern neg_k#, % *
              oct"053"  kern neg_k#, % +
              oct"054"  kern neg_k#, % ,
              oct"055"  kern neg_k#, % -
              oct"056"  kern neg_k#, % .
              oct"057"  kern neg_k#, % /
              oct"072"  kern neg_k#, % :
              oct"073"  kern neg_k#, % ;
              oct"075"  kern neg_k#, % =
              oct"074"  kern neg_k#, % <
              oct"076"  kern neg_k#, % >
              oct"077"  kern neg_k#, % ?
              oct"140"  kern neg_k#;  % `



bye.