% TW -- lowercase letters (C)1991 Thomas Weinmann fuer die Modifikationen beginchar("a",16.4ut#,19ut#,0); %a pickup va_pen; z1=(5ut,19ut); z2=(-4ut,6ut); z3=(1ut,0ut); z4=(11ut,13ut); z5=(13ut,19ut); z6=(10ut,5ut); z7=(12ut,0ut); z8=(16.3ut,(16.3*8/7+(2-16*8/7))*ut); z9=(16ut,2ut); % draw z1{left}..z2{down}..z3{right}..z4{up}..cycle; draw z5--z6{z6-z5}..z7{right}..z9--z8; % % labels(range 1 thru 9); endchar; beginchar(oct"032",30ut#,19ut#,0); %a-Umlaut pickup va_pen; z1=(5ut,19ut); z2=(-4ut,6ut); z3=(1ut,0ut); z4=(11ut,13ut); z5=(13ut,19ut); z6=(10ut,5ut); z7=(12ut,0ut); z8=(30ut,18ut); z9=(16ut,2ut); z10=(3ut,26ut); z11=(10ut,26ut); % draw z1{left}..z2{down}..z3{right}..z4{up}..cycle; draw z5--z6{z6-z5}..z7{right}..z9--z8; % pickup pencircle scaled 4ut; drawdot z10; drawdot z11; % labels(range 1 thru 11); endchar; beginchar("b",28 ut#,39 ut#,0); pickup va_pen; % z1=(0ut,18ut); z2=(14ut,36ut); z3=(11ut,39ut); z4=(5ut,0ut); z5=(15ut,19ut); z6=(28ut,18ut); % draw z1{an}..z2{up}..z3{left}..z1..z4{right}..z5{dir 110} & z5{dir 290}..z6; % % labels(range 1 thru 6); endchar; beginchar("c",22 ut#,19 ut#,0); pickup va_pen; % z1=(10ut,18ut); z2=(5ut,19ut); z3=(-4ut,6ut); z4=(1ut,0ut); z5=(7ut,3ut); z6=(22ut,18ut); % draw z1..z2{left}..z3{down}..z4{right}..z5--z6; % % labels(range 1 thru 6); endchar; beginchar("d",16.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); % draw z1{left}..z2{down}..z3{right}..z4{up}..cycle; draw z5--z6{z6-z5}..z7{right}..z9--z8; % labels(range 1 thru 9); endchar; % beginchar("e",9.4 ut#,19 ut#,0); % depth angepasst, um die Satzabstaende zu homogenisieren vgl. i, s beginchar("e",9.4 ut#,19 ut#, 19 ut#); pickup va_pen; % z1=(4ut,19ut); z2=(-2ut,7ut); z3=(3ut,0ut); z4=(9.3ut,(9.3*8/9-6)*ut); z5=(-1ut,13ut); z6=(8ut,13ut); z7=(9ut,2ut); % draw z5{z2-z5}..z6{z5-z2}..z1{left}..z5{z2-z5} ..z3{right}..z7--z4; % % labels(range 1 thru 7); endchar; beginchar("f",18 ut#,39 ut#,19ut#); pickup va_pen; % z1=(0ut,18ut); z2=(12ut,37ut); z3=(9ut,39ut); z4=(3ut,31ut); z5=(-7ut,-19ut); z6=(-7ut,5ut); z7=(7ut,6ut); z8=(18ut,18ut); % draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5; draw z6..z7---z8{an}; % % labels(range 1 thru 8); endchar; beginchar("g",29 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); % draw z1{down}..z2{left}..z3{up}..z4{right}..cycle; draw z10--z11{z11-z10}..z12{left}..z13{up}..z14...z15{an}; % % labels(range 1 thru 15); endchar; beginchar("h",17.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); % draw z1{an}..z2{up}..z3{left}..z4..z1--z5 & z5{z1-z5}..z6{right}..z7{down}..z8{down}..z9--z10; % % labels(range 1 thru 10); endchar; % beginchar("i",3.4 ut#,19 ut#,0); % wie e um die Satzabstaende anzugleichen, vgl. e, s beginchar("i",3.4 ut#, 19 ut#, 19 ut#); pickup va_pen; % z1=(0ut,19ut); z2=(-4ut,4ut); z3=(-1ut,0ut); z4=(3ut,2ut); z5=(3.3ut,2.3ut); z6=(2.5ut,28ut); % draw z1--z2..z3{right}..z4--z5; %pickup va_pen_big; pickup pencircle scaled 4ut; drawdot z6; % % labels(range 1 thru 6); endchar; beginchar("j",17 ut#,19 ut#,19ut#); pickup va_pen; % z1=(2.5ut,28ut); z2=(0ut,19ut); z3=(-5ut,-3ut); z4=(-13ut,-19ut); z5=(17ut,18ut); % draw z2--z3{z3-z2}...z4{left}..z3{z5-z3}---z5{an}; pickup pencircle scaled 4ut; drawdot z1; % % labels(range 1 thru 5); endchar; beginchar("k", 16.4ut#, 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); % draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5 & z5{z1-z5}..z6{dir -20}..z7{down}..z8 & z8..z9{right}..z11--z10; % % labels(range 1 thru 11); endchar; beginchar("l",21 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); % draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6--z5; % % labels(range 1 thru 6); endchar; beginchar("m",30.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); % draw z1--z2 & z2{z1-z2}..z3{right}..z4--z5 & z5{z4-z5}..z6{right}..z7--z8..z9{right}..z11--z10; % % labels(range 1 thru 11); endchar; beginchar("n",18.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); % draw z1--z2 & z2{z1-z2}..z3{right}..z4{down}--z5..z6{right}..z7--z8; % % labels(range 1 thru 8); endchar; beginchar("o",25 ut#,19 ut#,0); pickup va_pen; % z1=(11ut,16ut); z2=(2ut,0ut); z3=(-4ut,5ut); z4=(5ut,19ut); z5=(13ut,19ut); z6=(25ut,18ut); % draw z5..z1{dir -75}..z2{left}..z3{up}..z4{right}..z1{dir -75}...z6{dir 60}; % % labels(range 1 thru 6); endchar; beginchar(oct"033",25 ut#,19 ut#,0); %o-Umlaut pickup va_pen; % z1=(11ut,16ut); z2=(2ut,0ut); z3=(-4ut,5ut); z4=(5ut,19ut); z5=(13ut,19ut); z6=(25ut,18ut); z7=(5ut,26ut); z8=(11ut,26ut); % draw z5..z1{dir -75}..z2{left}..z3{up}..z4{right}..z1{dir -75}...z6{dir 60}; % pickup pencircle scaled 4ut; drawdot z7;drawdot z8; % labels(range 1 thru 8); endchar; beginchar("p",16.4 ut#,19 ut#,19ut#); pickup va_pen; % z1=(0ut,19ut); z2=(-8ut,-19ut); z3=(-3ut,6ut); z4=(11ut,19ut); z5=(14ut,17ut); z6=(11ut,4ut); z7=(13ut,0ut); z8=(16ut,1ut); z9=(16.3ut,(16.3*17/15+(1-16*17/15))*ut); % draw z1--z2; draw z3{z1-z2}..z4{right}..z5{z6-z5}--z6{z6-z5}..z7{right}..z8--z9; % % labels(range 1 thru 9); endchar; beginchar("q",25 ut#,19 ut#,19ut#); pickup va_pen; % z1=(9ut,13ut); z2=(0ut,0ut); z3=(-6ut,5ut); z4=(4ut,19ut); z5=(11ut,19ut); z6=(4ut,-19ut); z7=(8ut,0ut); z8=(25ut,18ut); % draw z1{down}..z2{left}..z3{up}..z4{right}..cycle; draw z5--z6; draw z7...z8{an}; % % labels(range 1 thru 8); endchar; beginchar("r", 19ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=2/3*((-3ut,-2ut)+z1); z3=(7ut,19ut); z4=(19ut,18ut); z5=(-5ut,0ut); % draw z1--z5; draw z2..z3 & z3{dir 320}..z4{dir 30}; % % labels(range 1 thru 4); endchar; % beginchar("s",6ut#,19ut#,0ut#); % um die Satzabstaende anzupassen. Vgl. e, i beginchar("s", 6 ut#, 19 ut#, 19 ut#); pickup va_pen; % z1=(-10ut,10ut); z2=(0ut,19ut); z3=(5ut,5ut); z4=(0ut,0ut); z5=(-5ut,4ut); % draw z1--z2 & z2{z3-z2}..z3{down}..z4{left}..z5; % labels(range 1 thru 5); endchar; beginchar("t",28 ut#,39 ut#,0); pickup va_pen; % z1=(0ut,18ut); z2=(14ut,39ut); z3=(7ut,0ut); z4=(-2ut,8ut); z5=(28ut,18ut); % draw z1{an}..z2 & z2-- z3; draw z4{dir 340}..z5{dir 60}; % % labels(range 1 thru 5); endchar; beginchar("u",18.4 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(-3ut,3ut); z3=(2ut,0ut); z4=(15ut,19ut); z5=(12ut,3ut); z6=(14ut,0ut); z7=(18.3ut,(18.3*16/15+(2-18*16/15))*ut); z8=(18ut,2ut); % draw z1--z2{z2-z1}..z3{right}..z4{z4-z5} & z4--z5..z6{right}..z8--z7; % % labels(range 1 thru 8); endchar; beginchar(oct"034",33 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=(33ut,18ut); z8=(18ut,2ut); z9=(4ut,26ut); z10=(12ut,26ut); % draw z1--z2{z2-z1}..z3{right}..z4{z4-z5} & z4--z5..z6{right}..z8--z7; % pickup pencircle scaled 4ut; drawdot z9; drawdot z10; % labels(range 1 thru 10); endchar; beginchar("v",27 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(-4ut,5ut); z3=(2ut,0ut); z4=(14ut,19ut); z5=(27ut,18ut); % draw z1..z2{z2-z1}..z3{right}..z4{z1-z2} & z4{dir 300}..z5; % % labels(range 1 thru 5); endchar; beginchar("w",35 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(-3ut,5ut); z3=(0ut,0ut); z4=(9ut,8ut); z5=(11ut,19ut); z6=(13ut,0ut); z7=(22ut,19ut); z8=(35ut,18ut); % draw z1--z2..z3{right}..z4--z5 & z5--z4..z6{right}..z7{z5-z4} & z7{dir 300}..z8; % % labels(range 1 thru 8); endchar; beginchar("x",30 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(11ut,0ut); z3=(-5ut,0ut); z4=(13ut,19ut); z5=(30ut,18ut); % draw z1--z2; draw z3--z4 & z4{dir 300}..z5; % % labels(range 1 thru 5); endchar; beginchar("y",31 ut#,19 ut#,19ut#); pickup va_pen; % z1=(0ut,19ut); z2=(-2ut,4ut); z3=(1ut,0ut); z4=(14ut,19ut); z5=(9ut,-13ut); z6=(3ut,-19ut); z7=(0ut,-16ut); z8=(4ut,-9ut); z9=(31ut,18ut); % draw z1--z2..z3{right}..z4{z4-z5} & z4--z5..z6{left}..z7{up}..z8{z9-z8}--z9; % % labels(range 1 thru 9); endchar; beginchar("z",(18*7/8)* 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); % draw z1--z4--z3--z2--z5; % % labels(range 1 thru 6); endchar;