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
|