summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/allrunes/frusep.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/allrunes/frusep.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/allrunes/frusep.mf176
1 files changed, 176 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/allrunes/frusep.mf b/Master/texmf-dist/fonts/source/public/allrunes/frusep.mf
new file mode 100644
index 00000000000..5752e57a4df
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/allrunes/frusep.mf
@@ -0,0 +1,176 @@
+%%
+%% This is file `frusep.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% allrunes.dtx (with options: `frusep')
+%%
+%%
+%% Copyright 2001-2004 Carl-Gustav Werner
+%%
+%% This program is provided under the terms of the
+%% LaTeX Project Public License distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt.
+%%
+def draw_cross(expr y_centre, i) =
+ filldraw barpath(xmid-xhalf, ymid-xhalf+y_centre*yhalf, endrounding,
+ xmid+xhalf, ymid+xhalf+y_centre*yhalf, endrounding, 0, tightness_f, i);
+ filldraw barpath(xmid-xhalf, ymid+xhalf+y_centre*yhalf, endrounding,
+ xmid+xhalf, ymid-xhalf+y_centre*yhalf, endrounding, 0, tightness_f, i+10)
+enddef;
+
+def draw_plus(expr y_centre, i) =
+ filldraw barpath(xmid-xhalf, ymid+y_centre*yhalf, endrounding,
+ xmid+xhalf, ymid+y_centre*yhalf, endrounding, 0, tightness_f, i);
+ filldraw barpath(xmid, ymid+xhalf+y_centre*yhalf, endrounding,
+ xmid, ymid-xhalf+y_centre*yhalf, endrounding, 0, tightness_f, i+10)
+enddef;
+
+beginrunechar(".", sepdot_f*stem_w#+2*margin_width#);
+ filldraw dotpath(xmid, ymid, sepdot_f, 20);
+endchar;
+
+beginrunechar(":", sepdot_f*stem_w#+2*margin_width#);
+ save ddot_y_f;
+ ddot_y_f=0.3;
+ filldraw dotpath(xmid, ymid+yhalf*ddot_y_f, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid-yhalf*ddot_y_f, sepdot_f, 30);
+endchar;
+
+beginrunechar(59, sepdot_f*stem_w#+2*margin_width#);
+ save tdot_y_f;
+ tdot_y_f=0.6;
+ filldraw dotpath(xmid, ymid+yhalf*tdot_y_f, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid, sepdot_f, 30);
+ filldraw dotpath(xmid, ymid-yhalf*tdot_y_f, sepdot_f, 40);
+endchar;
+
+beginrunechar(60, sepdot_f*stem_w#+2*margin_width#);
+ save qdot_ymid_f;
+ save qdot_ytop_f;
+ qdot_ymid_f=0.25;
+ qdot_ytop_f=0.75;
+ filldraw dotpath(xmid, ymid+yhalf*qdot_ymid_f, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid+yhalf*qdot_ytop_f, sepdot_f, 30);
+ filldraw dotpath(xmid, ymid-yhalf*qdot_ymid_f, sepdot_f, 40);
+ filldraw dotpath(xmid, ymid-yhalf*qdot_ytop_f, sepdot_f, 50);
+endchar;
+
+beginrunechar(61, sepdot_f*stem_w#+2*margin_width#);
+ save pdot_ymid_f;
+ save pdot_ytop_f;
+ pdot_ymid_f=0.4;
+ pdot_ytop_f=0.8;
+ filldraw dotpath(xmid, ymid+yhalf*pdot_ymid_f, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid+yhalf*pdot_ytop_f, sepdot_f, 30);
+ filldraw dotpath(xmid, ymid, sepdot_f, 40);
+ filldraw dotpath(xmid, ymid-yhalf*pdot_ymid_f, sepdot_f, 50);
+ filldraw dotpath(xmid, ymid-yhalf*pdot_ytop_f, sepdot_f, 60);
+endchar;
+
+beginrunechar(62, 0.55*base_width#+2*margin_width#);
+ filldraw dotpath(xmid-xhalf, ymid+xhalf/sqrt(3), sepdot_f, 20);
+ filldraw dotpath(xmid+xhalf, ymid+xhalf/sqrt(3), sepdot_f, 30);
+ filldraw dotpath(xmid, ymid-2*xhalf/sqrt(3), sepdot_f, 40);
+endchar;
+
+beginrunechar(63, 0.6*base_width#+2*margin_width#);
+ filldraw dotpath(xmid, ymid-xhalf, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid+xhalf, sepdot_f, 30);
+ filldraw dotpath(xmid-xhalf, ymid, sepdot_f, 40);
+ filldraw dotpath(xmid+xhalf, ymid, sepdot_f, 50);
+endchar;
+
+beginrunechar(64, 0.75*base_width#+2*margin_width#);
+ filldraw dotpath(xmid, ymid-xhalf, sepdot_f, 20);
+ filldraw dotpath(xmid, ymid, sepdot_f, 30);
+ filldraw dotpath(xmid, ymid+xhalf, sepdot_f, 40);
+ filldraw dotpath(xmid+xhalf, ymid, sepdot_f, 50);
+ filldraw dotpath(xmid-xhalf, ymid, sepdot_f, 60);
+endchar;
+
+cross_width_f=0.55;
+beginrunechar("*", cross_width_f*base_width#+2*margin_width#);
+ draw_cross(0.0, 20);
+endchar;
+
+beginrunechar(37, cross_width_f*base_width#+2*margin_width#);
+ save dcross_y_f;
+ dcross_y_f=0.4;
+ draw_cross(-dcross_y_f, 20);
+ draw_cross( dcross_y_f, 40);
+endchar;
+
+beginrunechar(38, cross_width_f*base_width#+2*margin_width#);
+ save tcross_y_f;
+ tcross_y_f=0.7;
+ draw_cross(-tcross_y_f, 20);
+ draw_cross( 0.0, 40);
+ draw_cross( tcross_y_f, 60);
+endchar;
+
+plus_width_f=0.67;
+beginrunechar("+", plus_width_f*base_width#+2*margin_width#);
+ draw_plus(0.0, 20);
+endchar;
+
+beginrunechar(44, plus_width_f*base_width#+2*margin_width#);
+ save dplus_y_f;
+ dplus_y_f=0.4;
+ draw_plus(-dplus_y_f, 20);
+ draw_plus( dplus_y_f, 40);
+endchar;
+
+beginrunechar(45, plus_width_f*base_width#+2*margin_width#);
+ save tplus_y_f;
+ tplus_y_f=0.76;
+ draw_plus(-tplus_y_f, 20);
+ draw_plus( 0.0, 40);
+ draw_plus( tplus_y_f, 60);
+endchar;
+
+beginrunechar("!", stem_w#+2*margin_width#);
+ save barheight_y_f;
+ barheight_y_f=0.4;
+ filldraw barpath(xmid, ymid+barheight_y_f*yhalf, endrounding,
+ xmid, ymid-barheight_y_f*yhalf, endrounding, 0, tightness_f, 20);
+endchar;
+
+beginrunechar(34, stem_w#+2*margin_width#);
+ save dbarheight_y_f;
+ save dbarpos_y_f;
+ dbarheight_y_f=0.3;
+ dbarpos_y_f=0.4;
+ filldraw barpath(xmid, ymid+( dbarpos_y_f+dbarheight_y_f)*yhalf, endrounding,
+ xmid, ymid+( dbarpos_y_f-dbarheight_y_f)*yhalf, endrounding, 0, tightness_f, 20);
+ filldraw barpath(xmid, ymid+(-dbarpos_y_f+dbarheight_y_f)*yhalf, endrounding,
+ xmid, ymid+(-dbarpos_y_f-dbarheight_y_f)*yhalf, endrounding, 0, tightness_f, 30);
+endchar;
+
+beginrunechar(35, stem_w#+2*margin_width#);
+ save tbarheight_y_f;
+ save tbarpos_y_f;
+ tbarheight_y_f=0.25;
+ tbarpos_y_f=0.7;
+ filldraw barpath(xmid, ymid+( tbarpos_y_f+tbarheight_y_f)*yhalf, endrounding,
+ xmid, ymid+( tbarpos_y_f-tbarheight_y_f)*yhalf, endrounding, 0, tightness_f, 20);
+ filldraw barpath(xmid, ymid +tbarheight_y_f *yhalf, endrounding,
+ xmid, ymid -tbarheight_y_f *yhalf, endrounding, 0, tightness_f, 20);
+ filldraw barpath(xmid, ymid+(-tbarpos_y_f+tbarheight_y_f)*yhalf, endrounding,
+ xmid, ymid+(-tbarpos_y_f-tbarheight_y_f)*yhalf, endrounding, 0, tightness_f, 30);
+endchar;
+
+beginrunechar(36, 0.7*base_width#+2*margin_width#);
+ filldraw barpath(xmid, ymid, jointrounding,
+ xmid+cosd(1/5*360+90)*xhalf, ymid+sind(1/5*360+90)*xhalf, endrounding, 0, tightness_f, 20);
+ filldraw barpath(xmid, ymid, jointrounding,
+ xmid+cosd(2/5*360+90)*xhalf, ymid+sind(2/5*360+90)*xhalf, endrounding, 0, tightness_f, 30);
+ filldraw barpath(xmid, ymid, jointrounding,
+ xmid+cosd(3/5*360+90)*xhalf, ymid+sind(3/5*360+90)*xhalf, endrounding, 0, tightness_f, 40);
+ filldraw barpath(xmid, ymid, jointrounding,
+ xmid+cosd(4/5*360+90)*xhalf, ymid+sind(4/5*360+90)*xhalf, endrounding, 0, tightness_f, 50);
+ filldraw barpath(xmid, ymid, jointrounding,
+ xmid+cosd(5/5*360+90)*xhalf, ymid+sind(5/5*360+90)*xhalf, endrounding, 0, tightness_f, 60);
+endchar;
+