summaryrefslogtreecommitdiff
path: root/fonts/capbas/simfon.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/capbas/simfon.mf')
-rw-r--r--fonts/capbas/simfon.mf160
1 files changed, 160 insertions, 0 deletions
diff --git a/fonts/capbas/simfon.mf b/fonts/capbas/simfon.mf
new file mode 100644
index 0000000000..d03cb4cc33
--- /dev/null
+++ b/fonts/capbas/simfon.mf
@@ -0,0 +1,160 @@
+%%% @mffile{
+%%% filename="simfon6.mf",
+%%% version="",
+%%% date="",
+%%% filetype="mf fontcreator",
+%%% package="m-capbas.arj"
+%%% author="Phons Bloemen (PhB)",
+%%% address="Eindhoven U. of Technology"
+%%% email="Internet: phons@ei.ele.tue.nl",
+%%% codetable="ISO/ASCII",
+%%% checksumtype="none",
+%%% checksum="0",
+%%% keywords="",
+%%% abstract="
+%%% Generates Simple font.
+%%% Part of Capital Baseball package"
+%%% copyright="Copyleft (L) Phons Bloemen (PhB),
+%%% according to GNU public licence version 2 or later.
+%%% (1) Do not change this file (even its name)
+%%% (2) if you do make changes, first rename it to some
+%%% other name, and mark your changes clearly.",
+%%% }
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+te := 5.5;
+rrr := 0;
+em# := 0.33333mm#;
+uuu := 6;
+td := 0.05;
+tf := 0.06;
+scaw := 1;
+revcap := 1;
+if unknown gensize: gensize := 10; fi;
+
+font_coding_scheme:="TeX text";
+font_identifier:="SIMFON";
+body_height#:=6em#; % height of tallest characters
+asc_height#:=6em#; % height of lowercase ascenders
+cap_height#:=6em#; % height of caps
+fig_height#:=4.5em#; % height of numerals
+x_height#:=3em#; % height of lowercase without ascenders
+math_axis#:=3em#; % axis of symmetry for math symbols
+bar_height#:=2em#; % height of crossbar in lowercase e
+comma_depth#:=0em#; % depth of comma below baseline
+desc_depth#:=0em#; % depth of lowercase descenders
+%% monospace := false;
+%% font_setup;
+font_normal_space 6 * em#;
+font_quad 20em#;
+font_extra_space 6 * em#;
+font_size gensize * 1em#;
+
+mode_setup;
+
+def thpen =
+ pencircle scaled (0.008*h);
+enddef;
+
+scaw := 1;
+
+def tupen =
+ pencircle scaled (0.12*h);
+enddef;
+
+input simdefs.mf;
+input mftools.mf;
+
+beginchar(32,0.5*uuu*em#,0.5*uuu*em#,0);
+ z40 =(0.5*w,0.5*h);currenttransform := identity rotatedaround(z40,rrr);
+ z1 = (0.5*w,0.5*h);
+endchar;
+
+te := 5;
+td := 0.05;
+tf := 0.06;
+
+def beginsimichar(expr c, unit) =
+beginchar((char c),unit*uuu*10em#,unit*uuu*12em#,0);
+ z40 =(0.5*w,0.5*h);currenttransform := identity rotatedaround(z40,rrr);
+ z1 = (0.5*w,0.5*h);
+ gensimgrid(1,0.35w,0.35w);
+ thra := 0.025*h;
+ fill z1-0.5(w,w) -- z1-0.5(-w,w) -- z1-0.5(-w,-w) -- z1-0.5(w,-w) -- cycle;
+ pickup tupen;
+enddef;
+
+def beginsimochar(expr c, unit) =
+beginchar((char c),unit*uuu*10*em#,unit*uuu*13.5em#,0);
+ z40 =(0.5*w,0.5*h);currenttransform := identity rotatedaround(z40,rrr);
+ z1 = (0.5w,0.5h);
+ gensimgrid(1,0.4w,0.4*h);
+ thra := 0.025*h;
+ pickup tupen;
+enddef;
+
+beginsimochar( 48,0.075);gensimo(1,1);endchar;
+beginsimochar( 49,0.075);gensimone(1,1);endchar;
+beginsimochar( 50,0.075);gensimtwo(1,1);endchar;
+beginsimochar( 51,0.075);gensimthr(1,1);endchar;
+beginsimochar( 52,0.075);gensimfou(1,1);endchar;
+beginsimochar( 53,0.075);gensimfiv(1,1);endchar;
+beginsimochar( 54,0.075);gensimsix(1,1);endchar;
+beginsimochar( 55,0.075);gensimsev(1,1);endchar;
+beginsimochar( 56,0.075);gensimeig(1,1);endchar;
+beginsimochar( 57,0.075);gensimnin(1,1);endchar;
+beginsimochar( 65,0.1);gensima(1,1);endchar;
+beginsimochar( 66,0.1);gensimb(1,1);endchar;
+beginsimochar( 67,0.1);gensimc(1,1);endchar;
+beginsimochar( 68,0.1);gensimd(1,1);endchar;
+beginsimochar( 69,0.1);gensime(1,1);endchar;
+beginsimochar( 70,0.1);gensimf(1,1);endchar;
+beginsimochar( 71,0.1);gensimg(1,1);endchar;
+beginsimochar( 72,0.1);gensimh(1,1);endchar;
+beginsimochar( 73,0.1);gensimi(1,1);endchar;
+beginsimochar( 74,0.1);gensimj(1,1);endchar;
+beginsimochar( 75,0.1);gensimk(1,1);endchar;
+beginsimochar( 76,0.1);gensiml(1,1);endchar;
+beginsimochar( 77,0.1);gensimm(1,1);endchar;
+beginsimochar( 78,0.1);gensimn(1,1);endchar;
+beginsimochar( 79,0.1);gensimo(1,1);endchar;
+beginsimochar( 80,0.1);gensimp(1,1);endchar;
+beginsimochar( 81,0.1);gensimq(1,1);endchar;
+beginsimochar( 82,0.1);gensimr(1,1);endchar;
+beginsimochar( 83,0.1);gensims(1,1);endchar;
+beginsimochar( 84,0.1);gensimt(1,1);endchar;
+beginsimochar( 85,0.1);gensimu(1,1);endchar;
+beginsimochar( 86,0.1);gensimv(1,1);endchar;
+beginsimochar( 87,0.1);gensimw(1,1);endchar;
+beginsimochar( 88,0.1);gensimx(1,1);endchar;
+beginsimochar( 89,0.1);gensimy(1,1);endchar;
+beginsimochar( 90,0.1);gensimz(1,1);endchar;
+beginsimochar( 97,0.05);gensima(1,1);endchar;
+beginsimochar( 98,0.05);gensimb(1,1);endchar;
+beginsimochar( 99,0.05);gensimc(1,1);endchar;
+beginsimochar(100,0.05);gensimd(1,1);endchar;
+beginsimochar(101,0.05);gensime(1,1);endchar;
+beginsimochar(102,0.05);gensimf(1,1);endchar;
+beginsimochar(103,0.05);gensimg(1,1);endchar;
+beginsimochar(104,0.05);gensimh(1,1);endchar;
+beginsimochar(105,0.05);gensimi(1,1);endchar;
+beginsimochar(106,0.05);gensimj(1,1);endchar;
+beginsimochar(107,0.05);gensimk(1,1);endchar;
+beginsimochar(108,0.05);gensiml(1,1);endchar;
+beginsimochar(109,0.05);gensimm(1,1);endchar;
+beginsimochar(110,0.05);gensimn(1,1);endchar;
+beginsimochar(111,0.05);gensimo(1,1);endchar;
+beginsimochar(112,0.05);gensimp(1,1);endchar;
+beginsimochar(113,0.05);gensimq(1,1);endchar;
+beginsimochar(114,0.05);gensimr(1,1);endchar;
+beginsimochar(115,0.05);gensims(1,1);endchar;
+beginsimochar(116,0.05);gensimt(1,1);endchar;
+beginsimochar(117,0.05);gensimu(1,1);endchar;
+beginsimochar(118,0.05);gensimv(1,1);endchar;
+beginsimochar(119,0.05);gensimw(1,1);endchar;
+beginsimochar(120,0.05);gensimx(1,1);endchar;
+beginsimochar(121,0.05);gensimy(1,1);endchar;
+beginsimochar(122,0.05);gensimz(1,1);endchar;
+end;
+