summaryrefslogtreecommitdiff
path: root/dviware/ln03/rmcs/local.mf
blob: 13d3452d175a8f1f22d9dac8b8a17764989ab057 (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
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;