autocrop uselabo usecolor 20 setxunit -7 9 setxrange -1 15 setyrange 0 0 (BunsenGrille) bbpict /uc pictget /A defpoint /niveauLiquides [80] def /aspectLiquides [{bisque}] def A [1.5 .7] (Becher) bbpict /aspectLiquides [{rouge}] def withbouchon /Tubes [(TubeDroit)] def A .8 0 addv [.6 dup] (TubeEssais) bbpict /aspectLiquides [{cyan}] def A -.8 0 addv [.6 dup] (TubeEssais) bbpict /aspectLiquides [{{bleu} {blanc} 0}] def A [.6 dup] (TubeEssais) bbpict