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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
%
%--------------------------------------------------------------------------
% This file can be loaded after PLAIN.MF.
% It introduces conventions that are commonly used at RMCS.
%--------------------------------------------------------------------------
base_version:=base_version&"/RMCS 08-AUGUST-1989";
%
%--------------------------------------------------------------------------
% Define these for on-line graphics; necessary to set the VMS logical name
% MF$TERM to be one of the strings "go140", "tek" or "gp" to support
% the GraphOn, Tektronix or GraphicsPlus terminals, respectively.
% The following values are appropriate for Tektronix 4010 etc,
% since METAFONT doubles them before output as coordinates.
%--------------------------------------------------------------------------
screen_rows:=336; screen_cols:=512;
%
%--------------------------------------------------------------------------
% Some new internal commands from TEXHAX26.88
%
% Submitted by Charles R. LaBrec
% crl@maxwell.physics.purdue.edu
%--------------------------------------------------------------------------
newinternal blacker_min;
def define_whole_blacker_pixels(text t) =
forsuffixes $=t: $:=hround($.#*hppp+blacker);
if $<=blacker_min-1: $:=blacker_min; fi endfor enddef;
def define_whole_vertical_blacker_pixels(text t) =
forsuffixes $=t: $:=vround($.#*hppp+blacker);
if $<=blacker_min-1: $:=blacker_min _o_; fi endfor enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def declnIII = % DEC LN03 (Ricoh, write white)
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=300; % rather obvious really
blacker:=0.2; % make pens a bit blacker
%blacker:=0.3; % From John Sauter TeXHAX V88 #07
%blacker:=0.65; % he also gives this value, but bad for small fonts
%blacker:=0.4; % This value by BHK --- how's it look?
blacker_min:=2; % minimum width of 2 pixels
%fillin:=-0.2; % darken diagonals a bit
%fillin:=-0.4; % From Stan (?) UCB - TeXHAX V87.32
fillin:=-0.6; % BHK is trying this huge value!
o_correction:=0.5; % don't overshoot as much
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def hpljII = % Hewlett Packard (Canon SX write white)
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=300; % rather obvious really
blacker:=0.2; % make pens a bit blacker
blacker_min:=2; % minimum width of 2 pixels
fillin:=-0.2; % darken diagonals a bit
o_correction:=0.5; % don't overshoot as much
enddef;
%
%--------------------------------------------------------------------------
% Epson FX-1000 dot matrix printer (240 x 216 dpi)
% From TUGboat 1987, vol 8, no 1, pp 29--33
%--------------------------------------------------------------------------
mode_def epson = %
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles at all
pixels_per_inch:=240; % Epson high resolution
blacker:=0; % Epson is black enough
blacker_min:=2; % minimum width of 2 pixels
fillin:=0; % Epson fills OK
o_correction:=.2; % Epson overshoots too much
aspect_ratio:=9/10; % Epson is actually 240 x 216 dpi
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def ibmnom = % ibm mode: for the IBM3812 nominal
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=240;
blacker:=.2; % (this value is conjectural)
blacker_min:=1; % minimum width of 1 pixel
fillin:=-0.1; % (ditto)
o_correction:=0.6; % (ditto)
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def ibmulf = % ibm mode: for the IBM3812 Ulf Holleberg
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=240;
blacker:=.4; % (this value is conjectural)
fillin:=-0.2; % (ditto)
o_correction:=0.4; % (ditto)
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def ibm = % ibm mode: for the IBM3820
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=240;
blacker:=.78; % (this value is conjectural)
fillin:=0.25; % (ditto)
o_correction:=.5; % (ditto)
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def ibmsch = % ibm PC screen for Arbortext's PREVIEW
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=118; %
blacker:=0; % let it be
blacker_min:=1; % minimum width of 1 pixel
fillin:=0; % and do not compensate for diagonal fillin
o_correction:=.2; % but don't overshoot much
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def ibmvga = % ibm PC screen fonts for DVIVGA
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=110; %
blacker:=0.3; % blacker pens
blacker_min:=1; % minimum width of 1 pixel
fillin:=0; % and do not compensate for diagonal fillin
o_correction:=0.0; %
enddef;
%
%--------------------------------------------------------------------------
% LAseventyfive mode: for DEC LA75 printer
%--------------------------------------------------------------------------
%
mode_def declalxxv =
proofing:=0; % no, we're not making proofs
fontmaking:=1; % yes, we are making a font
tracingtitles:=0; % no, don't show titles in the log
pixels_per_inch:=144; % pixels per inch
blacker:=0.3; % blacker pens
blacker_min:=1; % minimum width of 1 pixel
fillin:=-0.1; % compensate for light diagonals
o_correction:=0.0 % overshoot
enddef;
%
%--------------------------------------------------------------------------
%
%--------------------------------------------------------------------------
mode_def laser = % A convenient synonym for DEC LN03
declnIII_;
enddef;
mode_def localfont =
declnIII_;
enddef;
|