uselabo
usecolor
autocrop
-8 10  setxrange
-4 15 setyrange
20 setxunit
%quadrillage marks
/vadjust 2 def

withbouchon
/niveauLiquides [60] def
/aspectLiquides [{cyan}] def
/Gazs [{62 BullesChampagne}] def
/Tubes [(TubeDroit)] def
0 6 (Erlen) bbpict
/bb pictget (BunsenGrille) dcpict