blob: ffa0ca7899730e7144785fda772b10031ef9e929 (
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
|
% This change file has to be applied after the web2c change file
% to revert some changes which make assumtion on glue_ratio being
% real. Apart from the following change, they are all related to
% mltex.
@x
{ The Unix |pc| folks removed this restriction with a remark that
invalid bit patterns were vanishingly improbable, so we follow
their example without really understanding it.
|if abs(mem[p+glue_offset].int)<@'4000000 then print('?.?')|
|else| }
if fabs(g)>float_constant(20000) then
begin end;
@y
@z
@x
@!base_slant,@!accent_slant:real; {amount of slant}
@y
@!base_slant,@!accent_slant:scaled; {amount of slant}
@z
@x
base_slant:=slant(f)/float_constant(65536);
@^real division@>
@y
base_slant:=slant(f);
@z
@x
delta:=round((base_width-accent_width)/float_constant(2)+
base_height*base_slant-base_x_height*accent_slant);
@^real multiplication@>
@^real addition@>
@y
delta:=x_over_n(base_width-accent_width,2)
+xn_over_d(base_height,base_slant,unity)
-xn_over_d(base_x_height,accent_slant,unity);
@z
|