let ask_piece ~c () =
(*        ask_int_msg "Veuillez choisir le nombre de lignes" ()*)
        let ask_int_msgc s = 
                faire ("zenity --scale --window-icon=\".monicone.ico\" --title=\"Projet puzzle : choix d'une pièce\" --text=\""^s^"\" --value=1 --min-value=1 --max-value="^(string_of_int c)^" > .int_choose_zenity.int");
                parse_int ".int_choose_zenity.int";
        in
        { b = (ask_int_msgc "Couleur du bas ?"); g = (ask_int_msgc "Couleur de gauche ?"); h = (ask_int_msgc "Couleur du haut ?"); d = (ask_int_msgc "Couleur de droite ?") }