uselabo 20 setxunit -9 2 setxrange -1 12 setyrange 1 setlinewidth /aspectLiquides [{cyan}] def /niveauLiquides [30] def /Tubes [(RefrigerantBoules)] def withbouchon /aspectLiquides [{jaune}] def 0 0 (ChauffeBallon) ccpict 0 0 (Ballon) bbpict /FlecheEntree pictget /A defpoint /FlecheSortie pictget /B defpoint setTimes (. . . . . . . .) A cltext (. . . . . . . .) B cltext /C' {-.5 7.5} def /C {A pop 7.5} def [C C'] (->) ligne (. . . . . . . .) C cltext /D' {-2 0} def /D {-3 0} def [D D'] (->) ligne (. . . . . . . .) D cltext /dotscale {.8 dup} def /E' {-.2 .7} def /E {-3 2} def [E E'] (-*) ligne (. . . . . . . .) E cltext