xiaofei@acsu.buffalo.edu (Xiaofei Wang) (02/20/91)
Dear netters,
The following is a single sheet of 1991 canlendar I made using
TeX. I know it is not good but I can not think of a clever way to do it.
The best thing I can think of is to use FORTRAN to output TeX code.
If any netter can give me a hint of how to make a canlendar in a
better way, I will appreciate it.
xiaofei@acsu.buffalo.edu / rutgers!ub!xiaofei / v118raqa@ubvms.bitnet
%it is to be output in landscape mode.
\font\tenrm=cmr10
\font\cmsyten=cmsy10
\font\cmttten=cmtt10
\hoffset=0.0 truein
\hsize=8.2 truein
\nopagenumbers
%\def\makeactive#1{\catcode`#113\relax}
%\makeactive\ \let\ =\relax
\def\mycr{\cr\noalign{\hrule}}
\def\thickvrule{{\vrule \hskip0.5pt \vrule}}
\def\thickhrule{{\hrule \vskip0.5pt \hrule}}
$$%\textfont1=\cmttten
\vbox{\tabskip=0pt \offinterlineskip \halign to \hsize{
\strut#&\thickvrule#\tabskip 0em plus 1em&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\thickvrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\thickvrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\vrule#&
\hfil#&\thickvrule#\tabskip=0pt\cr\noalign{\thickhrule}
& & \multispan{41} \hfil 1991 \hfil &\cr\noalign{\thickhrule}
& & \multispan{13} \hfil Jan\hfil&
& \multispan{13} \hfil Feb \hfil&
& \multispan{13} \hfil Mar \hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S&\mycr
&& && && 1&& 2&& 3&& 4&& 5&& && && && && && 1&& 2
&& && && && && && 1&& 2&\mycr
&& 6&& 7&& 8&& 9&&10&&11&&12&& 3&& 4&& 5&& 6&& 7&& 8&& 9
&& 3&& 4&& 5&& 6&& 7&& 8&& 9&\mycr
&&13&&14&&15&&16&&17&&18&&19&& 10&&11&&12&&13&&14&&15&&16
&&10&&11&&12&&13&&14&&15&&16&\mycr
&&20&&21&&22&&23&&24&&25&&26&& 17&&18&&19&&20&&21&&22&&23
&&17&&18&&19&&20&&21&&22&&23&\mycr
&&27&&28&&29&&30&&31&& && && 24&&25&&26&&27&&28&& &&
&&24&&25&&26&&27&&28&&29&&30&\mycr
&& && && && && && && && && && && && && &&
&&31&& && && && && && &\cr\noalign{\thickhrule}
&& \multispan{13} \hfil Apr\hfil&
& \multispan{13} \hfil May\hfil&
& \multispan{13} \hfil Jun\hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S&& S&& M&&Tu&& W&&Th&& F&& S&&
S&& M&&Tu&& W&&Th&& F&& S&\mycr
&& && 1&& 2&& 3&& 4&& 5&& 6&& && && && 1&& 2&& 3&& 4&&
&& && && && && && 1&\mycr
&& 7&& 8&& 9&&10&&11&&12&&13&& 5&& 6&& 7&& 8&& 9&&10&&11&&
2&& 3&& 4&& 5&& 6&& 7&& 8&\mycr
&&14&&15&&16&&17&&18&&19&&20&& 12&&13&&14&&15&&16&&17&&18&&
9&&10&&11&&12&&13&&14&&15&\mycr
&&21&&22&&23&&24&&25&&26&&27&& 19&&20&&21&&22&&23&&24&&25&&
16&&17&&18&&19&&20&&21&&22&\mycr
&&28&&29&&30&& && && && && 26&&27&&28&&29&&30&&31&& &&
23&&24&&25&&26&&27&&28&&29&\mycr
&& && && && && && && && && && && && && && &&
30&& && && && && && &\cr\noalign{\thickhrule}
& & \multispan{13} \hfil Jul\hfil&
& \multispan{13} \hfil Aug\hfil&
& \multispan{13} \hfil Sep\hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S&& S&& M&&Tu&& W&&Th&& F&& S&&
S&& M&&Tu&& W&&Th&& F&& S&\mycr
&& && 1&& 2&& 3&& 4&& 5&& 6&& && && && && 1&& 2&& 3&&
1&& 2&& 3&& 4&& 5&& 6&& 7&\mycr
&& 7&& 8&& 9&&10&&11&&12&&13&& 4&& 5&& 6&& 7&& 8&& 9&&10&&
8&& 9&&10&&11&&12&&13&&14&\mycr
&&14&&15&&16&&17&&18&&19&&20&& 11&&12&&13&&14&&15&&16&&17&&
15&&16&&17&&18&&19&&20&&21&\mycr
&&21&&22&&23&&24&&25&&26&&27&& 18&&19&&20&&21&&22&&23&&24&&
22&&23&&24&&25&&26&&27&&28&\mycr
&&28&&29&&30&&31&& && && && 25&&26&&27&&28&&29&&30&&31&&
29&&30&& && && && && &\cr\noalign{\thickhrule}
& & \multispan{13} \hfil Oct\hfil&
& \multispan{13} \hfil Nov \hfil&
& \multispan{13} \hfil Dec \hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S&& S&& M&&Tu&& W&&Th&& F&& S&&
S&& M&&Tu&& W&&Th&& F&& S&\mycr
&& && && 1&& 2&& 3&& 4&& 5&& && && && && && 1&& 2&&
1&& 2&& 3&& 4&& 5&& 6&& 7&\mycr
&& 6&& 7&& 8&& 9&&10&&11&&12&& 3&& 4&& 5&& 6&& 7&& 8&& 9&&
8&& 9&&10&&11&&12&&13&&14&\mycr
&&13&&14&&15&&16&&17&&18&&19&& 10&&11&&12&&13&&14&&15&&16&&
15&&16&&17&&18&&19&&20&&21&\mycr
&&20&&21&&22&&23&&24&&25&&26&& 17&&18&&19&&20&&21&&22&&23&&
22&&23&&24&&25&&26&&27&&28&\mycr
&&27&&28&&29&&30&&31&& && && 24&&25&&26&&27&&28&&29&&30&&
29&&30&&31&& && && && &\cr\noalign{\thickhrule}
}}$$
\def\copyleft{{\ooalign
{\hfil\raise.07ex\hbox{L}\hfil\crcr\mathhexbox20D}}}
\copyleft copylefted by xiaofei@acsu.buffalo.edu 1991%
%
\end%
%
--
xiaofei@acsu.buffalo.edu / rutgers!ub!xiaofei / v118raqa@ubvms.bitnet