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