Bonjour, voilà sans que vous cherchiez à comprendre ce que ce bout de code est censé faire (si vous avez besoin de savoir ce que ça fait je peux vous l'expliquer en essayant d'être clair) j'aimerais que quelqu'un m'aide. Quand je compile mon projet ça me fou qu'il y a un dépassement de capacité mais je ne vois trop pas pourquoi... Merci de m'aider.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
let skew_detection file matresbw =
  let width = ref (width file) in
  let height = ref (height file) in 
  let angle_rot = 0 in
    (*let skew_value = ref 0 in
      let som = ref 0 in
      let max = ref 0 in*)
  let nbpxbk = ref 0 in 
    (*let i= ref 1 in *)
  let tab = Array.make_matrix (!height) 1 0 in 
  let matresbw_rotate = rot_matresbw file matresbw angle_rot in
    (*for angle_rot = -15 to 15  do*) 
    (* appel de la fonction rot_matresbw *)
    for y = 0 to (!height - 1) do
      for x = 0 to (!width - 1) do
	if matresbw_rotate.(y).(x) = (0,0,0) then
	  nbpxbk := (!nbpxbk) + 1;
      done;
      tab.(y).(0) <- tab.(y).(0) + (!nbpxbk);
      nbpxbk := 0;
    done; print_string(" Hello ")