summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-11-24 00:00:00 +0000
committerKarl Berry <karl@freefriends.org>2013-11-24 00:00:00 +0000
commit42b82c7597e89fadde85939a364fa8d8aa24f2fa (patch)
tree95592787060af47b895479899e396492ee6096b6 /Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex
parent90706d4b3b2cbb99f55bd3999f1315a0c09dc380 (diff)
pdf-trans (23nov13)
git-svn-id: svn://tug.org/texlive/trunk@32223 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex28
1 files changed, 18 insertions, 10 deletions
diff --git a/Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex b/Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex
index cca00c7d7d1..4326d3187d3 100644
--- a/Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex
+++ b/Master/texmf-dist/tex/generic/pdf-trans/pdf-trans.tex
@@ -1,13 +1,12 @@
%%% A set of macros for various transformations of TeX boxes.
%%% (bases on plain and pdfeTeX primitives)
%
-% Version: 2.2
+% Version: 2.3
% Author: Pawe/l Jackowski (P.Jackowski@gust.org.pl)
% Public Domain
%
% The macro provides a bunch of TeX box transformations. It was initially
-% inspired by trans.tex (BOP, bop@bop.com.pl), remade to work with pdfeTeX.
-% This standalone code gathers parts of pdfeplay macro package.
+% inspired by trans.tex (BOP, bop@bop.com.pl), remade to work with pdf(e)TeX.
%
% Files:
% pdf-trans.tex
@@ -32,6 +31,13 @@
% - \bboxtrans vs \cboxtrans switches
% - \boxext* stuff; yet another scaling approach
%
+% 10.2013, v2.3
+% * nasty bug in \roundbponce; a sign was dropped when the number
+% had no integer part (-0.99234 was rounded to 0.99). In current
+% implementation small negative numbers might be rounded to -0.0
+% (minus sign remains)
+% * \roundbponce renamed to \round:bp:once
+%
\def\starttrans{%
\xdef\endtrans{%
@@ -1049,10 +1055,10 @@
\expandafter\with@ut:pt\the\dimexpr(#1)*\pt:f@ctor/\bp:f@ctor\relax0000\relax}
\def\r@und:bp: #1.#2#3\relax{\number\numexpr#1#2/10\relax}
-\def\r@und:bp:i #1.#2#3#4\relax{\roundbponce{#1}{#2#3}\relax}
-\def\r@und:bp:ii #1.#2#3#4#5\relax{\roundbponce{#1}{#2#3#4}\relax}
-\def\r@und:bp:iii #1.#2#3#4#5#6\relax{\roundbponce{#1}{#2#3#4#5}\relax}
-\def\r@und:bp:iv #1.#2#3#4#5#6#7\relax{\roundbponce{#1}{#2#3#4#5#6}\relax}
+\def\r@und:bp:i #1.#2#3#4\relax{\round:bp:once{#1}{#2#3}\relax}
+\def\r@und:bp:ii #1.#2#3#4#5\relax{\round:bp:once{#1}{#2#3#4}\relax}
+\def\r@und:bp:iii #1.#2#3#4#5#6\relax{\round:bp:once{#1}{#2#3#4#5}\relax}
+\def\r@und:bp:iv #1.#2#3#4#5#6#7\relax{\round:bp:once{#1}{#2#3#4#5#6}\relax}
% To speed-up things one may say
@@ -1063,9 +1069,11 @@
\unexpanded{\expandafter\with@ut:pt\the}%
\dimexpr(##1)*\unexpanded{\pt:f@ctor/\bp:f@ctor}\relax0000\relax}}
-\def\roundbponce#1#2{%
- \number\numexpr#1\ifnum#1<0-\else+\fi
- (\m@ne+\expandafter\r@und:bp:once\number\numexpr1#2/10\relax}
+\def\round:bp:once#1#2{%
+ %\number\numexpr#1\ifnum#1<0-\else+\fi % 15.10.2013: wrong! that drops minus sign in case -0.xxxx
+ %(\m@ne+\expandafter\r@und:bp:once\number\numexpr1#2/10\relax}
+ \ifnum#11<0-\number\numexpr-\else\number\numexpr\fi
+ #1+(\m@ne+\expandafter\r@und:bp:once\number\numexpr1#2/10\relax}
\def\r@und:bp:once#1#2\relax{#1)\relax\ifnum#2>0.#2\fi}