summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/clock/texinput
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/clock/texinput
Initial commit
Diffstat (limited to 'macros/latex/contrib/clock/texinput')
-rw-r--r--macros/latex/contrib/clock/texinput/clock.sty45
-rw-r--r--macros/latex/contrib/clock/texinput/clock.tex123
2 files changed, 168 insertions, 0 deletions
diff --git a/macros/latex/contrib/clock/texinput/clock.sty b/macros/latex/contrib/clock/texinput/clock.sty
new file mode 100644
index 0000000000..a83cd7f1bf
--- /dev/null
+++ b/macros/latex/contrib/clock/texinput/clock.sty
@@ -0,0 +1,45 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% File: clock.sty
+% Date: April 10, 2001
+% Author: Oliver Corff
+% (c) 2001 Ulaanbaatar, Macau, Berlin
+%
+% A package for providing graphical
+% clocks to TeX- and LaTeX-users.
+%
+% Usage: \usepackage{clock}
+%
+% No options.
+%
+% NB: This package requires LaTeX2e!
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Identification
+%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{clock}[2001/04/10 v0.1 TeXclock]
+%
+%
+% Preliminary declarations
+%
+\DeclareFontFamily{U}{clock}{}
+\DeclareFontShape{U}{clock}{m}{n}{%
+ <-> clock}{}
+\DeclareFontSubstitution{U}{clock}{m}{n}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Loading the clock command structure
+%
+\def\LaTeXclock{}
+\input clock.tex
+\newcommand{\clockfont}{\usefont{U}{clock}{m}{n}\selectfont}
+\newcommand{\bigclockfont}{\Huge\usefont{U}{clock}{m}{n}\selectfont}
+%
+%
+% No options with this package.
+%
+% No More declarations
+%
+% End of file `clock.sty'.
diff --git a/macros/latex/contrib/clock/texinput/clock.tex b/macros/latex/contrib/clock/texinput/clock.tex
new file mode 100644
index 0000000000..667cce6484
--- /dev/null
+++ b/macros/latex/contrib/clock/texinput/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