summaryrefslogtreecommitdiff
path: root/systems/tex-extensions/clasen/glue/glue-post-web2c.ch
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