diff options
author | Marius <mariausol@gmail.com> | 2011-10-19 19:40:14 +0300 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2011-10-19 19:40:14 +0300 |
commit | c7071b17e99c543f0480726468420f9ee88e7435 (patch) | |
tree | d6e226668bafa81e7859f42439e91a3efa0fed17 /tex/context/base/math-pln.mkiv | |
parent | db5d5aa67829cb4c0c70bbe545f3e840457acf08 (diff) | |
download | context-c7071b17e99c543f0480726468420f9ee88e7435.tar.gz |
beta 2011.10.19 18:24
Diffstat (limited to 'tex/context/base/math-pln.mkiv')
-rw-r--r-- | tex/context/base/math-pln.mkiv | 52 |
1 files changed, 49 insertions, 3 deletions
diff --git a/tex/context/base/math-pln.mkiv b/tex/context/base/math-pln.mkiv index 6a70c6711..295c58d48 100644 --- a/tex/context/base/math-pln.mkiv +++ b/tex/context/base/math-pln.mkiv @@ -68,20 +68,66 @@ \ifx\!\undefined \def\!{\mskip-\thinmuskip } \fi \ifx\*\undefined \def\*{\discretionary{\thinspace\the\textfont2\char2}{}{}} \fi +% \switchtobodyfont[modern] +% \switchtobodyfont[cambria] +% \switchtobodyfont[xits] +% \switchtobodyfont[minion] +% \setupbodyfont[dejavu] +% +% \startbuffer +% \def\SampleLine#1{% +% \NC#1 +% \NC\switchtobodyfont[#1]$f^2$ % 1 +% \NC\switchtobodyfont[#1]$f\prime^2$ % 2 +% \NC\switchtobodyfont[#1]$f\prime\prime^2$ % 3 +% \NC\switchtobodyfont[#1]$f\prime\prime\prime^2$ % 4 +% \NC\switchtobodyfont[#1]$f{\prime}^2$ % 5 +% \NC\switchtobodyfont[#1]$f{\prime\prime}^2$ % 6 +% \NC\switchtobodyfont[#1]$f{\prime\prime\prime}^2$ % 7 +% \NC\switchtobodyfont[#1]$f'(x)$ % 8 +% \NC\switchtobodyfont[#1]$f''(x)$ % 9 +% \NC\switchtobodyfont[#1]$f'''(x)$ % 10 +% \NC\NR +% } +% +% \starttabulate[|Tl|Tc|Tc|Tc|Tc|Tc|Tc|Tc|Tc|Tc|Tc|] +% \NC\NC1\NC2\NC3\NC4\NC5\NC6\NC7\NC8\NC9\NC10\NC\NR +% \SampleLine{modern} +% \SampleLine{cambria} +% \SampleLine{xits} +% \SampleLine{minion} +% \stoptabulate +% \stopbuffer +% +% \typebuffer \getbuffer + { \catcode\circumflexasciicode\othercatcode \global\let\othercircumflextoken ^ } { \catcode\circumflexasciicode\superscriptcatcode \global\let\superscriptcircumflextoken^ } -\def\domathprime{^\bgroup\dodomathprime} +% collapsing to 0x2033 and 0x2034 happens elsewhere + +\let\normalprime\prime + +\unexpanded\def\domathprime + {\iffontchar\textfont\zerocount"FE325\relax + ^\bgroup\expandafter\dodomathprime % virtual mess (using funny signal) + \else + \expandafter\normalprime % gets collapsed + \fi} + +\let\prime\domathprime \def\dodomathprime - {\prime\futurelet\nexttoken\dododomathprime} + {\normalprime\futurelet\nexttoken\dododomathprime} \def\dododomathprime {\csname domathprime@% \ifx '\nexttoken a\else + \ifx \normalprime\nexttoken a\else + \ifx \prime\nexttoken a\else \ifx\superscriptcircumflextoken\nexttoken b\else \ifx\othercircumflextoken \nexttoken b\else - c\fi\fi\fi + c\fi\fi\fi\fi\fi \endcsname} \def\domathprime@a #1{\dodomathprime} |