Présentation de tubeinverse_02.jps

uselabo
usecolor
autocrop
-8 10  setxrange
-4 15 setyrange
20 setxunit
%quadrillage marks

/niveauLiquides [80] def
/aspectLiquides [{cyan}] def
2 0 (Cristallisoir) bcpict
/Gazs [{40 Bulles}] def
2 0 (TubeRenverse) bbpict
2 0 (ReposeTube) bcpict

withbouchon
/niveauLiquides [40] def
/Gazs [] def
/Solides [{rouge 30 Cuivre}] def
/Tubes [(TubeRecourbe)] def
-5 6 (Erlen) bbpict
/bb pictget (0 2) (BunsenGrille) dcpict