diff options
author | Karl Berry <karl@freefriends.org> | 2011-01-20 22:23:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-01-20 22:23:40 +0000 |
commit | 07899da1626d7e1e1d782a72ece3588442da6c7e (patch) | |
tree | d5b1de235090a5af9517f8525a508dfb4f4c8a6f /Master/texmf-dist/doc/latex/dialogl/cnvunits.tex | |
parent | 26a263f4b5fc1171444b7d04d05b1831317f36b5 (diff) |
rm dialogl, noinfo license, author sadly deceased
git-svn-id: svn://tug.org/texlive/trunk@21137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/dialogl/cnvunits.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/dialogl/cnvunits.tex | 134 |
1 files changed, 0 insertions, 134 deletions
diff --git a/Master/texmf-dist/doc/latex/dialogl/cnvunits.tex b/Master/texmf-dist/doc/latex/dialogl/cnvunits.tex deleted file mode 100644 index adf6e79165e..00000000000 --- a/Master/texmf-dist/doc/latex/dialogl/cnvunits.tex +++ /dev/null @@ -1,134 +0,0 @@ -\newdimen\zdim \newdimen\tempdim \newdimen\tempdima - -% Conversion factors: -% -% According Scaled Rational Prime -% Unit to TeX Points Form Factorization -%----------------------------------------------------------------- -% 1 sp 0.00002 pt 1 1/65536 pt 1 / 2^16 -% 1 mm 2.84526 pt 186467 7227/2540 pt 3*3*11*73 / 2*2*5*127 -% 1 cm 28.45274 pt 1864679 7227/254 pt 3*3*11*73 / 2*127 -% 1 pt 1.0 pt 65536 100/7227 in 2*2*5*5 / 3*3*11*73 -% 1 pc 12.0 pt 786432 12/1 pt -% 1 dd 1.07 pt 70124 1238/1157 pt 2*619 / 13*89 -% 1 cc 12.8401 pt 841489 14856/1157 pt 2*2*2*3*619 / 13*89 -% 1 bp 1.00374 pt 65781 803/800 pt 11*73 / 2*2*2*2*2*5*5 -% [1/72 in] -% 1 in 72.2699 pt 4736286 7227/100 pt 3*3*11*73 / 2*2*5*5 -% [2.54 cm] [254/100 cm] - -\def\points#1#2#3{\tempdim#2\relax - \edef#3{\csname cnvunits#1\expandafter\endcsname\the\tempdim}% -} - -\def\inches#1#2#3{% - \tempdim=#2\relax - \tempdima=\ifdim\tempdim<\zdim -\fi\tempdim % absolute value - \roundup\tempdima{#1}{in}% -% In the interest of maximum accuracy we push \tempdima as near -% to \maxdimen as possible before dividing, using the prime -% factorization of the fraction 7227/100 which is the -% points/inches conversion factor. - \ifdim\tempdima<.01\maxdimen - \multiply\tempdima 100 \divide\tempdima 7227 - \else - \ifdim\tempdima<.1\maxdimen - \multiply\tempdima 10 \divide\tempdima 11 - \multiply\tempdima 10 \divide\tempdima 657 - \else - \divide\tempdima 9 \multiply\tempdima 5 - \divide\tempdima 803 \multiply\tempdima 20 - \fi - \fi - \tempdim=\ifdim\tempdim<\zdim -\fi \tempdima - \edef#3{% - \csname cnvunits#1\expandafter\endcsname\the\tempdim}% -} - -% Function \roundup for rounding upward. #1 must be a dimension -% register. If it holds a negative value it will be rounded -% `outward' away from zero rather than `upward' toward zero. #3 -% is a TeX units string such as "pt" or "in". If #2 = 0 then -% this will round up to the nearest tenth; if #2 = 00, nearest -% hundredth; and so forth (up to 5 zeros). If #2 is empty then -% full accuracy up to TeX's limits will be used. -% -% The rounded result will be returned in the dimension register -% #1. - -\def\roundup#1#2#3{% - \if .#2.\else - \begingroup - \ifdim#1>\zdim - \advance#1-\maxdimen \advance#1.#25#3\relax - \fi - \ifdim#1<\zdim - \endgroup - \advance#1.#25#3 - \else - \endgroup - \fi - \fi -} - -\begingroup -\catcode`\P=12 \catcode`\T=12 -\lowercase{% -\expandafter\gdef\csname cnvunits\endcsname#1PT{#1} -\expandafter\gdef\csname cnvunits0\endcsname#1.#2PT{% - #1.\takeone#20\takeone} -\expandafter\gdef\csname cnvunits00\endcsname#1.#2PT{% - #1.\taketwo#200\taketwo} -\expandafter\gdef\csname cnvunits000\endcsname#1.#2PT{% - #1.\takethree#2000\takethree} -\expandafter\gdef\csname cnvunits0000\endcsname#1.#2PT{% - #1.\takefour#20000\takefour} -\expandafter\gdef\csname cnvunits00000\endcsname#1.#2PT{% - #1.\takefive#200000\takefive} -}% -\endgroup - -\def\takeone#1#2\takeone{#1} -\def\taketwo#1#2#3\taketwo{#1#2} -\def\takethree#1#2#3#4\takethree{#1#2#3} -\def\takefour#1#2#3#4#5\takefour{#1#2#3#4} -\def\takefive#1#2#3#4#5#6\takefive{#1#2#3#4#5} - -\def\showinches#1{\inches{00}{#1}\converted - \immediate\write16{% - #1 = (after conversion) \converted\space inches}} - -\showinches{0in} \showinches{1in} \showinches{2.0in} -\showinches{2.2in} \showinches{8.5in} \showinches{1pc} -\showinches{6pc} \showinches{1cm} \showinches{1mm} -\showinches{1bp} \showinches{72bp} \showinches{1cc} -\showinches{1dd} \showinches{72dd} \showinches{5000pt} -\showinches{-5000pt} \showinches{\maxdimen} -\showinches{-\maxdimen} \showinches{.999\maxdimen} -\showinches{1pt} \showinches{.01pt} - -\endinput - -% From the TeX log: - -0in = (after conversion) 0.00 inches -1in = (after conversion) 1.00 inches -2.0in = (after conversion) 2.00 inches -2.2in = (after conversion) 2.20 inches -8.5in = (after conversion) 8.50 inches -1pc = (after conversion) 0.17 inches -6pc = (after conversion) 1.00 inches -1cm = (after conversion) 0.39 inches -1mm = (after conversion) 0.04 inches -1bp = (after conversion) 0.01 inches -72bp = (after conversion) 1.00 inches -1cc = (after conversion) 0.18 inches -1dd = (after conversion) 0.01 inches -72dd = (after conversion) 1.07 inches -5000pt = (after conversion) 69.18 inches --5000pt = (after conversion) -69.18 inches -\maxdimen = (after conversion) 226.70 inches --\maxdimen = (after conversion) -226.70 inches -.999\maxdimen = (after conversion) 226.48 inches -1pt = (after conversion) 0.01 inches -.01pt = (after conversion) 0.00 inches |