uselabo
20 setxunit
autocrop
-9 3  setxrange
-2 12 setyrange
1 setlinewidth

/aspectLiquides [{cyan}] def
/niveauLiquides [30] def

/Tubes [(RefrigerantBoules)] def

withbouchon

0 0 (ChauffeBallon) ccpict
0 0 (Ballon) bbpict
/FlecheEntree pictget /A defpoint
/FlecheSortie pictget /B defpoint

setTimes 
(eau froide ) A cltext
(eau tiède ) B cltext