% su-upp.mf -Input-File Zeichensatz
makewi(11,16ut,ang,an_bot); %A
beginchar("A",wi/hppp,21ut#,0ut#); %A
pickup su_pen;
y1=y7=y8=top;
y2=y6=mid;
y3=y5=O_bogen;
y4=y10=bas;
y9=y11=an_bot;
makex(1,7.5ut,ang,y1);
makex(2,.5ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.5ut,ang,y4);
makex(5,10.2ut,ang,y5);
makex(6,12ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,12ut,ang,y9);
makex(10,13.5ut,ang,y10);
makex(11,16ut,ang,y11);
%
draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
draw z7..z8{dir gamma};
draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
labels(range 1 thru 11);
endchar;
makewi(11,16ut,ang,an_bot); %A
beginchar(196,wi/hppp,27ut#,0ut#); %AE
pickup su_pen;
y1=y7=y8=top;
y2=y6=mid;
y3=y5=O_bogen;
y4=y10=bas;
y9=y11=an_bot;
makex(1,7.5ut,ang,y1);
makex(2,.5ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.5ut,ang,y4);
makex(5,10.2ut,ang,y5);
makex(6,12ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,12ut,ang,y9);
makex(10,13.5ut,ang,y10);
makex(11,16ut,ang,y11);
%
draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
draw z7..z8{dir gamma};
draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
y12=y13=top+6ut;
makex(12,6ut,ang,y12);
makex(13,10ut,ang,y13);
draw z12..z12+(-.5ut,-3ut);
draw z13..z13+(-.5ut,-3ut);
labels(range 1 thru 13);
endchar;
makewi(13,16ut,ang,an_top); %B
beginchar("B",wi/hppp,21ut#,0ut#); %B
pickup su_pen;
y1=Z_anf;
y2=y12=mid;
y3=y5=I_anf;
y4=top;
y6=y8=an_bot;
y7=y10=bas;
y9=L_o;
y11=an_mid;
y13=an_top;
makex(1,2.5ut,ang,y1);
makex(2,6.6ut,ang,y2);
makex(3,10.4ut,ang,y3);
makex(4,8.2ut,ang,y4);
makex(5,6.7ut,ang,y5);
makex(6,4ut,ang,y6);
makex(7,1.7ut,ang,y7);
makex(8,0ut,ang,y8);
makex(9,2ut,ang,y9);
makex(10,9ut,ang,y10);
makex(11,13.2ut,ang,y11);
makex(12,12.5ut,ang,y12);
makex(13,16ut,ang,y13);
%
draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..z7{left}..
z8..z9{right}..z10{right}..z11..z12;
draw z12..z13{right};
labels(range 1 thru 13);
endchar;
makewi(9,13ut,ang,an_bot); %C
beginchar("C",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=y2=top;
y3=mid;
y4=y6=y9=an_bot;
y5=y8=bas;
y7=L_o;
makex(1,13ut,ang,y1);
makex(2,8ut,ang,y2);
makex(3,5ut,ang,y3);
makex(4,4ut,ang,y4);
makex(5,1.9ut,ang,y5);
makex(6,0ut,ang,y6);
makex(7,2.3ut,ang,y7);
makex(8,9ut,ang,y8);
makex(9,13ut,ang,y9);
%
draw z1{dir mi_gamma}..z2{left}..z3{dir mi_beta}..z4{dir mi_beta}..
z5{left}..z6..z7{right}..z8{right}..z9{dir gamma};
labels(range 1 thru 9);
endchar;
makewi(12,18ut,ang,an_bot); %D
beginchar("D",wi/hppp,14ut#,0ut#); %D
pickup su_pen;
y1=y5=bas;
y2=y4=y6=an_mid;
y3=y11=mid;
y7=I_anf;
y8=top;
y9=Z_anf;
y10=13/14mid;
y12=an_bot;
makex(1,0ut,ang,y1);
makex(2,1.3ut,ang,y2);
makex(3,7.4ut,ang,y3);
makex(4,9.1ut,ang,y4);
makex(5,13.5ut,ang,y5);
makex(6,17ut,ang,y6);
makex(7,17.4ut,ang,y7);
makex(8,15.2ut,ang,y8);
makex(9,12.2ut,ang,y9);
makex(10,16ut,ang,y10);
makex(11,20ut,ang,y11);
makex(12,18ut,ang,y12);
%
draw z1..z2{dir beta}..z3{right}..z4..z5{right}..z6{dir beta}..z7..
z8{left}..z9..z10{right}..z11;
labels(range 1 thru 12);
endchar;
makewi(10,7.5ut,ang,an_mid); %E
beginchar("E",wi/hppp,21ut#,7ut#); %E
pickup su_pen;
y1=y3=Z_anf;
y2=mid;
y5=I_anf;
y4=top;
y6=y8=G_bogen;
y7=bot;
y9=15/14an_mid;
y10=an_mid;
makex(1,1.9ut,ang,y1);
makex(2,7ut,ang,y2);
makex(3,10.6ut,ang,y3);
makex(4,8.8ut,ang,y4);
makex(5,6.5ut,ang,y5);
makex(6,3.3ut,ang,y6);
makex(7,6ut,ang,y7);
makex(8,9.6ut,ang,y8);
makex(9,.5ut,ang,y9);
makex(10,7.5ut,ang,y10);
%
draw z1..z2{right}..z3..z4{left}..z5..z6..z7{right}..z8{dir beta};
draw z9..z10{dir delta};
labels(range 1 thru 10);
endchar;
makewi(9,9ut,ang,an_bot); %F
beginchar("F",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=y2=top;
y3=I_anf;
y4=an_bot;
y5=bas;
y6=1/2an_bot;
y7=mid-3/28mid;
y8=mid;
y9=an_bot;
makex(1,17ut,ang,y1);
makex(2,11.8ut,ang,y2);
makex(3,9.3ut,ang,y3);
makex(4,5.5ut,ang,y4);
makex(5,3ut,ang,y5);
makex(6,0ut,ang,y6);
makex(7,5ut,ang,y7);
makex(8,12ut,ang,y8);
makex(9,9ut,ang,y9);
%
draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6;
draw z7{right}..z8{dir beta-dir 90};
labels(range 1 thru 9);
endchar;
makewi(12,21ut,ang,mid); %G
beginchar("G",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=y7=y8=top;
y2=y6=y12=mid;
y3=y5=O_bogen;
y4=bas;
y9=y11=G_bogen;
y10=bot;
makex(1,7.4ut,ang,y1);
makex(2,1.4ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.6ut,ang,y4);
makex(5,10ut,ang,y5);
makex(6,12ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,11ut,ang,y9);
makex(10,8.3ut,ang,y10);
makex(11,7ut,ang,y11);
makex(12,21ut,ang,y12);
%
draw z1..z2{z3-z2}..z3..z4{right}..z5{z6-z5}..z6..z7;
draw z7..z8{dir gamma};
draw z8{dir mi_beta}..z9{dir mi_beta}..z10{left}..z11{dir gamma}..z12{dir gamma};
labels(range 1 thru 12);
endchar;
makewi(13,14ut,ang,an_bot); %H
beginchar("H",wi/hppp,21ut#,7ut#); %H
pickup su_pen;
y3=y1=Z_anf;
y8=mid;
y2=mid+5/14(top-mid);
y5=I_anf;
y4=top;
y6=y7=bas;
y9=an_top;
y10=y12=g_bogen;
y11=bot;
y13=an_bot;
makex(1,2ut,ang,y1);
makex(2,6.8ut,ang,y2);
makex(3,10ut,ang,y3);
makex(4,8.2ut,ang,y4);
makex(5,6.2ut,ang,y5);
makex(6,2.3ut,ang,y6);
makex(7,9.3ut,ang,y7);
makex(8,11.2ut,ang,y8);
makex(9,13.5ut,ang,y9);
makex(10,12ut,ang,y10);
makex(11,9.8ut,ang,y11);
makex(12,8.2ut,ang,y12);
makex(13,14ut,ang,y13);
%
draw z1..z2{right}..z3..z4{left}..z5..z6{dir mi_beta};
draw z6{dir beta}..z7;
draw z7{dir mi_alpha}..z8{right}..z9..z10..z11{left}..z12..z13{dir gamma};
labels(range 1 thru 12);
endchar;
makewi(7,6.5ut,ang,an_bot); %I
beginchar("I",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=I_anf;
y2=y3=top;
y4=U_bogen;
y5=bas;
y6=1/2an_bot;
y7=an_bot;
makex(1,1ut,ang,y1);
makex(2,4ut,ang,y2);
makex(3,9ut,ang,y3);
makex(4,6.7ut,ang,y4);
makex(5,3.5ut,ang,y5);
makex(6,0ut,ang,y6);
makex(7,6.5ut,ang,y7);
%
draw z1{dir beta}..z2{right}..z3{dir gamma};
draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6;
labels(range 1 thru 7);
endchar;
makewi(7,7.3ut,ang,an_bot); %J
beginchar("J",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=I_anf;
y2=y3=top;
y4=y6=g_bogen;
y5=bot;
y7=an_bot;
makex(1,1ut,ang,y1);
makex(2,4ut,ang,y2);
makex(3,9.5ut,ang,y3);
makex(4,5.7ut,ang,y4);
makex(5,3.6ut,ang,y5);
makex(6,2.4ut,ang,y6);
makex(7,7.3ut,ang,y7);
%
draw z1{dir beta}..z2{right}..z3{dir gamma};
draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6{dir beta}..z7{dir gamma};
labels(range 1 thru 7);
endchar;
makewi(14,18ut,ang,an_bot); %K
beginchar("K",wi/hppp,21ut#,0ut#); %K
pickup su_pen;
y1=y2=top;
y3=I_anf;
y4=y6=y12=y14=an_bot;
y5=y13=bas;
y7=y11=an_mid;
y8=Z_anf;
y9=mid;
y10=1/2(mid-an_mid)+an_mid;
makex(1,16.5ut,ang,y1);
makex(2,11.5ut,ang,y2);
makex(3,9ut,ang,y3);
makex(4,5ut,ang,y4);
makex(5,2.7ut,ang,y5);
makex(6,.4ut,ang,y6);
makex(7,0ut,ang,y7);
makex(8,13ut,ang,y8);
makex(9,14.3ut,ang,y9);
makex(10,10ut,ang,y10);
makex(11,12.7ut,ang,y11);
makex(12,13.8ut,ang,y12);
makex(13,15.9ut,ang,y13);
makex(14,18ut,ang,y14);
%
draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6..z7{dir beta}..
z8{dir beta-dir 90}..z9{dir mi_beta}..z10{left};
draw z10{right}..z11..z12..z13{right}..z14{dir gamma};
labels(range 1 thru 14);
endchar;
makewi(11,13ut,ang,an_bot); %L
beginchar("L",wi/hppp,21ut#,0ut#); %L
pickup su_pen;
y1=Z_anf;
y2=mid;
y3=y5=I_anf;
y4=top;
y6=y8=y11=an_bot;
y7=y10=bas;
y9=L_o;
makex(1,2.4ut,ang,y1);
makex(2,6.5ut,ang,y2);
makex(3,10.2ut,ang,y3);
makex(4,8.1ut,ang,y4);
makex(5,6.5ut,ang,y5);
makex(6,4ut,ang,y6);
makex(7,1.7ut,ang,y7);
makex(8,0ut,ang,y8);
makex(9,2.4ut,ang,y9);
makex(10,9ut,ang,y10);
makex(11,13ut,ang,y11);
%
draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..
z7{left}..z8..z9{right}..z10{right}..z11{dir gamma};
labels(range 1 thru 11);
endchar;
makewi(18,28ut,ang,an_bot); %M
beginchar("M",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf;
y2=y8=y14=y15=top;
y3=y7=y9=y13=I_anf;
y4=y6=y10=y18=an_bot;
y12=3/2an_bot;
y5=y11=y17=bas;
y16=U_bogen;
makex(1,1ut,ang,y1);
makex(2,5.2ut,ang,y2);
makex(3,7ut,ang,y3);
makex(4,6ut,ang,y4);
makex(5,4.1ut,ang,y5);
makex(6,2ut,ang,y6);
makex(7,6.3ut,ang,y7);
makex(8,12.2ut,ang,y8);
makex(9,16.1ut,ang,y9);
makex(10,16.5ut,ang,y10);
makex(11,13.8ut,ang,y11);
makex(12,11.6ut,ang,y12);
makex(13,17.2ut,ang,y13);
makex(14,20.5ut,ang,y14);
makex(15,26.7ut,ang,y15);
makex(16,23.5ut,ang,y16);
makex(17,25.0ut,ang,y17);
makex(18,28ut,ang,y18);
%
draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..
z9..z10..z11{left}..z12..z13..z14{right}..z15{dir gamma};
draw z15{dir mi_beta}..z16{dir mi_beta}..z17{right}..z18{dir gamma};
labels(range 1 thru 18);
endchar;
makewi(12,16ut,ang,an_bot); %N
beginchar("N",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf;
y2=y8=y9=top;
y3=y7=I_anf;
y4=y6=y12=an_bot;
y5=y11=bas;
y10=U_bogen;
makex(1,1ut,ang,y1);
makex(2,5.2ut,ang,y2);
makex(3,7ut,ang,y3);
makex(4,6.3ut,ang,y4);
makex(5,4.2ut,ang,y5);
makex(6,1.5ut,ang,y6);
makex(7,6ut,ang,y7);
makex(8,10.3ut,ang,y8);
makex(9,15.4ut,ang,y9);
makex(10,12.3ut,ang,y10);
makex(11,13.5ut,ang,y11);
makex(12,16ut,ang,y12);
%
draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}
..z6..z7{dir gamma}..z8{right}..z9{dir gamma};
draw z9{dir mi_beta}..z10{dir mi_beta}..z11{right}..z12{dir gamma};
labels(range 1 thru 12);
endchar;
makewi(5,11ut,ang,an_bot); %O
beginchar("O",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=y7=y8=top;
y2=y6=mid;
y3=y5=O_bogen;
y4=bas;
makex(1,7.5ut,ang,y1);
makex(2,1.3ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.5ut,ang,y4);
makex(5,11ut,ang,y5);
makex(6,11.8ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,17ut,ang,y8);
%
draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
draw z7..z8{dir gamma};
labels(range 1 thru 8);
endchar;
makewi(5,11ut,ang,an_bot); %OE
beginchar(214,wi/hppp,27ut#,0ut#);
pickup su_pen;
y1=y7=y8=top;
y2=y6=mid;
y3=y5=O_bogen;
y4=bas;
makex(1,7.5ut,ang,y1);
makex(2,1.3ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.5ut,ang,y4);
makex(5,11ut,ang,y5);
makex(6,11.8ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,17ut,ang,y8);
%
draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
draw z7..z8{dir gamma};
y12=y13=top+6ut;
makex(12,6ut,ang,y12);
makex(13,10ut,ang,y13);
draw z12..z12+(-.5ut,-3ut);
draw z13..z13+(-.5ut,-3ut);
labels(range 1 thru 8,12,13);
endchar;
makewi(11,10.3ut,ang,an_bot); %P
beginchar("P",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=I_anf;
y2=y4=y7=top;
y5=bot;
y6=mid;
y8=Z_anf;
y9=y10=3/2an_bot;
y11=an_bot;
makex(1,0ut,ang,y1);
makex(2,2ut,ang,y2);
makex(4,9ut,ang,y4);
makex(5,4.6ut,ang,y5);
makex(6,8ut,ang,y6);
makex(7,14.7ut,ang,y7);
makex(8,17.4ut,ang,y8);
makex(9,6.2ut,ang,y9);
makex(10,3ut,ang,y10);
makex(11,10.3ut,ang,y11);
%
draw z1{dir beta}..z2{right}..z4{dir gamma};
draw z4{dir mi_beta}..z5;
draw z6{dir beta}..z7{right}..z8{dir mi_beta}..z9;
draw z10..z11{dir gamma};
labels(range 1 thru 11);
endchar;
makewi(10,13ut,ang,an_bot); %Q
beginchar("Q",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=y7=y8=top;
y2=y6=mid;
y3=y5=O_bogen;
y4=bas;
y9=bot;
makex(1,7.5ut,ang,y1);
makex(2,1.5ut,ang,y2);
makex(3,0ut,ang,y3);
makex(4,4.6ut,ang,y4);
makex(5,11ut,ang,y5);
makex(6,11.8ut,ang,y6);
makex(7,9ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,11.5ut,ang,y9);
%
draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6{z6-z5}..z7;
draw z7..z8{dir gamma};
draw z8..z9;
labels(range 1 thru 10);
endchar;
makewi(13,17.5ut,ang,an_bot); %R
beginchar("R",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf;
y2=y7=top;
y3=y5=y11=y13=an_bot;
y4=y12=bas;
y6=y23=y8=I_anf;
y9=mid;
y10=an_top;
makex(1,1ut,ang,y1);
makex(2,4.8ut,ang,y2);
makex(23,7ut,ang,y23);
makex(3,6.3ut,ang,y3);
makex(4,4ut,ang,y4);
makex(5,1.7ut,ang,y5);
makex(6,5.8ut,ang,y6);
makex(7,10.5ut,ang,y7);
makex(8,14.3ut,ang,y8);
makex(9,8ut,ang,y9);
makex(10,10.7ut,ang,y10);
makex(11,13.5ut,ang,y11);
makex(12,15.5ut,ang,y12);
makex(13,17.5ut,ang,y13);
%
draw z1{dir beta}..z2{right}..z23..z3{dir mi_beta}..z4{left}..z5..z6..
z7{right}..z8{dir mi_beta}..z9{left};
draw z9{right}..z10{z11-z10}..z11..z12{right}..z13{dir gamma};
labels(range 1 thru 13,23);
endchar;
makewi(10,8ut,ang,an_bot); %S
beginchar("S",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf;
y2=y8=y9=top;
y3=y7=I_anf;
y4=y6=an_bot;
y5=y10=bas;
y11=5/7an_mid;
y12=an_mid;
makex(1,1ut,ang,y1);
makex(2,5ut,ang,y2);
makex(3,7ut,ang,y3);
makex(4,6ut,ang,y4);
makex(5,4.ut,ang,y5);
makex(6,1.3ut,ang,y6);
makex(7,6ut,ang,y7);
makex(8,10.2ut,ang,y8);
makex(9,15.7ut,ang,y9);
makex(10,12ut,ang,y10);
makex(11,10ut,ang,y11);
makex(12,17ut,ang,y12);
%
draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
labels(range 1 thru 9);
endchar;
makewi(6,13ut,ang,an_mid); %T
beginchar("T",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=I_anf;
y2=y3=top;
y4=bas;
y5=6/7an_mid;
y6=an_mid;
makex(1,1.3ut,ang,y1);
makex(2,3.5ut,ang,y2);
makex(3,9.5ut,ang,y3);
makex(4,6ut,ang,y4);
makex(5,4ut,ang,y5);
makex(6,13ut,ang,y6);
%
draw z1{dir beta}..z2{right}..z3{dir gamma};
draw z3..z4;
draw z5..z6{dir delta};
labels(range 1 thru 6);
endchar;
makewi(12,17ut,ang,an_bot); %ST
beginchar(29,wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf;
y2=y8=y9=top;
y3=y7=I_anf;
y4=y6=an_bot;
y5=y10=bas;
y11=5/7an_mid;
y12=an_mid;
makex(1,1ut,ang,y1);
makex(2,5ut,ang,y2);
makex(3,7ut,ang,y3);
makex(4,6ut,ang,y4);
makex(5,4.ut,ang,y5);
makex(6,1.3ut,ang,y6);
makex(7,6ut,ang,y7);
makex(8,10.2ut,ang,y8);
makex(9,15.7ut,ang,y9);
makex(10,12ut,ang,y10);
makex(11,10ut,ang,y11);
makex(12,17ut,ang,y12);
%
draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
draw z9..z10;
draw z11..z12{dir delta};
labels(range 1 thru 12);
endchar;
makewi(11,16ut,ang,an_bot); %U
beginchar("U",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=y3=Z_anf;
y2=y7=y8=top;
y4=y6=y9=U_bogen;
y5=y10=bas;
y11=an_bot;
makex(1,0ut,ang,y1);
makex(2,3ut,ang,y2);
makex(3,4.2ut,ang,y3);
makex(4,1.2ut,ang,y4);
makex(5,4ut,ang,y5);
makex(6,9ut,ang,y6);
makex(7,12ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,12.6ut,ang,y9);
makex(10,14ut,ang,y10);
makex(11,16ut,ang,y11);
%
draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
draw z7..z8{dir beta};
draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
labels(range 1 thru 11);
endchar;
makewi(11,16ut,ang,an_bot); %UE
beginchar(220,wi/hppp,27ut#,0ut#);
pickup su_pen;
y1=y3=Z_anf;
y2=y7=y8=top;
y4=y6=y9=U_bogen;
y5=y10=bas;
y11=an_bot;
makex(1,0ut,ang,y1);
makex(2,3ut,ang,y2);
makex(3,4.2ut,ang,y3);
makex(4,1.2ut,ang,y4);
makex(5,4ut,ang,y5);
makex(6,9ut,ang,y6);
makex(7,12ut,ang,y7);
makex(8,16ut,ang,y8);
makex(9,12.6ut,ang,y9);
makex(10,14ut,ang,y10);
makex(11,16ut,ang,y11);
%
draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
draw z7..z8{dir beta};
draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
y12=y13=top+6ut;
makex(12,6ut,ang,y12);
makex(13,10ut,ang,y13);
draw z12..z12+(-.5ut,-3ut);
draw z13..z13+(-.5ut,-3ut);
labels(range 1 thru 13);
endchar;
makewi(9,12ut,ang,an_bot); %V
beginchar("V",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=y3=y6=y8=Z_anf;
y2=y7=top;
y4=y5=bas;
makex(1,0ut,ang,y1);
makex(2,4.3ut,ang,y2);
makex(3,6.3ut,ang,y3);
makex(4,3ut,ang,y4);
makex(5,10.2ut,ang,y5);
makex(6,9ut,ang,y6);
makex(7,11.7ut,ang,y7);
makex(8,14ut,ang,y8);
%
draw z1{dir gamma}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
draw z4{dir beta}..z5{z5-z3};
draw z5{z3-z5}..z6{dir beta}..z7{right}..z8..z5;
labels(range 1 thru 8);
endchar;
makewi(11,18ut,ang,bas); %W
beginchar("W",wi/hppp,21ut#,0ut#);
pickup su_pen;
y1=Z_anf; y67=y112=mid;
y2=y8=y13=top;
y3=y7=y9=y12=y14=I_anf;
y4=y6=an_bot;
y5=y10=y11=bas;
makex(1,1ut,ang,y1); makex(67,2.5ut,ang,y67);
makex(2,5ut,ang,y2); makex(112,15.5ut,ang,y112);
makex(3,7.5ut,ang,y3);
makex(4,6.4ut,ang,y4);
makex(5,4ut,ang,y5);
makex(6,1.7ut,ang,y6);
makex(7,5.2ut,ang,y7);
makex(8,10.5ut,ang,y8);
makex(9,13.4ut,ang,y9);
makex(10,10ut,ang,y10);
makex(11,16ut,ang,y11);
makex(12,15.9ut,ang,y12);
makex(13,19ut,ang,y13);
makex(14,21.5ut,ang,y14);
%
draw z1..z2{right}..z3..z4..z5{left}..z6..z67..z7..z8{right}..z9..z10{dir mi_beta};
draw z10{dir beta}..z11;
draw z11..z112..z12..z13{right}..z14..z11;
labels(range 1 thru 14,67,112);
endchar;
makewi(14,13ut,ang,an_bot); %X
beginchar("X",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=y3=Z_anf;
y2=y10=top;
y4=y6=y12=U_bogen;
y5=y13=bas;
y7=an_mid;
y8=mid;
y9=y11=I_anf;
y14=an_bot;
makex(1,2.7ut,ang,y1);
makex(2,6ut,ang,y2);
makex(3,8ut,ang,y3);
makex(4,5.7ut,ang,y4);
makex(5,3.7ut,ang,y5);
makex(6,1.3ut,ang,y6);
makex(7,1ut,ang,y7);
makex(8,9.2ut,ang,y8);
makex(9,15ut,ang,y9);
makex(10,13ut,ang,y10);
makex(11,10.2ut,ang,y11);
makex(12,8ut,ang,y12);
makex(13,10ut,ang,y13);
makex(14,13ut,ang,y14);
%
draw z1{dir beta}..z2{right}..z3{z4-z3}..z4..z5{left}..z6..z7{dir beta}
..z8..z9{dir beta}..z10{left}..z11{dir mi_beta}..z12{dir mi_beta}..z13{right}..z14{dir gamma};
labels(range 1 thru 14);
endchar;
makewi(12,15.8ut,ang,an_bot); %Y
beginchar("Y",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=Z_anf;
y2=y7=top;
y3=y6=y8=I_anf;
y4=y5=bas;
y9=y11=g_bogen;
y10=bot;
y12=an_bot;
makex(1,0ut,ang,y1);
makex(2,5.5ut,ang,y2);
makex(3,7ut,ang,y3);
makex(4,3.2ut,ang,y4);
makex(5,9.8ut,ang,y5);
makex(6,9ut,ang,y6);
makex(7,11.8ut,ang,y7);
makex(8,14.3ut,ang,y8);
makex(9,13.3ut,ang,y9);
makex(10,11.2ut,ang,y10);
makex(11,10ut,ang,y11);
makex(12,15.8ut,ang,y12);
%
draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
draw z4{dir beta}..z5;
draw z5..z6{dir beta}..z7{right}..z8..z9{dir mi_beta}..z10{left}..z11{dir beta}..z12{dir gamma};
labels(range 1 thru 12);
endchar;
makewi(7,10.5ut,ang,an_mid); %Z
beginchar("Z",wi/hppp,21ut#,7ut#);
pickup su_pen;
y1=Z_anf;
y2=top;
y3=11/14*mid;
y4=y6=g_bogen;
y5=bot;
y7=an_mid;
makex(1,1ut,ang,y1);
makex(2,5.5ut,ang,y2);
makex(3,3.5ut,ang,y3);
makex(4,2ut,ang,y4);
makex(5,3.5ut,ang,y5);
makex(6,6.3ut,ang,y6);
makex(7,10.5ut,ang,y7);
%
draw z1{dir beta}..z2{right}..z3{left};
draw z3{right}..z6..z5{left}..z4..{dir delta}z7;
labels(range 1 thru 7);
endchar;
|
