summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx')
-rw-r--r--Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx18
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx b/Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx
index 1f5874ca602..dc764e54ab1 100644
--- a/Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx
+++ b/Master/texmf-dist/source/latex/l3kernel/l3fp-trig.dtx
@@ -36,7 +36,7 @@
%
%<*driver>
\RequirePackage{l3bootstrap}
-\GetIdInfo$Id: l3fp-trig.dtx 4151 2012-08-28 11:51:52Z bruno $
+\GetIdInfo$Id: l3fp-trig.dtx 4339 2012-11-24 19:16:43Z joseph $
{L3 Floating-point trigonometric functions}
\documentclass[full]{l3doc}
\begin{document}
@@ -374,15 +374,15 @@
%
% \begin{macro}[aux, rEXP]
% {
-% \@@_trig_large:ww, \@@_trig_large_i:www,
-% \@@_trig_large_ii_o:wnnnn, \@@_trig_large_break:w
+% \@@_trig_large:ww, \@@_trig_large:www,
+% \@@_trig_large_o:wnnnn, \@@_trig_large_break:w
% }
% We shift the significand by one digit at a time, subtracting a multiple
% of $2\pi$ at each step. We use a value of $2\pi$ rounded up,
% consistent with the choice of \cs{c_pi_fp}. This is not quite
% correct from an accuracy perspective, but has the nice property that
% $\sin(180\mathrm{deg}) = 0$ exactly. The arguments of
-% \cs{@@_trig_large_i:www} are a leading block of up to $5$ digits,
+% \cs{@@_trig_large:www} are a leading block of up to $5$ digits,
% three brace groups of $4$ digits each, and the exponent, decremented
% at each step. The multiple of $2\pi$ to subtract is estimated as
% $\lfloor |#1| / 6283\rfloor$ (the formula chosen always gives a
@@ -393,19 +393,19 @@
% the reduction by $\pi/2$.
% \begin{macrocode}
\cs_new:Npn \@@_trig_large:ww #1; #2#3;
- { \@@_trig_large_i:www #2; #3 ; #1; }
-\cs_new:Npn \@@_trig_large_i:www #1; #2; #3;
+ { \@@_trig_large:www #2; #3 ; #1; }
+\cs_new:Npn \@@_trig_large:www #1; #2; #3;
{
\if_meaning:w 0 #3 \@@_trig_large_break:w \fi:
- \exp_after:wN \@@_trig_large_ii_o:wnnnn
+ \exp_after:wN \@@_trig_large_o:wnnnn
\int_use:N \__int_eval:w ( #1 - 3141 ) / 6283 ;
{#1} #2
\exp_after:wN ;
\int_use:N \__int_eval:w \c_minus_one + #3;
}
-\cs_new:Npn \@@_trig_large_ii_o:wnnnn #1; #2#3#4#5
+\cs_new:Npn \@@_trig_large_o:wnnnn #1; #2#3#4#5
{
- \exp_after:wN \@@_trig_large_i:www
+ \exp_after:wN \@@_trig_large:www
\int_use:N \__int_eval:w \c_@@_leading_shift_int + #20 - #1*62831
\exp_after:wN \@@_pack:NNNNNw
\int_use:N \__int_eval:w \c_@@_middle_shift_int + #30 - #1*8530