chauffage_03.jps [ retour — édition — source ]
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