diff options
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex')
-rw-r--r-- | macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex | 32 |
1 files changed, 23 insertions, 9 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex b/macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex index f15a0b9827..a864165fba 100644 --- a/macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex +++ b/macros/latex/contrib/profcollege/latex/PfCNumerationsAnciennes.tex @@ -1,13 +1,21 @@ -\NewDocumentCommand\Chinoise{m}{% - \BuildNumerationChinoise{#1}% +\setKVdefault[NumerationAncienne]{Couleur=black}% + +\NewDocumentCommand\Chinoise{om}{% + \useKVdefault[NumerationAncienne]% + \setKV[NumerationAncienne]{#1}% + \BuildNumerationChinoise{#2}% }% -\NewDocumentCommand\Maya{m}{% - \BuildNumerationMaya{#1}% +\NewDocumentCommand\Maya{om}{% + \useKVdefault[NumerationAncienne]% + \setKV[NumerationAncienne]{#1}% + \BuildNumerationMaya{#2}% }% -\NewDocumentCommand\Babylone{m}{% - \BuildNumerationBabylone{#1}% +\NewDocumentCommand\Babylone{om}{% + \useKVdefault[NumerationAncienne]% + \setKV[NumerationAncienne]{#1}% + \BuildNumerationBabylone{#2}% }% \NewDocumentCommand\BuildNumerationChinoise{m}{% @@ -15,7 +23,9 @@ \mplibnumbersystem{double}% \mplibforcehmode \begin{mplibcode} - drawoptions(withpen pencircle scaled 1.5); + color CouleurTrace; + CouleurTrace=\useKV[NumerationAncienne]{Couleur}; + drawoptions(withpen pencircle scaled 1.5 withcolor CouleurTrace); ecart:=0.15u; vardef Chiffre(expr t,a)= picture Chinois; @@ -94,7 +104,9 @@ \mplibnumbersystem{double}% \mplibforcehmode \begin{mplibcode} - drawoptions(withpen pencircle scaled 1.5); + color CouleurTrace; + CouleurTrace=\useKV[NumerationAncienne]{Couleur}; + drawoptions(withpen pencircle scaled 1.5 withcolor CouleurTrace); % picture MayaZero; MayaZero=image( @@ -170,7 +182,9 @@ \mplibforcehmode% \begin{mplibcode} u:=8mm; - drawoptions(withpen pencircle scaled 1.5); + color CouleurTrace; + CouleurTrace=\useKV[NumerationAncienne]{Couleur}; + drawoptions(withpen pencircle scaled 1.5 withcolor CouleurTrace); % picture Chevron,Clou; Chevron=image(% |