Unnamed

  open Sdlmouse;;

  init [`EVERYTHING];;

  let (bpp, w, h) = (16, 400, 300);;
  let screen = set_video_mode ~w ~h ~bpp [];;

  fill_rect screen (map_RGB screen cyan);;
  put_pixel_color screen ~x:160 ~y:100 red;;

  let x = Array.make 20 (0,0,[]);;

  for i = 1 to 10 do
    Array.set x i ( get_state () );
      let (y, z, zz) = x.(i) in
        Printf.printf "%d %d\n" y z;

    show_cursor false;
    show_cursor true;
    flip screen;
    flush_all ();
    delay 100
  done;;

  quit();;