uselabo
20 setxunit
0 12  setxrange
-1 15 setyrange
1 setlinewidth

/niveauLiquides [60] def
/aspectLiquides [{jaune}] def
3 7 (Burette) bcpict
/aspectLiquides [{cyan}] def
3 1.5 (Erlen) 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'hydroxyde) B' urtext
( de sodium) B' drtext

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

/E {3.5 2.5} def
/E' {6 2.5} def def
[E E'] (*-) ligne
( lait dilué) E' urtext
( et phénolphtaléine) E' drtext