let reset () =
  let my_opts = parameters () in
  let select acc p =
    let state = State.get p.Parameter.name in
    State_selection.Dynamic.union
      (State_selection.Dynamic.with_dependencies state)
      acc
  in
  let selection = List.fold_left select State_selection.empty my_opts in
  Project.clear ~selection ()