Présentation de chauffage_03.jps

/syracuse/bbgraf/albums/chimie_02/chauffage_03.jpg
uselabo usecolor autocrop -7 20 setxrange -4 15 setyrange 20 setxunit /niveauLiquides [80] def /aspectLiquides [{cyan}] def /Gazs [{30 BullesChampagne}] def withbouchon /Tubes [(TubeCoude)] def 0 3 {-40} (Ballon) bbpict /Out pictget /A defpoint 0 3 (10 0) (Bunsen) /uc spict withoutbouchon /Gazs [{15 BullesChampagne}] def /aspectLiquides [{bisque}] def /Tubes [] def A {50} (TubeEssais) ccpict