uselabo
20 setxunit
-3 12  setxrange
-3 11 setyrange
1 setlinewidth

withbouchon

/Tubes [(TubeDroit)] def
/niveauLiquides [70] def
/aspectLiquides [{cyan}] def
O (Cristallisoir) bcpict
%% ordre decroissant ci-dessous : une astuce pour effacer le cyan du
%% cristallisoir
/niveauLiquides [30 80 30] def  
/aspectLiquides [{jaune} {blanc} {blanc}] def
O (TubeEssais) ucpict
O () (ChauffeBallon) dcpict

.5 setlinewidth

/A {.1 7} def
/A' {5 7} def
[A A'] (<-) ligne

/dotscale {.7 dup} def
/B {0 1} def
/B' {5 5} def
[B B'] (*-) ligne

/C {1 1} def
/C' {5 1} def
[C C'] (*-) ligne

/D {2 -1} def
/D' {5 -1} def
[D D'] (<-) ligne

setTimes
   (réfrigérant à air) A' crtext
   (styrène + initiateur) B' crtext
   (bain marie) C' crtext
   (plaque chauffante) D' crtext

boxit
/fillstyle {jaune fill} def
/dx_boxit 3 def
/dy_boxit 3 def
(Polymérisation du styrène) xmin 10 xmax 10 milieu [1.5 dup] cctext

/chauffe {
   [1.17 2.5 0 2.5 0 0 5.5 0 5.5 2.5 4.33 2.5] ligne
} def