uselabo
usecolor
autocrop
-7 20  setxrange
-4 15 setyrange
20 setxunit

/niveauLiquides [80] def
/aspectLiquides [{cyan}] def
/Gazs [{30 BullesChampagne}] def
withbouchon
/Tubes [(TubeCoude)] def
0 3 {-40} (Ballon) bbpict
/Out pictget /A defpoint
0 3 (10 0) (Bunsen) /uc spict
withoutbouchon
/Gazs [{15 BullesChampagne}] def
/aspectLiquides [{bisque}] def
/Tubes [] def
A {50} (TubeEssais) ccpict