summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/calendar/demodate.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/calendar/demodate.tex')
-rw-r--r--Master/texmf-dist/doc/latex/calendar/demodate.tex136
1 files changed, 136 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/calendar/demodate.tex b/Master/texmf-dist/doc/latex/calendar/demodate.tex
new file mode 100644
index 00000000000..bc7d8b93779
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/calendar/demodate.tex
@@ -0,0 +1,136 @@
+%%
+%% This is file `demodate.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% dates.dtx (with options: `demo')
+%%
+\documentclass{minimal}
+\usepackage{dates}
+\begin{document}
+
+\makeatletter
+\message{^^J---------------------------------------------------------}
+\message{This is a demonstration file for the LaTeX dates package.}
+\message{It will print a number of dates to the terminal.^^J}
+\message{The code demonstrated by this package is not intended}
+\message{for direct use by humans, so I have not worked very hard}
+\message{to make its output look pretty, and it won't actually}
+\message{print anything. But if you get a cluttered list of dates}
+\message{and no error messages, the package is working for you.}
+\message{---------------------------------------------------------}
+\dateread
+{\message{\theshorttext}%
+ \message{\theday/\the\dates@month/\the\dates@year}%
+ \ifx\thelongtext\dates@empty%
+ \else%
+ \message{\thelongtext}%
+ \fi}
+ december 10 1995 {Start of First Period of Time}
+to jan 10 1996 {End of First Period of Time}
+ december 10 1996 {Start of Second Period of Time}
+to jan 10 1997 {End of Second Period of Time}
+February 18 1997 {Frank's Next Birthday}
+ [The best presents come in small packages.^^JIt
+ would be a terrific present for someone to make
+ this one smaller.]
+February 18 1998 {Frank's Next Birthday But One}
+Every Monday {(Monday Coffee)}
+Every Third Tuesday {(Third Tuesday Meeting)}
+Function moonsinit moonsincrement {%
+ \global\dates@date=\dates@subrange@start%
+ \caldate%
+ \newcount\moonno%
+ \newif\ifsign%
+ \def\firstmoon{\moonno=\dates@year
+ \multiply\moonno by123685
+ \divide\moonno by10000
+ \multiply\moonno by4\advance\moonno by-1
+ \loop\moondate\relax
+ \ifnum\dates@date<\dates@subrange@start
+ \advance\moonno by1\repeat}
+ \def\moondate{{\dates@ct@z=\moonno
+ \lin 202.126.369+0.\dates@ct@z=\count1
+ \count6=0
+ \lin 0.2.319+2907.\sin\fac{3}
+ \divide\count6 by1000
+ \lin 365.249.86+7593.\id\fac{1}
+ \divide\count6 by10\count7 =\count6
+ \ifodd\moonno\quarters
+ \else\fullornew\fi\global\dates@date=\count7}
+ \jdttol}
+ \def\fullornew{\count6=0
+ \lin -393.0.0+0.
+ \divide\count1 by100000000
+ \advance\count6 by\count1
+ \lin 0.628.300+6269.\sin
+ \multiply\count6 by\count4
+ \lin -7.-700.-369+ 928.\sin\fac{ -74}
+ \lin 0. 628. 300+ 6269.\sin\fac{ 1734}
+ \lin 1. 256. 600+12539.\sin\fac{ 21}
+ \lin 8. 328. 670+ 5341.\sin\fac{-4068}
+ \lin 8. 538. 220+-4597.\sin\fac{ 10}
+ \lin 8. 956. 970+11610.\sin\fac{ -51}
+ \lin 16. 238. 589+-5526.\sin\fac{ -4}
+ \lin 16. 657. 340+10682.\sin\fac{ 161}
+ \lin 16. 866. 890+ 743.\sin\fac{ 104}
+ \lin 17. 285. 640+16951.\sin\fac{ 50}
+ \lin 17. 495. 190+ 7013.\sin\fac{ 4}
+ \lin 24. 986. 10+16023.\sin\fac{ -4}
+ \lin 25. 195. 560+ 6084.\sin\fac{ -6}
+ \divide\count6 by10000
+ \advance\count7 by\count6 }
+ \def\quarters{\lin -393.0.0+0.
+ \divide\count1 by100000000
+ \count6 =\count1 \lin 0.628.300+6269.
+ \sin\multiply\count6 by\count4
+ \lin -16. -29. -40+-4413.\sin\fac{ 40}
+ \lin -7.-700.-369+ 928.\sin\fac{ -47}
+ \lin -7. -72. -69+ 7198.\sin\fac{ -30}
+ \lin 0. 628. 300+ 6270.\sin\fac{ 1721}
+ \lin 1. 256. 600+12539.\sin\fac{ 21}
+ \lin 8. 328. 670+ 5341.\sin\fac{-6280}
+ \lin 8. 538. 220+-4598.\sin\fac{ 21}
+ \lin 8. 956. 970+11611.\sin\fac{ -119}
+ \lin 16. 238. 589+-5526.\sin\fac{ -4}
+ \lin 16. 657. 340+10682.\sin\fac{ 89}
+ \lin 16. 866. 890+ 743.\sin\fac{ 79}
+ \lin 17. 285. 640+16952.\sin\fac{ 3}
+ \lin 17. 495. 190+ 7013.\sin\fac{ 3}
+ \lin 24. 986. 10+16023.\sin\fac{ -4}
+ \lin 25. 195. 560+ 6085.\sin\fac{ -6}
+ \count8=\count6\count6=28000
+ \lin 628. 300. 373+ 6270.\cos\fac{ -4}
+ \lin 8. 328. 670+ 5341.\cos\fac{ 3}
+ \count2=\moonno
+ \advance\count2 by-1\divide\count2 by2
+ \ifodd\count2\multiply\count6 by-1 \fi
+ \advance\count6 by\count8
+ \divide\count6 by10000
+ \advance\count7 by\count6 }
+ \def\phase{{\dates@ct@z=\moonno
+ \count1=\moonno
+ \divide\dates@ct@z by4\multiply\dates@ct@z by4
+ \advance\count1 by-\dates@ct@z\relax
+ \xdef\themoon{\ifcase\count1
+ New Moon\or First Quarter\or
+ Full Moon\or Last Quarter\fi}}}
+ \gdef\moonsinit{%
+ \firstmoon
+ \global\dates@month=12\global\dates@day=31\dates@fix\global\advance\dates@date by1
+ \count1=\dates@date
+ \moondate
+ \phase
+ \caldate}
+ \gdef\moonsincrement{%
+ \advance\moonno by 1
+ \moondate\phase
+ \caldate}
+ }
+ {\themoon}
+\end{document}
+
+%%
+%%
+%% End of file `demodate.tex'.