diff options
Diffstat (limited to 'Master/texmf-dist/tex/csplain/fonts/kp-math.tex')
-rw-r--r-- | Master/texmf-dist/tex/csplain/fonts/kp-math.tex | 161 |
1 files changed, 161 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/csplain/fonts/kp-math.tex b/Master/texmf-dist/tex/csplain/fonts/kp-math.tex new file mode 100644 index 00000000000..74bf7a3775f --- /dev/null +++ b/Master/texmf-dist/tex/csplain/fonts/kp-math.tex @@ -0,0 +1,161 @@ +% This file loads KP math fonts by plainTeX macros +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Petr Olsak, 2016 + +\let\normalmathloading=\relax + \bgroup\def\message#1{\egroup}\input tx-math % load macros + \mathchardefs + +\message{FONT: KP math fonts - + \string\mathchardef's prepared, 11 math families preloaded.} +\let\mathpreloaded=K + +% Math modifiers: +% \lightmath .... Light version of math +% \widermath .... More amount of spaces between characters +% \bfnmath ...... Normal \bf in math (by default is sans bf) +% \sansmath ..... Sans serif math +% \uprightmath .. Capital letters are upright +% \bbcharss ..... Blackboard characters sans serif +% \greekup ...... Lowercase greek upright +% \partialup .... Upright partial derivations symbol +% \narowiints ... Multiplied integrals narrower +% \kpmathreset .. Returns to the default setting +% Basic math selectors: +% \normalmath ... Normal version +% \boldmath ..... Bold version +% Usage: [math-modifiers]\basic-math-selector +% See the file kp-fonts.tex for text modifiers documentation. + +\def\corrmsizes{} +\def\itvaraibales{} +\mitvariables + +\def\uprightmath{\def\kpmatf{f}} +\def\widermath{\def\kpmatw{w}} +\def\lightmath{\def\kpmatl{l}\def\kpmatss{}} +\def\sansmath{\def\kpmatss{ss}\def\kpmatl{}} +\def\kpmatwnoss{\ifx\kpmatss\empty \kpmatw\fi} +\def\bbcharss{\def\kpmatbbssx{ss}} +\def\bfnmath{\def\kpmatssb{}} +\def\kpmatbbss{\ifx\kpmatss\empty \kpmatbbssx \else ss\fi} +\def\kpmathreset{% + \def\kpmatf{}\def\kpmatw{}\def\kpmatl{}\def\kpmatss{}\def\kpmatbbssx{}% + \def\kpmatssb{ss}\partialnormal \greeknormal \normaliints +} + +\def\normalmath{% + \loadmathfamily 0 {jkp\kpmatss\kpmatl mn7t} % KP 7t + \loadmathfamily 1 {jkp\kpmatss\kpmatl mi\kpmatf\kpmatwnoss} % KP Math Italic + \loadmathfamily 2 {jkp\kpmatl sy\kpmatw} % KP Standard symbols + \loadmathfamily 3 {jkp\kpmatl ex} % KP extra symbols + \loadmathfamily 4 {jkpsya} % KP symbols from AMSTeX + \loadmathfamily 5 {jkp\kpmatbbss\kpmatl syb\kpmatw} % KP symbols from AMSTeX + \loadmathfamily 6 {jkp\kpmatl syc} % KP symbols from TX fonts + \loadmathfamily 7 {jkp\kpmatl exa} % KP extra symbols + \loadmathfamily 8 {jkp\kpmatss\kpmatl mia\kpmatwnoss} % fraktur, upright greek + \loadmathfamily 9 {jkp\kpmatl syd\kpmatw} % script + \loadmathfamily 10 {jkp\kpmatssb bn7t} % (sans serif) bold + \loadmathfamily 11 {jkp\kpmatssb bmi\kpmatf} % (sans serif) bold slanted + \setkpsumsw +} +\def\boldmath{% + \loadmathfamily 0 {jkp\kpmatss\kpmatl bn7t} % KP 7t + \loadmathfamily 1 {jkp\kpmatss\kpmatl bmi\kpmatf\kpmatwnoss} % KP Math Italic + \loadmathfamily 2 {jkp\kpmatl bsy\kpmatw} % KP Standard symbols + \loadmathfamily 3 {jkp\kpmatl bex} % KP extra symbols + \loadmathfamily 4 {jkpbsya} % KP symbols from AMSTeX + \loadmathfamily 5 {jkp\kpmatbbss\kpmatl bsyb\kpmatw} % KP symbols from AMSTeX + \loadmathfamily 6 {jkp\kpmatl bsyc} % KP symbols from TX fonts + \loadmathfamily 7 {jkp\kpmatl bexa} % KP extra symbols + \loadmathfamily 8 {jkp\kpmatss\kpmatl bmia\kpmatwnoss} % fraktur, upright greek + \loadmathfamily 9 {jkp\kpmatl bsyd\kpmatw} % script + \loadmathfamily 10 {jkp\kpmatssb bn7t} % sans serif bold + \loadmathfamily 11 {jkp\kpmatssb bmi\kpmatf} % sans serif bold slanted + \setkpsumsw +} + +\def\setkpsumsw{% + \ismacro\kpmatss{ss}\iftrue + \mathchardef\sum="13B4 \mathchardef\prod="13B5 \mathchardef\coprod="13C4 + \else + \mathchardef\sum="1350 \mathchardef\prod="1351 \mathchardef\coprod="1360 + \fi + \ismacro\kpmatw{w}\iftrue + \thinmuskip=3mu \medmuskip=4mu plus 1.5mu minus 3mu \thickmuskip=5mu plus 4mu + \else + \thinmuskip=2mu \medmuskip=3mu plus 1.5mu minus 3mu \thickmuskip=4mu plus 3mu + \fi +} +\def\greekup{\let\alpha \upalpha \let\beta \upbeta \let\gamma \upgamma + \let\delta \updelta \let\epsilon \upepsilon \let\zeta \upzeta + \let\eta \upeta \let\theta \uptheta \let\iota \upiota \let\kappa \upkappa + \let\lambda \uplambda \let\mu \upmu \let\nu \upnu \let\xi \upxi + \let\pi \uppi \let\rho \uprho \let\sigma \upsigma \let\tau \uptau + \let\upsilon \upupsilon \let\phi \upphi \let\chi \upchi \let\psi \uppsi + \let\omega \upomega \let\varepsilon \upvarepsilon \let\vartheta \upvartheta + \let\varpi \upvarpi \let\varrho \upvarrho \let\varsigma \upvarsigma + \let\varphi \upvarphi +} +\def\greeknormal{\mathchardef\alpha="010B \mathchardef\beta="010C + \mathchardef\gamma="010D \mathchardef\delta="010E \mathchardef\epsilon="010F + \mathchardef\zeta="0110 \mathchardef\eta="0111 \mathchardef\theta="0112 + \mathchardef\iota="0113 \mathchardef\kappa="0114 \mathchardef\lambda="0115 + \mathchardef\mu="0116 \mathchardef\nu="0117 \mathchardef\xi="0118 + \mathchardef\pi="0119 \mathchardef\rho="011A \mathchardef\sigma="011B + \mathchardef\tau="011C \mathchardef\upsilon="011D \mathchardef\phi="011E + \mathchardef\chi="011F \mathchardef\psi="0120 \mathchardef\omega="0121 + \mathchardef\varepsilon="0122 \mathchardef\vartheta="0123 + \mathchardef\varpi="0124 \mathchardef\varrho="0125 + \mathchardef\varsigma="0126 \mathchardef\varphi="0127 +} +\def\partialup {\mathchardef\partial="0180 } +\def\partialnormal {\mathchardef\partial="0140 } + +\def\narrowiints{\ifnum\oiintop="1\txexafam 08 \narrowiintsA+\fi} +\def\normaliints{\ifnum\oiintop="1\txexafam 08 \else \narrowiintsA-\fi} +\def\narrowiintsA#1{\edef\tmp{\the\count0}% + \narrowiintsB #1\oiintop \iintop \iiintop \iiiintop \idotsintop \oiiintop \oiintctrclockwiseop + \varoiintclockwiseop \oiiintctrclockwiseop \varoiiintclockwiseop \oiintclockwiseop + \varoiintctrclockwiseop \oiiintclockwiseop \varoiiintctrclockwiseop \sqiintop \sqiiintop + \variintop \variiintop \variiiintop \varidotsintop \relax \count0=\tmp\relax +} +\def\narrowiintsB#1#2{\ifx#2\relax \else + \count0=#2\advance\count0 by#1100 \mathchardef#2=\count0 + \expandafter\narrowiintsB\expandafter#1\fi +} +\kpmathreset\normalmath + +\mathchardef \varintop "1\txexafam 54 +\mathchardef \variintop "1\txexafam 56 +\mathchardef \variiintop "1\txexafam 58 +\mathchardef \variiiintop "1\txexafam 5A +\mathchardef \varidotsintop "1\txexafam 5C + +\def\varint {\varintop\nolimits} +\def\variint {\variintop\nolimits} +\def\variiint {\variiintop\nolimits} +\def\variiiint {\variiiintop\nolimits} +\def\varidotsint {\varidotsintop\nolimits} + +\mathchardef \varemptyset "02A0 + +\def\widearc{\mathaccent"0386 } +\def\widearcarrow{\mathaccent"038C } +\def\wideparen{\mathaccent"0392 } +\def\widering#1{{\mathop{\wideparen{#1}}\limits + ^{\vbox to0pt{\kern-.2ex\hbox{\the\textfont0\char"17}\vss}}}% +} +\mathchardef\bracext "0\txexafam 20 +\def\downbracefill{$\mathsurround=0pt + \braceld\mkern-1mu\cleaders\hbox{$\mkern-.5mu\bracext\mkern-.5mu$}\hfill\mkern-1mu + \braceru\bracelu + \mkern-1mu\cleaders\hbox{$\mkern-.5mu\bracext\mkern-.5mu$}\hfill\mkern-1mu\bracerd$% +} +\def\upbracefill{$\mathsurround=0pt + \bracelu\mkern-1mu\cleaders\hbox{$\mkern-.5mu\bracext\mkern-.5mu$}\hfill\mkern-1mu + \bracerd\braceld + \mkern-1mu\cleaders\hbox{$\mkern-.5mu\bracext\mkern-.5mu$}\hfill\mkern-1mu\braceru$% +} + +\endinput + |