Basic implemenation of \quotebox and \kickerbox.

This commit is contained in:
Achim D. Brucker 2016-08-17 10:10:34 +01:00
parent 0fc4b210e1
commit 3efe1b2d62
2 changed files with 54 additions and 0 deletions

View File

@ -25,6 +25,7 @@
\setbeamercolor*{subtitle}{fg=white}
\setbeamercolor{frametitle}{fg=white}
\setbeamercolor{framesubtitle}{fg=white}
\setbeamercolor{kicker}{use=structure,fg=white,bg=TUOSdarkblue}
\else
\setbeamercolor{structure}{fg=TUOSlightblue, bg=white}
\setbeamercolor{normal text}{fg=TUOSlightblue, bg=white}
@ -32,6 +33,7 @@
\setbeamercolor*{subtitle}{fg=TUOSlightblue}
\setbeamercolor{frametitle}{fg=TUOSdarkblue}
\setbeamercolor{framesubtitle}{fg=TUOSlightblue}
\setbeamercolor{kicker}{use=structure,fg=white,bg=TUOSdarkblue}
\fi
\mode

View File

@ -98,5 +98,57 @@
\frame{\partpage}
\egroup
}
\newsavebox{\@tempsboxa}
\newsavebox{\@tempsboxb}
\newlength{\@tempdimd}
\newenvironment{kickerbox}[1][]
{%
\@tempdima=\textwidth%
\advance\@tempdima by -8mm%
\advance\@tempdima by -4mm%
%
\sbox{\@tempsboxb}{\parbox{4mm}{#1}}%
%
\begin{lrbox}{\@tempsboxa}%
\begin{minipage}{\the\@tempdima}%
}{%
\end{minipage}%
\end{lrbox}%
\settowidth{\@tempdima}{\usebox{\@tempsboxa}}
\advance\@tempdima by .4cm%
\settoheight{\@tempdimb}{\usebox{\@tempsboxa}}
\settodepth{\@tempdimc}{\usebox{\@tempsboxa}}
\advance\@tempdimb by .4cm%
\advance\@tempdimb by \the\@tempdimc%
%
\@tempdimc=\@tempdimb%
\settodepth{\@tempdimd}{\usebox{\@tempsboxb}}
\advance\@tempdimc by -\@tempdimd
\settodepth{\@tempdimd}{\usebox{\@tempsboxb}}
\advance\@tempdimc by -\@tempdimd
\advance\@tempdimc by -.6cm
\smallskip
\begin{columns}[onlytextwidth]
\begin{column}[t]{7mm}
\begin{beamercolorbox}[sep=.1cm,wd=8mm,ht=\the\@tempdimb]{palette secondary}
\usebox{\@tempsboxb}\vspace{\the\@tempdimc}%
\end{beamercolorbox}
\end{column}
\begin{column}[t]{\the\@tempdima}
\begin{beamercolorbox}[sep=0.2cm,wd=\the\@tempdima,ht=\the\@tempdimb]{kicker}%
\usebox{\@tempsboxa}%
\end{beamercolorbox}%
\end{column}
\end{columns}
\smallskip
}
\newenvironment{quotebox}
{\begin{kickerbox}[{\Huge\textbf{\usebeamercolor[bg]{kicker}{\,``}}}]}
{\end{kickerbox}}
\endinput