% Deutsche Normalschrift (DN) wedn
% Walter Entenmann
% 12.10.2010
% 21.09.2011
%
% Grossbuchstaben
if not wortende:
  beginchar("A",59.669ut#,Ht#,0);
  else:
beginchar(oct"201",40ut#,Ht#,0);
    fi
pickup wedn_pen;
xpos:=0;
A_char;
zeigen;
endchar;

if not wortende:
  beginchar("B",52.981ut#,Ht#,0);
  else:
beginchar(oct"202",40ut#,Ht#,0); 
    fi
  pickup wedn_pen;
xpos:=0;
Stamm(xpos);
Haube(xpos);
schweif(ht+s,ht-D,-2*ht/3+D,-90,-180,1.1,xpos);
schlinge_links(ht-dd,D,D-eta,xpos);
schweif(ht,ht/2,7U,0,-90,1.1,xpos);
bogen (ht/2,0,dd,-3*ht/4,0.6,-90,135,1,1,xpos);
xpos:=16U; % max. Breite
tangente(dd);
zeigen;
endchar;

if not wortende:
  beginchar("C",48.661ut#,Ht#,0);
      else:
beginchar(oct"203",26.493ut#,Ht#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
Oschl(sporn, Sb, xpos);
schweif(ht,0,Sb*(1-Sbf)-dd,-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",47.474ut#,Ht#,0);
      else:
beginchar(oct"204",35ut#,Ht#,0);
    fi
  pickup wedn_pen;
    xpos:=0;
    schweif(Ht,Ht-R-dd,-D,-135,-90,1,xpos+2*ht/3);
stamm(Ht-R-dd,R+dd,xpos);
schweif(R+dd,0,-R,-90,180,1,xpos);
schlinge_links(dd,D,D,xpos);
schweif(D,0,7U,0,0,1,xpos);
xpos:=0;
HaubeD(xpos);
xpos:=14U; % max Breite
tangente(dd);
zeigen;
endchar;

if not wortende:
  beginchar("E",39.669ut#,Ht#,0);
      else:
beginchar(oct"205",15ut#,Ht#,0);
    fi
  pickup wedn_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",45.492ut#,Ht#,0);
      else:
beginchar(oct"206",40ut#,Ht#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    Dach(xpos);
    mt:=0.1;
Stamm(xpos);
quer(ht-Delta,xpos);
xpos:=16U; % max. Breite
tangente(ht/2+D);
zeigen;
endchar;

if not wortende:
  beginchar("G",57.169ut#,Ht#,dt#);
      else:
beginchar(oct"207",40ut#,Ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
Oschl(sporn, Sb, xpos);
bogen(ht,0,0.75*ht,Sb+D,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",66.919ut#,Ht#,0);
      else:
beginchar(oct"210",44.750ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
schwalbe;
draw (p rotated 180) shifted (ht,Ht);
schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
stamm(Ht-R,R,xpos);
S_kurve(xpos+D);
stamm(Ht-R,R,xpos);
schweif(R,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",40.722ut#,Ht#,0);
      else:
beginchar(oct"211",30ut#,Ht#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
Schwalbe;
draw (p rotated 180) shifted (ht,Ht);
schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
stamm(Ht-R,R+D,xpos);
bogen(R+D,0,D,-10U,0.5,-90,135,1,1,xpos);
xpos:=ht; % max Breite
tangente(D);
zeigen;
endchar;

if not wortende:
  beginchar("J",42.169ut#,Ht#,dt#);
      else:
beginchar(oct"212",25ut#,Ht#,dt#);
    fi
pickup wedn_pen;
  xpos:=0;
Schwalbe;
draw (p rotated 180) shifted (ht,Ht);
schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
stamm(Ht-R,0,xpos);
if not wortende:
uschl(xpos);
strich(xpos);
else:
  uschl_e(xpos);
  fi
zeigen;
  endchar;

  if not wortende:
    beginchar("K",73.169ut#,Ht#,0);
        else:
beginchar(oct"213",51ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Schwalbe;
draw (p rotated 180) shifted (ht,Ht);
schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
stamm(Ht-R,R+D,xpos);
bogen(R+D,0,D,-10U,0.5,-90,135,1,1,xpos);
xpos:=xpos+ht+eta;
schlinge_links(ht-ht/15,2*ht/15,D,xpos);
xpos:=xpos+10U;
bogen(Ht-eta,Ht,ht-2*ht/15,-10U,0.15,150,180,1,1.5,xpos);
schweif(ht,0,8U,0,0,1.5,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("L",49.669ut#,Ht#,0);
      else:
beginchar(oct"214",27.5ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Oschl(spornL,SbL, xpos);
stamm(ht,R+dd,xpos);
schweif(R+dd,0,-R,-90,180,1,xpos);
schlinge_links(3*eta,6*eta,D,xpos);
schweif(6*eta,0,3*ht/4,0,0,1.5,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("M",82.169ut#,Ht#,0);
      else:
beginchar(oct"215",60ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Flanke(spornM,Mbreite,0,xpos);
stamm(Ht,0,xpos);
schweif(0,Ht,2*ht/3,90,45,1,xpos);
schweif(Ht,0,0,-135,0,2,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("N",74.669ut#,Ht#,0);
      else:
beginchar(oct"216",70ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Flanke(spornM,Mbreite,0,xpos);
stamm(Ht,0,xpos);
gerade(0,Ht-R,(Ht-R)/mA,xpos);
bogen(Ht-R,Ht,Ht-eta,R/mA+ht/3,0.65,angle(1,mA),-30,1,1,xpos);
xtmp:=xpos;% max Breite
mt:=0.5;
x0:=whatever; y0:=whatever;
z0=(xtmp-(Ht-R)/mA-(R/mA+ht/3),0);
xpos:=xtmp;
tangente(ht/2+dd);
zeigen;
endchar;

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

if not wortende:
  beginchar("P",45.492ut#,Ht#,0);
      else:
beginchar(oct"220",37.5ut#,Ht#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    mt:=0.1;
    Stamm(xpos);
    xtmp:=x0; ytmp:=y0;
    Haube(xpos);
    schweif(ht+s,ht,-dd,-90,-135,1,xpos);
    xpos:=15U; % max Breite
    x0:=whatever; y0:=whatever;
     z0=(xtmp,ytmp);
     tangente(8U);
     zeigen;
endchar;

if not wortende:
  beginchar("Q",59.669ut#,Ht#,0);
      else:
beginchar(oct"221",37.500ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Oval(xpos);
schweif(D,0,10U,30,0,1,xpos-A-D);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("R",64.669ut#,Ht#,0);
      else:
beginchar(oct"222",42.500ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Stamm(xpos);
Haube(xpos);
schweif(ht+s,ht-D,-2*ht/3+D,-90,-180,1,xpos);
schlinge_links(ht-dd,D,D-eta,xpos);
schweif(ht,0,2*ht/3,0,0,1.5,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("S",44.885ut#,Ht#,0);
      else:
beginchar(oct"223",32.500ut#,Ht#,0);
    fi
  pickup wedn_pen;
    xpos:=0;
    S_form(xpos);
    xpos:=13U; % max Breite
tangente(dd);
zeigen;
endchar;

if not wortende:
  beginchar("T",45.492ut#,Ht#,0);
      else:
beginchar(oct"224",40ut#,Ht#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    Dach(xpos);
    mt:=0.1;
    Stamm(xpos);
    xpos:=16U; % max Breite
tangente(ht/2+D);
zeigen;
endchar;

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

if not wortende:
  beginchar("V",51.142ut#,Ht#,0);
      else:
beginchar(oct"226",43.553ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
stamm(ht,R+D,xpos);
bogen(R+D,0,ht,2*a,0.4,-90,90,1,1,xpos);
schweif(ht,Ht,-D,90,180,2,xpos);
V_ohr(xpos);
tangente(D);
zeigen;
endchar;

if not wortende:
  beginchar("W",72.195ut#,Ht#,0);
      else:
beginchar(oct"227",64.605ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
stamm(ht,R+D,xpos);
bogen(R+D,0,2*ht/3,2*a,0.4,-90,90,1,1,xpos);
stamm(Ht,R+D,xpos);
bogen(R+D,0,ht,2*a,0.4,-90,90,1,1,xpos);
schweif(ht,Ht,-D,90,180,2,xpos);
V_ohr(xpos);
tangente(D);
zeigen;
endchar;

if not wortende:
  beginchar("X",68.170ut#,Ht#,0);
      else:
beginchar(oct"230",41.002ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
quer(ht-Delta,xpos+(1+sigma)*X);
X_form(xpos);
fahne(0,ht-Delta,R+(ht-Delta)/m,0,angle(1,m),1.5,xpos);
zeigen;
endchar;

if not wortende:
  beginchar("Y",53.221ut#,Ht#,dt#);
      else:
beginchar(oct"231",36.053ut#,Ht#,dt#);
    fi
  pickup wedn_pen;
 xpos:=0;
bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
stamm(ht,R+D,xpos);
bogen(R+D,0,2*ht/3,2*a,0.4,-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",52.169ut#,Ht#,0);
      else:
beginchar(oct"232",30ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
Schwalbe;
draw (p rotated 180) scaled ((ht+dd)/ht) shifted (ht+dd,Ht);
xpos:=xpos+ht+dd;
quer(ht-Delta,xpos-(dt+Delta)/2);
gerade(Ht,R,-(Ht-R)/2,xpos);
schweif(R,0,-s,angle(-1,-2),180,1.5,xpos);
schlinge_links(s/2,s,D,xpos);
schweif(s,0,10U,0,0,1.2,xpos);
fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
zeigen;
endchar;

% Umlaute
%\"A
if not wortende:
  beginchar(oct"304",60.669ut#,80ut#,0);
      else:
beginchar(oct"233",40ut#,42.5ut#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    Umlaut(spornA+Abreite-dd,xpos);
    A_char;
    zeigen;
endchar;
  
%\"O
if not wortende:
  beginchar(oct"326",47.703ut#,80ut#,0);
      else:
beginchar(oct"234",35ut#,42.5ut#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    Umlaut(A-dd,xpos);
    O_char;
    zeigen;
endchar;
 
%
%\"U
if not wortende:
  beginchar(oct"334",60.221ut#,42.5ut#,0);
      else:
beginchar(oct"235",39.553ut#,80ut#,0);
    fi
  pickup wedn_pen;
  xpos:=0;
    Umlaut(ht/2+a-dd,xpos);
    U_char;
    zeigen;
endchar;

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