uselabo
20 setxunit
-4 10  setxrange
-1 4 setyrange

quadrillage
marks

/aspectLiquides [{rouge} {cyan} {jaune} {orange}] def
/niveauLiquides [20 40 60 90] def

-2 0 {10} (TubeEssais) bcpict
0 0 (TubeEssais) bcpict
2 0 [2 dup] {-80} (TubeEssais) bcpict
5 3 [.8 dup] {100} (TubeEssais) bcpict