%%% @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;