summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-02-05 23:41:08 +0000
committerKarl Berry <karl@freefriends.org>2013-02-05 23:41:08 +0000
commite9a0efc06e926644568e9975bdc6c46044423d36 (patch)
tree50e9c53cd8e0667eb030ea4af5bb6c553184db61 /Master/texmf-dist/tex/generic
parent5951dc20b924b01da871a6b772f7cd30f66e07fd (diff)
minifp (5feb13)
git-svn-id: svn://tug.org/texlive/trunk@29037 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/minifp/mfpextra.tex45
-rw-r--r--Master/texmf-dist/tex/generic/minifp/minifp.sty8
2 files changed, 30 insertions, 23 deletions
diff --git a/Master/texmf-dist/tex/generic/minifp/mfpextra.tex b/Master/texmf-dist/tex/generic/minifp/mfpextra.tex
index 7d541bd4747..2e9a6d88bf0 100644
--- a/Master/texmf-dist/tex/generic/minifp/mfpextra.tex
+++ b/Master/texmf-dist/tex/generic/minifp/mfpextra.tex
@@ -124,29 +124,36 @@
\ifnum\MFP@tempa=90
\MFP@Rloadz \MFP@sin@Sgn10%
\else
- \advance\MFP@tempb 50
- \divide\MFP@tempb 100
- \multiply\MFP@tempa 1000000
- \advance\MFP@tempb\MFP@tempa
- \MFP@Rsin@prog
+ \advance\MFP@tempb 50 \divide\MFP@tempb 100
+ \multiply\MFP@tempa 1000000 \advance\MFP@tempb\MFP@tempa
+ \ifnum\MFP@tempb=0
+ \MFP@Rzero
+ \else
+ \MFP@Rload x10\MFP@tempb
+ \MFP@Rcopy xs%
+ \MFP@Rsq
+ \ifnum \MFP@z@Frc>0
+ \MFP@Rcopyz t\MFP@Rsin@prog
+ \else
+ \MFP@Rcopy sx%
+ \fi
+ \MFP@Rload y11{74532925}\MFP@Rmul
+ \ifnum\MFP@z@Sgn=0 \else
+ \let\MFP@z@Sgn\MFP@sin@Sgn
+ \fi
+ \fi
\fi}%
\def\MFP@Rsin@prog{%
- \MFP@Rload x10\MFP@tempb
- \MFP@Rcopy xs%
- \MFP@Rsq
- \MFP@Rcopyz t%
\MFP@Rcopy tx%
\MFP@Rload y10{00559959}\MFP@Rsmul\MFP@com@iter{01450559}%
\MFP@com@iter{01952675}\MFP@com@iter{02769249}\MFP@com@iter{04230797}%
\MFP@com@iter{07252796}\MFP@com@iter{15230871}\MFP@com@iter{50769570}%
- \MFP@flipz\MFP@Rcopyzx\MFP@Rcopy sy\MFP@Rsmul
- \MFP@Rcopyzx\MFP@Rload y11{74532925}\MFP@Rmul
- \let\MFP@z@Sgn\MFP@sin@Sgn}%
+ \MFP@flipz \MFP@Rcopyzx \MFP@Rcopy sy\MFP@Rsmul \MFP@Rcopyzx}%
\def\MFP@flipz{%
\ifnum\MFP@z@Sgn=0
\MFP@Rloadz 110%
\else
- \MFP@tempa\MFP@ttteight % representing 1.00000000
+ \MFP@tempa\MFP@ttteight
\advance\MFP@tempa-\MFP@z@Frc\relax
\MFP@Rloadz{\ifcase\MFP@tempa 0\else1\fi}0\MFP@tempa
\fi}%
@@ -158,9 +165,9 @@
\MFP@Rzero
\else\ifnum \MFP@y@Sgn=0
\MFP@Rzero
- \else\ifnum\MFP@x@Int>0 % x must be 1.0
+ \else\ifnum\MFP@x@Int>0
\MFP@Rcopy yz%
- \else\ifnum\MFP@y@Int>0 % y must be 1.0
+ \else\ifnum\MFP@y@Int>0
\MFP@Rcopy xz%
\else
\MFP@@Rsmul
@@ -370,7 +377,7 @@
\MFP@Rexp@pos
\else
\def\MFP@x@Sgn{1}%
- \MFP@Rexp@neg % computes e^{-x}, not e^x
+ \MFP@Rexp@neg
\fi}%
\def\MFP@Rexp@pos{%
\MFP@Rload y1{18}{42068074}\MFP@Rcmp
@@ -506,13 +513,13 @@
\MFP@msgbreak The fractional part will be ignored}%
\fi
\MFP@loopctr=\MFP@y@Int\relax
- \ifnum\MFP@loopctr=0 % zero power = 1
+ \ifnum\MFP@loopctr=0
\MFP@Rloadz 110%
\else
\ifnum\MFP@x@Sgn=0
- \ifnum\MFP@y@Sgn>0 % + powers of zero are 0
+ \ifnum\MFP@y@Sgn>0
\MFP@Rloadz 000%
- \else % - powers are errors
+ \else
\MFP@badpower@err
\MFP@Rloadz 1\xOverZeroInt\xOverZeroFrac
\fi
diff --git a/Master/texmf-dist/tex/generic/minifp/minifp.sty b/Master/texmf-dist/tex/generic/minifp/minifp.sty
index 21462ece64f..321ec4197f1 100644
--- a/Master/texmf-dist/tex/generic/minifp/minifp.sty
+++ b/Master/texmf-dist/tex/generic/minifp/minifp.sty
@@ -21,8 +21,8 @@
%% is Daniel H. Luecking. The Base Interpreters associated
%% with minifp are plain TeX and LaTeX.
%%
-\def\MFPfiledate{2013/01/01}%
-\def\MFPfileversion{0.9}%
+\def\MFPfiledate{2013/02/01}%
+\def\MFPfileversion{0.92}%
\expandafter
\ifx \csname MFP@finish\endcsname\relax
\else \expandafter\endinput \fi
@@ -144,7 +144,7 @@
\errmessage{MiniFP error: #1}%
\endgroup}%
\def\MFP@popempty@err{%
- \MFP@errmsg{cannot pop from an empty stack}%
+ \MFP@errmsg{cannot POP from an empty stack}%
{There were no items on the stack for the POP operation. %
If you continue, ^^Jthe macro will contain the %
value \EndofStack.}}%
@@ -387,7 +387,7 @@
\advance\MFP@tempa1
\fi
\fi
- \MFP@Rloadz{\ifnum\MFP@z@Int=0 0\else\MFP@x@Sgn\fi}\MFP@tempa0}%
+ \MFP@Rloadz{\ifnum\MFP@x@Int=0 0\else\MFP@x@Sgn\fi}\MFP@tempa0}%
\def\MFP@Rfloor{\MFP@Rfloororceil>}%
\def\MFP@Rceil {\MFP@Rfloororceil<}%
\def\MFP@split#1#2#3{%