summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/clock
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-06-02 17:33:01 +0000
committerKarl Berry <karl@freefriends.org>2006-06-02 17:33:01 +0000
commit6a3f70a7106e6881776bd33bb4dad106d91c4146 (patch)
tree228dde53d1b555563ae04f5df3ffe3d4a6671c5a /Master/texmf-dist/tex/latex/clock
parent004fb255bc1681a24842c3def76799d5a0403cc2 (diff)
clock 0.3, with clock.tex in runtime
git-svn-id: svn://tug.org/texlive/trunk@1652 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/clock')
-rw-r--r--Master/texmf-dist/tex/latex/clock/clock.tex123
1 files changed, 123 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/clock/clock.tex b/Master/texmf-dist/tex/latex/clock/clock.tex
new file mode 100644
index 00000000000..667cce64841
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/clock/clock.tex
@@ -0,0 +1,123 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% File: clock.tex
+% Date: April 10, 2001
+% Author: Oliver Corff
+% (c) 2001 Ulaanbaatar, Macau, Berlin
+%
+% A package for providing graphical
+% clocks to TeX- and LaTeX-users.
+%
+% Usage: \input clock
+%
+% No options.
+%
+% NB: This file does not require LaTeX2e!
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Size definitions
+%
+\ifx\LaTeXclock\undefined
+ \font\myclockfont clock
+ \font\mybigclockfont clock at 24pt
+ %
+ \def\clockfont{\let\clockfont\myclockfont}
+ \def\bigclockfont{\let\clockfont\mybigclockfont}
+\fi
+
+\ifx\TeXclock\undefined
+ \def\TeXclock{}
+ \catcode`@ 11
+\else
+ \endinput
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Variables
+%
+ \newcount\time@in@minutes
+ \newcount\floor@minutes
+ \newcount\hour@minutes
+ \newcount\text@hours
+ \newcount\text@minutes
+ \newcount\my@minute
+ \newcount\my@minutes
+ \newcount\my@hour
+ \newcount\ClockStyle % one of 1 2 3 4
+ \global\newif\ifClockFrame % one of true false
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Time Calculations
+%
+\def\calc@hours{%
+ \time@in@minutes=\time
+ \text@hours=\time@in@minutes
+ \divide\text@hours by 60 }
+
+\def\texthours{%
+ \calc@hours
+ \the\text@hours }
+
+\def\calc@minutes{%
+ \calc@hours
+ \floor@minutes=\text@hours
+ \multiply\floor@minutes by 60
+ \text@minutes=\time@in@minutes
+ \advance\text@minutes-\floor@minutes }
+
+\def\textminutes{%
+ \calc@minutes
+ \ifnum\text@minutes<10 0\fi
+ \the\text@minutes}
+
+\def\texttime{\texthours:\textminutes}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Display Operations
+%
+\def\show@clock#1#2{%
+ {\clockfont %
+ \char#1\kern-1.00ex \char#2% % Print hours and minutes!
+ \advance\ClockStyle by 48 % Build dial
+ \ifnum\ClockStyle>48
+ \kern-1ex\char\ClockStyle %
+ \fi
+ \ifClockFrame \kern-1ex\char48 \fi
+ }}
+
+\def\calc@movement{%
+ \ifnum\my@hour>11 \advance\my@hour by -12 \fi
+ \multiply\my@hour by 5
+ \my@minutes=\my@minute
+ \divide\my@minutes by 12
+ \advance\my@hour by \my@minutes
+ \advance\my@hour by 128
+ \advance \my@minute by 64
+ }
+
+\def\clock#1#2{%
+ \my@hour#1\my@minute#2%
+ \calc@movement
+ \show@clock{\my@hour}{\my@minute}}
+
+
+\def\clocktime{%
+ \calc@minutes % Calls \calc@hours
+ \clock{\text@hours}{\text@minutes}
+ }
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Initial Settings
+%
+\ClockStyle=1
+\ClockFramefalse
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Some Housekeeping...
+%
+\ifx\LaTeXclock\undefined
+ \catcode`@ 12
+\fi