serverdict begin 0 exitservernear to beginning of the file and lines
statusdict
begin
9 dup sccbatch pop 3 setsccbatch
25 dup sccbatch pop 3 setsccbatch
end
near to its end. I commented all these lines, since otherwise viewing the results of the conversion to PostScript was impossible.
In addition, the file INIT.PS had to be customized for being in accordance with the system of ChiWriter fonts used in the concrete case. In that case, the print pitch was Pica, and the ChiWriter parameter configuration file contained the following lines:
F1 STANDARD F2 F3 BOLD F4 ITALIC F5 MIX F6 ITAL F7 GREEK F8 MATH F9 MATHI F0 MATHII FA FOREIGN FB FINE FC FINEITAL FD GOTHIC FE LINEDRAW FF SCRIPT FG SMALL FH FI FJ ORATOROn the other hand, the section of the available INIT.PS concerning font-switching procedures contained such lines:
/F6 { /SY-12 findfont 12 scalefont setfont } bind def
/F8 { /LINEDRAW.LFT findfont 12 scalefont setfont } bind def
/F9 { /MATHI.LFT findfont 12 scalefont setfont } bind def
/F10 { /MATHII.LFT findfont 12 scalefont setfont } bind def
/F13 { /SCRIPT.LFT findfont 12 scalefont setfont } bind def
/F14 { /GOTHIC.LFT findfont 12 scalefont setfont } bind def
/F15 { /RUSSIAN.LFT findfont 12 scalefont setfont } bind def
/F16 { /CHEMLETT.LFT findfont 12 scalefont setfont } bind def
/F17 { /CHEM1.LFT findfont 12 scalefont setfont } bind def
/F18 { /CHEM2.LFT findfont 12 scalefont setfont } bind def
/F19 { /CHEM3.LFT findfont 12 scalefont setfont } bind def
/Pica
{
/F1 { /Courier findfont 12 scalefont setfont } bind def
/F2 { /Courier findfont 8 scalefont setfont } bind def
/F3 { /Courier-Oblique findfont 12 scalefont setfont } bind def
/F4 { /Courier-Bold findfont 12 scalefont setfont } bind def
/F5 { /Courier-Foreign findfont 12 scalefont setfont } bind def
/F7 { /GREEK.LFT findfont 12 scalefont setfont } bind def
/F12 { /Courier-Bold findfont [12 0 0 16 0 0] makefont setfont } bind def
} def
Instead of them, the customized INIT.PS contains the following ones:
/F5 { /MIX.LFT findfont 12 scalefont setfont } bind def
/F7 { /GREEK.LFT findfont 12 scalefont setfont } bind def
/F8 { /MATH.LFT findfont 12 scalefont setfont } bind def
/F9 { /MATHI.LFT findfont 12 scalefont setfont } bind def
/F10 { /MATHII.LFT findfont 12 scalefont setfont } bind def
/F14 { /GOTHIC.LFT findfont 12 scalefont setfont } bind def
/F15 { /LINEDRAW.LFT findfont 12 scalefont setfont } bind def
/F16 { /SCRIPT.LFT findfont 12 scalefont setfont } bind def
/Pica
{
/F1 { /Courier findfont 12 scalefont setfont } bind def
/F3 { /Courier-Bold findfont 12 scalefont setfont } bind def
/F4 { /Courier-Oblique findfont 12 scalefont setfont } bind def
/F6 { /Courier-BoldOblique findfont 12 scalefont setfont } bind def
/F11 { /Courier-Foreign findfont 12 scalefont setfont } bind def
/F12 { /Courier-Bold findfont 10 scalefont setfont } bind def
/F13 { /Courier-BoldOblique findfont 10 scalefont setfont } bind def
/F17 { /Courier findfont 10 scalefont setfont } bind def
/F20 { /Courier-Bold findfont [12 0 0 16 0 0] makefont setfont } bind def
} def
(Since the available INIT.PS contained no F7-line in the general part of the considered section, other realizations of the GREEK font at print pitches different from Pica were possible with that initialization file. Moving the line into the general part destroyed this possibility, but I had not to bother about the pitches other than Pica. Naturally, it was also possible to leave the line in its previous position.)
One more change was made in the file INIT.PS, namely the following line was added to the part where the encoding vector for the foreign font is created:
dup 8#066 /cacute put %% 6(this added the possibility to print the character "ć" situated on the key for "6" in the ChiWriter font FOREIGN).
Of course not only the file INIT.PS was customized for the concrete system of fonts, but also the PostScript printer driver (in particular, it was made to contain the actual information about character widths distinct from the default one for the Pica print pitch).