Présentation de 2710.jps

/syracuse/bbgraf/tmp/2710.jpg
uselabo 20 setxunit -9 3 setxrange -2 12 setyrange 1 setlinewidth /aspectLiquides [{cyan}] def /niveauLiquides [40] def /Tubes [(RefrigerantBoules)] def withbouchon 0 0 (ChauffeBallon) ccpict 0 0 (Bicol) bbpict /FlecheEntree pictget /A defpoint /FlecheSortie pictget /B defpoint /troug pictget /F defpoint F {45} (Bouchon) bbpict F {45} (AmpouleCoulee) /ConnectIn spict /C' {-.5 7.5} def /C {A pop 7.5} def [C C'] (->) ligne /D' {-2 0} def /D {-3 0} def [D D'] (->) ligne /dotscale {.8 dup} def /E' {-.2 .7} def /E {-3 2} def [E E'] (-*) ligne