let dataInC  = let temp = Array.create_matrix 8 8 0 in
    temp.(fst (List.nth center 0)).(snd (List.nth center 0)) <- 1;temp