%%
%% A DANTE-Edition example
%%
%% Example 35-02-1 on page 767.
%%
%% Copyright (C) 2011 Vo\ss
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%%
%% See
http://www.latex-project.org/lppl.txt for details.
%%
% Show page(s) 1,3,5,7,9,11
%% ====
\PassOptionsToClass{xcolor=table,slidestop, smaller, compress, hyperref={bookmarks=true,colorlinks}}{beamer}
\documentclass{beamer}
\usepackage[utf8]{inputenc}
\usepackage{etex}
\usepackage{times,pstricks}
\usepackage{pst-3dplot}
\usepackage{pstricks-add}
\usetheme{Warsaw}
\useoutertheme[hideallsubsections]{sidebar}
\usecolortheme{dove}
\definecolor{lgray}{gray}{0.88}
\definecolor{mgray}{gray}{0.78}
\definecolor{dgray}{gray}{0.68}
\definecolor{lorange}{rgb}{1.0,0.7,0.7}
\definecolor{morange}{rgb}{0.9,0.6,0.6}
\newcommand\FU[1][]{Freie Universit\"at Berlin #1}
\newcommand\zedat{\textsl{ze|d|a|t}}
\DeclareRobustCommand\ZEDAT{\includegraphics[height=4ex]{images/zedat}}
\usetheme{Warsaw}
\useoutertheme{sidebar}
\def\La{L\kern-.36em\raise.6ex\hbox{\textsf{{\small A}}}}
\author{Herbert Vo\ss}
\institute[ZEDAT]{Freie Universit\"at Berlin}
\pgfdeclareimage[height=6ex, % beamer41.tex -- logo
width=7.4\baselineskip]{institute-logo}{zedat2}
\pgfdeclareimage[height=1.3cm]{uni}{images/fu-berlin}
\logo{\pgfuseimage{uni}}
%
\makeatletter
\setbeamercolor{logo}{bg=white}
\setbeamercolor{frametitle}{fg=white}
\setbeamertemplate{headline}{%
\begin{beamercolorbox}[wd=\paperwidth]{frametitle}
\ifx\beamer@sidebarside\beamer@lefttext%
\else%
\hfill%
\fi%
\ifdim\beamer@sidebarwidth>0pt%
\usebeamercolor[bg]{logo}%
\vrule width\beamer@sidebarwidth height \beamer@headheight%
\hskip-\beamer@sidebarwidth%
\hbox to \beamer@sidebarwidth{\hss\vbox to
\beamer@headheight{\vss\hbox{\color{fg}\insertlogo}\vss}\hss}%
\else%
\vrule width0pt height \beamer@headheight%
\fi%
\end{beamercolorbox}
}
%
\setbeamertemplate{footline}{%
\raisebox{-2ex}{\pgfuseimage{institute-logo}}
\usebeamerfont{date in head/foot}
\insertshortdate{}\hfill
\usebeamertemplate{navigation symbols}\hfill
\insertframenumber{}/\inserttotalframenumber}
%
\setbeamertemplate{sidebar right}{}
\setbeamertemplate{theorem begin}{%
\begin{\inserttheoremblockenv}{%
\inserttheoremname~\inserttheoremnumber
\ifx\inserttheoremaddition\@empty\else\ (\inserttheoremaddition)\fi%
}%
}
\beamertemplatetransparentcovereddynamic
\makeatother
\def\radius{4 }\def\PhiI{20 }\def\PhiII{50 }
\def\RadIs{\radius \PhiI sin mul}
\def\RadIc{\radius \PhiI cos mul}
\def\RadIIs{\radius \PhiII sin mul}
\def\RadIIc{\radius \PhiII cos mul}
\def\psxyzlabel#1{\bgroup\tiny\textsf{#1}\egroup}
\renewcommand\documentclass[2][]{}
\documentclass[ngerman,xcolor=table,slidestop, smaller, compress,
hyperref={bookmarks=true,colorlinks}]{beamer}
\begin{document}
\begin{frame}
\frametitle{\texttt{pst-3dplot}}
\begin{pspicture}(-4.5,-6.5)(3,3.25)
\transduration<1-11>{2.5}
\psset{Alpha=45,Beta=30,linestyle=dashed,unit=0.8cm}
\visible<+->{\pstThreeDCoor[linestyle=solid,xMin=-5,xMax=5,yMin=-4,yMax=5,zMax=5,IIIDticks]}
\visible<+->{\pstThreeDEllipse[linecolor=red](0,0,0)(0,\radius,0)(0,0,\radius)}
\multido{\iA=15+15,\iB=3+1}{5}{%
\visible<+->{\pstThreeDEllipse(\radius \iA\space sin mul,0,0)%
(0,\radius \iA\space cos mul,0)(0,0,\radius \iA\space cos mul)}}
%
\visible<+->{\pstThreeDEllipse[linestyle=dotted,
SphericalCoor](0,0,0)(\radius,90,\PhiI)(\radius,0,0)}
\visible<+->{\pstThreeDEllipse[SphericalCoor,
beginAngle=-90,endAngle=90](0,0,0)(\radius,90,\PhiI)(\radius,0,0)}
\visible<+->{\pstThreeDEllipse[linestyle=dotted,
SphericalCoor](0,0,0)(\radius,90,\PhiII)(\radius,0,0)}
\visible<+->{\pstThreeDEllipse[SphericalCoor,
beginAngle=-90,endAngle=90](0,0,0)(\radius,90,\PhiII)(\radius,0,0)}
%
\visible<+->{\pscustom[fillstyle=solid,fillcolor=blue]{%
\pstThreeDEllipse[SphericalCoor,beginAngle=\PhiI,endAngle=\PhiII]%
(0,0,0)(\radius,90,\PhiII)(\radius,0,0)
\pstThreeDEllipse[beginAngle=\PhiII,endAngle=\PhiI](\RadIIs,0,0)(0,\RadIIc,0)(0,0,\RadIIc)
\pstThreeDEllipse[SphericalCoor,beginAngle=\PhiII,endAngle=\PhiI]%
(0,0,0)(\radius,90,\PhiI)(\radius,0,0)
\pstThreeDEllipse[beginAngle=\PhiI,endAngle=\PhiII](\RadIs,0,0)(0,\RadIc,0)(0,0,\RadIc)
}}
\end{pspicture}
\end{frame}
\end{document}
