summaryrefslogtreecommitdiff
path: root/fonts/schulschriften/source/wela/wela14.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/schulschriften/source/wela/wela14.mf')
-rw-r--r--fonts/schulschriften/source/wela/wela14.mf75
1 files changed, 75 insertions, 0 deletions
diff --git a/fonts/schulschriften/source/wela/wela14.mf b/fonts/schulschriften/source/wela/wela14.mf
new file mode 100644
index 0000000000..623fee6ea9
--- /dev/null
+++ b/fonts/schulschriften/source/wela/wela14.mf
@@ -0,0 +1,75 @@
+% Lateinische Ausgangsschrift (LA) wela
+% Walter Entenmann
+% 16.10.2011
+% 12.09.2012
+% 14.11.2014: Hz# geaendert
+
+%%%%%%%%%%%%%%% wela Metafont-Hauptfile %%%%%%%%%%%%%%%%%%
+font_identifier:= "WELA";
+font_size := 14pt#;
+font_coding_scheme:="WELA text";
+
+mode_setup;
+
+% Vereinbarungen:
+boolean wortende;
+path p, q;
+
+% sharp Variables:
+% unit_width
+ut#:=0.233pt#;
+
+% Linienabstand 1:1:1
+ht#:=20ut#; % x-Hoehe
+dt#:=ht#; % Unterlaenge, Oberlaenge
+Ht#:=ht#+dt#;% Versalhoehe
+Hz#:=ht#+0.5dt#; % Ziffernhoehe
+Wz#:=30ut#; % Ziffernbreite
+
+% Umrechnung in Pixel-Groessen
+define_pixels(ut,Ht,ht,dt,Hz,Wz);
+
+% Federn:
+if unknown fetter: fetter:=0; fi
+fetter:=sqrt(2)**fetter;
+% runde Feder (Redisfeder)
+ pickup pencircle scaled (fetter*1.25*ut);
+wela_pen:=savepen;
+% fuer Punkte etc.
+if fetter>3: pickup pencircle scaled 7ut;
+elseif fetter>2.5: pickup pencircle scaled 5ut;
+ else:
+ pickup pencircle scaled 3.5ut;
+ fi
+wela_pen_thick := savepen;
+%
+% Current Transformation, slanted
+if unknown slant: slant:=0; else: currenttransform:=identity slanted slant; fi
+
+% Eingabe der Program-Files:
+wortende:=false;
+% Parameter- und Makrodefinitionen
+input wela14_def;
+% Grossbuchstaben
+input wela14_gr;
+% Kleinbuchstaben
+ input wela14_kl;
+% Sonderzeichen
+ input wela14_sz;
+% Wortende
+input wela14_end;
+
+ % Abstandsmasse:
+ font_quad 14pt#;% 1em
+ font_x_height := 4.66pt#; % 1ex
+font_normal_space 5pt#;% Wortzwischenraum, ca Breite von "n"
+font_normal_stretch 2pt#;
+font_normal_shrink 1pt#;
+
+boundarychar:=oct"040"; % space
+
+% Ligaturtabellen
+%
+input wela14_lig;
+end
+%%%%%%%%%%%%%% Ende wela Metafont-Hauptfile (Driver-File) %%%%%%