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.7 .7] (Becher) bbpict
/aspectLiquides [{rouge}] def
withbouchon
/Tubes [(TubeDroit)] def
A .5 0 addv [.6 dup] (TubeEssais) bbpict
/aspectLiquides [{{bleu} {blanc} 0}] def
A -.3 0 addv [.6 dup] (TubeEssais) bbpict
/aspectLiquides [{cyan}] def
A -.9 0 addv [.6 dup] {13} (TubeEssais) bbpict
A .9 0 addv [.6 dup] {-13} (TubeEssais) bbpict
|