1 files changed, 555 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf b/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf
new file mode 100644
index 00000000000..347f81b9db0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/su-spec.mf
@@ -0,0 +1,555 @@
+% su-spec.mf -Input-File Zeichensatz
+
+makewi(8,13ut,ang,top);
+beginchar("0",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=an_bot;
+y4=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,8ut,ang,y7);
+makex(8,12ut,ang,y8);
+%
+draw z1{dir gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("1",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y3=bas;
+y2=top;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+makex(3,3ut,ang,y3);
+%
+draw z1..z2;
+draw z2..z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("2",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=y6=bas;
+y7=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,-2ut,ang,y5);
+makex(6,4.5ut,ang,y6);
+makex(7,7.3ut,ang,y7);
+%
+draw z1..z2{right}..z3..z4..z5{dir mi_beta};
+draw z5{dir gamma}..z6{right}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar("3",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=an_bot;
+y2=bas;
+y3=an_mid;
+y4=an_top;
+y5=y7=Z_anf;
+y6=top;
+makex(1,-2ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,6ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,5ut,ang,y6);
+makex(7,0ut,ang,y7);
+%
+draw z7..z6{right}..z5..z4{left};
+draw z4{right}..z3..z2{left}..z1;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("4",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=an_mid;
+y3=1/2(mid-an_top)+an_top;
+y4=mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,12ut,ang,y3);
+makex(4,8.3ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+%
+draw z1..z2;
+draw z2{right}..z3;
+draw z4..{dir mi_beta}z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,11ut,ang,mid);
+beginchar("5",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y6=top;
+y2=y3=an_top;
+y4=bas;
+y5=an_bot;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-1ut,ang,y5);
+makex(6,10ut,ang,y6);
+%
+draw z1..z2;
+draw z2{dir gamma}..z3..z4{left}..z5;
+draw z1..z6{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(1,12ut,ang,mid);
+beginchar("6",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=O_bogen;
+y4=bas;
+y5=an_mid;
+y6=an_top;
+makex(1,11ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,6ut,ang,y6);
+%
+draw z1..z2{left}..z3{dir mi_beta}..z4{right}..z5..
+                                        z6{left}..z3{dir mi_beta};
+labels(range 1 thru 6);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("7",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=bas;
+y4=an_top=y5;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,8ut,ang,y5);
+%
+draw z1{dir beta}..z2{dir beta};
+draw z2..z3;
+draw z4..z5{dir beta-dir 90};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(9,13ut,ang,mid);
+beginchar("8",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y8=y9=top;
+y2=y7=mid;
+y3=an_top;
+y4=y6=an_mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,3.4ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,9ut,ang,y8);
+makex(9,12ut,ang,y9);
+%
+draw z1{left}..z2..z3..z4..z5{left}..z6..z3..z7..z8;
+draw z8..z9{dir beta};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("9",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=mid;
+y4=top;
+y2=an_top;
+y5=y7=an_bot;
+y6=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,1.2ut,ang,y3);
+makex(4,5.2ut,ang,y4);
+makex(5,4.5ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,-1.5ut,ang,y7);
+%
+draw z1{dir mi_beta}..z2{left}..z3..z4{right}..z1{dir mi_beta}..
+                                                   z5..z6{left}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(131,wi/hppp,14ut#,0ut);     % uebergang an_top{gamma} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{dir gamma}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(132,wi/hppp,14ut#,0ut);   % uebergang an_top{right} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(3,12ut,ang,mid);
+beginchar(133,wi/hppp,14ut#,0ut);   % uberggang blank -> z
+pickup su_pen;
+y1=bas;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,12ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(3,7ut,ang,mid);
+beginchar(135,wi/hppp,14ut#,0ut);   % uberggang an_mid -> z
+pickup su_pen;
+y1=an_mid;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,3.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(128,wi/hppp,14ut#,0ut);   %uebergang an_bot -> mid
+pickup su_pen;
+y1=an_bot;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,4ut,ang,mid);
+beginchar(129,wi/hppp,14ut#,0ut);   % uebergang an_top -> mid
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,7ut,ang,mid);
+beginchar(130,wi/hppp,14ut#,0ut);  % uebergang an_mid -> mid
+pickup su_pen;
+y1=an_mid;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+%
+draw z1{dir delta}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(4,9ut,ang,mid);
+beginchar("+",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+makex(1,5.3ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+%
+draw z1..z2;
+draw z3..z4;
+labels(range 1 thru 4);
+endchar;
+
+
+makewi(4,9ut,ang,mid);
+beginchar("*",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+y5=y6=6/7y1;
+y7=y8=9/7y2;
+makex(1,5.3ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+makex(5,2ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,1ut,ang,y7);
+makex(8,6.8ut,ang,y8);
+%
+draw z1..z2;
+draw z3..z4;
+draw z5..z8;
+draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("-",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,8ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,12.5ut,ang,mid);
+beginchar(134,wi/hppp,14ut#,0ut);   % --
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,12.5ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(";",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_mid;
+y2=an_bot;
+y3=1/7bot;
+makex(1,2.5ut,ang,y1);
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z1;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(",",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y2=an_bot;
+y3=1/7bot;
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z2;
+labels(range 2 thru 3);
+endchar;
+
+
+makewi(2,3ut,ang,mid);
+beginchar(".",wi/hppp,14ut#,0ut);
+y2=bas;
+makex(2,2ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,top);
+beginchar("!",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=an_mid;
+y3=bas;
+makex(1,4ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,0.5ut,ang,y3);
+%
+draw z1..z2;
+pickup su_pen_small;
+drawdot z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(":",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=6/7an_top;;
+y2=an_bot;
+makex(1,1.5ut,ang,y1);
+makex(2,.3ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z1; drawdot z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,8ut,ang,top);
+beginchar("?",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=1/2an_bot;
+makex(1,1ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,3ut,ang,y5);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta};
+pickup su_pen_small;
+drawdot z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,7ut,ang,mid);
+beginchar("=",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=4/3an_mid=y2;
+y3=y4=2/3an_mid;
+makex(1,0ut,ang,y1);
+makex(2,6.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,6.5ut,ang,y4);
+%
+draw z1..z2{dir 5};
+draw z3..z4{dir 5};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("(",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1{dir mi_gamma}..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(")",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2{dir mi_gamma};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("/",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(16,wi/hppp,21ut#,0ut);     % einleitende Anfuehrungszeichen
+pickup su_pen;
+y1=an_bot;
+y2=an_bot;
+y3=y4=bas-1.5ut;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+
+makewi(2,6ut,ang,mid);
+beginchar(17,wi/hppp,21ut#,0ut);   %schliessendes Anfuehrungszeichen
+pickup su_pen;
+y1=y2=top;
+y3=top-1/2(top-mid)=y4;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+