uselabo
20 setxunit
1 16  setxrange
-1 16 setyrange
1 setlinewidth

/niveauLiquides [60] def
/aspectLiquides [{blanc}] def
3 7 (Burette) bcpict
/aspectLiquides [{rouge}] 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 titrante de thiosulfate) B' urtext
( de sodium) B' drtext


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

<tex>
\hsize 50mm
"trempe chimique" numéro X

$+$ empois d'amidon ajouté peu avant l'équivalence
</tex>
/E {3.5 2.5} def
/E' {6 2.5} def def
[E E'] (*-) ligne
E' [1.2 dup] crtexlabel