%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% NOME DEL FILE CON GLI EVENTI DA INSERIRE
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\nomefile{listaeventi1213.tex}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FORMATO PAGINA
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\magnification 1100
%\pdfpagewidth 20.99 truecm
%\pdfpageheight 29.7 truecm
\hsize 18 cm
\vsize 27 cm

\hoffset -1.8 cm
\voffset -0.6 cm
\def\vcol{21.0 cm}   % altezza e larghezza di ciscuna colonna
\def\hcol{3.0 cm}    % (aggiustare se necessario)

\nopagenumbers
\parindent=0pt

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FONT, MACRO E CONTATORI
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\font\bf=cmb10
\font\bbf=cmb10 scaled 1200

%
% INSERIMENTO LOGO UNIVERSITA'
% via EPSF.STY (standard TeX, Textures)
%
\input epsf.sty
\def\CHERUBINO{\epsfysize 2.3cm\epsfbox{cherubino-black.eps}}
%
% via GRAPHIXS.TEX (TeXshop)
%
%\input graphicx.tex
%\def\CHERUBINO{\includegraphics[height=2.3 cm]{cherubino-black}}
%

\newdimen\spessore  % SPESSORE DELLE LINEE
\spessore=.4 pt

\newcount\anno % ANNO
\anno=2000

\newcount\fest % INDICATORE PER LE FESTIVITA'
\fest=0
  %
\def\festa{\fest=1}

\newcount\vaca % INDICATORE PER LE VACANZE ACCADEMICHE
\vaca=0
  %
\def\iniziovacanza{\global\vaca=1}
\def\finevacanza{\global\vaca=0}

\newcount\ngm  % NUMERO DI GIORNI DEL MESE IN CORSO
\ngm=1

\newcount\nga  % CONTA I GIORNI ALL'INTERNO DI UN MESE
\nga=0
  %
\def\aumentanga{{\global\advance\nga by 1}}  % AUMENTA \nga DI 1

\newcount\ngc  % CONTA I GIORNI ALL'INTERNO DI UNA SETTIMANA
\ngc=0
  %
\def\aumentangc{{\ifnum\ngc=7 \global\ngc=1\else\global\advance\ngc by 1\fi}}
  % AUMENTA \ngb DI 1 SE E' MINORE DI 7, ALTRIMENTI LO PONE UGUALE A 1


\def\defnumgiornob{\ifnum\nga<10\global\def\numgiornob{0\the\nga}%
\else\global\def\numgiornob{\the\nga}\fi}
  %
  %	QUANDO VIENE ESEGUITA, QUESTA MACRO DEFINISCE LA MACRO \numgiornob
  % PONENDOLA UGUALE A \the\nga SE QUESTO NUMERO HA DUE (O PIU') CIFRE
  % E AGGIUNGENDO UNO ZERO DAVANTI SE QUESTO NUMERO HA UNA CIFRA
  %


\def\riga#1{{\advance\spessore by -#1\vrule width\hsize height#1 depth\spessore}}
  %
  % DISEGNA UNA LINEA DI SPESSORE \spessore ALL'ALTEZZA #1
  %
\def\rigasopra{\noindent\riga{3 pt}\endgraf}
\def\rigasotto{\noindent\riga{5.5 pt}\endgraf}
\def\vrigasopra{\centerline{$_\wedge$}\vskip-\baselineskip\riga{4pt}\endgraf}
\def\vrigasotto{\centerline{$^\vee$}\vskip-\baselineskip\riga{2.5 pt}\endgraf}
  %
  % LINEE ORIZZONTALI A DIVERSE ALTEZZE CON E SENZA FRECCE
  %


\def\mesenum#1{%
\ifnum#1=01 GENNAIO\global\ngm=32\fi%
\ifnum#1=02 FEBBRAIO\ifnum\bisestile=0\global\ngm=29\else\global\ngm=30\fi\fi%
\ifnum#1=03 MARZO\global\ngm=32\fi%
\ifnum#1=04 APRILE\global\ngm=31\fi%
\ifnum#1=05 MAGGIO\global\ngm=32\fi%
\ifnum#1=06 GIUGNO\global\ngm=31\fi%
\ifnum#1=07 LUGLIO\global\ngm=32\fi%
\ifnum#1=08 AGOSTO\global\ngm=32\fi%
\ifnum#1=09 SETTEMBRE\global\ngm=31\fi%
\ifnum#1=10 OTTOBRE\global\ngm=32\fi%
\ifnum#1=11 NOVEMBRE\global\ngm=31\fi%
\ifnum#1=12 DICEMBRE\global\ngm=32\fi}
  %
  % ASSOCIA A CIASCUN NUMERO IL NOME DEL MESE CORRISPONDENTE E ASSEGNA AL CONTATORE
  % \ngm UN VALORE UGUALE AL NUMERO DI GIORNI DI QUEL MESE + 1
  %

\def\giornonum#1{%
\ifnum#1=1 Luned\`\i\fi%
\ifnum#1=2 Marted\`\i\fi%
\ifnum#1=3 Mercoled\`\i\fi%
\ifnum#1=4 Gioved\`\i\fi%
\ifnum#1=5 Venerd\`\i\fi%
\ifnum#1=6 Sabato\fi%
\ifnum#1=7 Domenica\fi}
  %
  % ASSOCIA A CIASCUN NUMERO IL NOME DEL GIORNO DELLA SETTIMANA CORRISPONDENTE
  %


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% MACRO PER LA COSTRUZIONE DELLA COLONNA DEL MESE
%
\def\aa{9}

\def\colonnameseb#1{\vrule\vbox to \vcol{\hsize\hcol
  \baselineskip= 12 pt\parindent 26 pt
    %
 \rigasopra\centerline{\mesenum{#1}}\centerline{\the\anno}\rigasotto%
    %
    % INSERISCE IL NOME DEL MESE IN CIMA ALLA COLONNA
    %
 \colonnamese{#1}
    %
    % INSERISCE GLI ITEM CORRISPONDENTI AI GIORNI
    %
 \vfill\hrule
    %
    % CHIUDE LA COLONNA
    %
}}


\def\colonnamese#1{
    %
  \nga=1
  \loop
    %
    % INIZIA IL LOOP CON \nga CHE VA DA 1 AL NUMERO DI GIORNI DEL MESE #1
    %
  \defnumgiornob
  \giorno{e#1/\numgiornob}
    %
    % INSERIMENTO DEI DATI CORRISPONDENTI AL GIORNO IN QUESTIONE
    % (al giorno gg del mese mm corrisponde il codice #1=emm/gg)
    %
  \aumentanga\aumentangc
    %
    % INCREMENTO DEI CONTATORI
    %
  \ifnum\ngm>\nga\repeat
    %
    % CHIUSURA DEL LOOP
    %
}



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% MACRO PER LA COSTRUZIONE DEL GIORNO
%

\def\giorno#1{%
    %
  {\parindent 0 pt\it\expandafter\csname #1-\endcsname\relax\endgraf}%
    %
    % INSERISCE L'EVENTO CHE PRECEDE IL GIORNO #1
    %
  {\expandafter\csname #1--\endcsname\relax
  \ifnum\ngc=7\bf\fi\ifnum\fest=1\bf\fi%
  \noindent\hbox to \parindent{\hfill\ifnum\vaca=1 v\hskip 1 pt\fi\the\nga\hskip 4 pt}%
  \giornonum{\the\ngc}\endgraf}%
    %
    % INSERISCE IL NUMERO E NOME DEL GIORNO #1
    % mettendolo in bold se giorno di festa oppoure domenica
    %
  {\sl\expandafter\csname #1\endcsname\relax\endgraf}%
    %
    % INSERISCE L'EVENTO DEL GIORNO #1
    %
  \ifnum\ngc=7\vskip 7 pt\else\vskip 1.5 pt\fi%
    %
    % INSERISCE UNA RIGA VUOTA SE IL GIORNO E' DOMENICA
    %
  {\parindent 0 pt\it\expandafter\csname #1+\endcsname\relax}\endgraf%
    %
    % INSERISCE L'EVENTO CHE SEGUE IL GIORNO #1
    %
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% MACRO PER LA MANIPOLAZIONE DEGLI EVENTI IN INPUT
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\evento#1#2#3{\expandafter\def\csname e#1\endcsname{#3}%
  \expandafter\def\csname e#1--\endcsname{#2}}
   %
   % TRADUCE UN'EVENTO IN MACRO
   %

\def\ic#1\fc{\centerline{#1}}
   %
   % PER INSERIRE RIGHE DI TESTO CENTRATE
   %


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% COMPILAZIONE DEL CALENDARIO
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\input\nomefile

\anno=\annoa

\def\intestazione{
\centerline{\bbf Universit\`a degli studi di Pisa
  \hskip .2 cm
  \lower .9 cm\hbox{\CHERUBINO}
  \hskip .2 cm
  Corso di laurea in Matematica}
\medskip
\centerline{\bbf CALENDARIO PER L'ANNO ACCADEMICO \annoa --\annob}
\medskip
}

\intestazione

\vbox{\halign{#&&#\cr
\colonnameseb{10}&
\colonnameseb{11}&
\colonnameseb{12}&
\global\advance\anno by 1
\colonnameseb{01}&
\colonnameseb{02}&
\colonnameseb{03}&
\vrule\cr}}

\vfill\eject


\intestazione

\vbox{\halign{#&&#\cr
\colonnameseb{04}&
\colonnameseb{05}&
\colonnameseb{06}&
\colonnameseb{07}&
\colonnameseb{08}&
\colonnameseb{09}&
\vrule\cr}}


\bye
