% Lateinische Ausgangsschrift (LA) wela
% Walter Entenmann
% 16.10.2011
%
% Grossbuchstaben
if not wortende:
  beginchar("A",45.446ut#,Ht#,0);
  else:
beginchar(oct"201",30ut#,Ht#,0);
    fi
pickup wela_pen;
xpos:=0;
A_char;
zeigen;
endchar;

if not wortende:
  beginchar("B",41.488ut#,Ht#,0);
  else:
beginchar(oct"202",32.5ut#,Ht#,0); 
    fi
  pickup wela_pen;
xpos:=0;
Stamm(12.5ut,Ht-dd,xpos);
bogen(Ht-D,Ht,Ht-dt/2,29ut,0.49,42,-90,1,1,xpos-12.5ut);
schweif(Ht-dt/2,top(ht),-14ut,-90,-180,1.1,xpos);
schweif(top(ht),ht/2,17.5ut,0,-90,1.1,xpos);
mt:=1;
bogen (ht/2,0,dd,-17.5ut,0.6,-90,135,1,1,xpos);
xpos:=32.5ut; % max. Breite
Kern:=0.6*17.5ut;
tangente(dd);
zeigen;
endchar;

if not wortende:
  beginchar("C",41.773ut#,Ht#,0);
      else:
beginchar(oct"203",25.327ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
   Oschl(sporn, Sb, xpos);
schweif(top(ht),0,Sb*(1-Sbf),-90,0,1,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("D",39.051ut#,Ht#,0);
      else:
beginchar(oct"204",30ut#,Ht#,0);
    fi
  pickup wela_pen;
    xpos:=0;
stamm(Ht-dd,R/2,xpos+10ut);
schweif(R/2,0,-R+D,-90,180,1,xpos);
schlinge_links(dd,D,D,xpos);
schweif(D,0,12.5ut,0,0,1.5,xpos);
xpos:=0;
mt:=1;
HaubeD(xpos);
xpos:=30ut; % max Breite
Kern:=12.5ut;
tangente(D);
zeigen;
endchar;

if not wortende:
  beginchar("E",31.445ut#,Ht#,0);
      else:
beginchar(oct"205",12.5ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
E_form(xpos);
fahne(0,ht-Delta,s+(ht-Delta)/m,0,angle(1,m),2,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("F",31.522ut#,Ht#,0);
      else:
beginchar(oct"206",27.5ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
    Dach(xpos);
    mt:=0.01;
Stamm(12.5ut,Ht-2ut,xpos+2.5ut);
quer(top(ht),xpos);
xpos:=27.5ut; % max. Breite
Kern:=20ut;
tangente(12.5ut);
zeigen;
endchar;

if not wortende:
  beginchar("G",41.446ut#,Ht#,dt#);
      else:
beginchar(oct"207",30ut#,Ht#,dt#);
    fi
  pickup wela_pen;
xpos:=0;
Oschl(sporn, Sb, xpos);
stamm(top(ht),0.75ht,xpos);
bogen(0.75ht,0,0.75*ht,Sb,0.45,-90,90,1,1,xpos);
stamm(ht,0,xpos);
if not wortende:
uschl(xpos);
strich(xpos);
else:
  uschl_e(xpos);
  fi
zeigen;
endchar;

if not wortende:
  beginchar("H",49.571ut#,Ht#,0);
      else:
beginchar(oct"210",33.125ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Flagge(xpos);
stamm(Ht,1.5R,xpos);
S_kurve(xpos+s/2);
stamm(Ht-1.5R,1.5R,xpos);
schweif(1.5R,0,Hbreite*(1-Hfx),-90,0,1,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("I",28.335ut#,Ht#,0);
      else:
beginchar(oct"211",17.5ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
Flagge(xpos);
mt:=0.5;
Stamm(15ut,Ht,xpos-15ut);
xpos:=flaggenbreite; % max Breite
Kern:=9ut;
tangente(D);
zeigen;
endchar;

if not wortende:
  beginchar("J",28.946ut#,Ht#,dt#);
      else:
beginchar(oct"212",17.5ut#,Ht#,dt#);
    fi
pickup wela_pen;
  xpos:=0;
Flagge(xpos);
stamm(Ht,0,xpos);
if not wortende:
  uschl(xpos);
  strich(xpos);
else:
  uschl_e(xpos);
  fi
zeigen;
  endchar;

  if not wortende:
    beginchar("K",48.946ut#,Ht#,0);
        else:
beginchar(oct"213",35ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Flagge(xpos);
Stamm(12.5ut,Ht,xpos-12.5ut);
xpos:=xpos+ht;
schweif(Ht,top(ht),-ht,180,180,1,xpos);
schweif(top(ht),0,ht-dd,0,0,1.5,xpos);
fahne(0,ht-Delta,dd+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("L",37.441ut#,Ht#,0);
      else:
beginchar(oct"214",23.495ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Oschl(sporn,SbL, xpos);
stamm(top(ht),R/2,xpos);
schweif(R/2,0,-R+D,-90,180,1,xpos);
schlinge_links(dd,D,D,xpos);
schweif(D,0,SbL*(1-Sbf)+D,0,0,1.5,xpos);
fahne(0,ht-Delta,dd+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("M",61.946ut#,Ht#,0);
      else:
beginchar(oct"215",48.5ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Flanke(Sporn,Mbreite,5ut,xpos);
stamm(Ht,0,xpos);
gerade(0,Ht,Mbreite,xpos);
stamm(Ht,D,xpos);
schweif(D,0,dd,-90,0,1,xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("N",50.946ut#,Ht#,0);
      else:
beginchar(oct"216",50ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Flanke(Sporn,12.5ut,5ut,xpos);
gerade(Ht,0,7.5ut,xpos);
gerade(0,Ht-s,(12.5/40)*(Ht-s),xpos);
schweif(Ht-s,Ht,20ut-(12.5/40)*(Ht-s),angle(12.5ut,40ut),0,1,xpos);
if not wortende:
  fahne(0,ht-Delta,9.5ut+(ht-Delta)/m,0,angle(1,m),1.5,xpos-20ut);
  fi
%xpos:=50ut; % max. Breite, Verbindungspunt=max.Breite - 20ut.
Kern:=20ut;
zeigen;
endchar;

if not wortende:
  beginchar("O",36.550ut#,Ht#,0);
      else:
beginchar(oct"217",31.290ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
  O_char;
  zeigen;
endchar;

if not wortende:
  beginchar("P",36.522ut#,Ht#,0);
      else:
beginchar(oct"220",30ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
bogen(Ht-D,Ht,Ht-dt/2,30ut,0.42,45,-90,1,1,xpos);
schweif(Ht-dt/2,top(ht),-15ut,-90,-180,1.1,xpos);
mt:=0.01;
Stamm(12.5ut,Ht-dd,xpos-15ut);
xpos:=30ut; % max Breite
Kern:=xpos-0.4*12.5ut;
tangente(20ut);
     zeigen;
endchar;

if not wortende:
  beginchar("Q",38.446ut#,Ht#,0);
      else:
beginchar(oct"221",25ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
Oval(xpos);
Ohr;
xpos:=A-dd;
bogen(D,D+dd/2,0,A+dd,0.28,45,0,1,1,xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("R",43.946ut#,Ht#,0);
      else:
beginchar(oct"222",30ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
bogen(Ht-D,Ht,Ht-dt/2,30ut,0.42,45,-90,1,1,xpos);
schweif(Ht-dt/2,top(ht),-15ut,-90,-180,1.1,xpos);
Stamm(12.5ut,Ht-dd,xpos-15ut);
  schweif(top(ht),0,15ut,0,0,1.5,xpos+dd);
fahne(0,ht-Delta,dd+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("S",31.522ut#,Ht#,0);
      else:
beginchar(oct"223",27.500ut#,Ht#,0);
    fi
  pickup wela_pen;
    xpos:=0;
    Oschl(sporn,SbL,xpos);
    mt:=0.01;
    Stamm(12.5ut,top(ht),xpos-12.5ut);
    xpos:=12.5ut+SbL; % max Breite
    Kern:=SbL+0.6*12.5ut;
    tangente(15ut);
zeigen;
endchar;

if not wortende:
  beginchar("T",31.522 ut#,Ht#,0);
      else:
beginchar(oct"224",27.5ut#,Ht#,0);
    fi
  pickup wela_pen;
  xpos:=0;
    Dach(xpos);
    mt:=0.01;
    Stamm(12.5ut,Ht-2ut,xpos+2.5ut);
    xpos:=27.5ut; % max Breite
    Kern:=20ut;
    tangente(12.5ut);
zeigen;
endchar;

if not wortende:
  beginchar("U",42.446ut#,Ht#,0);
      else:
beginchar(oct"225",29ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
U_char;
zeigen;
endchar;

if not wortende:
  beginchar("V",38.377ut#,Ht#,0);
      else:
beginchar(oct"226",34.778ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
    Spazierstock(xpos);
    stamm(Ht-rho,ht/2,xpos);
    mt:=0.1;
    bogen(ht/2,0,ht,ht,0.45,-90,90,1,1,xpos);
    xtmp:=x0; ytmp:=y0;
    schweif(ht,Ht,-einroll,90,angle(-1,mO),1,xpos);
    schweif(Ht,Ht,10ut,angle(1,-mO),angle(1,4),1,xpos);
    Kern:=xpos-(D+rho+0.45*ht);
    x0:=whatever; y0:=whatever;
    z0=(xtmp,ytmp);
    tangente(10ut);
zeigen;
endchar;

if not wortende:
  beginchar("W",58.377ut#,Ht#,0);
      else:
beginchar(oct"227",54.777ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
    Spazierstock(xpos);
    stamm(Ht-rho,ht/2,xpos);
    bogen(ht/2,0,ht,ht,0.35,-90,90,1,1,xpos);
    stamm(Ht,ht/2,xpos);
     mt:=0.1;
     bogen(ht/2,0,ht,ht,0.45,-90,90,1,1,xpos);
      xtmp:=x0; ytmp:=y0;
    schweif(ht,Ht,-einroll,90,angle(-1,mO),1,xpos);
    schweif(Ht,Ht,10ut,angle(1,-mO),angle(1,4),1,xpos);
    Kern:=xpos-(D+rho+ht+0.45*ht);
     x0:=whatever; y0:=whatever;
     z0=(xtmp,ytmp);
    tangente(10ut);
zeigen;
endchar;

if not wortende:
  beginchar("X",37.446ut#,Ht#,0);
      else:
beginchar(oct"230",24ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
x_form(1.5ht,Ht,xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("Y",38.446ut#,Ht#,dt#);
      else:
beginchar(oct"231",27ut#,Ht#,dt#);
    fi
  pickup wela_pen;
 xpos:=0;
     Spazierstock(xpos);
     stamm(Ht-rho,ht/2,xpos);
     bogen(ht/2,0,ht,ht,0.35,-90,90,1,1,xpos);
     stamm(Ht,0,xpos);
     if not wortende:
       uschl(xpos);
       strich(xpos);
     else:
       uschl_e(xpos);
       fi
zeigen;
endchar;

if not wortende:
  beginchar("Z",33.946ut#,Ht#,0);
      else:
beginchar(oct"232",20ut#,Ht#,0);
    fi
  pickup wela_pen;
xpos:=0;
    mZ:=Ht/(Zbreite-D);
bogen(Ht-D,Ht,Ht,Zbreite,0.3,75,angle(1,mZ),1,1,xpos);    
quer(top(ht),xpos-ht/mZ);
gerade(Ht,D,-(Ht-D)/mZ,xpos);
schweif(D,0,-(dd+D/mZ),angle(-1,-mZ),180,1,xpos);
schlinge_links(dd,D,dd,xpos);
schweif(D,0,Zbreite-D,0,0,1.5,xpos);
fahne(0,ht-Delta,dd+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

% Umlaute
%\"A
if not wortende:
  beginchar(oct"304",45.446ut#,80ut#,0);
      else:
beginchar(oct"233",30ut#,42.5ut#,0);
    fi
  pickup wela_pen;
  xpos:=0;
  Umlaut(Sporn+Abreite-dd,xpos);
    A_char;
    zeigen;
endchar;
  
%\"O
if not wortende:
  beginchar(oct"326",36.550ut#,80ut#,0);
      else:
beginchar(oct"234",31.290ut#,42.5ut#,0);
    fi
  pickup wela_pen;
  xpos:=0;
    Umlaut(A-dd,xpos);
    O_char;
    zeigen;
endchar;
 
%
%\"U
if not wortende:
  beginchar(oct"334",42.446ut#,42.5ut#,0);
      else:
beginchar(oct"235",29ut#,80ut#,0);
    fi
  pickup wela_pen;
  xpos:=0;
  Umlaut(D+rho+ht/2-dd,xpos);
    U_char;
    zeigen;
endchar;

%%%%%%%%%%%%% File-Ende %%%%%%%%%%%%%%