%% auteur : 
uselabo
20 setxunit
-6 12  setxrange
-1 17 setyrange
1 setlinewidth

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

.8 0 (pHmetre) bcpict
3 0 (AgitateurMagnetique) bcpict

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

/dotscale {.8 dup} def
/B {3.2 10} def
/B' {5 10} def
[B B'] (*-) ligne 
( solution hidróxido) B' urtext
( de sódio) B' drtext

/C {-1 2} def
/C' {-2.2 2} def
[C C'] (<-) ligne
(pH-metro ) C' cltext

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

<tex>
\hsize 50mm
vinagre dilu\'{\i}do

$+$ fenolftale\'{\i}na
</tex>
/E {3.5 2.5} def
/E' {6 2.5} def def
[E E'] (*-) ligne
E' [1.2 dup] crtexlabel