fix processing of radical in opentype math fonts

git-svn-id: svn://tug.org/texlive/trunk@3157 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 8 insertions, 8 deletions

diff --git a/Build/source/texk/web2c/xetexdir/xetex-otmath.ch b/Build/source/texk/web2c/xetexdir/xetex-otmath.ch
index 2df2af6652e..e7ea126d21c 100644
--- a/Build/source/texk/web2c/xetexdir/xetex-otmath.ch
+++ b/Build/source/texk/web2c/xetexdir/xetex-otmath.ch
@@ -408,19 +408,19 @@ var x,@!y:pointer; {temporary registers for box construction}
 f:internal_font_number;
 rule_thickness:scaled; {rule thickness}
 @!delta,@!clr:scaled; {dimensions involved in the calculation}
-begin f:=fam_fnt(3 + cur_size);
+begin f:=fam_fnt(small_fam(left_delimiter(q)) + cur_size);
 if is_ot_font(f) then rule_thickness:=get_ot_math_constant(f,radicalRuleThickness)
 else rule_thickness:=default_rule_thickness;
 x:=clean_box(nucleus(q),cramped_style(cur_style));
 if is_ot_font(f) then begin
-if cur_style<text_style then {display style}
-  clr:=rule_thickness+(abs(math_x_height(cur_size)) div 4)
-else  begin clr:=rule_thickness; clr:=clr + (abs(clr) div 4);
-  end;
+  if cur_style<text_style then {display style}
+    clr:=get_ot_math_constant(f,radicalDisplayStyleVerticalGap)
+  else clr:=get_ot_math_constant(f,radicalVerticalGap);
 end else begin
-if cur_style<text_style then {display style}
-  clr:=get_ot_math_constant(f,radicalDisplayStyleVerticalGap)
-else clr:=get_ot_math_constant(f,radicalVerticalGap);
+  if cur_style<text_style then {display style}
+    clr:=rule_thickness+(abs(math_x_height(cur_size)) div 4)
+  else  begin clr:=rule_thickness; clr:=clr + (abs(clr) div 4);
+    end;
 end;
 y:=var_delimiter(left_delimiter(q),cur_size,height(x)+depth(x)+clr+rule_thickness);
 if is_ot_font(f) then begin