uselabo
20 setxunit
quadrillage marks
-1 6 setxrange
-3 9 setyrange
1 setlinewidth

withbouchon

/Tubes [(TubeDroit)] def
/niveauLiquides [70] def
/aspectLiquides [{cyan}] def
3 0 (Cristallisoir) bcpict

/niveauLiquides [50] def  
/aspectLiquides [{jaune}] def
3 0 (TubeEssais) ucpict
3 0 () (ChauffeBallon) dcpict