\documentclass{article}
\thispagestyle{empty}
%\def\pgfsysdriver{pgfsys-tex4ht.def}
\usepackage{tikz}
\newlength{\nodewidth}
\settowidth{\nodewidth}{Fr\"olicher~}
\newcommand{\R}{R}
\tikzstyle{souriau} = [blue]
\tikzstyle{frolicher} = [green]
\begin{document}
\begin{tikzpicture}
\path[use as bounding box] (0,.9) rectangle (9,-6.5);
\draw (0,0) rectangle (4,-5);
\draw (0,-2.5) -- (4,-2.5);
%%% Beamer specific %%%
%%% \draw<2-> (5,0) .. controls (5,-2.5) .. (7,-2.5) .. controls (5,-2.5) .. (5,-5) -- (9,-5) .. controls (9,-2.5) .. (7,-2.5) .. controls (9,-2.5) .. (9,0) --(5,0);
\draw (5,0) .. controls (5,-2.5) .. (7,-2.5) .. controls (5,-2.5) .. (5,-5) -- (9,-5) .. controls (9,-2.5) .. (7,-2.5) .. controls (9,-2.5) .. (9,0) --(5,0);
\node at (2,.4) {\(\R^2\)};
%%% Beamer specific %%%
%%% \node at (7,.4) {\only<2->{\(\R^2/\R\)}};
\node at (7,.4) {{\(\R^2/\R\)}};
\foreach \x in {.8,1.6,2.4,3.2} {
\draw (\x,0) -- (\x,-5);
%%% Beamer specific %%%
%%% \draw<2-> (5+\x,0) .. controls (5+\x,-2.5) .. (7,-2.5) .. controls (5+\x,-2.5) .. (5+\x,-5);
\draw (5+\x,0) .. controls (5+\x,-2.5) .. (7,-2.5) .. controls (5+\x,-2.5) .. (5+\x,-5);
}
%%% Beamer specific %%%
%%% \draw<3->[souriau] (1.2,0) -- (1.2,-5);
\draw[souriau] (1.2,0) -- (1.2,-5);
%%% Beamer specific %%%
%%% \draw<3->[souriau] (6.2,0) .. controls (6.2,-2.5) .. (7,-2.5) .. controls (6.2,-2.5) .. (6.2,-5);
\draw[souriau] (6.2,0) .. controls (6.2,-2.5) .. (7,-2.5) .. controls (6.2,-2.5) .. (6.2,-5);
%%% Beamer specific %%%
%%% \draw<4->[frolicher] (0.4,0) -- (0.4,-2.5);
\draw[frolicher] (0.4,0) -- (0.4,-2.5);
%%% Beamer specific %%%
%%% \draw<4->[frolicher] (3.6,-2.5) -- (3.6,-5);
\draw[frolicher] (3.6,-2.5) -- (3.6,-5);
%%% Beamer specific %%%
%%% \draw<4->[frolicher] (5.4,0) .. controls (5.4,-2.5) .. (7,-2.5) .. controls (8.6,-2.5) .. (8.6,-5);
\draw[frolicher] (5.4,0) .. controls (5.4,-2.5) .. (7,-2.5) .. controls (8.6,-2.5) .. (8.6,-5);
%%% Beamer specific %%%
%%% \draw<3->[souriau] (5.5,-5.5) -- +(-1,0) node[text width=\nodewidth] at +(\nodewidth/2+10,0) {Souriau};
\draw[souriau] (5.5,-5.5) -- +(-1,0) node[text width=\nodewidth] at +(\nodewidth/2+10,0) {Souriau};
%%% Beamer specific %%%
%%% \draw<4->[frolicher] (5.5,-6) -- +(-1,0) node[text width=\nodewidth] at +(\nodewidth/2+10,0) {Fr\"olicher};
\draw[frolicher] (5.5,-6) -- +(-1,0) node[text width=\nodewidth] at +(\nodewidth/2+10,0) {Fr\"olicher};
\end{tikzpicture}
\end{document}