summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty')
-rw-r--r--Master/texmf-dist/tex/latex/ketcindy/ketpic2e.sty19
1 files changed, 19 insertions, 0 deletions
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}%