1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
% Computer Modern Typewriter Text for use with 10 point
if unknown mag: mag := 1; fi;
input mftools;
uu# := 0.1pt#;
picture groundpattern;
gentile(0.013/mag,8,8,150uu#,150uu#,50uu#,pensquare,groundpattern)(
7,14,21,28,35,42,48,56, 6,13,20,27,34,41,48,63)
def endchar =
scantokens extra_endchar;
reversevideo;reversevideo;
tilepic(groundpattern);
if proofing>0: makebox(proofrule); fi
chardx:=w; % desired width of the character in pixels
shipit;
if displaying>0: makebox(screenrule); showit; fi
clearit;
endgroup enddef;
input cmssbx10;
|
