uselabo
20 setxunit
-5.5 6.5 setxrange
-1 16 setyrange

/aspectLiquides [{jaune}] def
/niveauLiquides [60] def

0 1.5 [1.2 1] (Erlen) bbpict
O (AgitateurMagnetique) bbpict
-.32 2.50 (ConductimetreDigital) /Cellule spict
/Cellule pictget /D' defpoint
/bb pictget /point_de_base defpoint

/aspectLiquides [{cyan}] def
0.1 9 (Burette) bbpict

%% la legende

setTimes
(conductimètre) point_de_base dctext

/A' {-0.2 14} def
/A {-1.1 14} def
[A A'] (->) ligne
(. . . . . . . . . . . .) A cltext

/dotscale {.8 dup} def
/B' {0.2 11} def
/B {-1.2 11} def
[B B'] (-*) ligne
(. . . . . . . . . . . .) B bltext

/C' {0.7 3.0} def
/C {2 6} def
[C C'] (-*) ligne
(. . . . . . . . . . . .) C brtext

/D {3 D' exch pop} def
[D D'] (->) ligne
(. . . . . . . . . . . .) D crtext

/E' {1.52 0.5} def
/E {3 -0.8} def
[E E'] (->) ligne
(. . . . . . . . . . . .) E crtext

/F' {0.55 1.7} def
/F {2 1.7} def
/G' {2 1.7} def
/G {3 0.8} def
[F F'] (->) ligne
[G G'] (-) ligne
(. . . . . . . . . . . .) G crtext