From 5df1f8c044e6a8994b45535154888455c09e7171 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jan 2006 00:06:45 +0000 Subject: showdim git-svn-id: svn://tug.org/texlive/trunk@1317 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/showdim/showdim.sty | 81 +++++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/showdim/showdim.sty diff --git a/Master/texmf-dist/tex/latex/showdim/showdim.sty b/Master/texmf-dist/tex/latex/showdim/showdim.sty new file mode 100644 index 00000000000..33b28627e84 --- /dev/null +++ b/Master/texmf-dist/tex/latex/showdim/showdim.sty @@ -0,0 +1,81 @@ +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{showdim}[1998/07/29 v1.1 (Michael J Downes)] + +% Print a dimen value in points, rounded to the nearesth tenth +% +\newcommand{\tenthpt}[1]{\dimen@#1\relax +% Round up to the nearest tenth, by half-adding: + \advance\dimen@ \ifdim\dimen@<\z@-\fi .05\p@ + \expandafter\tenth@extract\the\dimen@ pt} + +% Print a dimen value in picas, rounded to the nearesth tenth +% +\newcommand{\tenthpc}[1]{\dimen@#1\relax +% Round up to the nearest tenth + \advance\dimen@ \ifdim\dimen@<\z@-\fi .05pc% + \divide\dimen@ 12 \expandafter\tenth@extract\the\dimen@ pc} + +% Print a dimen value in picas, rounded to the nearesth hundredth +% +\newcommand{\hundredthpc}[1]{\dimen@#1\relax +% Round up to the nearest hundredth + \advance\dimen@ \ifdim\dimen@<\z@-\fi .005pc% + \divide\dimen@ 12 \expandafter\hundredth@extract\the\dimen@ pc} + +% Print a value in tenths of a pica and whole points. +% +\newcommand{\tenthpcpt}[1]{\tenthpc{#1} (\points{#1})} + +% Print a value in points and tenths of a pica. +% +\newcommand{\pttenthpc}[1]{\points{#1} (\tenthpc{#1})} + +% Print a value in points followed by the equivalent in picas (to +% two decimal places). +% +\newcommand{\pthundredthpc}[1]{\points{#1} (\hundredthpc{#1})} + +% Print a value truncated to one place after the decimal point +% (maximum). +% +\edef\@tempa#1pt{#1\string p\string t}\@tempa +\def\tenth@extract#1.#2#3pt{#1\ifnum#2=\z@ \else.#2\fi} + +% Print a value truncated to two places after the decimal point +% (maximum). +% +\edef\@tempa#1pt{#1\string p\string t}\@tempa +\def\hundredth@extract#1.#2#3pt{#1\h@extract#2#300\@nil} + +% Extract a hundredths value: .0 is converted to "", .1 and .10 are both +% converted to ".1", and .03 or .93 are printed as is. +% +\def\h@extract#1#2#3\@nil{% + \ifnum#1#2=\z@ \else.#1\ifnum#2=\z@ \else#2\fi\fi} + +% Print a dimen value rounded to the nearest whole point. +% +\newcommand{\points}[1]{\dimen@#1\relax + \advance\dimen@ \ifdim\dimen@<\z@-\fi .5\p@ + \expandafter\wholepart@extract\the\dimen@\@nil pt} + +% Convert a negative point value to a positive value, for use in +% messages such as "height of box A is \negpoints{\dimen@} less +% than height of box B", where the negativity is conveyed by the +% word "less" and therefore the minus sign should be removed from +% the actual value that is printed in order not to be redundant. +% +\newcommand{\negpoints}[1]{\points{-#1}} + +% Print a dimen value converted to the nearest whole pica. +% +\newcommand{\picas}[1]{\dimen@#1\relax + \advance\dimen@ \ifdim\dimen@<\z@-\fi .5pc% + \divide\dimen@ 12 \expandafter\wholepart@extract\the\dimen@\@nil pc} + +% Extract the whole part of a decimal number (i.e. the part before +% the decimal point.) +% +\def\wholepart@extract#1.#2\@nil{#1} + +\endinput % -- cgit v1.2.3