uselabo
30 setxunit
-4 10  setxrange
-1 4 setyrange

quadrillage
marks

/aspectLiquides [{{rouge} {orange} 0}] def
/niveauLiquides [90] def

-2 0 {10} (TubeEssais) bcpict
/aspectLiquides [{{bleu} {blanc} 0}] def
2 0 [2 dup] {-80} (TubeEssais) bcpict
5 3 [.8 dup] {100} (TubeEssais) bcpict
/aspectLiquides [{{bleu} {blanc} 0}] def
/gradangle 30 def
0 0 (TubeEssais) bcpict