ketcindy (3feb19)

git-svn-id: svn://tug.org/texlive/trunk@49922 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 38 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/ketcindy/ketpic.sty b/Master/texmf-dist/tex/latex/ketcindy/ketpic.sty
index b0555f7bfb6..5215cd1f11e 100644
--- a/Master/texmf-dist/tex/latex/ketcindy/ketpic.sty
+++ b/Master/texmf-dist/tex/latex/ketcindy/ketpic.sty
@@ -13,6 +13,8 @@
 %* You should have received a copy of the GNU General Public License
 %* along with this program.  If not, see <http://www.gnu.org/licenses/>
 %%% ketpic.sty
+%   2018.09.20
+%       setmargintrue added
 %   2016.12.08
 %       NEarrow, ..., SELarrow,...  added
 %       argument ( option ) = size
@@ -94,6 +96,23 @@
 \addtolength{\textheight}{-#4 mm}%
 %
 }%
+\newcommand{\setmargintrue}[4]{
+\setlength{\oddsidemargin}{-25.4truemm}%
+\addtolength{\oddsidemargin}{#1 truemm}%
+\setlength{\textwidth}{\paperwidth}%
+\addtolength{\textwidth}{-#1 truemm}%
+\addtolength{\textwidth}{-#2 truemm}%
+\setlength{\topmargin}{-25.4truemm}% 1in=25.4mm
+\addtolength{\topmargin}{#3 truemm}%
+\addtolength{\topmargin}{-\headheight}%
+\addtolength{\topmargin}{-\headsep}%
+\addtolength{\topmargin}{-\topskip}%
+\setlength{\textheight}{\paperheight}%
+\addtolength{\textheight}{-#3 truemm}%
+\addtolength{\textheight}{-#4 truemm}%
+\addtolength{\textheight}{\topskip}%
+%
+}%
 \newcommand{\ketcalcwidth}[2][0]{%
 \settowidth{\Depth}{#2}%
 \setlength{\Width}{0\unitlength}%
diff --git a/Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty b/Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty
index b9b3d3ea31a..5f90f97848c 100644
--- a/Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty
+++ b/Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty
@@ -12,6 +12,8 @@
 %* 
 %* You should have received a copy of the GNU General Public License
 %* along with this program.  If not, see <http://www.gnu.org/licenses/>
+%   2018.09.20
+%       setmargintrue added
 %   2016.12.08
 %      NEarrow,..., NERarrow,...  added
 %          argument(option)=size
@@ -93,6 +95,23 @@
 \addtolength{\textheight}{-#4 mm}%
 %
 }%
+\newcommand{\setmargintrue}[4]{
+\setlength{\oddsidemargin}{-25.4truemm}%
+\addtolength{\oddsidemargin}{#1 truemm}%
+\setlength{\textwidth}{\paperwidth}%
+\addtolength{\textwidth}{-#1 truemm}%
+\addtolength{\textwidth}{-#2 truemm}%
+\setlength{\topmargin}{-25.4truemm}% 1in=25.4mm
+\addtolength{\topmargin}{#3 truemm}%
+\addtolength{\topmargin}{-\headheight}%
+\addtolength{\topmargin}{-\headsep}%
+\addtolength{\topmargin}{-\topskip}%
+\setlength{\textheight}{\paperheight}%
+\addtolength{\textheight}{-#3 truemm}%
+\addtolength{\textheight}{-#4 truemm}%
+\addtolength{\textheight}{\topskip}%
+%
+}%
 \newcommand{\ketcalcwidth}[2][0]{%
 \settowidth{\Depth}{#2}%
 \setlength{\Width}{0\unitlength}%