1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
% This file is public domain.
% Originally written 1988, Don Hosek.
% This declaration added by Clea F. Rees 2008/11/14 with the permission of Dan Hosek.
%
% This is CMPICAB.MF in text format, as of Jul 14, 1988.
if unknown cmbase: input cmbase fi
font_identifier:="CMPICAB"; font_size 10pt#;
u#:=29/36pt#; % unit width
width_adj#:=0pt#; % width adjustment for certain characters
serif_fit#:=0pt#; % extra sidebar near lowercase serifs
cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
letter_fit#:=0pt#; % extra space added to all sidebars
body_height#:=275/36pt#; % height of tallest characters
asc_height#:=242/36pt#; % height of lowercase ascenders
cap_height#:=242/36pt#; % height of caps
fig_height#:=242/36pt#; % height of numerals
x_height#:=171/36pt#; % height of lowercase without ascenders
math_axis#:=121/36pt#; % axis of symmetry for math symbols
bar_height#:=87/36pt#; % height of crossbar in lowercase e
comma_depth#:=50/36pt#; % depth of comma below baseline
desc_depth#:=80/36pt#; % depth of lowercase descenders
crisp#:=22/36pt#; % diameter of serif corners
tiny#:=22/36pt#; % diameter of rounded corners
fine#:=21/36pt#; % diameter of sharply rounded corners
thin_join#:=21/36pt#; % width of extrafine details
hair#:=25/36pt#; % lowercase hairline breadth
stem#:=25/36pt#; % lowercase stem breadth
curve#:=25/36pt#; % lowercase curve breadth
ess#:=22/36pt#; % breadth in middle of lowercase s
flare#:=32/36pt#; % diameter of bulbs or breadth of terminals
dot_size#:=36/36pt#; % diameter of dots
cap_hair#:=25/36pt#; % uppercase hairline breadth
cap_stem#:=25/36pt#; % uppercase stem breadth
cap_curve#:=25/36pt#; % uppercase curve breadth
cap_ess#:=25/36pt#; % breadth in middle of uppercase s
rule_thickness#:=25/36pt#; % thickness of lines in math symbols
dish#:=0pt#; % amount erased at top or bottom of serifs
bracket#:=0pt#; % vertical distance from serif base to tangent
jut#:=34/36pt#; % protrusion of lowercase serifs
cap_jut#:=34/36pt#; % protrusion of uppercase serifs
beak_jut#:=0pt#; % horizontal protrusion of beak serifs
beak#:=34/36pt#; % vertical protrusion of beak serifs
vair#:=22/36pt#; % vertical diameter of hairlines
notch_cut#:=25/36pt#; % maximum breadth above or below notches
bar#:=22/36pt#; % lowercase bar thickness
slab#:=22/36pt#; % serif and arm thickness
cap_bar#:=22/36pt#; % uppercase bar thickness
cap_band#:=22/36pt#; % uppercase thickness above/below lobes
cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
serif_drop#:=0pt#; % vertical drop of sloped serifs
stem_corr#:=0pt#; % for small refinements of stem breadth
vair_corr#:=0pt#; % for small refinements of hairline height
apex_corr#:=10/36pt#; % extra width at diagonal junctions
o#:=4/36pt#; % amount of overshoot for curves
apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
slant:=0; % tilt ratio $(\Delta x/\Delta y)$
fudge:=0.81; % factor applied to weights of heavy characters
math_spread:=-1; % extra openness of math symbols
superness:=1/sqrt2; % parameter for superellipses
superpull:=0; % extra openness inside bowls
beak_darkness:=0; % fraction of triangle inside beak serifs
ligs:=0; % level of ligatures to be included
square_dots:=false; % should dots be square?
hefty:=true; % should we try hard not to be overweight?
serifs:=true; % should serifs and bulbs be attached?
monospace:=true; % should all characters have the same width?
variant_g:=false; % should an italic-style g be used?
low_asterisk:=true; % should the asterisk be centered at the axis?
math_fitting:=false; % should math-mode spacing be used?
% the remainder of the code here tells \MF\ to draw a squiggly line
% under all characters except the diacriticals; this an archaic
% typesetters' convention for indicating boldface text.
extra_endchar:=extra_endchar&"undersquiggle;";
def undersquiggle =
if (charcode<oct"022") or ((charcode>oct"030") and (charcode<oct"056"))
or ((charcode<oct"136") and (charcode>oct"057"))
or ((charcode>oct"137") and (charcode<oct"176")):
pickup pencircle scaled 0.6pt;
draw squiggle;
fi;
enddef;
def squiggle=(0,-100/36pt){right}..(1/8w,-85/36pt)..
{right}(2/8w,-100/36pt){right}..(3/8w,-115/36pt)..
{right}(4/8w,-100/36pt){right}..(5/8w,-85/36pt)..
{right}(6/8w,-100/36pt){right}..(7/8w,-115/36pt)..{right}(w,-100/36pt)
enddef;
generate pica % switch to the driver file
|