blob: ed0d0e165ccf352e67dddef6cecbd69d0d923d3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
THIS IS AN INCLUDE FILE No. 3 FOR TOILB.AWK
%This file belongs to the TOIL package : Ten plik nale/zy do pakietu TOIL
%This package is public domain : Pakiet stanowi dobro powszechne
%For more info see `0TOILENG.LIC' : Wi/ecej informacji w ,,0TOILPOL.LIC''
%============================================================================
% LAST MINUTE ACTION:
write_enc_info;
write_map_info;
% --------------------------------
if (not quiet) and ((afm_slant<>0) or (user_slant<>0) or (known XS)):
errorstopmode; % switch to the usual mode (|batchmode| is default)
if (afm_slant<>0) or (user_slant<>0):
message " slant: " & decimal(res_slant)
& " (afm: " & decimal(afm_slant) & ", user: " & decimal(user_slant) & ")"
fi;
if known XS: message "x-scale: " & decimal(XS); fi;
batchmode; % don't write mess to the terminal
fi
% --------------------------------
bye.
%%\end
|