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