% TW -- ligatures 2. generation    (C)1991  Thomas Weinmann


% fe
beginchar(oct"220",25.4 ut#,39 ut#,19ut#);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(12ut,37ut);
z3=(9ut,39ut);
z4=(3ut,31ut);
z5=(-7ut,-19ut);
z6=(-10ut,10ut);
z7=(7ut,6ut);
z8=(18ut,18ut);
z9=(16ut,0ut);
z10=(4ut,19ut)+z9;
z11=(-2ut,7ut)+z9;
z12=(3ut,0ut)+z9;
z13=(9.3ut,(9.3*8/9-6)*ut)+z9;
z14=(-1ut,13ut)+z9;
z15=(8ut,13ut)+z9;
z16=(9ut,2ut)+z9;
%
%
draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5;
draw z6..z15{z14-z11}..z10{left}..z14{z11-z14}
       ..z12{right}..z16--z13;
%
%
labels(range 1 thru 13);
endchar;

% he
beginchar(oct"221",34.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(10ut,36ut);
z3=(7ut,39ut);
z4=(3ut,34ut);
z5=(-4ut,0ut);
z6=(11ut,19ut);
z7=(13ut,15ut);
z8=(11ut,3ut);
z9=(17ut,2ut);
z10=(17.3ut,((17.3*8/7+(2-17.3*8/7))+0.3)*ut);
z11=(25ut,0ut);
z12=(4ut,19ut)+z11;
z13=(-2ut,7ut)+z11;
z14=(3ut,0ut)+z11;
z15=(9.3ut,(9.3*8/9-6)*ut)+z11;
z16=(-1ut,13ut)+z11;
z17=(8ut,13ut)+z11;
z18=(9ut,2ut)+z11;
%
%
draw z1{an}..z2{up}..z3{left}..z4..z1--z5
  & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9
	..z17{z16-z13}..z12{left}..z16{z13-z16}
	..z14{right}..z18--z15;
%
%
labels(range 1 thru 18);
endchar;

% ht
beginchar(oct"222",48 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(10ut,36ut);
z3=(7ut,39ut);
z4=(3ut,34ut);
z5=(-4ut,0ut);
z6=(11ut,19ut);
z7=(13ut,15ut);
z8=(11ut,3ut);
z9=(17ut,2ut);
z10=(17.3ut,((17.3*8/7+(2-17.3*8/7))+0.3)*ut);
z11=(20ut,0ut);
z12=(0ut,18ut)+z11;
z13=(14ut,39ut)+z11;
z14=(7ut,0ut)+z11;
z15=(-3ut,19ut)+z11;
z16=(28ut,18ut)+z11;
%
%
draw z1{an}..z2{up}..z3{left}..z4..z1--z5
  & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9
       ..z13{(0,1)}
       & z13-- z14;
draw z15{dir 340}..z16{dir 60};
%
%
labels(range 1 thru 16);
endchar;

% me
beginchar(oct"223",47.4 ut#,19 ut#,0);
pickup va_pen;
%
z1=(0ut,19ut);
z2=(-5ut,0ut);
z3=(10ut,19ut);
z4=(14ut,16ut);
z5=(10ut,0ut);
z6=(24ut,19ut);
z7=(27ut,16ut);
z8=(24ut,3ut);
z9=(26ut,0ut);
z10=(30.3ut,(30.3*16/15+(-30))*ut);
z11=(30ut,2ut);
z12=(38ut,0ut);
z13=(4ut,19ut)+z12;
z14=(-2ut,7ut)+z12;
z15=(3ut,0ut)+z12;
z16=(9.3ut,(9.3*8/9-6)*ut)+z12;
z17=(-1ut,13ut)+z12;
z18=(8ut,13ut)+z12;
z19=(9ut,2ut)+z12;
%
%
draw z1--z2
  & z2{z1-z2}..z3{right}..z4--z5
    & z5{z4-z5}..z6{right}..z7--z8..z9{right}
	..z18{z17-z14}..z13{left}..z17{z14-z17}
	..z15{right}..z19--z16;
%
%
labels(range 1 thru 19);
endchar;

% ke
beginchar(oct"224", 31.4 ut#, 39ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(11ut,36ut);
z3=(8ut,39ut);
z4=(1ut,28ut);
z5=(-4ut,0ut);
z6=(10ut,19ut);
z7=(11ut,17ut);
z8=(3ut,9ut);
z9=(11ut,0ut);
z10=(16.3ut,(16.3*16/13+(2-16*16/13))*ut);
z11=(16ut,2ut);
z12=(22ut,0ut);
z13=(4ut,19ut)+z12;
z14=(-2ut,7ut)+z12;
z15=(3ut,0ut)+z12;
z16=(9.3ut,(9.3*8/9-6)*ut)+z12;
z17=(-1ut,13ut)+z12;
z18=(8ut,13ut)+z12;
z19=(9ut,2ut)+z12;
%
%
draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5
  & z5{z1-z5}..z6{dir -20}..z7{down}..z8
    & z8..z9{right}..z11
	..z18{z17-z14}..z13{left}..z17{z14-z17}
	..z15{right}..z19--z16;
%
%
labels(range 1 thru 19);
endchar;

% je
beginchar(oct"225",21.4 ut#,19 ut#,19ut#);
pickup va_pen;
%
z1=(2.5ut,28ut);
z2=(0ut,19ut);
z3=(-5ut,-3ut);
z4=(-13ut,-19ut);
z5=(17ut,18ut);
z6=(12ut,0ut);
z7=(4ut,19ut)+z6;
z8=(-2ut,7ut)+z6;
z9=(3ut,0ut)+z6;
z10=(9.3ut,(9.3*8/9-6)*ut)+z6;
z11=(-1ut,13ut)+z6;
z12=(8ut,13ut)+z6;
z13=(9ut,2ut)+z6;
%
%
draw z2--z3{z3-z2}...z4{left}..z3{z5-z3}
	..z12{(z11-z8)}..z7{left}..z11{z8-z11}
	..z9{right}..z13--z10;
pickup pencircle scaled  4ut;
drawdot z1;
%
%
labels(range 1 thru 13);
endchar;

% ze
beginchar(oct"226",32.4 ut#,19 ut#,0ut#);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(11ut,0ut);
z3=(-5ut,0ut);
z4=(13ut,19ut);
z5=((18*7/8)*ut,(18-13.7*8/7)*ut);
z6=(23ut,0ut);
z7=(4ut,19ut)+z6;
z8=(-2ut,7ut)+z6;
z9=(3ut,0ut)+z6;
z10=(9.3ut,(9.3*8/9-6)*ut)+z6;
z11=(-1ut,13ut)+z6;
z12=(8ut,13ut)+z6;
z13=(9ut,2ut)+z6;
%
draw z1--z4--z3{(1,0)}..z2
	..z12{z11-z8}..z7{left}..z11{z8-z11}
	..z9{right}..z13--z10;

%
%
labels(range 1 thru 13);
endchar;

% ffe
beginchar(oct"227",41.4 ut#,39 ut#,19ut#);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(11ut,37ut);
z3=(9ut,39ut);
z4=(3ut,31ut);
z5=(-7ut,-19ut);
z6=(-9ut,8ut);
z7=(7ut,3ut)+1.1*z9;
z8=(18ut,18ut)+z9;
z9=(16ut, 0ut);
z10=z1+z9-(0ut,3ut);
z11=z2+z9;
z12=z3+z9;
z13=z4+z9;
z14=z5+z9;
z15=(32ut,0ut);
z16=(4ut,19ut)+z15;
z17=(-2ut,7ut)+z15;
z18=(3ut,0ut)+z15;
z19=(9.3ut,(9.3*8/9-6)*ut)+z15;
z20=(-1ut,13ut)+z15;
z21=(8ut,13ut)+z15;
z22=(9ut,2ut)+z15;
%
%
draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5
	   ..z10{an}..z11{up}..z12{left}...z13{z14-z13}--z14;
draw z6..z7
	..z21{z20-z17}..z16{left}..z20{z17-z20}
	..z18{right}..z22--z19;
%
%
labels(range 1 thru 22);
endchar;

% ue
beginchar(oct"230",38.4 ut#,19 ut#,0);       %u-Umlaut
pickup va_pen;
%
z1=(0ut,19ut);
z2=(-3ut,3ut);
z3=(2ut,0ut);
z4=(15ut,19ut);
z5=(12ut,3ut);
z6=(14ut,0ut);
z7=(29ut,0ut);
z8=(18ut,2ut);
z9=(4ut,26ut);
z10=(12ut,26ut);
z11=(4ut,19ut)+z7;
z12=(-2ut,7ut)+z7;
z13=(3ut,0ut)+z7;
z14=(9.3ut,(9.3*8/9-6)*ut)+z7;
z15=(-1ut,13ut)+z7;
z16=(8ut,13ut)+z7;
z17=(9ut,2ut)+z7;
%
%
draw z1--z2{z2-z1}..z3{right}..z4{z4-z5}
  & z4--z5{(1,-0.7)}
	..z16{z15-z12}..z11{left}..z15{z12-z15}
	..z13{right}..z17--z14;
%
%
labels(range 1 thru 17);
endchar;

% tte
beginchar(oct"231",42.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(14ut,39ut);
z3=(7ut,0ut);
z4=(-2ut,11ut);
z5=(38ut,18ut);
z6=(24ut,39ut);
z7=(17ut,0ut);
z8=(33ut,0ut);
z9=(4ut,19ut)+z8;
z10=(-2ut,7ut)+z8;
z11=(3ut,0ut)+z8;
z12=(9.3ut,(9.3*8/9-6)*ut)+z8;
z13=(-1ut,13ut)+z8;
z14=(8ut,13ut)+z8;
z15=(9ut,2ut)+z8;
%
%
draw z1{an}..z2
  & z2-- z3;
draw z6--z7;
draw z4{dir 340}
	..z14{z13-z10}..z9{left}..z13{z10-z13}
	..z11{right}..z15--z12;
%
%
labels(range 1 thru 15);
endchar;

% ste
beginchar(oct"232",42.4 ut#,39ut#,0ut#);    % s mit Anstrich und Endung
pickup va_pen;
%
z1=(-10ut,8ut);
z2=(0ut,19ut);
z3=(5ut,5ut);
z4=(0ut,0ut);
z5=(-3ut,4ut);
z7=(9ut,0ut);
z8=(5ut,18ut)+z7;
z9=(14ut,39ut)+z7;
z10=(7ut,0ut)+z7;
z11=(-2ut,8ut)+z7;
z12=(28ut,18ut)+z7;
z13=(33ut,0ut);
z14=(4ut,19ut)+z13;
z15=(-2ut,7ut)+z13;
z16=(3ut,0ut)+z13;
z17=(9.3ut,(9.3*8/9-6)*ut)+z13;
z18=(-1ut,13ut)+z13;
z19=(8ut,13ut)+z13;
z20=(9ut,2ut)+z13;
%
%
draw z11{dir 340}
	..z19{z18-z15}..z14{left}..z18{z15-z18}
	..z16{right}..z20--z17;
%
draw z1--z2
 & z2{z3-z2}..z3{down}..z4{left}..z5{dir 60}...z8{an}..z9 & z9-- z10;
%
labels(range 1 thru 20);
endchar;

% ste
beginchar(oct"233",42.4 ut#,39ut#,0ut#);    % s mit Endung
pickup va_pen;
%
z1=(-10ut,8ut);
z2=(0ut,19ut);
z3=(5ut,5ut);
z4=(0ut,0ut);
z5=(-3ut,4ut);
z7=(9ut,0ut);
z8=(5ut,18ut)+z7;
z9=(14ut,39ut)+z7;
z10=(7ut,0ut)+z7;
z11=(-2ut,8ut)+z7;
z12=(28ut,18ut)+z7;
z13=(33ut,0ut);
z14=(4ut,19ut)+z13;
z15=(-2ut,7ut)+z13;
z16=(3ut,0ut)+z13;
z17=(9.3ut,(9.3*8/9-6)*ut)+z13;
z18=(-1ut,13ut)+z13;
z19=(8ut,13ut)+z13;
z20=(9ut,2ut)+z13;
%
%
draw z2{z3-z2}..z3{down}..z4{left}..z5{dir 60}...z8{an}..z9 & z9-- z10;
draw z11{dir 340}
	..z19{z18-z15}..z14{left}..z18{z15-z18}
	..z16{right}..z20--z17;
%
labels(range 1 thru 20);
endchar;

% llt
beginchar(oct"234",59 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(12.7ut,36ut);
z3=(11ut,39ut);
z4=(1ut,0ut);
z5=(16ut,18ut);
z6=(6ut,2ut);
z7=(6.1ut,(6.1*16/15+(2-64/15))*ut);
z8=(15ut,0);
z9=z8+z1;
z10=z2+z8;
z11=z3+z8;
z12=z4+z8;
z13=z5+z8+(2ut,0);
z14=z6+z8;
z15=z8+z1+(6.5ut,0);
z16=(31ut,0ut);
z17=(0ut,18ut)+z16;
z18=(14ut,39ut)+z16;
z19=(7ut,0ut)+z16;
z20=(-2ut,15ut)+z16;
z21=(28ut,18ut)+z16;
%
%
draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
	   ..z10{up}..z11{left}..z9{z12-z11}..z12{right}..z14
	   ..z18{up}
	 & z18-- z19;
draw z20{dir 340}..z21{dir 60};
%
%
labels(range 1 thru 21);
endchar;

% llte
beginchar(oct"235",62.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(12.7ut,36ut);
z3=(11ut,39ut);
z4=(1ut,0ut);
z5=(16ut,18ut);
z6=(6ut,2ut);
z7=(6.1ut,(6.1*16/15+(2-64/15))*ut);
z8=(15ut,0);
z9=z8+z1;
z10=z2+z8;
z11=z3+z8;
z12=z4+z8;
z13=z5+z8+(2ut,0);
z14=z6+z8;
z15=z8+z1+(6.5ut,0);
z16=(31ut,0ut);
z17=(0ut,18ut)+z16;
z18=(14ut,39ut)+z16;
z19=(7ut,0ut)+z16;
z20=(-2ut,19ut)+z16;
z21=(28ut,18ut)+z16;
z22=(53ut,0ut);
z23=(4ut,19ut)+z22;
z24=(-2ut,7ut)+z22;
z25=(3ut,0ut)+z22;
z26=(9.3ut,(9.3*8/9-6)*ut)+z22;
z27=(-1ut,13ut)+z22;
z28=(8ut,13ut)+z22;
z29=(9ut,2ut)+z22;
%
%
%
draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
	   ..z10{up}..z11{left}..z9{z12-z11}..z12{right}..z14
	   ..z18{up}
	 & z18-- z19;
draw z20{dir 340}
	..z28{z27-z24}..z23{left}..z27{z24-z27}
	..z25{right}..z29--z26;
%
%
labels(range 1 thru 29);
endchar;

% hte
beginchar(oct"236",51.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(10ut,36ut);
z3=(7ut,39ut);
z4=(3ut,34ut);
z5=(-4ut,0ut);
z6=(11ut,19ut);
z7=(13ut,15ut);
z8=(11ut,3ut);
z9=(17ut,2ut);
z10=(17.3ut,((17.3*8/7+(2-17.3*8/7))+0.3)*ut);
z11=(19ut,0ut);
z12=(0ut,18ut)+z11;
z13=(14ut,39ut)+z11;
z14=(7ut,0ut)+z11;
z15=(-2ut,15ut)+z11;
z16=(28ut,18ut)+z11;
z17=(41ut,0ut);
z18=(4ut,19ut)+z17;
z19=(-2ut,7ut)+z17;
z20=(3ut,0ut)+z17;
z21=(9.3ut,(9.3*8/9-6)*ut)+z17;
z22=(-1ut,13ut)+z17;
z23=(8ut,13ut)+z17;
z24=(9ut,2ut)+z17;
%
%
%
draw z1{an}..z2{up}..z3{left}..z4..z1--z5
  & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9
       ..z13{(0,1)}
       & z13-- z14;
draw z15{dir 340}
	..z23{z22-z19}..z18{left}..z22{z19-z22}
	..z20{right}..z24--z21;
%
%
labels(range 1 thru 24);
endchar;

% re
beginchar(oct"237", 28.4 ut#,19 ut#,0);
pickup va_pen;
%
z1=(0ut,19ut);
z2=2/3*((-3ut,-2ut)+z1);
z3=(7ut,19ut);
z4=(19ut,18ut);
z5=(-5ut,0ut);
z6=(19ut,0ut);
z7=(4ut,19ut)+z6;
z8=(-2ut,7ut)+z6;
z9=(3ut,0ut)+z6;
z10=(9.3ut,(9.3*8/9-6)*ut)+z6;
z11=(-1ut,13ut)+z6;
z12=(8ut,13ut)+z6;
z13=(9ut,2ut)+z6;
%
%
draw z1--z5;
draw z2..z3
    & z3{dir 320}..z12{z11-z8};
draw z11{z8-z11}..z12{z11-z8}..z7{left}..z11{z8-z11}
	   ..z9{right}..z13--z10;
%
%
labels(range 1 thru 13);
endchar;