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


% ff
beginchar(oct"200",34 ut#,39 ut#,19ut#);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(11ut,37ut);
z3=(9ut,39ut);
z4=(3ut,31ut);
z5=(-7ut,-19ut);
z6=(-9ut,5ut);
z7=(7ut,6ut)+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;
%
draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5
	   ..z10{an}..z11{up}..z12{left}...z13{z14-z13}--z14;
draw z6..z7---z8{an};
%
%
labels(range 1 thru 14);
endchar;

%ie
beginchar(oct"201",21 ut#,19 ut#,0);
pickup va_pen;
%
z1=(0ut,19ut);
z2=(-4ut,4ut);
z3=(-1ut,0ut);
z4=(3ut,2ut);
z5=(3.3ut,2.3ut);
z6=(2.5ut,28ut);
z7=(11.7ut,0ut);
z8=(4ut,19ut)+z7;
z9=(-2ut,7ut)+z7;
z10=(3ut,0ut)+z7;
z11=(9.3ut,(9.3*8/9-6)*ut)+z7;
z12=(-1ut,13ut)+z7;
z13=(8ut,13ut)+z7;
z14=(9ut,2ut)+z7;
%
draw z1--z2..z3{right}..z13{z12-z9}..z8{left}..z12{z9-z12}
	..z10{right}..z14--z11;
%
%pickup va_pen_big;
pickup pencircle scaled  4ut;
drawdot z6;
%
%
labels(range 1 thru 14);
endchar;

% le
beginchar(oct"202",23.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(14ut,36ut);
z3=(11ut,39ut);
z4=(1ut,0ut);
z5=(21ut,18ut);
z6=(6ut,2ut);
z7=(14ut,0);
z8=(4ut,19ut)+z7;
z9=(-2ut,7ut)+z7;
z10=(3ut,0ut)+z7;
z11=(9.3ut,(9.3*8/9-6)*ut)+z7;
z12=(-1ut,13ut)+z7;
z13=(8ut,13ut)+z7;
z14=(9ut,2ut)+z7;
%
draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}
	..z13{z12-z9}..z8{left}..z12{z9-z12}
	..z10{right}..z14--z11;
;
%
%
labels(range 1 thru 14);
endchar;

% ll
beginchar(oct"203",36 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=(17ut,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);
%
draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6
           ..z10{up}..z11{left}..z9{z12-z11}..z12{right}..z14--z13;
%
%
labels(range 1 thru 6);
endchar;

% lle
beginchar(oct"204",42.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=(17ut,0);
z9=z8+z1;
z10=z2+z8;
z11=z3+z8;
z12=z4+z8+(4ut,0ut);  % damit es nicht ganz so eckig aussieht
z13=z5+z8+(1ut,0);
z14=z6+z8;
z15=z8+z1+(6.5ut,0);
z16=(33ut,0ut);
z17=(4ut,19ut)+z16;
z18=(-2ut,7ut)+z16;
z19=(3ut,0ut)+z16;
z20=(9.3ut,(9.3*8/9-6)*ut)+z16;
z21=(-1ut,13ut)+z16;
z22=(8ut,13ut)+z16;
z23=(9ut,2ut)+z16;
%
draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}
	   ..z6..z10{up}..z11{left}..z9{z12-z11}..z12{right}
	   ..z22{z21-z18}..z17{left}..z21{z18-z21}
	   ..z19{right}..z23--z20;
%
%
labels(range 1 thru 23);
endchar;

% se 1. Fall
beginchar(oct"205",27.4 ut#,19ut#,0ut#);    % s mit Anstrich und Endung
pickup va_pen;
%
z1=(-10ut,8ut);
z2=(0ut,19ut);
z3=(5ut,5ut);
z4=(0ut,0ut);
z5=(-3ut,4ut);
z6=(18ut,18ut);
z7=(18ut,0ut);
z8=(4ut,19ut)+z7;
z9=(-2ut,7ut)+z7;
z10=(3ut,0ut)+z7;
z11=(9.3ut,(9.3*8/9-6)*ut)+z7;
z12=(-1ut,13ut)+z7;
z13=(8ut,13ut)+z7;
z14=(9ut,2ut)+z7;
z15=z9+(1ut,0ut);
%
%
draw z1--z2
 & z2{z3-z2}..z3{down}..z4{left}..z5{dir 70}..z15{z9-z12};
draw z12{z9-z12}..z13{z12-z9}..z8{left}..z12{z9-z12}
	..z10{right}..z14--z11;
%
labels(range 1 thru 15);
endchar;

% se 2. Fall
beginchar(oct"206",27.4 ut#,19ut#,0ut#);    % s mit Endung
pickup va_pen;
%
z1=(-10ut,8ut);
z2=(0ut,19ut);
z3=(5ut,5ut);
z4=(0ut,0ut);
z5=(-3ut,4ut);
z6=(18ut,18ut);
z7=(18ut,0ut);
z8=(4ut,19ut)+z7;
z9=(-2ut,7ut)+z7;
z10=(3ut,0ut)+z7;
z11=(9.3ut,(9.3*8/9-6)*ut)+z7;
z12=(-1ut,13ut)+z7;
z13=(8ut,13ut)+z7;
z14=(9ut,2ut)+z7;
z15=z9+(1ut,0ut);
%
%
draw z2{z3-z2}..z3{down}..z4{left}..z5{dir 70}..z15{z9-z12};
draw z12{z9-z12}..z13{z12-z9}..z8{left}..z12{z9-z12}
	..z10{right}..z14--z11;
%
labels(range 1 thru 15);
endchar;

% st
beginchar(oct"207",37ut#,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=(-1ut,8ut)+z7;
z12=(28ut,18ut)+z7;
%
draw z8{an}..z9
  & z9-- z10;
draw z11{dir 340}..z12{dir 60};
%
draw z1--z2
 & z2{z3-z2}..z3{down}..z4{left}..z5{dir 60}...z8{an}..z9 & z9-- z10;
draw z11{dir 340}..z12{dir 60};

%
labels(range 1 thru 12);
endchar;

% st
beginchar(oct"210",37ut#,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=(-1ut,8ut)+z7;
z12=(28ut,18ut)+z7;
%
draw z8{an}..z9
  & z9-- z10;
draw z11{dir 340}..z12{dir 60};
%
draw z2{z3-z2}..z3{down}..z4{left}..z5{dir 60}...z8{an}..z9 & z9-- z10;
draw z11{dir 340}..z12{dir 60};

%
labels(range 1 thru 12);
endchar;

% tt
beginchar(oct"211",38 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);
%
draw z1{an}..z2
  & z2-- z3;
draw z6--z7;
draw z4{dir 340}..z5{dir 60};
%
%
labels(range 1 thru 7);
endchar;

% de
beginchar(oct"212",33.4 ut#,40 ut#,0);
pickup va_pen;
%
z1=(5ut,19ut);
z2=(-4ut,6ut);
z3=(1ut,0ut);
z4=(11ut,13ut);
z5=(17ut,40ut);
z6=(10ut,5ut);
z7=(12ut,0ut);
z8=(16.3ut,(16.3*8/7+(2-16*8/7))*ut);
z9=(16ut,2ut);
z10=(24ut,0ut);
z11=(4ut,19ut)+z10;
z12=(-2ut,7ut)+z10;
z13=(3ut,0ut)+z10;
z14=(9.3ut,(9.3*8/9-6)*ut)+z10;
z15=(-1ut,13ut)+z10;
z16=(8ut,13ut)+z10;
z17=(9ut,2ut)+z10;
%
%
draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
draw z5--z6{z6-z5}..z7{right}
	..z16..z11{left}..z15{z12-z15}  % z16{z15-z12}
	..z13{right}..z17--z14;
%
labels(range 1 thru 17);
endchar;

% ge
beginchar(oct"213",33.4 ut#,19 ut#,19ut#);
pickup va_pen;
%
z1=(11ut,13ut);
z2=(1ut,0ut);
z3=(-5ut,7ut);
z4=(5ut,19ut);
z10=(12ut,19ut);
z11=(7ut,-10ut);
z12=(0ut,-19ut);
z13=(-4ut,-15ut);
z14=(0ut,-9ut);
z15=(29ut,18ut);
z16=(24ut,0ut);
z17=(4ut,19ut)+z16;
z18=(-2ut,7ut)+z16;
z19=(3ut,0ut)+z16;
z20=(9.3ut,(9.3*8/9-6)*ut)+z16;
z21=(-1ut,13ut)+z16;
z22=(8ut,13ut)+z16;
z23=(9ut,2ut)+z16;
%
%
draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
draw z10--z11{z11-z10}..z12{left}..z13{up}..z14
	..z22{z21-z18}..z17{left}..z21{z18-z21}
	..z19{right}..z23--z20;
%
%
labels(range 1 thru 23);
endchar;

% gee
beginchar(oct"214",52.4 ut#,19 ut#,19ut#);
pickup va_pen;
%
z1=(11ut,13ut);
z2=(1ut,0ut);
z3=(-5ut,7ut);
z4=(5ut,19ut);
z10=(12ut,19ut);
z11=(7ut,-10ut);
z12=(0ut,-19ut);
z13=(-4ut,-15ut);
z14=(0ut,-9ut);
z15=(29ut,18ut);
z16=(24ut,0ut);
z17=(4ut,19ut)+z16;
z18=(-2ut,7ut)+z16;
z19=(3ut,0ut)+z16;
z20=(9.3ut,(9.3*8/9-6)*ut)+z16;
z21=(-1ut,13ut)+z16;
z22=(8ut,13ut)+z16;
z23=(9ut,2ut)+z16;
z24=(43ut,0ut);
z25=(4ut,19ut)+z24;
z26=(-2ut,7ut)+z24;
z27=(3ut,0ut)+z24;
z28=(9.3ut,(9.3*8/9-6)*ut)+z24;
z29=(-1ut,13ut)+z24;
z30=(8ut,13ut)+z24;
z31=(9ut,2ut)+z24;
%
%
%
draw z1{down}..z2{left}..z3{up}..z4{right}..cycle;
draw z10--z11{z11-z10}..z12{left}..z13{up}..z14
	..z22{z21-z18}..z17{left}..z21{z18-z21}
	..z19{right}
	..z30..z25{left}..z29{z26-z29}
	..z27{right}..z31--z28;
%
%
labels(range 1 thru 31);
endchar;

% dt
beginchar(oct"215",50 ut#,40 ut#,0);
pickup va_pen;
%
z1=(5ut,19ut);
z2=(-4ut,6ut);
z3=(1ut,0ut);
z4=(11ut,13ut);
z5=(17ut,40ut);
z6=(10ut,5ut);
z7=(12ut,0ut);
z8=(16.3ut,(16.3*8/7+(2-16*8/7))*ut);
z9=(16ut,2ut);
z10=(22ut,0ut);
z11=(0ut,18ut)+z10;
z12=(14ut,39ut)+z10;
z13=(7ut,0ut)+z10;
z14=(-4ut,14ut)+z10;
z15=(28ut,18ut)+z10;
%
%
draw z1{left}..z2{down}..z3{right}..z4{up}..cycle;
draw z5--z6{z6-z5}..z7{right}
       ..z12{up}
  & z12-- z13;
draw z14{dir 340}..z15{dir 60};
%
labels(range 1 thru 15);
endchar;

% te
beginchar(oct"216",32.4 ut#,39 ut#,0);
pickup va_pen;
%
z1=(0ut,18ut);
z2=(14ut,39ut);
z3=(7ut,0ut);
z4=(-4ut,11ut);
z5=(28ut,18ut);
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{an}..z2
  & z2-- z3;
draw z4{dir 340}
	..z12{z11-z8}..z7{left}..z11{z8-z11}
	..z9{right}..z13--z10;
%
%
labels(range 1 thru 13);
endchar;

% ne
beginchar(oct"217",36.4 ut#,19 ut#,0);
pickup va_pen;
%
z1=(0ut,19ut);
z2=(-4ut,0ut);
z3=(10ut,19ut);
z4=(15ut,15ut);
z5=(12ut,3ut);
z6=(15ut,0ut);
z7=(18ut,1ut);
z8=(18.3ut,(18.3*17/16+(1-9*17/8))*ut);
z9=(27ut,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--z2
  & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7
	..z15{z14-z11}..z10{left}..z14{z11-z14}
	..z12{right}..z16--z13;
%
%
labels(range 1 thru 16);
endchar;