% LLA Zeichensatz: Lateinische Ausgangsschrift mit Linien
%
%   Original  J. Heuer, Wildeshausen
%   nach Vorlage der VA-Zeichens„tze von Ludewig, Siegen
%
%  (C)opyright 1994  Johannes Heuer
%  ------------------------------------------------------------------
%  LA und LLA darf nur als Gesamtpaket weitergegeben werden.
%
%  Bei Trennvorgaben und Befehlen, die Einfluss
%  auf die Verwendung von Ligaturen haben koennen ist groáe
%  Zurueckhaltung geboten!
%  Es gibt so gut wie keine Buchstabenreihenfolge, die nicht
%  durch die Ligaturprogrammierung beeinflusst wird.
%
%  ---------------------
%
% Wuensche, Fehler und Anregungen bitte an:
%
%             Joh. Heuer, Otto-Hahn-Str. 4, 27793 Wildeshausen.
%             johannes.heuer@gym-wildeshsn.nsn.ni.schule.de
%             oder:
%             johannes.heuer@arbi.informatik.uni-oldenburg.de
%
% plain


font_identifier "LLA"; font_size 14pt#;
font_coding_scheme:="LLA 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;
%
%
numeric str_d,str_dp,str_dm,str_i;
numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
numeric kl_oben,gr_oben;
%
%
str_d:=1.8ut;         %Strichdicke
str_i:=2.8ut;
str_dp:=2.3ut;
str_dm:=1.3ut;
%
pen linien_pen;
linien_pen := pencircle scaled 0.8ut;
pen grund_pen;
grund_pen := pencircle scaled 1.3ut;

pen va_pen;
va_pen := pencircle scaled str_d;

pen va_pen_small;
va_pen_small := pencircle scaled str_dm;

pen va_pen_big;
va_pen_big := pencircle scaled str_dp;
%
top:=8ut; mid:=-3ut; bas:=0ut; bot:=0ut;
kl_oben:=19ut; gr_oben:=34ut;
%
an_top=16ut; an_mid=11ut; an_bot=6ut;
%
%

def make_l (expr yy) =
 z48=(0ut,bot-16ut);         z49=(yy ,bot-16ut);
 z50=(0ut,bot-1ut);          z51=(yy ,bot-1ut);
 z52=(0ut,kl_oben+0.5ut);    z53=(yy ,kl_oben+0.5ut);
 z54=(0ut,gr_oben+0.8ut);    z55=(yy ,gr_oben+0.8ut);
 pickup linien_pen;
 draw z48--z49; draw z52--z53; draw z54--z55;
 pickup grund_pen;
 draw z50--z51;
enddef;

% --------------------------->
input lla-spec;
input lla-in;
%
font_quad 33pt#;
font_normal_space 7.6pt#;
font_normal_stretch 5pt#;
font_normal_shrink 3pt#;
font_x_height 5.7pt#;
%


%  etwas kerning ist doch notwendig:
%
vor_m#:=-3ut#;
vor_i#:=-1ut#;
B_e#:=-8ut#;
T_e#:=-2ut#;

boundarychar:=oct"040";

ligtable oct"025": "-"   =:  oct"026";   % ---

ligtable  "a":oct"344":"c":"d":"e":oct"037":"f":
          "g":"h":"i":"j":"k":"l":"m":"n":"p":
          "t":"u":oct"374":"x":"y":"z":
              "a" |=:| 133,
          oct"344"|=:| 133,
              "b" |=:| 134,
              "c" |=:| 133,
              "d" |=:| 133,
          %    "e" |=:| 147,
              "f" |=:| 134,
              "g" |=:| 133,
              "h" |=:| 134,
              "i" |=:| 146,
              "j" |=:| 146,
              "k" |=:| 134,
              "l" |=:| 134,
              "m" |=:| 132,
              "n" |=:| 132,
              "o" |=:| 133,
         oct"366" |=:| 133,
              "p" |=:| 146,
              "q" |=:| 133,
              "r" |=:| 132,
              "s" |=:| 146,
         oct"377" |=:| 134,   % sz
              "t" |=:| 134,
              "u" |=:| 146,
         oct"374" |=:| 146,
              "v" |=:| 132,
              "w" |=:| 132,
              "x" |=:| 132,
              "y" |=:| 146,
              "z" |=:| 132;

ligtable "b":"o":oct"366":"r":"v":"w":   %Schleife nach b, r,...
              "e" |=: oct"037",  % e nach b, r ...
              " " |=:| oct"043",
              "-" |=:| oct"043",
              ")" |=:| oct"043",
              "." |=:| oct"043",
              ":" |=:| oct"043",
         oct"020" |=:| oct"043",    %Anfhrungsstr. oben
         oct"021" |=:| oct"043",    %Anfhrungsstr. oben
         oct"042" |=:| oct"043",    % dito.
              "," |=:| oct"043",
              ";" |=:| oct"043",
              "!" |=:| oct"043",
              "?" |=:| oct"043",
              "a" |=:| oct"044",
          oct"344"|=:| oct"044",
              "b" |=:| oct"045",
              "c" |=:| oct"044",
              "d" |=:| oct"044",
          %    "e" |=:| 147,
              "f" |=:| oct"045",
              "g" |=:| oct"044",
              "h" |=:| oct"045",
              "i" |=:| oct"043",
              "j" |=:| oct"043",
              "k" |=:| oct"045",
              "l" |=:| oct"045",
              "m" |=:| oct"046",
              "n" |=:| oct"046",
              "o" |=:| oct"044",
         oct"366" |=:| oct"044",
              "p" |=:| oct"043",
              "q" |=:| oct"044",
              "r" |=:| oct"046",
              "s" |=:| oct"043",
         oct"377" |=:| oct"043",
              "t" |=:| oct"045",
              "u" |=:| oct"043",
         oct"374" |=:| oct"043",
              "v" |=:| oct"046",
              "w" |=:| oct"046",
              "x" |=:| oct"046",
              "y" |=:| oct"043",
              "z" |=:| oct"046";


ligtable  ||: "," |=:|> oct"030",   %Linien fr Leerzeichen
              "." |=:|> oct"030",
              ":" |=:|> oct"030",
              "-" |=:|> oct"031",
              "+" |=:|> oct"030",
              "*" |=:|> oct"030",
              "(" |=:|> oct"030",
              ")" |=:|> oct"030",
              ";" |=:|> oct"030",
              "!" |=:|> oct"030",
              "?" |=:|> oct"030",
              "<" |=:|> oct"030",
              "=" |=:|> oct"030",
              ">" |=:|> oct"030",
              "/" |=:|> oct"030",
              "1" |=:|> oct"030",
              "2" |=:|> oct"030",
              "3" |=:|> oct"030",
              "4" |=:|> oct"030",
              "5" |=:|> oct"030",
              "6" |=:|> oct"030",
              "7" |=:|> oct"030",
              "8" |=:|> oct"030",
              "9" |=:|> oct"030",
              "0" |=:|> oct"030",
         oct"000" |=:|> oct"030",
         oct"001" |=:|> oct"030",
         oct"020" |=:|> oct"030",
         oct"021" |=:|> oct"030",
         oct"022" |=:|> oct"030",
         oct"042" |=:|> oct"030",
         oct"047" |=:|> oct"030",
         oct"140" |=:|> oct"030",
              "a" |=:|> oct"030",
         oct"344" |=:|> oct"030",
              "b" |=:|> oct"030",
              "c" |=:|> oct"030",
              "d" |=:|> oct"030",
              "e" |=:|> oct"030",
              "f" |=:|> oct"030",
              "g" |=:|> oct"030",
              "h" |=:|> oct"030",
              "i" |=:|> oct"030",
              "j" |=:|> oct"030",
              "k" |=:|> oct"030",
              "l" |=:|> oct"030",
              "m" |=:|> oct"030",
              "n" |=:|> oct"030",
              "o" |=:|> oct"030",
         oct"366" |=:|> oct"030",
              "p" |=:|> oct"030",
              "q" |=:|> oct"030",
              "r" |=:|> oct"030",
              "s" |=:|> oct"030",
              "t" |=:|> oct"030",
              "u" |=:|> oct"030",
         oct"374" |=:|> oct"030",
              "v" |=:|> oct"030",
              "w" |=:|> oct"030",
              "x" |=:|> oct"030",
              "y" |=:|> oct"030",
              "z" |=:|> oct"030",
         oct"377" |=:|> oct"030",
              "A" |=:|> oct"030",
         oct"304" |=:|> oct"030",
              "B" |=:|> oct"030",
              "C" |=:|> oct"030",
              "D" |=:|> oct"030",
              "E" |=:|> oct"030",
              "F" |=:|> oct"030",
              "G" |=:|> oct"030",
              "H" |=:|> oct"030",
              "I" |=:|> oct"030",
              "J" |=:|> oct"030",
              "K" |=:|> oct"030",
              "L" |=:|> oct"030",
              "M" |=:|> oct"030",
              "N" |=:|> oct"030",
              "O" |=:|> oct"030",
         oct"326" |=:|> oct"030",
              "P" |=:|> oct"030",
              "Q" |=:|> oct"030",
              "R" |=:|> oct"030",
              "S" |=:|> oct"030",
              "T" |=:|> oct"030",
              "U" |=:|> oct"030",
         oct"334" |=:|> oct"030",
              "V" |=:|> oct"030",
              "W" |=:|> oct"030",
              "X" |=:|> oct"030",
              "Y" |=:|> oct"030",
              "Z" |=:|> oct"030";


ligtable "(":oct"020":oct"022":"-":     %Aufstrich nach
          oct"030":                    %Leerzeichen, (, ",-, Anf.Str. unten...
              "-"  =: oct"025",
              "a" |=:| 130,
         oct"344" |=:| 130,
              "b" |=:| 127,
              "c" |=:| 130,
              "d" |=:| 130,
              "e" |=:| 128,
              "f" |=:| 127,
              "g" |=:| 130,
              "h" |=:| 127,
              "i" |=:| 129,
              "j" |=:| 129,
              "k" |=:| 127,
              "l" |=:| 127,
              "o" |=:| 130,
         oct"366" |=:| 130,
              "p" |=:| 129,
              "q" |=:| 130,
              "s" |=:| 129,
              "t" |=:| 127,
              "u" |=:| 129,
         oct"374" |=:| 129,
              "y" |=:| 129,
         oct"377" |=:| 127;


%Kleinbuchstabe nach s, sz oder s am Wortende

ligtable "s":oct"377":
              "a" |=:| 149,
          oct"344"|=:| 149,
              "b" |=:| 150,
              "c" |=:| 149,
              "d" |=:| 149,
              "e" |=:| 148,
              "f" |=:| 150,
              "g" |=:| 149,
              "h" |=:| 150,
              "i" |=:| 151,
              "j" |=:| 151,
              "k" |=:| 150,
              "l" |=:| 150,
              "m" |=:| 152,
              "n" |=:| 152,
              "o" |=:| 149,
         oct"366" |=:| 149,
              "p" |=:| 151,
              "q" |=:| 149,
              "r" |=:| 152,
              "s" |=:| 151,
              "t" |=:| 150,
              "u" |=:| 151,
         oct"374" |=:| 151,
              "v" |=:| 152,
              "w" |=:| 152,
              "x" |=:| 152,
              "y" |=:| 151,
              "z" |=:| 152;


ligtable  "A":oct"304":"C":"E":"G":"H":"J":"K":"L":"M":
          "R":"U":"X":"Y":"Z":oct"334":
              "a" |=:| 131,
         oct"344" |=:| 131,
              "b" |=:| 143,
              "c" |=:| 131,
              "d" |=:| 131,
              "f" |=:| 143,
              "g" |=:| 131,
              "h" |=:| 143,
              "i" |=:| 144,
              "j" |=:| 144,
              "k" |=:| 143,
              "l" |=:| 143,
              "m" |=:| 145,
              "n" |=:| 145,
              "o" |=:| 131,
         oct"366" |=:| 131,
              "p" |=:| 144,
              "q" |=:| 131,
              "s" |=:| 144,
              "r" |=:| 145,
              "t" |=:| 143,
              "u" |=:| 144,
         oct"374" |=:| 144,
              "v" |=:| 145,
              "w" |=:| 145,
              "x" |=:| 145,
              "y" |=:| 144,
              "z" |=:| 145;


ligtable  "B":"D":"O":oct"326":"V":"W":"N":
              "a" |=:| 139,
         oct"344" |=:| 139,
              "b" |=:| 140,
              "c" |=:| 139,
              "d" |=:| 139,
              "e" |=:| 153,
              "f" |=:| 140,
              "g" |=:| 139,
              "h" |=:| 140,
              "i" |=:| 141,
              "j" |=:| 141,
              "k" |=:| 140,
              "l" |=:| 140,
              "m" |=:| 142,
              "n" |=:| 142,
              "o" |=:| 139,
         oct"366" |=:| 139,
              "p" |=:| 142,
              "q" |=:| 139,
              "r" |=:| 142,
              "s" |=:| 141,
              "t" |=:| 140,
              "u" |=:| 141,
         oct"374" |=:| 141,
              "v" |=:| 142,
              "w" |=:| 142,
              "x" |=:| 142,
              "y" |=:| 141,
              "z" |=:| 142,
             153 kern B_e#,
             141 kern vor_i#,
             142 kern vor_m#;

ligtable  "F":"I":"P":"S":"T":
              "a" |=:| 135,
         oct"344" |=:| 135,
              "b" |=:| 138,
              "c" |=:| 135,
              "d" |=:| 135,
              "e" |=:| 147,
              "f" |=:| 138,
              "g" |=:| 135,
              "h" |=:| 138,
              "i" |=:| 136,
              "j" |=:| 136,
              "k" |=:| 138,
              "l" |=:| 138,
              "m" |=:| 137,
              "n" |=:| 137,
              "o" |=:| 135,
         oct"366" |=:| 135,
              "p" |=:| 136,
              "q" |=:| 135,
              "r" |=:| 137,
              "s" |=:| 136,
              "t" |=:| 138,
              "u" |=:| 136,
         oct"374" |=:| 136,
              "v" |=:| 137,
              "w" |=:| 137,
              "x" |=:| 137,
              "y" |=:| 136,
              "z" |=:| 137,
              147 kern T_e#,
              137 kern vor_m#;

bye.
