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