%==============================================================================
%% PPRdefault.sty (a slide style for Prosper)
%% Copyright 2000-2001 Frédéric Goualard
%%
%% Note: this style was contributed anonymously by a user.
%%
%% This program may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.2
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.2 or later is part of all distributions of LaTeX 
%% version 1999/12/01 or later.
%%
%% This program consists of the files listed in manifest.txt
%%
%% RCSId : $Id$
%% Based on PPRdefault.sty,v 1.3 2001/10/24 15:11:25 exupery
%%=============================================================================
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{HAPvsimple}[2004/02/24]
\typeout{`vsimple' style for HA-prosper based on default Prosper style ---}
\typeout{RCSId: $Id$}
\typeout{ }

\RequirePackage{amssymb}
% Loading packages necessary to define this slide style.
% none

\newgray{grayb}{.5}

\FontTitle{%
  \usefont{T1}{ptm}{b}{n}\fontsize{20.74pt}{18pt}\selectfont\blue}{%
  \usefont{T1}{ptm}{b}{n}\fontsize{20.74pt}{18pt}\selectfont\blue}
\FontText{%
  \black\usefont{T1}{phv}{m}{n}\fontsize{12.4pt}{12pt}\selectfont}{%
  \black\usefont{T1}{phv}{m}{n}\fontsize{12.4pt}{12pt}\selectfont}


% Positionning of the title of a slide.
\newcommand{\slidetitle}[1]{%
  \rput[c](5.25,4.4){\fontTitle{#1}}
}

% Positionning for a logo
\LogoPosition{-1,-1.1}

% Definition of this style for slides.

%\renewcommand{\BasicFrame}[1]{%
%\ifinColor
%\else
%\fi
\newcommand{\NormalSlide}[1]{%
\psline[linewidth=.5pt,linecolor=grayb](-1,0)(-1,-0.6)(-0.4,-0.6)
\psline[linewidth=.5pt,linecolor=grayb](11,-0.6)(11.6,-0.6)(11.6,0)
\psline[linewidth=.5pt,linecolor=grayb](-1,6.7)(-1,7.3)(-0.4,7.3)
\psline[linewidth=.5pt,linecolor=grayb](11.6,6.7)(11.6,7.3)(11,7.3)
  \PutLogo % Mandatory
  \HAP@PutLF{tl}{1,-.9}%
  \HAP@PutRF{tr}{11.6,-.9}%
 {#1}}

\newcommand{\SpecialSlide}[1]{\NormalSlide{#1}}
\newcommand{\TitleSlide}[1]{\NormalSlide{#1}}

\newcommand{\HAPR@titleSlide}{\NewSlideStyle[115mm]{t}{5.3,3.2}{TitleSlide}}
\newcommand{\HAPR@normalSlide}{\NewSlideStyle[115mm]{t}{5.3,3.2}{NormalSlide}}
\newcommand{\HAPR@wideSlide}{\NewSlideStyle[115mm]{t}{5.3,3.2}{SpecialSlide}}

%\NewSlideStyle[115mm]{t}{5.3,3.2}{BasicFrame}
\PDFCroppingBox{10 40 594 800}
\RequirePackage{semhelv}

\myitem{1}{\includegraphics[width=.4cm]{red-bullet-on-white.ps}}
\myitem{2}{\includegraphics[width=.3cm]{green-bullet-on-white.ps}}
\myitem{3}{\includegraphics[width=.3cm]{yellow-bullet-on-white.ps}}

% Copied From ppr-prv.cls:
\renewcommand{\fontToc}{\fontsize{6pt}{0pt}\selectfont}
\newlength{\PRV@indenttoc}
\setlength{\PRV@indenttoc}{0pt}
\renewcommand{\pcontentsline}[5]{%
  \fontToc
  \if1#1%
  \setlength{\PRV@indenttoc}{0pt}%
  \fi%
  \hspace*{\PRV@indenttoc}#2%
  \if1#5\else\leaders\hbox{\hss.\ \hss}\hfill\slidename~#3\fi\\
  \if1#1%
  \setlength{\PRV@indenttoc}{10pt}%
  \fi%
}%

% Redefinition of tsection command to remove what is not needed
\newcounter{MG@tempTrueSlideCounter}
\def\tsection{\@ifstar{\@tsection{0}{2}}{\@tsection{0}{1}}}%
\def\@tsection#1#2#3{%
  \stepcounter{@sectionCounter}%
  \setcounter{MG@tempTrueSlideCounter}{\thetrueSlideCounter}%
  \stepcounter{MG@tempTrueSlideCounter}%
  \@contentsline{1}{#3}{\theMG@tempTrueSlideCounter}{1}%
}%

\AtBeginDocument{%
  {%
    \thispagestyle{empty}%
    \setlength{\parsep}{-10pt}%
    
    \tableofcontents
  }%
}

%% % Redefinition of the part command to deal with the toc key
%% %     \def\part{\@ifnextchar[\@part{\@part[]}}%
%% %     \def\@part[#1]#2{%
%% \renewcommand{\part}[2][]{%
%%   \if@needsnewpage
%%   \ifodd\theslideii\else\null\clearpage\fi%
%%   \global\@needsnewpagefalse%
%%   \fi
%%   \refstepcounter{slidei}
%%   \setcounter{trueSlideCounter}{\theslidei}
%%   \let\@tockey\undefined%
%%   \setkeys{Pkeys}{#1}%
%%   \ifx\@tockey\undefined%
%%   \@contentsline{0}{#2}{\theslidei}{}%
%%   \else%
%%   \ifx\@tockey\@empty\else%
%%   \@contentsline{0}{\@tockey}{\theslidei}{}%
%%   \fi%
%%   \fi%
%%   \old@section*{#2}
%% }%
%% \renewcommand{\tsectionandpart}{\@ifstar\tsectionandpart@E\tsectionandpart@NE}
%% \newcommand{\tsectionandpart@E}[2][]{%
%%   \let\@tockey\undefined%
%%   \setkeys{Pkeys}{#1}%
%%   \ifcase%
%%   \ifx\@tockey\undefined\@ne\fi%
%%   \ifx\@tockey\@empty\@ne\fi%
%%   \z@%
%%   \tsection*{\@tockey}%
%%   \else%
%%   \tsection*{#2}%
%%   \fi%
%%   \part[toc={}]{#2}
%% }
%% \newcommand{\tsectionandpart@NE}[2][]{%
%%   \let\@tockey\undefined%
%%   \setkeys{Pkeys}{#1}%
%%   \ifcase%
%%   \ifx\@tockey\undefined\@ne\fi%
%%   \ifx\@tockey\@empty\@ne\fi%
%%   \z@%
%%   \tsection{\@tockey}%
%%   \else%
%%   \tsection{#2}%
%%   \fi%
%%   \part[toc={}]{#2}
%% }


\endinput

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: