summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/dozenal
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-11-30 22:24:44 +0000
committerKarl Berry <karl@freefriends.org>2016-11-30 22:24:44 +0000
commitc1213d46c544f3eb84570c25c0a1496e6ce405f3 (patch)
tree07da6b1009e32d0853814d6da7fc6934f6e00c67 /Master/texmf-dist/tex/latex/dozenal
parent69f5f1e7becd703e2188781ebc7849053617de0d (diff)
dozenal (30nov16)
git-svn-id: svn://tug.org/texlive/trunk@42608 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/dozenal')
-rw-r--r--Master/texmf-dist/tex/latex/dozenal/dozenal.sty127
1 files changed, 126 insertions, 1 deletions
diff --git a/Master/texmf-dist/tex/latex/dozenal/dozenal.sty b/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
index b2becd88c90..bed19e412d2 100644
--- a/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
+++ b/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
@@ -25,7 +25,7 @@
%% This work consists of the files listed in dozenalfilelist.txt.
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
-\ProvidesPackage{dozenal}[2015/01/29 v6.0 support for dozenal fonts]
+\ProvidesPackage{dozenal}[2015/01/29 v7.0 support for dozenal fonts]
\RequirePackage{fixltx2e}
\RequirePackage{xstring}
\RequirePackage{ifpdf}
@@ -130,6 +130,131 @@ dozchbx10 <12-> dozchbx12 }{}
\doz@multiplier=1%
\doz@total=0%
}%
+\newcount\doz@modulus%
+\def\doz@modulo#1#2{%
+\doz@modulus=#1%
+\divide\doz@modulus by#2%
+\multiply\doz@modulus by#2%
+\multiply\doz@modulus by-1%
+\advance\doz@modulus by#1\relax%
+}%
+\newcount\doz@quotient%
+\def\doz@quot#1#2{%
+\doz@quotient=#1%
+\divide\doz@quotient by#2%
+}%
+\newcount\doz@romct%
+\newif\ifdoz@domancaps%
+\def\doz@doman#1{%
+\doz@romct=#1%
+\doz@quot{\doz@romct}{1728}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps M\else m\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-1728%
+\repeat
+\ifnum\doz@romct>1440
+\ifnum\doz@romct<1584
+\ifdoz@domancaps CCM\else ccm\fi%
+\advance\doz@romct by-1440
+\else%\ifnum\doz@romct>1583
+\ifdoz@domancaps CM\else cm\fi%
+\advance\doz@romct by-1584
+\fi
+\fi
+\ifnum\doz@romct>575%
+\ifnum\doz@romct<719
+\ifdoz@domancaps CCD\else ccd\fi%
+\advance\doz@romct by-576
+\else
+\ifnum\doz@romct<864%
+\ifdoz@domancaps CD\else cd\fi%
+\advance\doz@romct by-720%
+\fi
+\fi
+\else
+\ifnum\doz@romct>719
+\ifdoz@domancaps D\else d\fi%
+\advance\doz@romct by-719%
+\fi
+\fi
+\doz@quot{\doz@romct}{144}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps C\else c\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-144%
+\repeat
+\ifnum\doz@romct>119
+\ifnum\doz@romct<132
+\ifdoz@domancaps XXC\else xxc\fi%
+\advance\doz@romct by-120
+\else
+\ifdoz@domancaps XC\else xc\fi%
+\advance\doz@romct by-132
+\fi
+\fi
+\ifnum\doz@romct>71
+\ifdoz@domancaps L\else l\fi%
+\advance\doz@romct by-72
+\fi
+\ifnum\doz@romct>47%
+\ifnum\doz@romct>59%
+\ifdoz@domancaps XL\else xl\fi%
+\advance\doz@romct by-60%
+\else
+\ifdoz@domancaps XXL\else xxl\fi%
+\advance\doz@romct by-48%
+\fi
+\fi
+\doz@quot{\doz@romct}{12}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps X\else x\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-12%
+\repeat
+\doz@modulo{\doz@romct}{12}%
+\ifnum\doz@modulus=10
+\ifdoz@domancaps IIX\else iix\fi%
+\advance\doz@romct by-10
+\fi
+\ifnum\doz@modulus=11
+\ifdoz@domancaps IX\else ix\fi%
+\advance\doz@romct by-11
+\fi
+\ifnum\doz@romct>5
+\ifdoz@domancaps V\else v\fi%
+\advance\doz@romct by-6
+\fi
+\ifnum\doz@romct>3%
+\ifnum\doz@romct=4%
+\ifdoz@domancaps IIV\else iiv\fi%
+\advance\doz@romct by-4%
+\else
+\ifnum\doz@romct=5%
+\ifdoz@domancaps IV\else iv\fi%
+\advance\doz@romct by-5%
+\fi
+\ifnum\doz@romct=6%
+\ifdoz@domancaps V\else v\fi%
+\advance\doz@romct by-6
+\fi
+\fi
+\fi
+\doz@quot{\doz@romct}{1}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps I\else i\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-1%
+\repeat
+}
+\protected\def\doman#1{%
+\doz@domancapsfalse%
+\doz@doman{#1}%
+}%
+\protected\def\Doman#1{%
+\doz@domancapstrue%
+\doz@doman{#1}%
+}%
\@ifundefined{nocounters}{%
\@ifundefined{c@page}{}{%
\renewcommand\thepage{\basexii{\value{page}}{\x}{\e}}}