summaryrefslogtreecommitdiff
path: root/macros/optex/base/f-heros.opm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-05-18 03:00:54 +0000
committerNorbert Preining <norbert@preining.info>2022-05-18 03:00:54 +0000
commit606c3150f6696596010034bfce56f3b565fd7c85 (patch)
tree3b103171029bde57b5851f5e2bf7a8e241d10509 /macros/optex/base/f-heros.opm
parent1eda050c415a347a8a4208797e4257c29b4beefc (diff)
CTAN sync 202205180300
Diffstat (limited to 'macros/optex/base/f-heros.opm')
-rw-r--r--macros/optex/base/f-heros.opm12
1 files changed, 10 insertions, 2 deletions
diff --git a/macros/optex/base/f-heros.opm b/macros/optex/base/f-heros.opm
index e7055d84f8..7848b7f9d2 100644
--- a/macros/optex/base/f-heros.opm
+++ b/macros/optex/base/f-heros.opm
@@ -23,7 +23,7 @@ Modifiers:^^J
\_loadmath {[FiraMath-Regular]}
\_addto\_normalmath{\_loadumathfamily 5 {xitsmath-regular}{} }
\_addto\_boldmath {\_loadumathfamily 5 {xitsmath-bold}{} }
- \_addto\frak{\_fam5 }\_addto\cal{\_fam5 }
+ \_addto\_frak{\_fam5 }\_addto\_cal{\_fam5 } \_public \frak \cal ;
\_normalmath
\_wterm{MATH-FONT(5): "[XITSMath-Regular/Bold]" -- used for \_string\cal, \_string\frak}
% \bf, \bi from FiraMath:
@@ -33,7 +33,15 @@ Modifiers:^^J
\_let\_bsansdigits=\_bfdigits
\_let\_bisansvariables=\_bivariables
\_let\_bisansgreek=\_bigreek
- \_Umathchardef \triangle "0 "5 "25B3 \_Umathcode "25B3 "0 "5 "25B3
+ % \_resetmathchars <fam-number> <list of \Umathchardef csnames> ;
+ \_def\_resetmathchars #1{\_chardef\_mafam=#1\_relax \_xargs \_resetmathcharX}
+ \_def\_resetmathcharX#1{\_ea\_resetmathcharY
+ \_directlua{tex.print(string.format("\_pcent08X", \_the#1))}#1}
+ \_def\_resetmathcharY#1#2#3#4#5#6#7#8#9{%
+ \_Umathchardef #9\_numexpr"#3/2\_relax \_mafam "#4#5#6#7#8
+ \_Umathcode "#4#5#6#7#8=\_numexpr"#3/2\_relax \_mafam "#4#5#6#7#8 }
+ \_resetmathchars 5 \bigtriangleup \bigblacktriangleup \blacktriangle
+ \vartriangle \smallblacktriangleright ; % ... etc. you can add more
\_fi
\_endcode