let labl_create planes nodes =
  let cn = create' () in
  let g = to_group cn in
    List.iter (add_clip_plane cn) planes;
    List.iter (Group.add_child g) nodes;
    cn