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