uselabo
20 setxunit
-2 11  setxrange
-1 17 setyrange
1 setlinewidth

/niveauLiquides [60] def
/aspectLiquides [{magenta}] def
3 7 (Burette) bcpict
/aspectLiquides [{blanc}] def
3 1.5 (Becher) bcpict

3 0 (AgitateurMagnetique) bcpict

setTimes
/A {3.5 14} def
/A' {5 14} def
[A A'] (<-) ligne 
( burette) A' crtext

/dotscale {.8 dup} def
/B {3.2 10} def
/B' {5 10} def
[B B'] (*-) ligne 
( solution d'........) B' urtext
( ........) B' drtext


/D {4.5 .7} def
/D' {6 .7} def
[D D'] (<-) ligne
( agitateur magnétique) D' crtext

<tex>
\hsize 50mm
solution d'........

..............
</tex>
/E {3.5 2.5} def
/E' {6 2.5} def def
[E E'] (*-) ligne
E' [1.2 dup] crtexlabel