let diagDepl ldiag = let temp = Array.create_matrix 8 8 0 in
  for k=0 to (List.length ldiag)-1 do
    temp.(fst (List.nth ldiag k)).(snd (List.nth ldiag k))<- 1
  done;temp