%
%  autor:  Cezary M. Kruk
%  data:   1996-11-29
%  format: LaMeX
%
%  Makro kalend_1.tex sluzy do generacji kalendarzy rocznych i miesiecznych.
%  Krotki opis makro mozna znalezc na koncu niniejszego pliku.
%
\newcount\height \newcount\illustration \newcount\ILLUSTRATIONS
\newcount\holydays \newcount\names

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KONFIGURACJA %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\height=0                                               % mala lub duza tabela
\illustration=0                                         % rysunek.tex
\ILLUSTRATIONS=0                                        % sty.tex .. gru.tex
\holydays=1                                             % nazwy swiat
\names=1                                                % terminy imienin

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KALENDARZ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifnum\height<0 \height=0 \fi \ifnum\height>1 \height=1 \fi
\ifnum\illustration<0 \illustration=0 \fi \ifnum\illustration>1 \illustration=1 \fi
\ifnum\ILLUSTRATIONS<0 \ILLUSTRATIONS=0 \fi \ifnum\ILLUSTRATIONS>1 \ILLUSTRATIONS=1 \fi
\ifnum\holydays<0 \holydays=0 \fi \ifnum\holydays>1 \holydays=1 \fi
\ifnum\names<0 \names=0 \fi \ifnum\names>1 \names=1 \fi

\newcount\YearMonth
\newcount\yearmonth
\newcount\CalTerm
\newcount\calterm
\newcount\Year
\newcount\year \newcount\yearoff
\newcount\FromMonth \newcount\ToMonth \newcount\MONTH
\newcount\month \newcount\monthoff
\newcount\daycount
\newcount\monthdays \newcount\febdays
\newcount\date
\newcount\leap \newcount\numleaps
\newcount\lyear \newcount\cyear \newcount\qyear
\newcount\temp \newcount\test
\newcount\greg
\newcount\mon
\newcount\BF

\message{kalendarz roczny [0], czy miesieczny [1] } \read -1 to \YearMonth
\yearmonth=\YearMonth
\ifnum\yearmonth<0 \yearmonth=0 \fi
\ifnum\yearmonth>1 \yearmonth=1 \fi
\ifnum\yearmonth=0
\message{kalendarz scienny [0], czy terminarz [1] } \read -1 to \CalTerm
\calterm=\CalTerm
\ifnum\calterm<0 \calterm=0 \fi
\ifnum\calterm>1 \calterm=1 \fi
\fi
\message{rok [1582 .. 4904] } \read -1 to \Year
\year=\Year
\ifnum\year<1582 \year=1582 \fi \ifnum\year>4904 \year=4904 \fi
\ifnum\yearmonth=1
\message{od miesiaca [1 .. 12] } \read -1 to \FromMonth
\month=\FromMonth
\ifnum\month<1 \month=1 \fi \ifnum\month>12 \month=12 \fi
\message{do miesiaca [\FromMonth .. 12] } \read -1 to \ToMonth
\MONTH=\ToMonth
\ifnum\MONTH<\month \MONTH=\month \fi
\ifnum\MONTH>12 \MONTH=12 \fi
\fi

\documentstyle[a4,12pt]{article}
\prefixing                                              % Zielone /Swi/atki
                                                        % J/edrzeja
                                                        % Szcz/esnego
                                                        % S/edzimira
\textwidth=170mm
\textheight=250mm
\oddsidemargin-5mm
\topmargin=0pt
\headheight=0pt \headsep=0pt
\footheight=0pt \footskip=0pt
\pagestyle{empty} %\thispagestyle{empty}

\begin{document}

\def\mod#1#2#3{\temp=-#1 \divide\temp by #2 \multiply\temp by #2
    \advance\temp by #1 #3=\temp}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% POCZATEK ROKU %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\temp=\year \advance\temp by -1
\yearoff=\temp
\numleaps=\temp \divide\numleaps by 4
\ifnum\year>1582
\test=\temp \divide\test by 100 \advance\numleaps by -\test
\test=\temp \divide\test by 400 \advance\numleaps by \test
\else
\advance\numleaps by 5
\fi
\advance\yearoff by \numleaps \mod{\yearoff}{7}{\date}
\yearoff=\date \advance\yearoff by 1

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DLUGOSCI MIESIECY %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\leap=0
\mod{\year}{4}{\lyear}
\ifnum\year>1582
\mod{\year}{100}{\cyear}
\mod{\year}{400}{\qyear}
\fi

\ifnum\lyear=0 \ifnum\cyear=0 \ifnum\qyear=0 \leap=1\fi
               \else \leap=1\fi\fi
\monthdays=\ifcase\month 0\or 31\or 28\or 31\or 30\or 31\or 30
                          \or 31\or 31\or 30\or 31\or 30\or 31\fi
\daycount=\ifcase\month 0\or 0\or 31\or 59\or 90\or 120\or 151
                         \or 181\or 212\or 243\or 273\or 304\or 334\fi
\ifnum\month=2 \advance\monthdays by \leap
      \else \ifnum\month>2 \advance\daycount by \leap\fi\fi
\mod{\daycount}{7}{\monthoff}
\test=\date \advance\test by \monthoff \mod{\test}{7}{\date}
\date=-\date

\febdays=28 \ifnum\leap=1 \febdays=29 \fi

\def\initialdate#1#2{\date=1 \advance\date by -#1 \monthdays=#2}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% WIELKANOC %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\DWN \newcount\MWN
\newcount\cntA \newcount\cntB \newcount\cntC
\newcount\cntD \newcount\cntE \newcount\cntF \newcount\cntG
    \ifnum\year>1582
    \cntA=\year \cntB=\year \cntC=\year
    \mod{\cntA}{19}{\cntA} \mod{\cntB}{4}{\cntB} \mod{\cntC}{7}{\cntC}
    \cntD=\cntA \multiply\cntD19 \advance\cntD+24 \mod{\cntD}{30}{\cntD}
           \ifnum\year<5000 \cntF=1 \fi
           \ifnum\year<4900 \cntF=0 \fi
           \ifnum\year<4700 \cntF=6 \fi
           \ifnum\year<4600 \cntF=5 \fi
           \ifnum\year<4500 \cntF=4 \fi
           \ifnum\year<4300 \cntF=3 \fi
           \ifnum\year<4200 \cntF=2 \fi
           \ifnum\year<4100 \cntF=1 \fi
           \ifnum\year<3900 \cntF=0 \fi
           \ifnum\year<3800 \cntF=6 \fi
           \ifnum\year<3700 \cntF=5 \fi
           \ifnum\year<3500 \cntF=4 \fi
           \ifnum\year<3400 \cntF=3 \fi
           \ifnum\year<3300 \cntF=2 \fi
           \ifnum\year<3100 \cntF=1 \fi
           \ifnum\year<3000 \cntF=0 \fi
           \ifnum\year<2900 \cntF=6 \fi
           \ifnum\year<2700 \cntF=5 \fi
           \ifnum\year<2600 \cntF=4 \fi
           \ifnum\year<2500 \cntF=3 \fi
           \ifnum\year<2300 \cntF=2 \fi
           \ifnum\year<2200 \cntF=1 \fi
           \ifnum\year<2100 \cntF=0 \fi
           \ifnum\year<1900 \cntF=6 \fi
           \ifnum\year<1800 \cntF=5 \fi
           \ifnum\year<1700 \cntF=4 \fi
    \multiply\cntB by 2 \multiply\cntC by 4 \cntG=\cntD \multiply\cntD by 6
    \cntE=0
    \advance\cntE by +\cntB \advance\cntE by +\cntC \advance\cntE by +\cntD
           \advance\cntE by +5 \advance\cntE by +\cntF \mod{\cntE}{7}{\cntE}
    \advance\cntE by +22 \advance\cntE by +\cntG
    \DWN=\cntE
    \MWN=3
    \ifnum\DWN>31 \MWN=4 \advance\DWN by -31 \fi
    \else
    \DWN=15 \MWN=4                                      % rok 1582
    \fi

% \message{\number\DWN}
% \message{\number\MWN}

%%%%%%%%%%%%%%%%%%%%%%%%%%% PONIEDZIALEK WIELKANOCNY %%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\DPW \newcount\MPW
    \DPW=\DWN
    \MPW=\MWN
    \ifnum\DPW=31 \MPW=4 \fi
    \ifnum\DPW=31 \DPW=1 \else \advance\DPW by +1 \fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BOZE CIALO %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\DBC \newcount\MBC
    \DBC=\DWN
    \MBC=\MWN
    \ifnum\DBC=1 \MBC=5 \else \advance\MBC by +2 \fi
    \ifnum\DBC=1 \DBC=31 \else \advance\DBC by -1 \fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ZIELONE SWIATKI %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\DZS \newcount\MZS
    \DZS=\DBC
    \MZS=\MBC
    \ifnum\DZS<12 \MZS=5 \fi
    \ifnum\DZS<12 \advance\DZS by 20 \else \advance\DZS by -11 \fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% POPIELEC %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\DSP \newcount\MSP
    \DSP=\DWN
    \MSP=\MWN
    \ifnum\MSP=3 \MSP=2 \else \ifnum\DSP<16 \MSP=2 \else \MSP=3 \fi\fi
    \ifnum\febdays=28
    \ifnum\MWN=3 \advance\DSP by -18
    \else \ifnum\DSP<16 \advance\DSP by 13
    \else \advance\DSP by -15 \fi\fi
    \else
    \ifnum\MWN=3 \advance\DSP by -17
    \else \ifnum\DSP<16 \advance\DSP by 14
    \else \advance\DSP by -15 \fi\fi
    \fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SWIETA WYROZNIONE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\endmonth

\def\day#1{\advance \date by#1
\ifnum\year=1582 \ifnum\greg=1 \ifnum#1>4 \advance\date by 10 \fi\fi\fi
\global\BF=0
\ifnum\year>1581 \ifnum\year<4905
\ifnum\year<1946
\ifnum\mon=1 \ifnum\date=6 \bf \global\BF=1 \fi\fi                   % trzech kroli
\ifnum\mon=2 \ifnum\date=2 \bf \global\BF=1 \fi\fi                   % oczyszczenie n.m.p.
\ifnum\mon=3 \ifnum\date=25 \bf \global\BF=1 \fi\fi                  % zwiastowanie n.m.p.
\ifnum\mon=6 \ifnum\date=29 \bf \global\BF=1 \fi\fi                  % piotra i pawla
\ifnum\mon=8 \ifnum\date=15 \bf \global\BF=1 \fi\fi                  % wniebowziecie n.m.p.
\ifnum\mon=9 \ifnum\date=8 \bf \global\BF=1 \fi\fi                   % narodzenie n.m.p.
\ifnum\mon=9 \ifnum\date=29 \bf \global\BF=1 \fi\fi                  % michala, apost.
\ifnum\mon=12 \ifnum\date=8 \bf \global\BF=1 \fi\fi                  % niepok. pocz. n.m.p.
\fi
\ifnum\mon=1 \ifnum\date=1 \bf \global\BF=1 \fi\fi                   % nowy rok
\ifnum\mon=\MPW \ifnum\date=\DPW \bf \global\BF=1 \fi\fi             % poniedzialek wlknocny
\ifnum\mon=\MBC \ifnum\date=\DBC \bf \global\BF=1 \fi\fi             % boze cialo
\ifnum\mon=11 \ifnum\date=1 \bf \global\BF=1 \fi\fi                  % wszystkich swietych
\ifnum\mon=12 \ifnum\date=25 \bf \global\BF=1 \fi\fi                 % boze narodzenie
\ifnum\mon=12 \ifnum\date=26 \bf \global\BF=1 \fi\fi                 % szczepana, mecz.
\ifnum\year>1945
\ifnum\mon=5 \ifnum\date=1 \bf \global\BF=1 \fi\fi                   % swieto pracy
\ifnum\year<1990
\ifnum\mon=7 \ifnum\date=22 \bf \global\BF=1 \fi\fi                  % swieto odrodzenia p.l.
\fi
\ifnum\year>1989
\ifnum\mon=5 \ifnum\date=3 \bf \global\BF=1 \fi\fi                   % swieto konstytucji
\ifnum\mon=8 \ifnum\date=15 \bf \global\BF=1 \fi\fi                  % wniebowziecie n.m.p.
\ifnum\mon=11 \ifnum\date=11 \bf \global\BF=1 \fi\fi                 % odzyskanie niepodl.
\fi
\fi
\fi\fi
\ifnum\date>0 \ifnum\date>\monthdays \global\endmonth=1 \else\number\date
\ifnum\month>0 \ifnum\holydays=0 \makebox[11mm][r]{} \else
\raisebox{-3.5mm}{\makebox[11mm][l]{\hspace*{-6.25mm}\tiny\holyday}} \fi\fi
\fi\fi
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SWIETA OPISANE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\holyday{%                                          % \holydays=1
\ifnum\year>1581 \ifnum\year<4905
\ifnum\year<1946
\ifnum\mon=1 \ifnum\date=6 Trzech Kr/oli \fi\fi         % trzech kroli
\ifnum\mon=2 \ifnum\date=2 Oczyszcz. NMP \fi\fi         % oczyszczenie n.m.p.
\ifnum\mon=3 \ifnum\date=25 Zwiastow. NMP \fi\fi        % zwiastowanie n.m.p.
\ifnum\mon=6 \ifnum\date=29 Piotra i Paw/la \fi\fi      % piotra i pawla
\ifnum\mon=8 \ifnum\date=15 Wniebowz. NMP \fi\fi        % wniebowziecie n.m.p.
\ifnum\mon=9 \ifnum\date=8 Narodz. NMP \fi\fi           % narodzenie n.m.p.
\ifnum\mon=9 \ifnum\date=29 Micha/la, arch. \fi\fi      % michala, arch.
\ifnum\mon=12 \ifnum\date=8 N. Pocz. NMP \fi\fi         % niepok. pocz. n.m.p.
\fi
\ifnum\mon=1 \ifnum\date=1 Nowy Rok \fi\fi              % nowy rok
\ifnum\mon=\MSP \ifnum\date=\DSP Popielec \fi\fi        % popielec
\ifnum\mon=\MWN \ifnum\date=\DWN Wielkanoc \fi\fi       % wielkanoc
\ifnum\mon=\MZS \ifnum\date=\DZS Zielone /Swi/atki \fi\fi % zielone swiatki
\ifnum\mon=\MBC \ifnum\date=\DBC Bo/ze Cia/lo \fi\fi      % boze cialo
\ifnum\mon=11 \ifnum\date=1 Wszystkich /Sw. \fi\fi      % wszystkich swietych
\ifnum\mon=12 \ifnum\date=24 Wigilia \fi\fi             % wigilia b.n.
\ifnum\mon=12 \ifnum\date=25 Bo/ze Narodzenie \fi\fi    % boze narodzenie
\ifnum\year>1945
\ifnum\mon=5 \ifnum\date=1 /Sw. Pracy \fi\fi            % swieto pracy
\ifnum\year<1990
\ifnum\mon=7 \ifnum\date=22 /Sw. Odrodzenia \fi\fi      % swieto odrodzenia p.l.
\fi
\ifnum\year>1989
\ifnum\mon=5 \ifnum\date=3 Konstytucja 3\,V \fi\fi      % swieto konstytucji
\ifnum\mon=8 \ifnum\date=15 Wniebowz. NMP \fi\fi        % wniebowziecie n.m.p.
\ifnum\mon=11 \ifnum\date=11 Odz. Niepodl. \fi\fi       % odzyskanie niepodl.
\fi
\fi
\fi\fi
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KALENDARZ ROCZNY %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ifnum\month=0                                          % \month=0

\ifnum\calterm=0                                        % \calterm=0

\def\,{\'\>}
\def\monthy#1#2#3{\initialdate{#1}{#2}%
\begin{minipage}[t]{35mm}
\centerline{\Large\bf#3}
\begin{tabbing}\hspace*{1.85em}\=\hspace{1.85em}\=\hspace{1.85em}\=\hspace{1.85em}\=\hspace{1.85em}\=\hspace{1.85em}\=\hspace{1.85em}\\
Pn\kern2.5pt\,Wt\,\a'Sr\kern1.25pt\,Cz\,Pt\,Sb\,\bf N\'\\
\rule{0em}{2.75ex}
\day{ 1}\,\day{ 2}\,\day{ 3}\,\day{ 4}\,\day{ 5}\,\day{ 6}\,\bf\day{ 7}\'\\
\day{ 8}\,\day{ 9}\,\day{10}\,\day{11}\,\day{12}\,\day{13}\,\bf\day{14}\'\\
\day{15}\,\day{16}\,\day{17}\,\day{18}\,\day{19}\,\day{20}\,\bf\day{21}\'\\
\day{22}\,\day{23}\,\day{24}\,\day{25}\,\day{26}\,\day{27}\,\bf\day{28}\'\\
\day{29}\,\day{30}\,\day{31}\,\day{32}\,\day{33}\,\day{34}\,\bf\day{35}\'\\
\day{36}\,\day{37}\,\day{38}\,\day{39}\,\day{40}\,\day{41}\,\bf\day{42}\'
\end{tabbing}
\end{minipage}
\global\advance\yearoff by #2 \temp=\yearoff
\ifnum\yearoff>35 \global\advance\yearoff by -35
\else\global\advance \yearoff by -28 \fi}

\newcount\xa \newcount\xb \newcount\xc
\newcount\ya \newcount\yb \newcount\yc \newcount\yd
\xa=0 \xb=240 {\multiply \xb by 2 \global \xc=\xb }
\yd=0 \yc=230 {\multiply \yc by 2 \global \yb=\yc }
              {\multiply \yc by 3 \global \ya=\yc }

\vspace*{7mm}
\centerline{\Huge\bf\number\year}
\unitlength0.25mm
\begin{picture}(0,765)
\mon=1 \put(\xa,\ya){\monthy{\yearoff}{31}{Stycze/n}}
\mon=2 \put(\xb,\ya){\monthy{\yearoff}{\febdays}{Luty}}
\mon=3 \put(\xc,\ya){\monthy{\yearoff}{31}{Marzec}}
\mon=4 \put(\xa,\yb){\monthy{\yearoff}{30}{Kwiecie/n}}
\mon=5 \put(\xb,\yb){\monthy{\yearoff}{31}{Maj}}
\mon=6 \put(\xc,\yb){\monthy{\yearoff}{30}{Czerwiec}}
\mon=7 \put(\xa,\yc){\monthy{\yearoff}{31}{Lipiec}}
\mon=8 \put(\xb,\yc){\monthy{\yearoff}{31}{Sierpie/n}}
\mon=9 \put(\xc,\yc){\monthy{\yearoff}{30}{Wrzesie/n}}
\mon=10 \ifnum\year=1582 \greg=1 \fi
        \put(\xa,\yd){\monthy{\yearoff}{31}{Pa/xdziernik}}
        \ifnum\greg=1 \advance\yearoff by -3 \greg=0 \fi
\mon=11 \put(\xb,\yd){\monthy{\yearoff}{30}{Listopad}}
\mon=12 \put(\xc,\yd){\monthy{\yearoff}{31}{Grudzie/n}}
\end{picture}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TERMINARZ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\else                                                   % \calterm=1

\textwidth=180mm
\textheight=250mm
\oddsidemargin-10mm

\columnsep=9mm \twocolumn

\footnotesize

\def\monthy#1#2#3{\initialdate{#1}{#2}%
\endmonth=0
\tabcolsep=.375em
\begin{table}
\begin{tabular}{rl|l}
 &
 &
\begin{minipage}[l]{6.75cm}
\hspace*{\fill}
\bf #3 \number\year \vspace*{3ex}
\end{minipage} \\
\hline
\ifnum\date>-1 \day{ 1} & \ifnum\BF=1 \bf \fi Pn & \\ \hline \fi
\ifnum\date>-2 \day{ 2} & \ifnum\BF=1 \bf \fi Wt & \\ \hline \fi
\ifnum\date>-3 \day{ 3} & \ifnum\BF=1 \bf \fi /Sr & \\ \hline \fi
\ifnum\date>-4 \day{ 4} & \ifnum\BF=1 \bf \fi Cz & \\ \hline \fi
\ifnum\date>-5 \day{ 5} & \ifnum\BF=1 \bf \fi Pt & \\ \hline \fi
\ifnum\date>-6 \day{ 6} & \ifnum\BF=1 \bf \fi Sb & \\ \hline \fi
\bf \day{ 7} & \bf N & \\ \hline
\day{ 8} & \ifnum\BF=1 \bf \fi Pn & \\ \hline
\day{ 9} & \ifnum\BF=1 \bf \fi Wt & \\ \hline
\day{10} & \ifnum\BF=1 \bf \fi /Sr & \\ \hline
\day{11} & \ifnum\BF=1 \bf \fi Cz & \\ \hline
\day{12} & \ifnum\BF=1 \bf \fi Pt & \\ \hline
\day{13} & \ifnum\BF=1 \bf \fi Sb & \\ \hline
\bf \day{14} & \bf N  & \\ \hline
\day{15} & \ifnum\BF=1 \bf \fi Pn & \\ \hline
\day{16} & \ifnum\BF=1 \bf \fi Wt & \\ \hline
\day{17} & \ifnum\BF=1 \bf \fi /Sr & \\ \hline
\day{18} & \ifnum\BF=1 \bf \fi Cz & \\ \hline
\day{19} & \ifnum\BF=1 \bf \fi Pt & \\ \hline
\day{20} & \ifnum\BF=1 \bf \fi Sb & \\ \hline
\bf \day{21} & \bf N  & \\ \hline
\day{22} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi Pn \fi & \\ \hline
\day{23} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi Wt \fi & \\ \hline
\day{24} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi /Sr \fi & \\ \hline
\day{25} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi Cz \fi & \\ \hline
\day{26} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi Pt \fi & \\ \hline
\day{27} & \ifnum\greg<1 \ifnum\BF=1 \bf \fi Sb \fi & \\ \hline
\bf \day{28} & \ifnum\greg<1 \bf N  \fi & \\ \hline
\day{29} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Pn \fi & \\ \hline
\day{30} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Wt \fi & \\ \hline
\day{31} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi /Sr \fi & \\ \hline
\ifnum\date<-0 \day{32} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Cz \fi & \\ \hline \fi
\ifnum\date<-1 \day{33} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Pt \fi & \\ \hline \fi
\ifnum\date<-2 \day{34} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Sb \fi & \\ \hline \fi
\ifnum\date<-3 \bf \day{35} & \ifnum\endmonth=0 \bf N  \fi & \\ \hline \fi
\ifnum\date<-4 \day{36} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Pn \fi & \\ \hline \fi
\ifnum\date<-5 \day{37} & \ifnum\endmonth=0 \ifnum\BF=1 \bf \fi Wt \fi & \\ \hline \fi
\end{tabular}
\end{table}
\global\advance\yearoff by #2 \temp=\yearoff
\ifnum\yearoff>35 \global\advance\yearoff by -35
\else\global\advance \yearoff by -28 \fi
}

\mon=12 {\global\advance\yearoff by 5
       \ifnum\febdays=29 \global\advance\yearoff by 1 \fi
       \ifnum\year=1582 \global\advance\yearoff by -3 \fi
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Grudzie/n}}
\mon=1 {\global\advance\yearoff by 6
       \ifnum\febdays=29 \global\advance\yearoff by -1 \fi
       \ifnum\year=1582 \global\advance\yearoff by -4 \fi
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Stycze/n}}

\mon=2 {\global\advance\yearoff by 0
       \monthy{\yearoff}{\febdays}{Luty}}
\mon=11 {\global\advance\yearoff by 0
       \ifnum\year=1582 \global\advance\yearoff by 4 \fi
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{30}{Listopad}}

\mon=10 \ifnum\year=1582 \greg=1 \fi
        {\global\advance\yearoff by 2
       \ifnum\year=1582 \global\advance\yearoff by 3 \fi
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Pa/xdziernik}}
       \ifnum\greg=1 \advance\yearoff by -3 \greg=0 \fi
\mon=3 {\global\advance\yearoff by 0
       \ifnum\year=1582 \global\advance\yearoff by 3 \fi
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Marzec}}

\mon=4 {\global\advance\yearoff by 0
       \monthy{\yearoff}{30}{Kwiecie/n}}
\mon=9 {\global\advance\yearoff by 4
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{30}{Wrzesie/n}}

\mon=8 {\global\advance\yearoff by 2
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Sierpie/n}}
\mon=5 {\global\advance\yearoff by 3
       \ifnum\yearoff>7 \global\advance\yearoff by -7 \fi
       \monthy{\yearoff}{31}{Maj}}

\mon=6 {\global\advance\yearoff by 0
       \monthy{\yearoff}{30}{Czerwiec}}
\mon=7 {\monthy{\yearoff}{31}{Lipiec}}

\fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KALENDARZ MIESIECZNY %%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\else                                                   % \month={1..12}

\mon=\month

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IMIENINY PIERWSZE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\frstname#1{\ifnum\year>1945 \ifnum\names>0
\advance\date by#1                                      % \names=1

\ifnum\mon=1
\ifnum\date=1 Mieszka \fi
\ifnum\date=2 Izydora \fi
\ifnum\date=3 Arletty \fi
\ifnum\date=4 Tytusa \fi
\ifnum\date=5 Hanny \fi
\ifnum\date=6 Kaspra \fi
\ifnum\date=7 Juliana \fi
\ifnum\date=8 Seweryna \fi
\ifnum\date=9 Marceliny \fi
\ifnum\date=10 Wilhelma \fi
\ifnum\date=11 Honoraty \fi
\ifnum\date=12 Grety \fi
\ifnum\date=13 Bogumi/ly \fi
\ifnum\date=14 Feliksa \fi
\ifnum\date=15 Paw/la \fi
\ifnum\date=16 Marcelego \fi
\ifnum\date=17 Antoniego \fi
\ifnum\date=18 Piotra \fi
\ifnum\date=19 Henryka \fi
\ifnum\date=20 Fabiana \fi
\ifnum\date=21 Agnieszki \fi
\ifnum\date=22 Anastazego \fi
\ifnum\date=23 Ildefonsa \fi
\ifnum\date=24 Felicji \fi
\ifnum\date=25 Paw/la \fi
\ifnum\date=26 Pauli \fi
\ifnum\date=27 Angeli \fi
\ifnum\date=28 Walerego \fi
\ifnum\date=29 Zdzis/lawa \fi
\ifnum\date=30 Macieja \fi
\ifnum\date=31 Marceli \fi
\fi

\ifnum\mon=2
\ifnum\date=1 Brygidy \fi
\ifnum\date=2 Marii \fi
\ifnum\date=3 B/la/zeja \fi
\ifnum\date=4 Andrzeja \fi
\ifnum\date=5 Agaty \fi
\ifnum\date=6 Doroty \fi
\ifnum\date=7 Ryszarda \fi
\ifnum\date=8 Piotra \fi
\ifnum\date=9 Apolonii \fi
\ifnum\date=10 Elwiry \fi
\ifnum\date=11 Marii \fi
\ifnum\date=12 Eulalii \fi
\ifnum\date=13 Grzegorza \fi
\ifnum\date=14 Metodego \fi
\ifnum\date=15 Jowity \fi
\ifnum\date=16 Danuty \fi
\ifnum\date=17 Donata \fi
\ifnum\date=18 Symeona \fi
\ifnum\date=19 Arnolda \fi
\ifnum\date=20 Leona \fi
\ifnum\date=21 Eleonory \fi
\ifnum\date=22 Marty \fi
\ifnum\date=23 Romany \fi
\ifnum\date=24 Macieja \fi
\ifnum\date=25 Wiktora \fi
\ifnum\date=26 Miros/lawa \fi
\ifnum\date=27 Gabriela \fi
\ifnum\date=28 Makarego \fi
\ifnum\date=29 \ifnum\febdays=29 Romana\fi \fi
\fi

\ifnum\mon=3
\ifnum\date=1 Antoniny \fi
\ifnum\date=2 Heleny \fi
\ifnum\date=3 Maryny \fi
\ifnum\date=4 /Lucji \fi
\ifnum\date=5 Adriana \fi
\ifnum\date=6 R/o/zy \fi
\ifnum\date=7 Paw/la \fi
\ifnum\date=8 Beaty \fi
\ifnum\date=9 Katarzyny \fi
\ifnum\date=10 Cypriana \fi
\ifnum\date=11 Ludos/lawa \fi
\ifnum\date=12 Bernarda \fi
\ifnum\date=13 Bo/zeny \fi
\ifnum\date=14 Leona \fi
\ifnum\date=15 Longina \fi
\ifnum\date=16 Izabeli \fi
\ifnum\date=17 Patryka \fi
\ifnum\date=18 Cyryla \fi
\ifnum\date=19 J/ozefa \fi
\ifnum\date=20 Klaudii \fi
\ifnum\date=21 Lubomira \fi
\ifnum\date=22 Katarzyny \fi
\ifnum\date=23 Pelagiusza \fi
\ifnum\date=24 Marka \fi
\ifnum\date=25 Marioli \fi
\ifnum\date=26 Larysy \fi
\ifnum\date=27 Lidii \fi
\ifnum\date=28 Anieli \fi
\ifnum\date=29 Wiktoryna \fi
\ifnum\date=30 Amelii \fi
\ifnum\date=31 Beniamina \fi
\fi

\ifnum\mon=4
\ifnum\date=1 Teodory \fi
\ifnum\date=2 W/ladys/lawa \fi
\ifnum\date=3 Ryszarda \fi
\ifnum\date=4 Izydora \fi
\ifnum\date=5 Ireny \fi
\ifnum\date=6 Izoldy \fi
\ifnum\date=7 Rufina \fi
\ifnum\date=8 Cezaryny \fi
\ifnum\date=9 Mai \fi
\ifnum\date=10 Micha/la \fi
\ifnum\date=11 Filipa \fi
\ifnum\date=12 Juliusza \fi
\ifnum\date=13 Przemys/lawa \fi
\ifnum\date=14 Bereniki \fi
\ifnum\date=15 Ludmi/ly \fi
\ifnum\date=16 Kseni \fi
\ifnum\date=17 Rudolfa \fi
\ifnum\date=18 Bogus/lawy \fi
\ifnum\date=19 Adolfa \fi
\ifnum\date=20 Czes/lawa \fi
\ifnum\date=21 Anzelma \fi
\ifnum\date=22 Kai \fi
\ifnum\date=23 Jerzego \fi
\ifnum\date=24 Horacego \fi
\ifnum\date=25 Marka \fi
\ifnum\date=26 Marzeny \fi
\ifnum\date=27 Zyty \fi
\ifnum\date=28 Paw/la \fi
\ifnum\date=29 Rity \fi
\ifnum\date=30 Mariana \fi
\fi

\ifnum\mon=5
\ifnum\date=1 J/ozefa \fi
\ifnum\date=2 Zygmunta \fi
\ifnum\date=3 Marii \fi
\ifnum\date=4 Moniki \fi
\ifnum\date=5 Ireny \fi
\ifnum\date=6 Judyty \fi
\ifnum\date=7 Gizeli \fi
\ifnum\date=8 Ilzy \fi
\ifnum\date=9 Bo/zydara \fi
\ifnum\date=10 Izydora \fi
\ifnum\date=11 Igi \fi
\ifnum\date=12 Pankracego \fi
\ifnum\date=13 Serwacego \fi
\ifnum\date=14 Bonifacego \fi
\ifnum\date=15 Zofii \fi
\ifnum\date=16 Andrzeja \fi
\ifnum\date=17 Paschalisa \fi
\ifnum\date=18 Eryka \fi
\ifnum\date=19 Iwa \fi
\ifnum\date=20 Bazylego \fi
\ifnum\date=21 Wiktora \fi
\ifnum\date=22 Heleny \fi
\ifnum\date=23 Iwony \fi
\ifnum\date=24 Joanny \fi
\ifnum\date=25 Grzegorza \fi
\ifnum\date=26 Filipa \fi
\ifnum\date=27 Jana \fi
\ifnum\date=28 Jaromira \fi
\ifnum\date=29 Teodozji \fi
\ifnum\date=30 Feliksa \fi
\ifnum\date=31 Anieli \fi
\fi

\ifnum\mon=6
\ifnum\date=1 Jakuba \fi
\ifnum\date=2 Erazma \fi
\ifnum\date=3 Leszka \fi
\ifnum\date=4 Karola \fi
\ifnum\date=5 Waltera \fi
\ifnum\date=6 Norberta \fi
\ifnum\date=7 Roberta \fi
\ifnum\date=8 Medarda \fi
\ifnum\date=9 Pelagii \fi
\ifnum\date=10 Bogumi/la \fi
\ifnum\date=11 Barnaby \fi
\ifnum\date=12 Janiny \fi
\ifnum\date=13 Lucjana \fi
\ifnum\date=14 Elizy \fi
\ifnum\date=15 Wita \fi
\ifnum\date=16 Aliny \fi
\ifnum\date=17 Laury \fi
\ifnum\date=18 Marka \fi
\ifnum\date=19 Gerwazego \fi
\ifnum\date=20 Diny \fi
\ifnum\date=21 Alicji \fi
\ifnum\date=22 Paulina \fi
\ifnum\date=23 Wandy \fi
\ifnum\date=24 Jana \fi
\ifnum\date=25 /Lucji \fi
\ifnum\date=26 Jana \fi
\ifnum\date=27 Maryli \fi
\ifnum\date=28 Leona \fi
\ifnum\date=29 Piotra \fi
\ifnum\date=30 Emilii \fi
\fi

\ifnum\mon=7
\ifnum\date=1 Haliny \fi
\ifnum\date=2 Jagody \fi
\ifnum\date=3 Jacka \fi
\ifnum\date=4 Odona \fi
\ifnum\date=5 Karoliny \fi
\ifnum\date=6 Gotarda \fi
\ifnum\date=7 Estery \fi
\ifnum\date=8 Edgara \fi
\ifnum\date=9 Lukrecji \fi
\ifnum\date=10 Sylwany \fi
\ifnum\date=11 Olgi \fi
\ifnum\date=12 Jana \fi
\ifnum\date=13 Irwina \fi
\ifnum\date=14 Ulryka \fi
\ifnum\date=15 Henryka \fi
\ifnum\date=16 Mariki \fi
\ifnum\date=17 Anety \fi
\ifnum\date=18 Erwina \fi
\ifnum\date=19 Alfredy \fi
\ifnum\date=20 Czes/lawa \fi
\ifnum\date=21 Daniela \fi
\ifnum\date=22 Marii \fi
\ifnum\date=23 S/lawosza \fi
\ifnum\date=24 Kingi \fi
\ifnum\date=25 Walentyny \fi
\ifnum\date=26 Anny \fi
\ifnum\date=27 Lilii \fi
\ifnum\date=28 Aidy \fi
\ifnum\date=29 Olafa \fi
\ifnum\date=30 Julity \fi
\ifnum\date=31 Ignacego \fi
\fi

\ifnum\mon=8
\ifnum\date=1 Nadii \fi
\ifnum\date=2 Kariny \fi
\ifnum\date=3 Lidii \fi
\ifnum\date=4 Dominika \fi
\ifnum\date=5 Oswalda \fi
\ifnum\date=6 S/lawy \fi
\ifnum\date=7 Doris \fi
\ifnum\date=8 Cyriaka \fi
\ifnum\date=9 Rolanda \fi
\ifnum\date=10 Borysa \fi
\ifnum\date=11 Ligii \fi
\ifnum\date=12 Klary \fi
\ifnum\date=13 Diany \fi
\ifnum\date=14 Alfreda \fi
\ifnum\date=15 Marii \fi
\ifnum\date=16 Rocha \fi
\ifnum\date=17 /Zanny \fi
\ifnum\date=18 Ilony \fi
\ifnum\date=19 Juliana \fi
\ifnum\date=20 Bernarda \fi
\ifnum\date=21 Joanny \fi
\ifnum\date=22 Zygfryda \fi
\ifnum\date=23 Filipa \fi
\ifnum\date=24 Jerzego \fi
\ifnum\date=25 Luizy \fi
\ifnum\date=26 Marii \fi
\ifnum\date=27 J/ozefa \fi
\ifnum\date=28 Patrycji \fi
\ifnum\date=29 Jana \fi
\ifnum\date=30 R/o/zy \fi
\ifnum\date=31 Ramony \fi
\fi

\ifnum\mon=9
\ifnum\date=1 Idziego \fi
\ifnum\date=2 Juliana \fi
\ifnum\date=3 Izabeli \fi
\ifnum\date=4 Idy \fi
\ifnum\date=5 Doroty \fi
\ifnum\date=6 Beaty \fi
\ifnum\date=7 Reginy \fi
\ifnum\date=8 Marii \fi
\ifnum\date=9 /Scibora \fi
\ifnum\date=10 /Lukasza \fi
\ifnum\date=11 Jacka \fi
\ifnum\date=12 Gwidona \fi
\ifnum\date=13 Eugenii \fi
\ifnum\date=14 Roksany \fi
\ifnum\date=15 Albina \fi
\ifnum\date=16 Edyty \fi
\ifnum\date=17 Franciszka \fi
\ifnum\date=18 Irmy \fi
\ifnum\date=19 Januarego \fi
\ifnum\date=20 Filipiny \fi
\ifnum\date=21 Jonasza \fi
\ifnum\date=22 Tomasza \fi
\ifnum\date=23 Tekli \fi
\ifnum\date=24 Gerarda \fi
\ifnum\date=25 Aurelii \fi
\ifnum\date=26 Justyny \fi
\ifnum\date=27 Damiana \fi
\ifnum\date=28 Luby \fi
\ifnum\date=29 Micha/la \fi
\ifnum\date=30 Wery \fi
\fi

\ifnum\mon=10
\ifnum\date=1 Danuty \fi
\ifnum\date=2 Teofila \fi
\ifnum\date=3 Teresy \fi
\ifnum\date=4 Rozalii \fi
\ifnum\date=5 Igora \fi
\ifnum\date=6 Artura \fi
\ifnum\date=7 Marii \fi
\ifnum\date=8 Pelagii \fi
\ifnum\date=9 Arnolda \fi
\ifnum\date=10 Pauliny \fi
\ifnum\date=11 Emila \fi
\ifnum\date=12 Eustachego \fi
\ifnum\date=13 Geralda \fi
\ifnum\date=14 Liwii \fi
\ifnum\date=15 Teresy \fi
\ifnum\date=16 Gaw/la \fi
\ifnum\date=17 Wiktora \fi
\ifnum\date=18 Juliana \fi
\ifnum\date=19 Piotra \fi
\ifnum\date=20 Ireny \fi
\ifnum\date=21 Urszuli \fi
\ifnum\date=22 Halki \fi
\ifnum\date=23 Marleny \fi
\ifnum\date=24 Rafa/la \fi
\ifnum\date=25 Darii \fi
\ifnum\date=26 /Lucjana \fi
\ifnum\date=27 Iwony \fi
\ifnum\date=28 Szymona \fi
\ifnum\date=29 Euzebii \fi
\ifnum\date=30 Zenobii \fi
\ifnum\date=31 Urbana \fi
\fi

\ifnum\mon=11
\ifnum\date=1  \fi
\ifnum\date=2 Bohdany \fi
\ifnum\date=3 Sylwii \fi
\ifnum\date=4 Karola \fi
\ifnum\date=5 El/zbiety \fi
\ifnum\date=6 Feliksa \fi
\ifnum\date=7 Antoniego \fi
\ifnum\date=8 Sewera \fi
\ifnum\date=9 Ursyna \fi
\ifnum\date=10 Leny \fi
\ifnum\date=11 Marcina \fi
\ifnum\date=12 Renaty \fi
\ifnum\date=13 Miko/laja \fi
\ifnum\date=14 Rogera \fi
\ifnum\date=15 Alberta \fi
\ifnum\date=16 Gertrudy \fi
\ifnum\date=17 Salomei \fi
\ifnum\date=18 Romana \fi
\ifnum\date=19 El/zbiety \fi
\ifnum\date=20 Anatola \fi
\ifnum\date=21 Janusza \fi
\ifnum\date=22 Marka \fi
\ifnum\date=23 Adeli \fi
\ifnum\date=24 Flory \fi
\ifnum\date=25 Erazma \fi
\ifnum\date=26 Delfiny \fi
\ifnum\date=27 Waleriana \fi
\ifnum\date=28 Les/lawa \fi
\ifnum\date=29 B/la/zeja \fi
\ifnum\date=30 Andrzeja \fi
\fi

\ifnum\mon=12
\ifnum\date=1 Natalii \fi
\ifnum\date=2 Balbiny \fi
\ifnum\date=3 Franciszka \fi
\ifnum\date=4 Barbary \fi
\ifnum\date=5 Saby \fi
\ifnum\date=6 Miko/laja \fi
\ifnum\date=7 Marcina \fi
\ifnum\date=8 Marii \fi
\ifnum\date=9 Wies/lawa \fi
\ifnum\date=10 Julii \fi
\ifnum\date=11 Damazego \fi
\ifnum\date=12 Dagmary \fi
\ifnum\date=13 /Lucji \fi
\ifnum\date=14 Alfreda \fi
\ifnum\date=15 Niny \fi
\ifnum\date=16 Albiny \fi
\ifnum\date=17 Olimpii \fi
\ifnum\date=18 Gracjana \fi
\ifnum\date=19 Gabrieli \fi
\ifnum\date=20 Bogumi/ly \fi
\ifnum\date=21 Tomasza \fi
\ifnum\date=22 Zenona \fi
\ifnum\date=23 Wiktorii \fi
\ifnum\date=24 Adama i Ewy \fi
\ifnum\date=25  \fi
\ifnum\date=26 Dionizego \fi
\ifnum\date=27 Jana \fi
\ifnum\date=28 Teofili \fi
\ifnum\date=29 Dawida \fi
\ifnum\date=30 Irminy \fi
\ifnum\date=31 Melanii \fi
\fi

\else                                                   % \names=0
\fi\fi}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IMIENINY DRUGIE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\scndname#1{\ifnum\year>1945 \ifnum\names>0
\advance\date by#1                                      % \names=1

\ifnum\mon=1
\ifnum\date=1 Mieczys/lawa \fi
\ifnum\date=2 Makarego \fi
\ifnum\date=3 Genowefy \fi
\ifnum\date=4 Angeliki \fi
\ifnum\date=5 Emiliany \fi
\ifnum\date=6 Melchiora \fi
\ifnum\date=7 Lucjana \fi
\ifnum\date=8 M/scis/lawa \fi
\ifnum\date=9 Marcjanny \fi
\ifnum\date=10 Dobros/lawa \fi
\ifnum\date=11 Teodozjusza \fi
\ifnum\date=12 Arkadiusza \fi
\ifnum\date=13 Weroniki \fi
\ifnum\date=14 Hilarego \fi
\ifnum\date=15 Domos/lawa \fi
\ifnum\date=16 W/lodzimierza \fi
\ifnum\date=17 Ro/scis/lawa \fi
\ifnum\date=18 Ma/lgorzaty \fi
\ifnum\date=19 Mariusza \fi
\ifnum\date=20 Sebastiana \fi
\ifnum\date=21 Jaros/lawy \fi
\ifnum\date=22 Wincentego \fi
\ifnum\date=23 Rajmunda \fi
\ifnum\date=24 Tymoteusza \fi
\ifnum\date=25 Mi/losza \fi
\ifnum\date=26 Polikarpa \fi
\ifnum\date=27 Przybys/lawa \fi
\ifnum\date=28 Radomira \fi
\ifnum\date=29 Franciszka \fi
\ifnum\date=30 Martyny \fi
\ifnum\date=31 Ludwiki \fi
\fi

\ifnum\mon=2
\ifnum\date=1 Ignacego \fi
\ifnum\date=2 Mi/los/lawa \fi
\ifnum\date=3 Oskara \fi
\ifnum\date=4 Weroniki \fi
\ifnum\date=5 Adelajdy \fi
\ifnum\date=6 Bohdana \fi
\ifnum\date=7 Romualda \fi
\ifnum\date=8 /Zakliny \fi
\ifnum\date=9 Eryki \fi
\ifnum\date=10 Jacentego \fi
\ifnum\date=11 Lucjusza \fi
\ifnum\date=12 Radzimierza \fi
\ifnum\date=13 Katarzyny \fi
\ifnum\date=14 Walentego \fi
\ifnum\date=15 Faustyna \fi
\ifnum\date=16 Julianny \fi
\ifnum\date=17 Sylwina \fi
\ifnum\date=18 Konstancjusza \fi
\ifnum\date=19 Konrada \fi
\ifnum\date=20 Ludomi/la \fi
\ifnum\date=21 Fortunata \fi
\ifnum\date=22 Ma/lgorzaty \fi
\ifnum\date=23 Damiana \fi
\ifnum\date=24 Bogusza \fi
\ifnum\date=25 Cezarego \fi
\ifnum\date=26 Aleksandra \fi
\ifnum\date=27 Anastazji \fi
\ifnum\date=28 Lutomira \fi
\ifnum\date=29 \ifnum\febdays=29  \fi\fi
\fi

\ifnum\mon=3
\ifnum\date=1 Rados/lawa \fi
\ifnum\date=2 Halszki \fi
\ifnum\date=3 Kunegundy \fi
\ifnum\date=4 Kazimierza \fi
\ifnum\date=5 Fryderyka \fi
\ifnum\date=6 Jordana \fi
\ifnum\date=7 Tomasza \fi
\ifnum\date=8 Wincentego \fi
\ifnum\date=9 Franciszki \fi
\ifnum\date=10 Marcela \fi
\ifnum\date=11 Konstantego \fi
\ifnum\date=12 Grzegorza \fi
\ifnum\date=13 Krystyny \fi
\ifnum\date=14 Matyldy \fi
\ifnum\date=15 Klemensa \fi
\ifnum\date=16 Oktawii \fi
\ifnum\date=17 Zbigniewa \fi
\ifnum\date=18 Edwarda \fi
\ifnum\date=19 Bogdana \fi
\ifnum\date=20 Eufemii \fi
\ifnum\date=21 Benedykta \fi
\ifnum\date=22 Bogus/lawa \fi
\ifnum\date=23 Oktawiana \fi
\ifnum\date=24 Gabora \fi
\ifnum\date=25 Wie/nczys/lawa \fi
\ifnum\date=26 Emanuela \fi
\ifnum\date=27 Ernesta \fi
\ifnum\date=28 Sykstusa \fi
\ifnum\date=29 Helmuta \fi
\ifnum\date=30 Kwiryna \fi
\ifnum\date=31 Dobromierza \fi
\fi

\ifnum\mon=4
\ifnum\date=1 Gra/zyny \fi
\ifnum\date=2 Franciszka \fi
\ifnum\date=3 Pankracego \fi
\ifnum\date=4 Wac/lawa \fi
\ifnum\date=5 Wincentego \fi
\ifnum\date=6 Celestyna \fi
\ifnum\date=7 Donata \fi
\ifnum\date=8 Dionizego \fi
\ifnum\date=9 Dymitra \fi
\ifnum\date=10 Makarego \fi
\ifnum\date=11 Leona \fi
\ifnum\date=12 Lubos/lawa \fi
\ifnum\date=13 Hermenegildy \fi
\ifnum\date=14 Waleriana \fi
\ifnum\date=15 Wac/lawy \fi
\ifnum\date=16 Cecyliana \fi
\ifnum\date=17 Roberta \fi
\ifnum\date=18 Apoloniusza \fi
\ifnum\date=19 Tymona \fi
\ifnum\date=20 Agnieszki \fi
\ifnum\date=21 Bartosza \fi
\ifnum\date=22 Leonii \fi
\ifnum\date=23 Wojciecha \fi
\ifnum\date=24 Fidelisa \fi
\ifnum\date=25 Jaros/lawa \fi
\ifnum\date=26 Klaudiusza \fi
\ifnum\date=27 Teofila \fi
\ifnum\date=28 Walerii \fi
\ifnum\date=29 Piotra \fi
\ifnum\date=30 Katarzyny \fi
\fi

\ifnum\mon=5
\ifnum\date=1 Jeremiasza \fi
\ifnum\date=2 Atanazego \fi
\ifnum\date=3 Antoniny \fi
\ifnum\date=4 Floriana \fi
\ifnum\date=5 Waldemara \fi
\ifnum\date=6 Juranda \fi
\ifnum\date=7 Ludmi/ly \fi
\ifnum\date=8 Stanis/lawa \fi
\ifnum\date=9 Grzegorza \fi
\ifnum\date=10 Antonina \fi
\ifnum\date=11 Miry \fi
\ifnum\date=12 Domiceli \fi
\ifnum\date=13 Roberty \fi
\ifnum\date=14 Dobies/lawa \fi
\ifnum\date=15 Nadziei \fi
\ifnum\date=16 J/edrzeja \fi
\ifnum\date=17 S/lawomira \fi
\ifnum\date=18 Aleksandry \fi
\ifnum\date=19 Piotra \fi
\ifnum\date=20 Bernardyna \fi
\ifnum\date=21 Kryspina \fi
\ifnum\date=22 Wies/lawy \fi
\ifnum\date=23 Dezyderiusza \fi
\ifnum\date=24 Zuzanny \fi
\ifnum\date=25 Borys/lawa \fi
\ifnum\date=26 Pauliny \fi
\ifnum\date=27 Juliusza \fi
\ifnum\date=28 Augustyna \fi
\ifnum\date=29 Magdaleny \fi
\ifnum\date=30 Ferdynanda \fi
\ifnum\date=31 Petroneli \fi
\fi

\ifnum\mon=6
\ifnum\date=1 Gracjany \fi
\ifnum\date=2 Marianny \fi
\ifnum\date=3 Tamary \fi
\ifnum\date=4 Kwiryny \fi
\ifnum\date=5 Bonifacego \fi
\ifnum\date=6 Laurentego \fi
\ifnum\date=7 Wies/lawa \fi
\ifnum\date=8 Maksyma \fi
\ifnum\date=9 Felicjana \fi
\ifnum\date=10 Ma/lgorzaty \fi
\ifnum\date=11 Radomi/la \fi
\ifnum\date=12 Onufrego \fi
\ifnum\date=13 Antoniego \fi
\ifnum\date=14 Bazylego \fi
\ifnum\date=15 Jolanty \fi
\ifnum\date=16 Benona \fi
\ifnum\date=17 Marcjana \fi
\ifnum\date=18 El/zbiety \fi
\ifnum\date=19 Protazego \fi
\ifnum\date=20 Bogny \fi
\ifnum\date=21 Alojzego \fi
\ifnum\date=22 Flawiusza \fi
\ifnum\date=23 Zenona \fi
\ifnum\date=24 Danuty \fi
\ifnum\date=25 Wilhelma \fi
\ifnum\date=26 Paw/la \fi
\ifnum\date=27 W/ladys/lawa \fi
\ifnum\date=28 Ireneusza \fi
\ifnum\date=29 Paw/la \fi
\ifnum\date=30 Lucyny \fi
\fi

\ifnum\mon=7
\ifnum\date=1 Mariana \fi
\ifnum\date=2 Urbana \fi
\ifnum\date=3 Anatola \fi
\ifnum\date=4 Malwiny \fi
\ifnum\date=5 Antoniego \fi
\ifnum\date=6 Dominiki \fi
\ifnum\date=7 Ewalda \fi
\ifnum\date=8 El/zbiety \fi
\ifnum\date=9 Weroniki \fi
\ifnum\date=10 Witalisa \fi
\ifnum\date=11 Kaliny \fi
\ifnum\date=12 Gwalberta \fi
\ifnum\date=13 Margarety \fi
\ifnum\date=14 Bonawentury \fi
\ifnum\date=15 W/lodzimierza \fi
\ifnum\date=16 Benity \fi
\ifnum\date=17 Aleksego \fi
\ifnum\date=18 Kamila \fi
\ifnum\date=19 Wodzis/lawa \fi
\ifnum\date=20 Hieronima \fi
\ifnum\date=21 Dalidy \fi
\ifnum\date=22 Magdaleny \fi
\ifnum\date=23 /Zelis/lawa \fi
\ifnum\date=24 Krystyny \fi
\ifnum\date=25 Krzysztofa \fi
\ifnum\date=26 Miros/lawy \fi
\ifnum\date=27 Aurelego \fi
\ifnum\date=28 Innocentego \fi
\ifnum\date=29 Marty \fi
\ifnum\date=30 Ludmi/ly \fi
\ifnum\date=31 Ludomiry \fi
\fi

\ifnum\mon=8
\ifnum\date=1 Justyna \fi
\ifnum\date=2 Gustawa \fi
\ifnum\date=3 Augusta \fi
\ifnum\date=4 Protazego \fi
\ifnum\date=5 Stanis/lawy \fi
\ifnum\date=6 Jakuba \fi
\ifnum\date=7 Kajetana \fi
\ifnum\date=8 Emiliana \fi
\ifnum\date=9 Romana \fi
\ifnum\date=10 Filomeny \fi
\ifnum\date=11 Zuzanny \fi
\ifnum\date=12 Lecha \fi
\ifnum\date=13 Hipolita \fi
\ifnum\date=14 Euzebiusza \fi
\ifnum\date=15 Napoleona \fi
\ifnum\date=16 Joachima \fi
\ifnum\date=17 Mirona \fi
\ifnum\date=18 Bronis/lawa \fi
\ifnum\date=19 Boles/lawa \fi
\ifnum\date=20 Sobies/lawa \fi
\ifnum\date=21 Kazimiery \fi
\ifnum\date=22 Cezarego \fi
\ifnum\date=23 Apolinarego \fi
\ifnum\date=24 Bart/lomieja \fi
\ifnum\date=25 Ludwika \fi
\ifnum\date=26 Zefiryny \fi
\ifnum\date=27 Moniki \fi
\ifnum\date=28 Wyszomira \fi
\ifnum\date=29 Sabiny \fi
\ifnum\date=30 Szcz/esnego \fi
\ifnum\date=31 Rajmunda \fi
\fi

\ifnum\mon=9
\ifnum\date=1 Bronis/lawy \fi
\ifnum\date=2 Stefana \fi
\ifnum\date=3 Szymona \fi
\ifnum\date=4 Lilianny \fi
\ifnum\date=5 Wawrzy/nca \fi
\ifnum\date=6 Eugeniusza \fi
\ifnum\date=7 Melchiora \fi
\ifnum\date=8 Adrianny \fi
\ifnum\date=9 Sergiusza \fi
\ifnum\date=10 Miko/laja \fi
\ifnum\date=11 Dagny \fi
\ifnum\date=12 Radzimira \fi
\ifnum\date=13 Aureliusza \fi
\ifnum\date=14 Bernarda \fi
\ifnum\date=15 Nikodema \fi
\ifnum\date=16 Kornela \fi
\ifnum\date=17 Hildegardy \fi
\ifnum\date=18 Stanis/lawa \fi
\ifnum\date=19 Konstancji \fi
\ifnum\date=20 Eustachego \fi
\ifnum\date=21 Mateusza \fi
\ifnum\date=22 Maurycego \fi
\ifnum\date=23 Bogus/lawa \fi
\ifnum\date=24 Teodora \fi
\ifnum\date=25 /Ladys/lawa \fi
\ifnum\date=26 Cypriana \fi
\ifnum\date=27 Amadeusza \fi
\ifnum\date=28 Wac/lawa \fi
\ifnum\date=29 Michaliny \fi
\ifnum\date=30 Honoriusza \fi
\fi

\ifnum\mon=10
\ifnum\date=1 Remigiusza \fi
\ifnum\date=2 Dionizji \fi
\ifnum\date=3 Heliodora \fi
\ifnum\date=4 Edwina \fi
\ifnum\date=5 Flawii \fi
\ifnum\date=6 Brunona \fi
\ifnum\date=7 Marka \fi
\ifnum\date=8 Brygidy \fi
\ifnum\date=9 Dionizego \fi
\ifnum\date=10 Franciszka \fi
\ifnum\date=11 Aldony \fi
\ifnum\date=12 Maksymiliana \fi
\ifnum\date=13 Edwarda \fi
\ifnum\date=14 Kaliksta \fi
\ifnum\date=15 Jadwigi \fi
\ifnum\date=16 Florentyny \fi
\ifnum\date=17 Marity \fi
\ifnum\date=18 /Lukasza \fi
\ifnum\date=19 Ziemowita \fi
\ifnum\date=20 Kleopatry \fi
\ifnum\date=21 Hilarego \fi
\ifnum\date=22 Przybys/lawy \fi
\ifnum\date=23 Seweryna \fi
\ifnum\date=24 Marcina \fi
\ifnum\date=25 Wilhelminy \fi
\ifnum\date=26 Ewarysta \fi
\ifnum\date=27 Sabiny \fi
\ifnum\date=28 Tadeusza \fi
\ifnum\date=29 Wioletty \fi
\ifnum\date=30 Przemys/lawa \fi
\ifnum\date=31 Saturnina \fi
\fi

\ifnum\mon=11
\ifnum\date=1  \fi
\ifnum\date=2 Tobiasza \fi
\ifnum\date=3 Huberta \fi
\ifnum\date=4 Olgierda \fi
\ifnum\date=5 S/lawomira \fi
\ifnum\date=6 Leonarda \fi
\ifnum\date=7 /Zytomira \fi
\ifnum\date=8 Hadriana \fi
\ifnum\date=9 Teodora \fi
\ifnum\date=10 Ludomira \fi
\ifnum\date=11 Bart/lomieja \fi
\ifnum\date=12 Witolda \fi
\ifnum\date=13 Stanis/lawa \fi
\ifnum\date=14 Serafina \fi
\ifnum\date=15 Leopolda \fi
\ifnum\date=16 Edmunda \fi
\ifnum\date=17 Grzegorza \fi
\ifnum\date=18 Klaudyny \fi
\ifnum\date=19 Seweryny \fi
\ifnum\date=20 S/edzimira \fi
\ifnum\date=21 Konrada \fi
\ifnum\date=22 Cecylii \fi
\ifnum\date=23 Klemensa \fi
\ifnum\date=24 Emmy \fi
\ifnum\date=25 Katarzyny \fi
\ifnum\date=26 Sylwestra \fi
\ifnum\date=27 Wirgiliusza \fi
\ifnum\date=28 Zdzis/lawa \fi
\ifnum\date=29 Saturnina \fi
\ifnum\date=30 Maury \fi
\fi

\ifnum\mon=12
\ifnum\date=1 Eligiusza \fi
\ifnum\date=2 Bibianny \fi
\ifnum\date=3 Ksawerego \fi
\ifnum\date=4 Krystiana \fi
\ifnum\date=5 Kryspiny \fi
\ifnum\date=6 Jaremy \fi
\ifnum\date=7 Ambro/zego \fi
\ifnum\date=8 /Swiatozara \fi
\ifnum\date=9 Leokadii \fi
\ifnum\date=10 Danieli \fi
\ifnum\date=11 Waldemara \fi
\ifnum\date=12 Aleksandra \fi
\ifnum\date=13 Otylii \fi
\ifnum\date=14 Izydora \fi
\ifnum\date=15 Celiny \fi
\ifnum\date=16 Zdzis/lawy \fi
\ifnum\date=17 /Lazarza \fi
\ifnum\date=18 Bogus/lawa \fi
\ifnum\date=19 Dariusza \fi
\ifnum\date=20 Dominika \fi
\ifnum\date=21 Tomis/lawa \fi
\ifnum\date=22 Honoraty \fi
\ifnum\date=23 S/lawomiry \fi
\ifnum\date=24 Zenobiusza \fi
\ifnum\date=25  \fi
\ifnum\date=26 Szczepana \fi
\ifnum\date=27 /Zanety \fi
\ifnum\date=28 Godzis/lawa \fi
\ifnum\date=29 Tomasza \fi
\ifnum\date=30 Eugeniusza \fi
\ifnum\date=31 Sylwestra \fi
\fi

\else                                                   % \names=0
\fi\fi}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% NAZWY MIESIECY %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\spellmonth{\ifcase\month
  \or Stycze/n\or Luty\or Marzec
  \or Kwiecie/n\or Maj\or Czerwiec
  \or Lipiec\or Sierpie/n\or Wrzesie/n
  \or Pa/xdziernik\or Listopad\or Grudzie/n\fi}

\def\spellMONTH{\ifcase\month
  \or STYCZE/N\or LUTY\or MARZEC
  \or KWIECIE/N\or MAJ\or CZERWIEC
  \or LIPIEC\or SIERPIE/N\or WRZESIE/N
  \or PA/XDZIERNIK\or LISTOPAD\or GRUDZIE/N\fi}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DLUGOSCI MIESIECY %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\DAYCNT{\ifcase\month 0\or 0\or 31\or 59\or 90\or 120\or 151
  \or 181\or 212\or 243\or 273\or 304\or 334\fi}

\advance\month by -1

\advance\yearoff by \DAYCNT
\ifnum\febdays=29 \ifnum\month>2 \advance\yearoff by 1 \fi\fi
\mod{\yearoff}{7}{\date}
\ifnum\date=0 \advance\date by 7 \fi
\yearoff=\date

\def\daycnt{\ifcase\month 0\or 0\or 31\or 28\or 31\or 30\or 31
  \or 30\or 31\or 31\or 30\or 31\or 30\fi}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TABELA %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\;#1{\raisebox{0mm}[7.5mm][4.5mm]{\makebox[19.75mm][r]{\large{#1}\hspace{13mm}}}}
\def\:#1{\raisebox{0mm}[7.5mm][\ifnum\height=0 4mm \else 6mm \fi]{\Large{#1}}}
\def\+#1{\raisebox{0.25mm}{\makebox[19.75mm][l]{\scriptsize{#1}}}}
\def\-#1{\raisebox{1.75mm}{\makebox[19.75mm][l]{\scriptsize{#1}}}}
\def\monthm#1#2{\initialdate{#1}{#2}%
\begin{center}
\begin{tabular}{|r|r|r|r|r|r|r|} \hline
\;{Pn}&\;{Wt}&\;{/Sr}&\;{Cz}&\;{Pt}&\;{Sb}&\;{\bf N}\\ \hline
\:{\day{ 1}}&\:{\day{ 2}}&\:{\day{ 3}}&\:{\day{ 4}}&\:{\day{ 5}}&\:{\day{ 6}}&\:{\bf\day{ 7}}\\
\+{\frstname{ 1}}&\+{\frstname{ 2}}&\+{\frstname{ 3}}&\+{\frstname{ 4}}&\+{\frstname{ 5}}&\+{\frstname{ 6}}&\+{\frstname{ 7}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{ 1}}&\-{\scndname{ 2}}&\-{\scndname{ 3}}&\-{\scndname{ 4}}&\-{\scndname{ 5}}&\-{\scndname{ 6}}&\-{\scndname{ 7}}\\ \hline \fi
\:{\day{ 8}}&\:{\day{ 9}}&\:{\day{10}}&\:{\day{11}}&\:{\day{12}}&\:{\day{13}}&\:{\bf\day{14}}\\
\+{\frstname{ 8}}&\+{\frstname{ 9}}&\+{\frstname{10}}&\+{\frstname{11}}&\+{\frstname{12}}&\+{\frstname{13}}&\+{\frstname{14}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{ 8}}&\-{\scndname{ 9}}&\-{\scndname{10}}&\-{\scndname{11}}&\-{\scndname{12}}&\-{\scndname{13}}&\-{\scndname{14}}\\ \hline \fi
\:{\day{15}}&\:{\day{16}}&\:{\day{17}}&\:{\day{18}}&\:{\day{19}}&\:{\day{20}}&\:{\bf\day{21}}\\
\+{\frstname{15}}&\+{\frstname{16}}&\+{\frstname{17}}&\+{\frstname{18}}&\+{\frstname{19}}&\+{\frstname{20}}&\+{\frstname{21}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{15}}&\-{\scndname{16}}&\-{\scndname{17}}&\-{\scndname{18}}&\-{\scndname{19}}&\-{\scndname{20}}&\-{\scndname{21}}\\ \hline \fi
\:{\day{22}}&\:{\day{23}}&\:{\day{24}}&\:{\day{25}}&\:{\day{26}}&\:{\day{27}}&\:{\bf\day{28}}\\
\+{\frstname{22}}&\+{\frstname{23}}&\+{\frstname{24}}&\+{\frstname{25}}&\+{\frstname{26}}&\+{\frstname{27}}&\+{\frstname{28}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{22}}&\-{\scndname{23}}&\-{\scndname{24}}&\-{\scndname{25}}&\-{\scndname{26}}&\-{\scndname{27}}&\-{\scndname{28}}\\ \hline \fi
\:{\day{29}}&\:{\day{30}}&\:{\day{31}}&\:{\day{32}}&\:{\day{33}}&\:{\day{34}}&\:{\bf\day{35}}\\
\+{\frstname{29}}&\+{\frstname{30}}&\+{\frstname{31}}&\+{\frstname{32}}&\+{\frstname{33}}&\+{\frstname{34}}&\+{\frstname{35}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{29}}&\-{\scndname{30}}&\-{\scndname{31}}&\-{\scndname{32}}&\-{\scndname{33}}&\-{\scndname{34}}&\-{\scndname{35}}\\ \hline \fi
\:{\day{36}}&\:{\day{37}}&\:{\day{38}}&\:{\day{39}}&\:{\day{40}}&\:{\day{41}}&\:{\bf\day{42}}\\
\+{\frstname{36}}&\+{\frstname{37}}&\+{\frstname{38}}&\+{\frstname{39}}&\+{\frstname{40}}&\+{\frstname{41}}&\+{\frstname{42}}\\ \ifnum\height=0 \hline \fi
\ifnum\height=1 \-{\scndname{36}}&\-{\scndname{37}}&\-{\scndname{38}}&\-{\scndname{39}}&\-{\scndname{40}}&\-{\scndname{41}}&\-{\scndname{42}}\\ \hline \fi
\end{tabular}
\end{center}}

\def\setsty{} \def\setlut{} \def\setmar{} \def\setkwi{}
\def\setmaj{} \def\setcze{} \def\setlip{} \def\setsie{}
\def\setwrz{} \def\setpaz{} \def\setlis{} \def\setgru{}

\ifnum\illustration>0 \vspace*{-5mm} \fi
\loop\ifnum\month<\MONTH \advance\month by 1 \mon=\month
\advance\yearoff by \daycnt
\ifnum\febdays=29 \ifnum\month=3 \advance\yearoff by 1 \fi\fi
\mod{\yearoff}{7}{\date}
\ifnum\date=0 \advance\date by 7 \fi
\yearoff=\date
\vspace*{\fill}
\ifnum\height=0                                         % \height=0
\ifnum\illustration>0                                   % \illustration=1
\hbox{\hspace*{5mm}\vspace*{-100mm}\input{rysunek.tex}}
\else
\ifnum\ILLUSTRATIONS>0                                  % \ILLUSTRATIONS=1
\ifnum\month=1 \input{sty.tex} \centerline{\setsty} \fi
\ifnum\month=2 \input{lut.tex} \centerline{\setlut} \fi
\ifnum\month=3 \input{mar.tex} \centerline{\setmar} \fi
\ifnum\month=4 \input{kwi.tex} \centerline{\setkwi} \fi
\ifnum\month=5 \input{maj.tex} \centerline{\setmaj} \fi
\ifnum\month=6 \input{cze.tex} \centerline{\setcze} \fi
\ifnum\month=7 \input{lip.tex} \centerline{\setlip} \fi
\ifnum\month=8 \input{sie.tex} \centerline{\setsie} \fi
\ifnum\month=9 \input{wrz.tex} \centerline{\setwrz} \fi
\ifnum\month=10 \input{paz.tex} \centerline{\setpaz} \fi
\ifnum\month=11 \input{lis.tex} \centerline{\setlis} \fi
\ifnum\month=12 \input{gru.tex} \centerline{\setgru} \fi
\fi\fi\fi
\vspace{\fill}
\ifnum\height=0 \centerline{\raisebox{-2.5mm}{\rule{0mm}{10mm}}\Huge\bf\spellmonth\ \number\year}
\else
\begin{center}
\Huge\bf\spellMONTH\\
\vspace{0.5ex}\huge\bf\number\year \end{center}
\fi
\ifnum\height=0 \vspace{2.75mm} \else \vspace{1.375mm} \fi
\ifnum\month=1 \monthm{\yearoff}{31} \fi
\ifnum\month=2 \monthm{\yearoff}{\febdays} \fi
\ifnum\month=3 \monthm{\yearoff}{31} \fi
\ifnum\month=4 \monthm{\yearoff}{30} \fi
\ifnum\month=5 \monthm{\yearoff}{31} \fi
\ifnum\month=6 \monthm{\yearoff}{30} \fi
\ifnum\month=7 \monthm{\yearoff}{31} \fi
\ifnum\month=8 \monthm{\yearoff}{31} \fi
\ifnum\month=9 \monthm{\yearoff}{30} \fi
\ifnum\month=10 \ifnum\year=1582 \greg=1 \fi
                \monthm{\yearoff}{31}
                \ifnum\greg=1 \advance\yearoff by -3 \greg=0 \fi\fi
\ifnum\month=11 \monthm{\yearoff}{30} \fi
\ifnum\month=12 \monthm{\yearoff}{31} \fi
\vspace*{-5mm}
\newpage
\repeat

\fi                                                     %%% koniec

\end{document}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RYSUNEK.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\unitlength 1mm
\linethickness{0.4pt}
\begin{picture}(0.00,0.00)
\put(-5.00,0.00){\framebox(168.00,113.00)[cc]
{
Makro \verb"kalend\_?.tex" s/lu/zy do generacji kalendarzy rocznych
i miesi/ecznych.
}}
\end{picture}
\endinput

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MAKRO KALEND_?.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Makro kalend_1.tex sluzy do generacji kalendarzy rocznych i miesiecznych.
Kalendarze roczne moga miec postac kalendarza sciennego lub terminarza.


   1. MAKRO KALEND_1.TEX

Makro liczy kalendarze dla lat od 1582 do 4904.

Ograniczenie roku do zakresu od 1582 do 4904 jest motywowane trojako:

   a) w XVI w. kalendarz a circumcisione (od 1 stycznia) wypiera kalendarz
      a nativitate (od 25 grudnia).
   b) w pazdzierniku roku 1582 przyjeto w Polsce kalendarz gregorianski.
   c) w roku 4905 blad kalendarza gregorianskiego wzrasta do jednego dnia.

Makro zaznacza niedziele i swieta koscielne od roku 1582, a swieta panstwowe
od roku 1946 (swieta koscielne do roku 1945 sa zaznaczane zgodnie z
kalendarzem z roku 1939).

Kalendarze miesieczne od roku 1582 maja opcje podawania nazw swiat
koscielnych, a od roku 1946 nazw swiat panstwowych i terminow imienin.

   Niniejsza wersja makro nie uwzglednia rzeczywistych terminow wycofania
   Swieta Trzech Kroli i pieciu Swiat Maryjnych oraz wprowadzenia Swieta
   Pracy i Swieta Odrodzenia Polski Ludowej po roku 1945 a takze
   rzeczywistych terminow wycofania Swieta Odrodzenia Polski Ludowej i
   wprowadzenia Swieta Wniebowziecia NMP, Swieta Konstytucji 3 Maja i Swieta
   Odzyskania Niepodleglosci po roku 1989. W pierwszym przypadku jako
   graniczny przyjety zostal umownie rok 1946, zas w drugim rok 1990.


   2. WYMAGANIA I OBSLUGA

Makro wymaga pakietu LaMeX, ze wzgledu na wystepowanie w nazwie jednego ze
swiat koscielnych litery a_ogonek, a w trzech imionach litery e_ogonek.

Po uruchomieniu makro nalezy wybrac miedzy kalendarzem rocznym (0), a
miesiecznym (1).

Po wybraniu kalendarza rocznego nalezy wybrac miedzy kalendarzem sciennym
(0), a terminarzem (1).

Nastepnie nalezy podac rok (od 1582 do 4904).

Dla kalendarza miesiecznego nalezy dodatkowo podac miesiac poczatkowy (od 1
do 12) i miesiac koncowy (od miesiaca poczatkowego do 12).

Kalendarze roczne i miesieczne drukuje sie standardowo.

Terminarze drukuje sie w dwoch przejsciach (przyklad dla drukarki HPLJ):

najpierw strony nieparzyste

   prthplj kalend_1.dvi /d:o

a po odwroceniu arkuszy i ponownym wlozeniu do drukarki, strony parzyste

   prthplj kalend_1.dvi /d:e

Okladke dla terminarza najlatwiej jest zrobic ze skladanej widokowki.


   3. KONFIGURACJA

Wyglad kalendarza miesiecznego jest konfigurowalny przy pomocy pieciu
zmiennych ustawianych w rozpoczynajacej makro sekcji KONFIGURACJA.

 zmienna            dzialanie
---------------------------------------------------------------------------
\height             ustala wielkosc tabeli z kalendarzem (mniejsza-wieksza)
\illustration       wczytuje zawartosc pliku rysunek.tex do kalendarzy
\ILLUSTRATIONS      wczytuje pliki od sty.tex do gru.tex do kalendarzy
\holydays           wypisuje nazwy swiat w kalendarzach
\names              wypisuje terminy imienin w kalendarzach

Kazda z powyzszych zmiennych moze przyjmowac wartosc 0 lub 1.

Zmienna \height=0 generuje mniejszy kalendarz, umozliwiajac umieszczenie nad
nim ilustracji.

Zmienna \illustration=1 wczytuje do generowanych kalendarzy plik rysunek.tex
ze wspolnym rysunkiem dla wszystkich kalendarzy miesiecznych (n.p. ramka pod
wykonany recznie obrazek).

Zmienna \ILLUSTRATIONS=1 wczytuje do generowanych kalendarzy pliki od
sty.tex do gru.tex z odrebnymi ilustracjami dla poszczegolnych miesiecy.

Zmienna \illustration=1 przeslania ustawienie zmiennej \ILLUSTRATIONS, a
zmienna \height=1 przeslania ustawienie zmiennych \illustration i
\ILLUSTRATIONS.

Zmienna \holydays=1 wypisuje w generowanych kalendarzach nazwy swiat
koscielnych i panstwowych.

Zmienna \names=1 wypisuje w generowanych kalendarzach terminy imienin: jedno
imie dla mniejszej tabeli i do dwoch imion dla wiekszej.


   4. RYSUNKI I MAPY BITOWE

Wielkosc rysunku w pliku rysunek.tex nie powinna przekraczac szerokosci
168mm i wysokosci 113mm. Przykladowy rysunek mozna skopiowac do pliku
rysunek.tex z nastepujacej po makro sekcji RYSUNEK.TEX.

Pliki od sty.tex do gru.tex moga byc rysunkami stworzonymi przy pomocy
programu texcad lub fontami wygenerowanymi z map bitowych przy pomocy
programu bm2font.

Dopuszczalna wielkosc map bitowych, z ktorych generowane sa fonty dla
poszczegolnych miesiecy wyrazona w pixelach, dla rozdzielczosci drukarki
danej w dpi, mozna obliczyc wedlug ponizszych wzorow:

   wysokosc  = 3.95  * wertykalna_rozdzielczosc_drukarki
   szerokosc = 5.586 * horyzontalna_rozdzielczosc_drukarki

Wyliczona w ten sposob wielkosc mapy bitowej odpowiada mapie czarno-bialej.
Dla map bitowych w odcieniach szarosci lub kolorowych nalezy uzyskane w
wyniku powyzszych obliczen wartosci zmniejszyc dwukrotnie.

Ponizsza tabela podaje kilka przykladowych wielkosci map bitowych:

   drukarka   mapa bitowa        szerokosc   wysokosc
      [dpi]                           [px]       [px]
   --------------------------------------------------
        300   monochromatyczna        1675       1185
        600   monochromatyczna        3350       2370
        300   4 odcienie szarosci      837        592
        600   256 kolorow             1675       1185


Przyklad dla czarno-bialej drukarki laserowej o rozdzielczosci 300 dpi i
256-kolorowej mapy bitowej o nazwie picture.gif:

   1. Plik picture.gif konwertujemy programem alchemy do postaci
      monochromatycznej:

      alchemy picture.gif _picture -b -c2 -g

   2. Plik _picture.gif konwertujemy programem alchemy do maksymalnego
      dozwolonego formatu:

      alchemy _picture.gif __picture -Xb1675 -Yb1185 -+ -g

   3. Plik __picture.gif konwertujemy programem bm2font do postaci fontu typu
      *.pk:

      bm2font __picture.gif -fsty -h300 -v300

W wyniku tych operacji, obok dwoch plikow przejsciowych, otrzymujemy plik
sty.tex oraz pliki o nazwach sty?.pk i sty?.tfm, ktorych liczba bedzie
zalezec od formatu ilustracji wyjsciowej. Poszczegolne pliki o nazwach
postaci sty?.* beda w miejscu znaku zapytania mialy kolejne litery alfabetu.

Przed konwersja kolorowej mapy bitowej do postaci monochromatycznej warto
przetworzyc ja na mape bitowa o czterech odcieniach szarosci i oczyscic z
zaklocen.

Program bm2font wycina biale tlo na obrzezach mapy bitowej. Aby uzyskac font
o pozadanych rozmiarach, przed przeskalowaniem mapy bitowej do wymaganego
formatu, nalezy zlikwidowac zbedne marginesy.


   5. LICENCJA

Makro kalend_1.tex powstalo jako modyfikacja i rozwiniecie dwoch znanych
makro: calendar.latex i calendar.tex. Algorytm obliczania terminu swiat
wielkanocnych zostal zaczerpniety z programu easter.pas D. Englera.

Makro stanowi dobro publicznie i moze byc rozprowadzane jedynie w wersji
oryginalnej oraz modyfikowane i wykorzystywane wylacznie w celach
niekomercyjnych.

Znak _ w nazwie makro jest znakiem zastrzezonym. Kolejne wersje mojego makro
nosza nazwe kalend_{0..9, a..z}. Uzytkownicy dokonujacy modyfikacji
niniejszego makro dla swoich potrzeb sa proszeni o zastapienie znaku _ w
nazwie makro innym znakiem.

   Cezary M. Kruk \\
   ul. Zielonog/orska 7 m. 2 \\
   53--617 Wroc/law \\
   tel. (0--71) 55 67 94


.