% 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