% TW -- ligatures 5. generation (C)1991 Thomas Weinmann % h beginchar(oct"300",55 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=(30ut,0ut); z12=(11ut,16ut)+z11; z13=(2ut,0ut)+z11; z14=(-4ut,5ut)+z11; z15=(5ut,19ut)+z11; z16=(13ut,19ut)+z11; z17=(25ut,18ut)+z11; z18=(5ut,26ut)+z11; z19=(11ut,26ut)+z11; z20=(-1ut,16ut)+z11; % % draw z1{an}..z2{up}..z3{left}..z4..z1--z5 & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9..z20; draw z16..z12{dir -75}..z13{left}..z14{up} ..z15{right}..z12{dir -75}...z17{dir 60}; % pickup pencircle scaled 4ut; drawdot z18;drawdot z19; % % labels(range 1 thru 20); endchar; % nt beginchar(oct"301",54 ut#,39 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=(0ut,0ut); z10=(26ut,0ut); z11=(0ut,18ut)+z10; z12=(14ut,39ut)+z10; z13=(7ut,0ut)+z10; z14=(-5ut,13ut)+z10; z15=(28ut,18ut)+z10; % % draw z1--z2 & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7 ..z12{(0,1)} & z12-- z13; draw z14{dir 340}..z15{dir 60}; % % labels(range 1 thru 15); endchar; % nte beginchar(oct"302",61.3 ut#,39 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=(0ut,0ut); z10=(26ut,0ut); z11=(0ut,18ut)+z10; z12=(14ut,39ut)+z10; z13=(7ut,0ut)+z10; z14=(-5ut,18ut)+z10; z15=(28ut,18ut)+z10; z16=(0ut,0ut); z17=z16; z18=z17; z19=z18; z20=(26ut,0ut)+z10; z21=(4ut,19ut)+z20; z22=(-2ut,7ut)+z20; z23=(3ut,0ut)+z20; z24=(9.3ut,(9.3*8/9-6)*ut)+z20; z25=(-1ut,13ut)+z20; z26=(8ut,13ut)+z20; z27=(9ut,2ut)+z20; % % % draw z1--z2 & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7 ..z12{(0,1)} & z12-- z13; draw z14{dir 340} ..z26{z25-z22}..z21{left}..z25{z22-z25} ..z23{right}..z27--z24; % % labels(range 1 thru 27); endchar; % Ke beginchar(oct"303",40.3 ut#,39ut#,0ut#); pickup va_pen; z1=(8ut,39ut); z2=(0ut,0ut); z3=(31ut,39ut); z4=(4ut,20ut); z5=(17ut,2ut); z6=(21ut,0ut); z7=(41ut,18ut); z8=(26ut,3ut); z9=(0ut,0ut); z10=(31ut,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--z2; draw z3..z4 & z4--z5..z6{(1,0)} ..z16{z15-z12}..z11{left}..z15{z12-z15} ..z13{right}..z17--z14; labels(range 1 thru 17); endchar; % it beginchar(oct"304",36 ut#,39 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=(8ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-3ut,12ut)+z7; z12=(28ut,18ut)+z7; % % draw z1--z2..z3{right} ..z9{(0,1)} & z9-- z10; draw z11{dir 340}..z12{dir 60}; %pickup va_pen_big; pickup pencircle scaled 4ut; drawdot z6; % % labels(range 1 thru 12); endchar; % ite beginchar(oct"305",42.4 ut#,39 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=(7ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-2ut,13ut)+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 z1--z2..z3{right} ..z9{(0,1)} & z9-- z10; draw z11{dir 340} ..z19{z18-z15}..z14{left}..z18{z15-z18} ..z16{right}..z20--z17; %pickup va_pen_big; pickup pencircle scaled 4ut; drawdot z6; % % labels(range 1 thru 20); endchar; % itt beginchar(oct"306",48 ut#,39 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=(10ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-4ut,13ut)+z7; z12=(38ut,18ut)+z7; z13=(24ut,39ut)+z7; z14=(17ut,0ut)+z7; % % draw z1--z2..z3{right}..z4 ..z9{(0,1)} & z9-- z10; draw z13--z14; draw z11{dir 340}..z12{dir 60}; %pickup va_pen_big; pickup pencircle scaled 4ut; drawdot z6; % % labels(range 1 thru 14); endchar; % itte beginchar(oct"307",54.3 ut#,39 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=(11ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-4ut,17ut)+z7; z12=(38ut,18ut)+z7; z13=(24ut,39ut)+z7; z14=(17ut,0ut)+z7; z15=(44ut,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--z2..z3{right}..z4 ..z9{(0,1)} & z9-- z10; draw z13--z14; draw z11{dir 340} ..z21{z20-z17}..z16{left}..z20{z17-z20} ..z18{right}..z22--z19; %pickup va_pen_big; pickup pencircle scaled 4ut; drawdot z6; % % labels(range 1 thru 22); endchar; % kt beginchar(oct"310", 48 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=(20ut,0ut); z13=(0ut,18ut)+z12; z14=(14ut,39ut)+z12; z15=(7ut,0ut)+z12; z16=(-2ut,15ut)+z12; z17=(28ut,18ut)+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 ..z14{(0,1)} & z14-- z15; draw z16{dir 340}..z17{dir 60}; % % labels(range 1 thru 17); endchar; % kte beginchar(oct"311", 55.3 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=(20ut,0ut); z13=(0ut,18ut)+z12; z14=(14ut,39ut)+z12; z15=(7ut,0ut)+z12; z16=(-2ut,17ut)+z12; z17=(28ut,18ut)+z12; z18=(26ut,0ut)+z12; z19=(4ut,19ut)+z18; z20=(-2ut,7ut)+z18; z21=(3ut,0ut)+z18; z22=(9.3ut,(9.3*8/9-6)*ut)+z18; z23=(-1ut,13ut)+z18; z24=(8ut,13ut)+z18; z25=(9ut,2ut)+z18; % % % draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5 & z5{z1-z5}..z6{dir -20}..z7{down}..z8 & z8..z9{right}..z11 ..z14{(0,1)} & z14-- z15; draw z16{dir 340} ..z24{z23-z20}..z19{left}..z23{z20-z23} ..z21{right}..z25--z22; % % labels(range 1 thru 25); endchar; % n beginchar(oct"312",60 ut#,29 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=(0ut,0ut); z10=(29ut,0ut); z11=(0ut,19ut)+z10; z12=(-3ut,3ut)+z10; z13=(2ut,0ut)+z10; z14=(15ut,19ut)+z10; z15=(12ut,3ut)+z10; z16=(14ut,0ut)+z10; z17=(33ut,18ut)+z10; z18=(18ut,2ut)+z10; z19=(4ut,26ut)+z10; z20=(12ut,26ut)+z10; % % draw z1--z2 & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z11{(0,1)}; draw z11--z12{z12-z11}..z13{right}..z14{z14-z15} & z14--z15..z16{right}..z18--z17; % pickup pencircle scaled 4ut; drawdot z19; drawdot z20; % % labels(range 1 thru 20); endchar; % Le beginchar(oct"313",40.3 ut#,39ut#,0ut#); pickup va_pen; z1=(14ut,39ut); z2=(8ut,32ut); z3=(4ut,8ut); z4=(0ut,0ut); z5=(17ut,0ut); z6=(38ut,18ut); z7=(22ut,2ut); z8=(31ut,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..z2..z3..z4 & z4{dir 40}..z5{right} ..z14{z13-z10}..z9{left}..z13{z10-z13} ..z11{right}..z15--z12; labels(range 1 thru 15); endchar; % Me beginchar(oct"314",76.3 ut#,39ut#,0ut#); pickup va_pen; z1=(0ut,0ut); z2=(8ut,4ut); z3=(33ut,39ut); z4=(25ut,0ut); z5=(53ut,39ut); z6=(47ut,4ut); z7=(51ut,0ut); z8=(70ut,18ut); z9=(55ut,2ut); z10=(67ut,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{right}..z2--z3 & z3--z4 & z4--z5 &z5--z6{z6-z5}..z7{right} ..z16{z15-z12}..z11{left}..z15{z12-z15} ..z13{right}..z17--z14; labels(range 1 thru 17); endchar; % Re beginchar(oct"315",45.3 ut#,39ut#,0ut#); pickup va_pen; z1=(5ut,39ut); z2=(14ut,39ut); z3=(21ut,30ut); z4=(3ut,19ut); z5=(7ut,39ut); z6=(0ut,0ut); z7=(17ut,3ut); z8=(21ut,0ut); z9=(25ut,3ut); z10=(36ut,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--z2..z3{down}..z4 & z4--z7{z7-z4}..z8{(1,0)} ..z16{z15-z12}..z11{left}..z15{z12-z15} ..z13{right}..z17--z14; draw z5--z6; labels(range 1 thru 17); endchar; % lt beginchar(oct"316",46 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=(18ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-5ut,17ut)+z7; z12=(28ut,18ut)+z7; % % draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6 ..z9{(0,1)} & z9-- z10; draw z11{dir 340}..z12{dir 60}; % % labels(range 1 thru 12); endchar; % lte beginchar(oct"317",51.3 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=(18ut,0ut); z8=(0ut,18ut)+z7; z9=(14ut,39ut)+z7; z10=(7ut,0ut)+z7; z11=(-7ut,15ut)+z7; z12=(28ut,18ut)+z7; z13=(24ut,0ut)+z7; 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 z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6 ..z9{(0,1)} & z9-- z10; draw z11{dir 340} ..z19{z18-z15}..z14{left}..z18{z15-z18} ..z16{right}..z20--z17; % % labels(range 1 thru 20); endchar;