uselabo
usecolor
autocrop
-7 10  setxrange
-4 15 setyrange
20 setxunit
%quadrillage marks

/niveauLiquides [80] def
/aspectLiquides [{cyan}] def
/Gazs [{30 BullesChampagne}] def
withbouchon
/Tubes [(TubeDroit)] def
0 3 {-40} (Ballon) bbpict
0 3 (10 0) (Bunsen) /uc spict