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