% Dans le préambule
% -----------------
\usepackage{pst-labo}
% -----------------

\psset{unit=0.3cm}
\pstChauffageTube[becBunsen,
                  barbotage,
                  glassType=flacon]