uselabo
-4 5  setxrange
-1 4 setyrange

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

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