% --------------------------------------------------
% This is a `seminar.con' suggestion for tailoring van Zandt's seminar.sty 
% for a limited environment, viz 
% a) A4 paper 
% b) landscape special for dvips 
% c) PostScript fonts
% d) PostScript pstricks package (with semcolor) 
% --------------------------------------------------
% 
% Note that the result can be previewed using emTeX's dviscr program, 
% which disregards the rotation specials, but happily displays the sideways 
% page with
%   dvidrv dviscr @lj.cnf /la=-4.5mm /o3 /w:297mm /h:210mm ... etc ...
%
% Sebastian Rahtz, July 93; September 93; January 1994
%
% --------------------------------------------------
% dvips landscape macros (what else?)
%
% since we have A4 paper, we'll be explicit about it
%
\def\printlandscape{\special{papersize=297mm,210mm}}
%
% might as well as have nice PS effects like rounded box corners
\input semcolor.sty
% pick up van Zandt's other tools
\input fancybox.sty
%
% European paper is A4 
\def\paperwidth{210mm}
\def\paperheight{297mm}
\input sem-page.sty
%
% careful here; limited by size colour printer can work to.
\slidewidth 205mm
\slideheight 150mm
\def\slideleftmargin{.8in}
\def\sliderightmargin{.8in}
%---------------------------------------------------------------
% I like an address in my titles
%
\def\@maketitle{%
  \null
  \begin{center}
    \def\baselinestretch{1}\large\small
    {\Large\bfseries \@title \par}%
    {\bfseries \lineskip .5em
\begin{tabular}[t]{c}
\large\@author\\
\@address
\end{tabular}\par}%
    \vskip .5em
    {\large \@date}%
  \end{center}%
  \par\vskip .5em}
\def\address#1{\gdef\@address{#1}}
%----------------------------------------------------
% sectioning, contents etc
%----------------------------------------------------
%
% use \section as normal
%
\newcount\@inchap
\@inchap0
\def\l@chapslide#1{\slide@undottedcline{#1}{}}

\def\slidechapter#1{%
\begin{slide}
 \immediate\addtocontents{los}{%
 \protect\l@chapslide{\ignorespaces\protect\bfseries\protect\large #1}}%
  \gdef\thechapterheading{#1}%
\end{slide}
\@inchap0
}
\input slidesec.sty
%----------------------------------------------------
% headings; make a drop shadow box
%----------------------------------------------------
\def\@@empty{}
\renewcommand{\makeslideheading}[1]{%
	\gdef\theslideheading{#1}%
	\def\@@foo{#1}%
	\ifx\@@foo\@@empty\else
		\begin{Sbox}
		\bgroup
                 \large\bfseries\begin{Bcenter}#1\end{Bcenter}%
                \egroup
                \end{Sbox}
             \centerline{\shadowbox{\TheSbox}}
             \vspace{1ex minus 1ex}
        \fi
\SlideFront}

%------------------------------------------------
% slide styles
%-------------------------------------------------
%
% Archaeoinformatica style
%
\newpagestyle{ai}{{\Black {\bfseries +} \hfil \today 
\hfil {\bfseries +}}}{{\Black{\bfseries +} \hfil \thepage\hfil {\bfseries +}}}
%
\newpagestyle{aisections}%
{{\Black\small
 \hfil {\bfseries \theslideheading} \hfil {\bfseries\thepage} }}%
{{\small\Black\today \hfil\thechapterheading /\inchap}}
%
\newslideframe{ai}{{\SlideFront
\boxput(-0.5,-1.1){\psframebox[%
linecolor=Black,fillcolor=Green,fillstyle=solid]{%
\hbox{{\large\sffamily\Black ArchaeoInformatica}}}}{#1}%
\Black}}

%----------------------------------
% CERN
%----------------------------------
% plain CERN; just marks and date
\newpagestyle{cern}%
{{\Black\small{\bfseries +} \hfil \today \hfil  {\bfseries+}}}
{{\Black\small{\bfseries +} \hfil \thepage\hfil {\bfseries+}}}%
%
% with section headings and logo
%
\newpagestyle{cernsections}%
{{\Black\small
\raisebox{-.5cm}[0cm][0cm]{\epsfig{figure=cernlogo.eps,height=.8cm}}
 \hfil {\bfseries \theslideheading} \hfil {\bfseries\thepage} }}%
{{\small\Black\today \hfil\thechapterheading /\inchap}}
%
\newslideframe{cern}{{\SlideFront
\boxput(-0.7,-1.11){\psframebox[%
linecolor=Black,fillcolor=ForestGreen,fillstyle=solid]{%
\hbox{{\normalsize\sffamily\Black CERN}}}}{#1}%
\Black}}
%

%---------------------------------------------
% make it easy to do coloured backgrounds and text
%
\def\everyslide{%
\SlideFront
\global\advance\@inchap by 1
\gdef\inchap{\the\@inchap}%
}
\def\theslideheading{}
\def\thechapterheading{}
%
\newslideframe{blueframe}[\psset{linecolor=NavyBlue,%
  linewidth=\slideframewidth,%
  framesep=\slideframesep,%
  cornersize=absolute,%
  linearc=.5cm%
}]{\psframebox{#1}}
\def\SlideColours#1#2{%
 \gdef\SlideFront{\color{#1}}%
 \slideframe{\Framedefault}%
 \slideframe*[\psset{fillcolor=#2,fillstyle=solid}]{blueframe}%
}
%
% defaults
%
\pagestyle{cernsections}
\slideframe{cern}
\def\Framedefault{cern}
%
\SlideColours{Yellow}{RoyalBlue}
\def\blackandwhite{\SlideColours{Black}{White}}
%--------------------------------------------------------
% shorthand for slides
\newenvironment{Slide}[1]{\begin{slide}
\slideheading{#1}\centering}{\end{slide}}
%
% Portrait version
\newenvironment{PSlide}[1]{\begin{slide*}
\slideheading{#1}\centering}{\end{slide*}}
%
% needed because of xcomment.sty
\addtoslidelist{Slide}
\addtoslidelist{PSlide}
%
% rotated headers for consistency of output
\rotateheaderstrue
\blackandwhite
\endinput


