uselabo
20 setxunit
quadrillage marks
-1 6 setxrange
-3 9 setyrange
1 setlinewidth
withbouchon
/Tubes [(TubeDroit)] def
/niveauLiquides [70] def
/aspectLiquides [{cyan}] def
3 0 (Cristallisoir) bcpict
/niveauLiquides [50] def
/aspectLiquides [{jaune}] def
3 0 (TubeEssais) ucpict
3 0 () (ChauffeBallon) dcpict
|