summaryrefslogtreecommitdiff
path: root/fonts/capbas/cmbug.mf
blob: 242815831f7c3a08f94245c97decb328b5aa237c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% Computer Modern Bugs            %%% Example of 'mftools'
if unknown mag: mag := 1; fi;
input mftools;
uu# := 0.1pt#;
picture groundpattern;
gentile(0.03/mag,13,14,150uu#,150uu#,50uu#,pensquare,groundpattern)(
1,2,6,7, 14,15,19,20, 28,29,31,32, 40,43,46, 52,56,60, 65,69,73, 78,82,86,
91,95,99, 105,108,111, 119,120,121,122,123, 58, 85, 96, 67, 106);

def endchar =
 scantokens extra_endchar;
 reversevideo;
 otilepic(groundpattern,6uu#);
 xmirror;
% if proofing>0: makebox(proofrule); fi
 chardx:=w;     % desired width of the character in pixels
 shipit;
% if displaying>0: makebox(screenrule); showit; fi
 endgroup enddef;
input cmtt10;