summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/grnumalt
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:56:34 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:56:34 +0000
commit6bf710acd92e47259111e8cf4b4ae061ec7b62b4 (patch)
tree0baeb2b62c68530d78ed2d3e526c13f12f04965c /Master/texmf-dist/tex/latex/grnumalt
parent208543ff201eaa2c17be3467fa1031bd122f81a8 (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.sty104
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'.