autocrop
uselabo
usecolor
20 setxunit
-7 9 setxrange
-1 15 setyrange

0 0 (BunsenGrille) bbpict
/uc pictget /A defpoint
/niveauLiquides [80] def
/aspectLiquides [{bisque}] def
A [1.5 .7] (Becher) bbpict
/aspectLiquides [{rouge}] def
withbouchon
/Tubes [(TubeDroit)] def
A .8 0 addv [.6 dup] (TubeEssais) bbpict
/aspectLiquides [{cyan}] def
A -.8 0 addv [.6 dup] (TubeEssais) bbpict
/aspectLiquides [{{bleu} {blanc} 0}] def
A [.6 dup] (TubeEssais) bbpict