(*---- cette fonction permet de réaliser une fonction sleep----*)
(*---- pour gérer les signaux de la librairie graphique -------*)
(*---- qui sont en conflit avec ceux de la librairire Unix. ---*)
(*--------------- copyright Xavier Leroy ----------------------*)
(*--------------- merci la caml-list ! ------------------------*)


let mysleep n =                                              
  let start = Unix.gettimeofday() in                         
  let rec delay t =                                          
    try                                                      
      ignore (Unix.select [] [] [] t)                        
    with Unix.Unix_error(Unix.EINTR, _, _) ->                
      let now = Unix.gettimeofday() in                       
      let remaining = start +. n -. now in                   
      if remaining > 0.0 then delay remaining in             
  delay n;;

open Graphics;;
open_graph"";;

mysleep 5.0;;