uselabo
-2 4  setxrange
-1 4 setyrange
 
/Gazs [{30 BullesChampagne}] def

/niveauLiquides [80] def
/aspectLiquides [{cyan}] def

2 0 (TubeEssais) bcpict
0 0 (Ballon) bcpict