summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/calendar/block.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/calendar/block.sty')
-rw-r--r--Master/texmf-dist/tex/plain/calendar/block.sty59
1 files changed, 59 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/calendar/block.sty b/Master/texmf-dist/tex/plain/calendar/block.sty
new file mode 100644
index 00000000000..72433136f1b
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/calendar/block.sty
@@ -0,0 +1,59 @@
+%%
+%% FILE block.sty
+%%
+\newcount\daysinrow
+\newcount\saveMonth
+\font\bf=cmbx12 at 16pt
+\font\Rm=cmr12 at 48pt
+\font\Bf=cmbx12 at 48pt
+\font\rm=cmr12
+\font\small=cmr10
+\footline={}
+\def\card{{\mute
+ \saveMonth=\Month
+ \def\beginday{
+ \ifnum\daysinrow=0\setbox1=\hbox{}\fi
+ \setbox0=\hbox to1.3em{\hss
+ \ifnum\Month=\saveMonth\the\Day\fi}}
+ \def\endday{\setbox1=\hbox{\unhbox1\box0}
+ \advance\daysinrow by1
+ \ifnum\daysinrow=7\box1\daysinrow=0\fi}
+% Local: from sunday ...
+ \Day=1\dayno
+ \prevday0\currentdate=\date
+ \Day=1\advancemonth \dayno
+% Local: ... to saturday.
+ \advance\date by-1 \nextday6 \lastdate=\date
+ \daysinrow=0
+ \baselineskip=9pt\small
+ \global\setbox3=\vbox to0.55in{\makeempty\vss}}}
+%
+\def\cstrut{\vrule width0pt depth0.3in}
+\baselineskip=14pt
+\parindent=0pt
+\vsize=5in \voffset=-0.2in
+\hsize=4in \hoffset=-0.25in
+\def\advancemonth{\ifnum\Month=12
+ \nextyear\Month=1\else
+ \advance\Month by1\fi}
+\def\beginday{\ifnum\Day=1
+ \setbox2=\box3{\advancemonth\card}\fi
+ \date=\currentdate\caldate
+ \centerline{\bf\uppercase
+ \expandafter{\themonth}}
+ \setbox0=\vbox\bgroup\noindent\rm}
+\def\endday{\egroup\vskip10pt
+ \centerline{\cstrut\copy2\quad
+ \hbox to1in{\Rm\weekday
+% Local: sundays in bf.
+ \ifnum\weekd=0\Bf\fi\ifholy\Bf\fi
+ \hss\the\Day\hss}\quad\copy3}
+ \centerline{\rm\theweekday}
+ \vskip20pt\box0\newpage}
+\def\newpage{\vfill\penalty-10000}
+%
+\Day=31\Month=12\dayno\lastdate=\date
+\Day=1\Month=1\dayno\currentdate=\date
+\card
+\leftskip=1em plus1fill\rightskip=1em plus1fill
+\def\epilog{}