support optical sizes for script/scriptscript when available (#1580)

2 files changed, 31 insertions, 0 deletions

diff --git a/tests/typ/math/op.typ b/tests/typ/math/op.typ
index 08395de0..2a0f84fc 100644
--- a/tests/typ/math/op.typ
+++ b/tests/typ/math/op.typ
@@ -11,6 +11,7 @@ $  &sin x + log_2 x \
 
 ---
 // Test scripts vs limits.
+#set page(width: auto)
 #set text(font: "New Computer Modern")
 Discuss $lim_(n->oo) 1/n$ now.
 $ lim_(n->infinity) 1/n = 0 $
diff --git a/tests/typ/math/opticalsize.typ b/tests/typ/math/opticalsize.typ
new file mode 100644
index 00000000..c96e4a32
--- /dev/null
+++ b/tests/typ/math/opticalsize.typ
@@ -0,0 +1,30 @@
+// test optical sized variants in sub/superscripts
+
+---
+
+// Test transition from script to scriptscript.
+#[
+#set text(size:20pt)
+$  e^(e^(e^(e))) $
+]
+A large number: $e^(e^(e^(e)))$. 
+
+---
+//  Test prime/double prime via scriptsize
+#let prime = [ \u{2032} ]
+#let dprime = [ \u{2033} ]
+#let tprime = [ \u{2034} ]
+$ y^dprime-2y^prime + y = 0 $
+$y^dprime-2y^prime + y = 0$
+$ y^tprime_3 + g^(prime 2) $
+
+---
+// Test prime superscript on large symbol 
+$ scripts(sum_(k in NN))^prime 1/k^2 $
+$sum_(k in NN)^prime 1/k^2$
+
+---
+// Test script-script in a fraction.
+$ 1/(x^A) $
+#[#set text(size:18pt); $1/(x^A)$] vs. #[#set text(size:14pt); $x^A$]
+