Fichier trompeeau_02.jps — Modifié le 22 Septembre 2007 à 14 h 05

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