Présentation de tubeinverse.jps

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

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

withbouchon
/niveauLiquides [40] def
/Gazs [] def
/aspectLiquides [{sienna}] def
/Solides [{rouge 5 Filaments}] def
/Tubes [(TubeRecourbeCourt)] def
-3 0 (Flacon) bbpict