autocrop
-6 15 setyrange
20 setxunit
uselabo

/aspectLiquides [{jaune} {cyan}] def
/niveauLiquides [40 90] def
0 0 [.7 dup] (AmpouleDecantation) bbpict
/col pictget /A defpoint
/niveauLiquides [20] def
/Out pictget [.7 dup] (Becher) dcpict
/bb pictget -2 0 addv (Potence) bbpict
/bb pictget pop A pincefine