let create ~occluder ~holes =
  let r = create' () in
    set_occluder r occluder;
    List.iter (add_hole r) holes;
    r