blob: 8643db5a04ecc28f230eddad9a4ee424fea70834 (
plain)
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
|
%%
%% This is file `tgothb7.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% tgothic.dtx (with options: `base7b')
%%
%% Copyright 1999 Peter R. Wilson
%%
%% This program is provided under the terms of the
%% LaTeX Project Public License distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
%%
%% Author: Peter Wilson (CUA)
%% now at: peter.r.wilson@boeing.com
%%
%%% TGOTHB7.MF Gothic Textura Quadrata Bold at 7 point design size.
if unknown cmbase: input cmbase fi
font_identifier:="TGOTHB"; font_size 7pt#;
jutstretch:=1.19;
stemstretch:=1.50;
caprat:=7/5; % ratio of capital height to minuscule height
cap_jutstretch:=1.3;
cap_stemstretch:=1.45;
bfudge:=1.0; %% normally 1.2
szfudge:=1.18;
hstretch:=szfudge*bfudge;
carol_height#:=108.5/36pt#;
vstretch:=1.3;
x_height#:=vstretch*carol_height#;
u#:=17.9/36pt#;
width_adj#:=0pt#; % width adjustment for certain characters
serif_fit#:=0pt#; % extra sidebar near lowercase serifs
cap_serif_fit#:=3.5/36pt#; % extra sidebar near uppercase serifs
letter_fit#:=0pt#; % extra space added to all sidebars
sb#:=1/4u#; % unit for side bearings
cap_sb#:=2sb#; % unit for uppercase side bearings
cap_height#:=172.2/36pt#; % height of caps
thickfudge:=1/4;
thinfudge:=1/6;
thick#:=stemstretch*thickfudge*x_height#; % max pen breadth
thin#:=thinfudge*thick#;
pangle:=45; % pen angle
stem_width#:= thick#*(cosd pangle);
perpdec#:= 3thin#;
angdec#:= perpdec#/(cosd pangle);
ascratio:=5/4;
asc_height#:=ascratio*x_height#;
descratio:=2/4;
desc_depth#:=descratio*x_height#;
body_height#:=caprat*asc_height#;
body_depth#:=caprat*desc_depth#;
half_height#:=1/2x_height#; % half the height of x height letters
side#:=x_height#;
rule_thickness#:=.34pt#;
%%%jutfudge:= 3/4;
jutfudge:= 1/2;
jut#:=jutstretch*jutfudge*thick#;
srad:=0.8; % was 0.5
trijut#:=0.75jutstretch*thick#;
clubjutfudge:=1/2;
clubjut#:=jutstretch*clubjutfudge*thick#;
wided:= 0.75;
widedmin := 1.05 - wided;
narrowd:= 0.5;
narrowdmin := 0.7 - narrowd;
diawd := 1.0;
diang := 30;
fig_height#:=(0.5[1,caprat])*x_height#;
fig_width#:=hstretch*(4+wided+widedmin)*stem_width#;
o#:=5/36pt#;
slant:=0; % tilt ratio $(\Delta x/\Delta y)$
%%%%%%slant:= sind 10/cosd 10; %% 10 degree slant
monospace:=false; % should all characters have the same width?
dot_size#:=5thin#; % size of dots
comma_width#:=5/4dot_size#;
generate tgothtitle %% switch to the driver file
|
