diff options
author | Karl Berry <karl@freefriends.org> | 2006-06-02 17:33:01 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-06-02 17:33:01 +0000 |
commit | 6a3f70a7106e6881776bd33bb4dad106d91c4146 (patch) | |
tree | 228dde53d1b555563ae04f5df3ffe3d4a6671c5a /Master/texmf-dist/tex/latex/clock | |
parent | 004fb255bc1681a24842c3def76799d5a0403cc2 (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.tex | 123 |
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 |