let topology_boundary = match cp_topology_boundary#get with
  | "periodic" -> Periodic
  | "bounded" -> Bounded
  | s -> failwith (s ^ " isn't a valid topology_boundary.")