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

/niveauLiquides [40 65 100] def
/aspectLiquides [{bleu} {jaune} {cyan}] def
0 2 {-60} (TubeEssais) bcpict

/niveauLiquides [15] def
/aspectLiquides [{cyan}] def
/ur pictget 0 -.5 addv(Ballon) dcpict