% Deutsche Normalschrift (DN)  wedn
% Walter Entenmann
% Kleinbuchstaben
% 12.10.2010
% 21.09.2011
% 11.10.2011: latin e

if not wortende:
  beginchar("a",40.586ut#,ht#,0);
  else:
    beginchar(oct"241",23.417ut#,ht#,0);
 fi     
  pickup wedn_pen;
xpos:=0;
oval(xpos);
if not wortende:
  stamm(ht,rho,xpos);
else:
  stamm(ht,rho',xpos);
  fi
 stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("b",33.072ut#,Ht#,0);
  else:
beginchar(oct"242",14.739ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
oschl(xpos);
stamm(ht-Delta,ht/2,xpos);
bogen(ht/2,0,ht/2,ht/kh,0.5,-90,90,1,1,xpos);
schweif(ht/2,ht,-einroll,90,angle(-1,mfahne),1,xpos);
fahne(ht,ht-Delta,bfahne,angle(1,-mfahne),angle(1,m),1,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("c",27.559ut#,ht#,0);
  else:
beginchar(oct"243",7.891ut#,ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
c_form(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("d",40.586ut#,Ht#,0);
  else:
beginchar(oct"244",23.417ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
oval(xpos);
if not wortende:
  stamm(Ht,rho,xpos);
else:
  stamm(Ht,rho',xpos);
  fi
 stock(xpos);
  zeigen;
endchar;

% lat. e, Normalform
if not wortende:
  beginchar("e",25ut#,ht#,0);
  else:
beginchar(oct"245",25ut#,ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
latin_e(xpos);
 zeigen;
endchar;

% Ligaturen:
% e nach r
if not wortende:
beginchar(oct"010",20ut#,ht#,0);
  pickup wedn_pen;
  xpos:=0;
  latin_er(xpos);
  zeigen;
endchar;
fi

% e nach b,o,v,w
if not wortende:
beginchar(oct"011",22.5ut#,ht#,0);
  pickup wedn_pen;
  xpos:=0;
  latin_eb(xpos);
  zeigen;
endchar;
fi

% e nach g,j,y
if not wortende:
beginchar(oct"012",22.5ut#,ht#,0);
  pickup wedn_pen;
  xpos:=0;
  latin_eg(xpos);
  zeigen;
endchar;
fi

% e nach A, f
if not wortende:
beginchar(oct"013",25ut#,ht#,0);
  pickup wedn_pen;
  xpos:=0;
  latin_eA(xpos);
  zeigen;
endchar;
fi


if not wortende:
  beginchar("f",19.669ut#,Ht#,dt#);
  else:
beginchar(oct"246",0ut#,Ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
oschl(xpos);
stamm(ht-Delta,-dt,xpos);
schweif(4ut+7.5ut,7.5ut,4ut,-90,0,1,xpos-4ut);
fahne(7.5ut,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),1.5,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("g",35.586ut#,ht#,dt#);
  else:
beginchar(oct"247",18.417ut#,ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
oval(xpos);
stamm(ht,0,xpos);
if not wortende:
  uschl(xpos);
   strich(xpos);
else:
  uschl_e(xpos);
  fi
  zeigen;
endchar;

if not wortende:
  beginchar("h",40.241ut#,Ht#,0);
  else:
beginchar(oct"250",23.072ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
oschl(xpos);
stamm(ht-Delta,0,xpos);
bogen(ht/3,ht,5*ht/6,ht/kh,0.75,90,-90,1,1,xpos);
if not wortende:
  stamm(5*ht/6,rho,xpos);
else:
  stamm(5*ht/6,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("i",22.169ut#,Ht#,0);
  else:
beginchar(oct"251",5ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
spitz(xpos);
ipunkt(xpos);
if not wortende:
  stamm(ht,rho,xpos);
else:
  stamm(ht,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("j",17.169ut#,Ht#,dt#);
  else:
beginchar(oct"252",0ut#,Ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
spitz(xpos);
ipunkt(xpos);
stamm(ht,0,xpos);
if not wortende:
uschl(xpos);
strich(xpos);
else:
uschl_e(xpos);
  fi
 zeigen;
endchar;

if not wortende:
  beginchar("k",40.721ut#,Ht#,0);
  else:
beginchar(oct"253",21.053ut#,Ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
oschl(xpos);
stamm(ht-Delta,0,xpos);
k_form(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("l",24.669ut#,Ht#,0);
  else:
beginchar(oct"254",5ut#,Ht#,0);
    fi
  pickup wedn_pen;  
xpos:=0;
oschl(xpos);
stamm(ht-Delta,2*rho,xpos);
fuss(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("m",67.560ut#,ht#,0);
  else:
beginchar(oct"255",50.392ut#,ht#,0);
    fi
  pickup wedn_pen;  
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,0,xpos);
bogen(2*ht/3,ht,3*ht/4,ht/kh,0.7,90,-90,1,1,xpos);
stamm(3*ht/4,0,xpos);
bogen(2*ht/3,ht,3*ht/4,ht/kh,0.7,90,-90,1,1,xpos);
if not wortende:
  stamm(3*ht/4,rho,xpos);
else:
  stamm(3*ht/4,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("n",49.488ut#,ht#,0);
  else:
beginchar(oct"256",32.319ut#,ht#,0);
    fi
  pickup wedn_pen;  
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,0,xpos);
bogen(2*ht/3,ht,3*ht/4,ht/kh,0.7,90,-90,1,1,xpos);
if not wortende:
  stamm(3*ht/4,rho,xpos);
else:
  stamm(3*ht/4,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("o",31.139ut#,ht#,0);
  else:
beginchar(oct"257",12.805ut#,ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
oval(xpos);
gerade((1+sigma)*b,ht,-(ht-(1+sigma)*b)/k,xpos-(1-sigma)*a);
fahne(ht,ht-Delta,ofahne,angle(1,-k),angle(1,m),1,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("p",40.241ut#,ht#,dt#);
  else:
beginchar(oct"260",23.072ut#,ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
spitz(xpos);
stamm(ht,-dt,xpos);
bogen(ht/2,ht,3*ht/4,ht/kh,0.7,90,-90,1,1,xpos);
if not wortende:
  stamm(3*ht/4,rho,xpos);
else:
  stamm(3*ht/4,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("q",35.586ut#,ht#,dt#);
  else:
beginchar(oct"261",18.417ut#,ht#,dt#);
    fi
  pickup wedn_pen;
xpos:=0;
oval(xpos);
stamm(ht,-dt,xpos);
strich(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("r",30.497ut#,ht#,0);
  else:
beginchar(oct"262",16.747ut#,ht#,0);
    fi
    pickup wedn_pen;
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,0,xpos);
schweif(ht/2,ht,ht/4,90,angle(1,0.5),1,xpos);
fahne(ht,ht-Delta,rfahne,-90,angle(1,m),1,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("s",25.353ut#,ht#,0);
  else:
beginchar(oct"263",12.831ut#,ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
kurzstrich(xpos);
s_form(xpos);
tangente(0);
 zeigen;
  endchar;

  if not wortende:
    beginchar("t",24.669ut#,Ht#,0);
    else:
beginchar(oct"264",5ut#,Ht#,0);
      fi
  pickup wedn_pen;
xpos:=0;
%spitz(xpos);
quer(ht+eta,xpos);
stamm(Ht,2*rho,xpos);
fuss(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("u",40.241ut#,ht#,0);
  else:
beginchar(oct"265",23.072ut#,ht#,0);
    fi
  pickup wedn_pen;
xpos:=0;
spitz(xpos);
stamm(ht,ht/3,xpos);
bogen(ht/3,0,ht/2,ht/kh,0.4,-90,90,1,1,xpos);
if not wortende:
  stamm(ht,rho,xpos);
else:
  stamm(ht,rho',xpos);
  fi
stock(xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("v",42.319ut#,ht#,0);
  else:
beginchar(oct"266",23.986ut#,ht#,0);
    fi
      pickup wedn_pen;
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,ht/2,xpos);
bogen(ht/2,0,ht/2,ht/kh,0.5,-90,90,1,1,xpos);
schweif(ht/2,ht,-einroll,90,angle(-1,mfahne),1,xpos);
fahne(ht,ht-Delta,ofahne,angle(1,-mfahne),angle(1,m),1,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("w",60.392ut#,ht#,0);
  else:
beginchar(oct"267",42.058ut#,ht#,0);
    fi
      pickup wedn_pen;
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,ht/3,xpos);
bogen(ht/3,0,ht/2,ht/kh,0.4,-90,90,1,1,xpos);
stamm(ht,ht/2,xpos);
bogen(ht/2,0,ht/2,ht/kh,0.5,-90,90,1,1,xpos);
schweif(ht/2,ht,-einroll,90,angle(-1,mfahne),1,xpos);
fahne(ht,ht-Delta,ofahne,angle(1,-mfahne),angle(1,m),1,xpos);
 zeigen;
endchar;

if not wortende:
  beginchar("x",44.141ut#,ht#,0);
  else:
beginchar(oct"270",24.473ut#,ht#,0);
    fi
      pickup wedn_pen;
xpos:=0;
aalt:=a;
a:=0.5*ht/kh;
c_reflected(xpos);
c_form(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
a:=aalt;
 zeigen;
    endchar;

    if not wortende:
      beginchar("y",44.488ut#,ht#,dt#);
      else:
beginchar(oct"271",27.319ut#,ht#,dt#);
	fi
      pickup wedn_pen;
xpos:=0;
spazierstock(xpos);
stamm(ht-rho,ht/3,xpos);
bogen(ht/3,0,ht/2,ht/kh,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",41.174ut#,ht#,0);
      else:
beginchar(oct"272",21.506ut#,ht#,0);
	fi
      pickup wedn_pen;
xpos:=0;
z_form(xpos);
fahne(0,ht-Delta,rho+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
 zeigen;
endchar;

% scharfes s
if not wortende:
  beginchar(oct"377",41.657ut#,ht#,0);
  else:
beginchar(oct"337",27.800ut#,ht#,0);
    fi
      pickup wedn_pen;
xpos:=0;
ss_ansatz(xpos);
stamm(ht,-dt,xpos);
ss_form(xpos);
tangente(ht/12);
 zeigen;
    endchar;

% ä
    if not wortende:
      beginchar(oct"344",40.586ut#,Ht#,0);
      else:
beginchar(oct"273",23.417ut#,Ht#,0);
	fi
      pickup wedn_pen;
xpos:=0;
umlaut(a-delta-ht/12,xpos);
a_char;
 zeigen;
  endchar;


  % ö
  if not wortende:
    beginchar(oct"366",31.139ut#,Ht#,0);
    else:
beginchar(oct"274",12.805ut#,Ht#,0);
      fi
      pickup wedn_pen;
xpos:=0;
umlaut(a-delta-ht/12,xpos);
o_char;
 zeigen;
endchar;

% ü
if not wortende:
  beginchar(oct"374",40.241ut#,Ht#,0);
  else:
beginchar(oct"275",23.072ut#,Ht#,0);
    fi
      pickup wedn_pen;
xpos:=0;
umlaut(0.5*ht/kh-2.5ut,xpos);
u_char;
 zeigen;
endchar;

%%%%%%%%%%%%%%%%% End of File %%%%%%%%%%%%%