Fichier 5084.jps — Modifié le 5 Mai 2008 à 23 h 34

5084.pdf
Source
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