uselabo
autocrop
20 setxunit
-10 10  setxrange

%% /aspectLiquides [{rouge} {cyan} {jaune} {orange}] def
%% /niveauLiquides [20 40 60 90] def

/Solides [{bleu 3 Filaments}] def
-3 0 {10} (TubeEssais) bcpict

/Solides [{rouge 20 Clous}] def
-1.5 0 (TubeEssais) bcpict

/Solides [{ClouFer}] def
0 0 (TubeEssais) bcpict

/Solides [{10 Zinc} {TournureCuivre}] def
1.5 0 (TubeEssais) bcpict

/Solides [{bleu ClouFer} {TournureCuivre} {orange 5 Filaments}] def
3 0 (TubeEssais) bcpict

/Solides [{Copper 20 Cuivre}] def
4.5 0 (TubeEssais) bcpict

/aspectLiquides [{cyan}] def
/niveauLiquides [70] def
/Solides [{10 Zinc} {TournureCuivre} {bleu 10 Clous}] def
6 0 (TubeEssais) bcpict