let view_eog ?(verb=false) ?(plot="plot") ?(ext=dftlext) () =
        if verb then print "\n  4. Affichage de l'image produit '%s.%s' par /usr/bin/eog..." plot ext;
        Sys.command (sprint "/usr/bin/eog \"%s.%s\" &" plot ext)