autocrop
-10 10 setxrange
-10 10 setyrange
uselabo
20 setxunit
/arrowscale {.8 dup} def
withbouchon
/aspectLiquides [{cyan}] def
/niveauLiquides [40] def
/Gazs [{60 Bulles}] def
/Tubes [{[-1 1] (TubeCoin)} {(0 -10) (ThermometreLong)}] def
1 setlinewidth
0 0 (TrompeEau) bbpict
/Sortie pictget /A defpoint
70 /Out pictget {90} (Manometre) /Connect spict
[A .2 0 addv dupp 1 0 addv] (->) ligne
|