% VA Zeichensatz
%
%  Original  Ludewig, Siegen
%
%  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 "I s", "P s", "T s", "O s" und "OE s" 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 "VA"; 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 scaled 3.51ut;

pen va_pen_small;
va_pen_small := pencircle scaled 2.51ut;

pen va_pen_big;
va_pen_big := pencircle scaled 4.51ut;

%
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";

% 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#;  % `


% s am Wortanfang
ligtable ||:
     "I":      "P":      "O":      214:              % I   P    T    O    OE
oct"000":       16:       18:       22:       41:    % `   ``   ,,   ---  )
      39:       40:       42:       43:       44:    % '   (    *     +   ,
      46:       47:       58:       59:              % .   /    :     ;
      60:       61:       62:       63:       96:    % <   =    >     ?   `
                                            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",  % ?
              96  =:| oct"033";  % `

% sz als letzter Buchstaben
ligtable 255:
%              oct"040"  =:| oct"036",  % space
               " "    =:| oct"036",
              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"041"  =:| oct"034",  % !
              oct"042"  =:| oct"034",  % ''
              oct"047"  =:| oct"034",  % '
              oct"051"  =:| oct"034",  % )
              oct"052"  =:| oct"034",  % *
              oct"053"  =:| oct"034",  % +
              oct"054"  =:| 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"077"  =:| oct"034",  % ?
              96  =:| 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#;




bye.