%% 
%%  A DANTE-Edition example
%% 
%%  Example 31-01-28 on page 632.
%% 
%%  Copyright (C) 2011 Herbert Voss
%% 
%%  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
%% 
\documentclass[]{article}
\pagestyle{empty}
\setlength\textwidth{201.70511pt}
\setlength\parindent{0pt}

\usepackage{pst-labo}

\begin{document}
\begin{pspicture}(3,0)(5,6)
  \rput(4,3){\pstChauffageBallon[becBunsen=true,unit=0.5]}
  \rput(4,4.2){\pstBallon[glassType=becher,xunit=1,yunit=0.5,
    aspectLiquide1=Champagne,runit=0.7]}
  \psset{glassType=tube,tubeDroit=true}
  \rput(4,4){\pstTubeEssais[unit=0.35,niveauLiquide1=70,aspectLiquide1=Diffusion]}
  \rput(4.5,4){\pstTubeEssais[unit=0.35,niveauLiquide1=75,aspectLiquide1=Sang]}
  \rput(3.5,4){\pstTubeEssais[unit=0.35,niveauLiquide1=80]}
\end{pspicture}\hspace{2cm}
\begin{pspicture}(3,0)(5,6)
  \rput(4,3){\pstChauffageBallon[becBunsen=true,unit=0.5]}
  \rput(4,4.2){\pstBallon[glassType=becher,xunit=1,yunit=0.5,
    aspectLiquide1=Champagne,runit=0.7]}
  \psset{tubeDroit=true}
  \rput(3.8,4){\pstTubeEssais[unit=0.35,niveauLiquide1=70,aspectLiquide1=Diffusion]}
  \rput(4.2,4){\pstTubeEssais[unit=0.35,niveauLiquide1=65,aspectLiquide1=Sang]}
  \rput(3.1,4){\pstTubeEssais[unit=0.35,niveauLiquide1=80,tubePenche=10]}
  \rput(4.9,4){\pstTubeEssais[unit=0.35,niveauLiquide1=80,tubePenche=-10]}
\end{pspicture}\hspace{1cm}
\begin{pspicture}(1,3)(5,6)
  \rput(2.5,4){\pstBallon[glassType=ballon,unit=0.5,niveauLiquide1=15]}
  \rput(1.3,5.4){\pstTubeEssais[unit=0.5,niveauLiquide1=95,
  niveauLiquide2=60,niveauLiquide3=30,tubePenche=-60]}
\end{pspicture}
\end{document}
