let dcaseK (case:coord) =
  let res = Array.create 64 0.0 in
 let lc = fcase case in
  for k=0 to (List.length lc)-1 do
   res.(lin (List.nth lc k)) <- 1.0
  done; res