%%% @mffile{
%%%     filename="simfon.mf",
%%%     version="",
%%%     date="",
%%%     filetype="mf inputfile",
%%%     package="m-capbas.arj"
%%%     author="Phons Bloemen (PhB)",
%%%     address="Eindhoven U. of Technology,
%%%            Fac. of Electrical Engineering,
%%%            P. O. Box 513, NL-5600 MB Eindhoven
%%%     email="Internet: phons@ei.ele.tue.nl",
%%%     codetable="ISO/ASCII",
%%%     checksumtype="none",
%%%     checksum="0",
%%%     keywords="",
%%%     abstract="
%%%        This file contains the definitions of character glyphs
%%%        for the Simple font. Only capitals and numerals are
%%%        provided.
%%%        Parameters: a: (relative) width of character
%%%                    b: (relative) height of character
%%%                    s: thickness of drawing pen
%%%        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.",
%%%     }
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

def gensimgrid(suffix $)(expr a,b) =
  bot lft z$p1 = z$ + (-a,-b); top lft z$p2 = z$ + (-a,b);
  top rt z$p3 = z$ + (a,b); bot rt z$p4 = z$ + (a,-b);
  lft z$p5 = z$ + (-a,0); rt z$p6 = z$ + (a,0);
  top z$p8 = z$ + (0,b); bot z$p7 = z$ + (0,-b);
  z$p52 = (z$p5+z$p2)/2; z$p51 = (z$p5+z$p1)/2; z$p57 = (z$p5+z$)/2;
  z$p63 = (z$p6+z$p3)/2; z$p64 = (z$p6+z$p4)/2; z$p67 = (z$p6+z$)/2;
  labels ($);
enddef;

def gensima(suffix $)(expr s) =
  draw z$p1 -- z$p8 -- z$p4 withweight s;
  draw z$p57 -- z$p67 withweight s;
enddef;
def gensimb(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$p8 {right} .. z$p63 .. {left} z$ -- z$p5 withweight s;
  draw z$p1 -- z$p7 {right} .. z$p64 .. {left} z$ -- z$p5  withweight s; enddef;
def gensimc(suffix $)(expr s) =
  draw z$p64 .. z$p7 .. z$p5 .. z$p8 .. z$p63 withweight s;
enddef;
def gensimd(suffix $)(expr s) =
  draw z$p1 -- z$p2 {right} .. z$p6 .. {left} z$p1 withweight s;
enddef;
def gensime(suffix $)(expr s) =
  draw z$p4 -- z$p1 -- z$p2 -- z$p3 withweight s;
  draw z$p5 -- z$p6 withweight s;
enddef;
def gensimf(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$p3 withweight s; draw z$p5 -- z$ withweight s;
enddef;
def gensimg(suffix $)(expr s) =
  draw z$ -- z$p6 -- z$p64 .. z$p7 .. z$p5 .. z$p8 .. z$p63 withweight s;
enddef;
def gensimh(suffix $)(expr s) =
 draw z$p1 -- z$p2 withweight s; draw z$p3 -- z$p4 withweight s;
 draw z$p5 -- z$p6 withweight s;
enddef;
def gensimi(suffix $)(expr s) =
  draw z$p8 -- z$p7 withweight s;
enddef;

def gensimj(suffix $)(expr s) =
  draw z$p3 -- z$p64 {down} .. z$p7 .. {up} z$p51 withweight s;
enddef;
def gensimk(suffix $)(expr s) =
  draw z$p1 -- z$p2 withweight s; draw z$p3 -- z$p5 -- z$p4 withweight s;
enddef;
def gensiml(suffix $)(expr s) =
  draw z$p2 -- z$p1 -- z$p4 withweight s;
enddef;
def gensimm(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$ -- z$p3 -- z$p4 withweight s;
enddef;
def gensimn(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$p4 -- z$p3 withweight s;
enddef;
def gensimo(suffix $)(expr s) =
  draw z$p5 .. z$p8 .. z$p6 .. z$p7 .. cycle withweight s;
enddef;
def gensimp(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$p8 {right} .. z$p63 .. {left} z$ -- z$p5
withweight s; enddef;
def gensimq(suffix $)(expr s) =
  draw z$p5 .. z$p8 .. z$p6 .. z$p7 .. cycle withweight s;
  draw z$ -- z$p4 withweight s;
enddef;
def gensimr(suffix $)(expr s) =
  draw z$p1 -- z$p2 -- z$p8 {right} .. z$p63 .. {left} z$p57 -- z$p4
withweight s;
  draw z$p5 -- z$p57 withweight s; enddef;
def gensims(suffix $)(expr s) =
  draw z$p51 {down} .. z$p7 .. z$p64 .. z$p52 .. z$p8 .. {down} z$p63
  withweight s; enddef;
def gensimu(suffix $)(expr s) =
  draw z$p2 -- z$p5 {down} .. z$p7 .. {up} z$p6 -- z$p3 withweight s;
enddef;
def gensimt(suffix $)(expr s) =
  draw z$p2 -- z$p3 withweight s; draw z$p7 -- z$p8 withweight s;
enddef;
def gensimv(suffix $)(expr s) =
   draw z$p2 -- z$p7 -- z$p3 withweight s;
enddef;
def gensimw(suffix $)(expr s) =
   draw z$p2 -- (z$p1+z$p7)/2 -- z$ -- (z$p4+z$p7)/2 -- z$p3 withweight s;
enddef;
def gensimx(suffix  $)(expr s) =
 draw z$p1 -- z$p3  withweight s; draw z$p2 -- z$p4 withweight s;
enddef;
def gensimy(suffix $)(expr s) =
  draw z$p2 -- z$ -- z$p3 withweight s; draw z$ -- z$p7 withweight s;
enddef;
def gensimz(suffix $)(expr s) =
  draw z$p2 -- z$p3 -- z$p1 -- z$p4 withweight s;
enddef;
def gensimone(suffix $)(expr s) =
  draw (z$p5+z$p8)/2 -- z$p8 -- z$p7 withweight s;
enddef;
def gensimtwo(suffix $)(expr s) =
  draw z$p52 {up} .. z$p8 .. z$p63 .. z$ .. z$p1 -- z$p4
  withweight s; enddef;
def gensimthr(suffix $)(expr s) =
  draw z$p52 {up} .. z$p8 .. z$p63 .. {left} z$  withweight s;
  draw z$p51 {down} .. z$p7 .. z$p64 .. {left} z$ withweight s;
enddef;
def gensimfou(suffix $)(expr s) =
  draw (z$p4+z$p7)/2 -- (z$p3+z$p8)/2 -- z$p51 -- z$p64 withweight s;
enddef;
def gensimfiv(suffix $)(expr s) =
  draw z$p3 -- z$p2 -- z$p5 .. (2*z$+z$p8)/3 ..
  (z$p6+z$p64)/2 .. z$p7 .. z$p51 withweight s; enddef;
def gensimsix(suffix $)(expr s) =
  draw (z$p8+z$p3)/2 .. {down} z$p51 .. z$p7 .. z$p64 .. (2*z$+z$p8)/3
  .. {down} z$p51 withweight s;
enddef;
def gensimsev(suffix $)(expr s) =
  draw z$p2 -- z$p3 .. {down} z$p7 withweight s;
enddef;
def gensimeig(suffix $)(expr s) =
  draw z$p8 .. z$p52 .. z$ .. z$p63 .. cycle withweight s;
  draw z$p7 .. z$p64 .. z$ .. z$p51 .. cycle withweight s;
enddef;
def gensimnin(suffix $)(expr s) =
  draw (z$p7+z$p1)/2 .. {up} z$p63 .. z$p8 .. z$p52 .. (2*z$+z$p7)/3
  .. {up} z$p63 withweight s; enddef;