summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/gothic/suet14.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/gothic/suet14.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/gothic/suet14.mf97
1 files changed, 97 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/gothic/suet14.mf b/Master/texmf-dist/fonts/source/public/gothic/suet14.mf
new file mode 100644
index 00000000000..b0ab5d24cd3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/gothic/suet14.mf
@@ -0,0 +1,97 @@
+% SUET Zeichensatz
+%
+%
+% ---------------------
+%
+% Wuensche, Fehler und Anregungen bitte an:
+%
+% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
+%
+% Ludewig@hrz.uni-siegen.dbp.de
+% oder
+% GZ006@DSIHRZ51.BITNET
+%
+% plain
+
+font_identifier "SUET14"; font_size 14pt#;
+font_coding_scheme:="SUETTERLIN Text";
+
+mode_setup;
+boolean serifs,monospace;
+%
+xpt#:=pt#;
+monospace:=false;
+serifs:=true;
+%
+ut#:=0.4;
+ut=ut#*hppp;
+% % <-----hier kann gedreht werden
+numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
+numeric Z_anf,I_anf,o_bogen,L_o,U_bogen,g_bogen,G_bogen,z_bogen;
+numeric alpha,beta,gamma,delta,mi_alpha,mi_beta,mi_gamma,mi_delta;
+ang:=0;
+alpha=-45-ang;mi_alpha=-45+180-ang;
+beta=80-ang;mi_beta=80+180-ang;
+gamma=50-ang;mi_gamma=50+180-ang;
+delta=30-ang;mi_delta=30+180-ang;
+%
+%
+top:=21ut; mid:=14ut; bas:=0ut; bot:=-7ut;
+%
+an_top=12ut; an_mid=7ut; an_bot=2ut;
+%
+Z_anf=17ut; I_anf=18ut; O_bogen=5ut; L_o=4.5ut; U_bogen=3ut;
+g_bogen=-5ut; G_bogen=-4ut;z_bogen=-3ut;
+%
+pen su_pen;
+su_pen := pencircle xscaled 1.2ut yscaled 1.2ut;
+
+pen su_pen_small;
+%su_pen_small := pencircle scaled 1.51ut;
+su_pen_small := pencircle scaled 1.31ut;
+
+pen su_pen_big;
+su_pen_big := pencircle scaled 4.51ut;
+
+def makex(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makewi(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makebox (text r) =
+ for y=-7ut step 1ut until 21ut: r((0,y),(28ut,y)); endfor;
+ for x=-2ut step 1ut until 28ut: r((x,-7ut),(x,21ut)); endfor;
+ for y=bas+.5,bas-.5,an_bot+.5,an_mid+.5,an_top+.5,mid-.5,mid+.5,
+ Z_anf,Z_anf+.5,I_anf,I_anf+.5,O_bogen,O_bogen+.5,L_o,L_o+.5,
+ U_bogen,U_bogen+.5,g_bogen,g_bogen+.5,G_bogen,G_bogen+.5,
+ z_bogen,z_bogen+.5: r((0,y),(28ut,y)); endfor;
+ z90=(32ut,mid);makelabel("mid",z90);makelabel("top",(32ut,top));
+ makelabel("an_mid",(32ut,an_mid));makelabel("an_bot",(32ut,an_bot));
+ makelabel("an_top",(32ut,an_top));makelabel("bot",(32ut,bot));
+ makelabel("Z_anf",(32ut,Z_anf)); makelabel("I_anf",(32ut,I_anf));
+ makelabel("O_bo",(32ut,O_bogen)); makelabel("L_o",(32ut,L_o));
+ makelabel("U_bo",(32ut,U_bogen)); makelabel("g_bo",(32ut,g_bogen));
+ makelabel("G_bo",(32ut,G_bogen)); makelabel("z_bo",(32ut,z_bogen));
+ makelabel("0",(0,24ut)); makelabel("5",(5ut,24ut)); makelabel("10",(10ut,24ut));
+ makelabel("15",(15ut,24ut)); makelabel("20",(20ut,24ut));
+ makelabel("25",(25ut,24ut));
+ makelabel(str[w],(w,-10ut));
+enddef;
+
+%
+input su-low;
+input su-spec;
+input su-upp;
+%
+font_quad 33pt#;
+font_normal_space 6.6pt#;
+font_normal_stretch 3pt#;
+font_normal_shrink 1pt#;
+%
+input su-lig;
+end.