diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:56:34 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:56:34 +0000 |
commit | 6bf710acd92e47259111e8cf4b4ae061ec7b62b4 (patch) | |
tree | 0baeb2b62c68530d78ed2d3e526c13f12f04965c /Master/texmf-dist/tex/latex/grnumalt | |
parent | 208543ff201eaa2c17be3467fa1031bd122f81a8 (diff) |
grnumalt
git-svn-id: svn://tug.org/texlive/trunk@963 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/grnumalt')
-rw-r--r-- | Master/texmf-dist/tex/latex/grnumalt/grnumalt.sty | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/grnumalt/grnumalt.sty b/Master/texmf-dist/tex/latex/grnumalt/grnumalt.sty new file mode 100644 index 00000000000..f4bedad8b27 --- /dev/null +++ b/Master/texmf-dist/tex/latex/grnumalt/grnumalt.sty @@ -0,0 +1,104 @@ +%% +%% This is file `grnumalt.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% grnumalt.dtx (with options: `package') +%% +%% This is a generated file. +%% Copyright 1997 Apostolos Syropoulos +%% +%% You are NOT ALLOWED to change this file. +%% +%% \CheckSum{134} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% This is file `grnumalt.dtx' +%% (c) 1997 Apostolos Syropoulos. +%% All rights reserved. +\ProvidesPackage{grnumalt}[1997/09/19\space v1.1] +\typeout{Package: `grnumalt' v1.0\space <1997/09/19> (AS)} +\newdimen\@boxW \newdimen\@boxH +\DeclareRobustCommand{\PiIt}[1]{% + \settowidth{\@boxW}{#1}% + \settoheight{\@boxH}{#1}% + \addtolength{\@boxW}{0.8pt} + \vbox{% + \hrule width\@boxW\hbox{% + \vrule height\@boxH\mbox{#1}% + \vrule height\@boxH}}\kern.5pt} +\newcount\@ath@num +\DeclareRobustCommand{\athnum}[1]{% + \ifmmode + \errhelp{^^J This macro has been defined to work^^J + *only* in non-math mode. It is definitely^^J + sure that you are using it in math mode.^^J}% + \errmessage{^^JYou can't use macro atheniannumeral^^J + in math mode.^^J}% + \else\@ath@num#1\relax + \ifnum\@ath@num=\z@% + \space% + \PackageWarning{grnumalt}{% + Illegal value (\the\@ath@num) for athenian numeral}% + \else\ifnum\@ath@num<\z@% + \space% + \PackageWarning{grnumalt}{% + Illegal value (\the\@ath@num) for athenian numeral}% + \else$ + \loop\ifnum\@ath@num>49999 + \PiIt{$\mathrm{M}$} + \advance\@ath@num-50000 + \repeat + \loop\ifnum\@ath@num>9999 + \mathrm{M}\advance\@ath@num-\@M + \repeat + \ifnum\@ath@num>4999 + \PiIt{$\mathrm{X}$} + \advance\@ath@num-5000 + \fi + \loop\ifnum\@ath@num>999 + \mathrm{X}\advance\@ath@num-\@m + \repeat + \ifnum\@ath@num>499 + \PiIt{$\mathrm{H}$} + \advance\@ath@num-500 + \fi + \loop\ifnum\@ath@num>99 + \mathrm{H}\advance\@ath@num-100 + \repeat + \ifnum\@ath@num>49 + \PiIt{$\Delta$} + \advance\@ath@num-50 + \fi + \loop\ifnum\@ath@num>9 + \Delta\advance\@ath@num by-10 + \repeat + \ifnum\@ath@num>4 + \Pi + \advance\@ath@num-5 + \fi + \ifcase\@ath@num + \or\mathrm{I} + \or\mathrm{II} + \or\mathrm{III} + \or\mathrm{IIII} + \fi$ + \fi\fi\fi} +\let\@athnum\athnum +\endinput +%% +%% End of file `grnumalt.sty'. |