Fichier tubeinverse_02.jps — Modifié le 11 Mars 2006 à 10 h 56
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