let ask_echelle_couleur nb () =
try (zenity_info "
Pour colorer les pièces, le systeme utilise une echelle de couleur.
Vous avez choisi de la configurer vous meme : veuillez choisir deux couleurs pour creer cette echelle.
<i>L'echelle generee est une simple interpolation entre les codes RGB des deux couleurs rentrees.
Veuillez donc choisir des couleurs bien differentes pour distinguer quelque chose sur l'affichage !</i>";
let x = genere_echelle_couleur ~cmax:(ask_couleur ()) ~cmin:(ask_couleur ()) ~nb:(nb+1) in
zenity_info "L'echelle de couleur a bien ete enregistree et sera utilisee tant que le programme ne sera pas quitte.";
x) with (Error_Annule(i)) -> (echelle_intelligente nb)