From 8d8d528d2ad52599f11250cfc567fea4f37f2a8b Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Tue, 12 Jan 2016 17:15:07 +0100 Subject: 2016-01-12 16:26:00 --- tex/context/base/math-acc.mkvi | 181 ----------------------------------------- 1 file changed, 181 deletions(-) delete mode 100644 tex/context/base/math-acc.mkvi (limited to 'tex/context/base/math-acc.mkvi') diff --git a/tex/context/base/math-acc.mkvi b/tex/context/base/math-acc.mkvi deleted file mode 100644 index 415f2b91f..000000000 --- a/tex/context/base/math-acc.mkvi +++ /dev/null @@ -1,181 +0,0 @@ -%D \module -%D [ file=math-acc, -%D version=2013.07.31, -%D title=\CONTEXT\ Math Macros, -%D subtitle=Accents, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\writestatus{loading}{ConTeXt Math Macros / Accents} - -% There are probably errors ... too distracted by amazing (piano) music videos running -% on top of scite ... so: experimental code. - -\unprotect - -% This module permits overloading of accents so that we can do fancy things. The -% implementation is similar to stackers. By default accenst are defined in a simple -% way. Contrary to extensibles accents cannot grow indefinitely. Alas the -% implementation of accents is different too, in the sense that they are -% prepositioned i.e. are already raised. (In my opinion for no real reason as they -% need to adapt anyway). -% -% $ \ruledhbox{$H$} \hat{H} \ruledhbox{$\widehat{H}$} \widehat{H} $ -% -% One alternative is: -% -% \definemathoverextensible [top] [hoed] ["FE302] -% \definemathoverextensible [top] [slang] ["FE303] -% -% $ \hoed{H} \ruledhbox{$\hoed{H}$} \ruledhbox{$\hoed{\tf H}$} \slang{H} $ -% -% But that nills the italic correction (and I'm in nood to mess with that again). -% -% \definemathaccents [myaccents] [color=darkred] -% \definemathtopaccent [myaccents] [mywidehat] ["0302] -% -% $ \hat{H} \widehat{H} \mywidehat{H} $ - -% A first variant (kept for educational purposed): -% -% \installcorenamespace{mathaccents} -% -% \installcommandhandler \??mathaccents {mathaccent} \??mathaccents -% -% \let\setupmathaccents\setupmathaccent -% -% \setupmathaccents -% [\c!top=, -% \c!bottom=, -% \c!mathstyle=, -% \c!color=, -% \c!command=\v!yes] -% -% \appendtoks -% \edef\p_top_bottom{\namedmathaccentparameter\currentmathaccent\c!top\namedmathaccentparameter\currentmathaccent\c!bottom}% -% \ifx\p_top_bottom\empty\else -% \edef\p_command{\mathaccentparameter\c!command}% -% \ifx\p_command\v!yes -% \setuevalue\currentmathaccent{\math_accent{\currentmathaccent}}% -% \fi -% \fi -% \to \everydefinemathaccent -% -% \def\math_accented_color_do_push{\pushcolor[\p_math_accent_color]} -% \let\math_accented_color_do_pop \popcolor -% -% \unexpanded\def\math_accent#1#2% -% {\begingroup -% \edef\currentmathaccent{#1}% -% \edef\p_math_accent_top {\mathaccentparameter\c!top}% -% \edef\p_math_accent_bottom{\mathaccentparameter\c!bottom}% -% \edef\p_math_accent_color {\mathaccentparameter\c!color}% -% \startusemathstyleparameter\mathaccentparameter -% \ifx\p_math_accented_color\empty -% \let\math_accented_color_do_pop\donothing -% \else -% \let\math_accented_color_do_pop\popcolor -% \math_accented_color_do_push -% \fi -% \ifx\p_math_accent_top\empty -% \ifx\p_math_accent_bottom\empty -% \else -% \Umathaccent bottom \fam\zerocount\p_math_accent_bottom -% \fi -% \else -% \ifx\p_math_accent_bottom\empty -% \Umathaccent \fam\zerocount\p_math_accent_top -% \else -% \Umathaccent both \fam\zerocount\p_math_accent_top -% \fam\zerocount\p_math_accent_bottom -% \fi -% \fi -% {\popcolor#2}% -% \stopusemathstyleparameter -% \endgroup} -% -% \definemathaccent [myaccents] [\c!color=red] -% \definemathaccent [mywidehat] [myaccents] [\c!top="0302] - -\installcorenamespace{mathaccents} - -\installcommandhandler \??mathaccents {mathaccents} \??mathaccents - -\setupmathaccents - [\c!top=, - \c!bottom=, - \c!mathstyle=, - \c!color=, - \c!command=\v!yes] - -\definemathaccents - [\v!both] - -\definemathaccents - [\v!top] - [\v!both] - -\definemathaccents - [\v!bottom] - [\v!both] - -\unexpanded\def\definemathtopaccent {\dotripleempty \math_accents_define_top } -\unexpanded\def\definemathbottomaccent{\dotripleempty \math_accents_define_bottom} -\unexpanded\def\definemathdoubleaccent{\doquadrupleempty\math_accents_define_double} - -\def\math_accents_define_top[#1][#2][#3]% class name top - {\ifthirdargument - \setuevalue{#2}{\math_accents_make_double {#1}\plusone{\number#3}\zerocount}% - \else - \setuevalue{#1}{\math_accents_make_double\noexpand\currentmathaccents\plusone{\number#2}\zerocount}% - \fi} - -\def\math_accents_define_bottom[#1][#2][#3]% class name bottom - {\ifthirdargument - \setuevalue{#2}{\math_accents_make_double {#1}\plustwo\zerocount{\number#3}}% - \else - \setuevalue{#1}{\math_accents_make_double\noexpand\currentmathaccents\plustwo\zerocount{\number#2}}% - \fi} - -\def\math_accents_define_double[#1][#2][#3][#4]% class name top bottom - {\iffourthargument - \setuevalue{#2}{\math_accents_make_double {#1}\plusthree{\number#3}{\number#4}}% - \else - \setuevalue{#1}{\math_accents_make_double\noexpand\currentmathaccents\plusthree{\number#2}{\number#3}}% - \fi} - -\def\math_accents_color_push_yes - {\pushcolor[\p_math_accent_color]% - \let\math_accents_color_pop\popcolor} - -\def\math_accents_color_push_nop - {\let\math_accents_color_pop\donothing} - -\unexpanded\def\math_accents_make_double#class#kind#top#bottom#content% - {\begingroup - \edef\currentmathaccents {#class}% - \edef\p_math_accent_color{\mathaccentsparameter\c!color}% - \startusemathstyleparameter\mathaccentsparameter - \ifx\p_math_accent_color\empty - \math_accents_color_push_nop - \else - \math_accents_color_push_yes - \fi - \ifcase#kind\or - \Umathaccent \fam\zerocount#top - \or - \Umathaccent bottom \fam\zerocount#bottom - \or - \Umathaccent both \fam\zerocount#top - \fam\zerocount#bottom - \fi - {\math_accents_color_pop#content}% - \stopusemathstyleparameter - \endgroup} - -\protect \endinput -- cgit v1.2.3