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