From c1213d46c544f3eb84570c25c0a1496e6ce405f3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 30 Nov 2016 22:24:44 +0000 Subject: dozenal (30nov16) git-svn-id: svn://tug.org/texlive/trunk@42608 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/dozenal/dozenal.sty | 127 +++++++++++++++++++++++- 1 file changed, 126 insertions(+), 1 deletion(-) (limited to 'Master/texmf-dist/tex/latex/dozenal') 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}}} -- cgit v1.2.3