let create occluder nodes =
  let n = create' () in
  let g = to_group n in
    set_occluder n occluder;
    List.iter (Group.add_child g) nodes;
    Group.to_node g