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)