% 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;