module State = Script_state.State
module Selection = Script_state.Selection

let update_property worker state value f = function
  | None -> state
  | Some (Selection.Path outline) ->
    (* Change width for the whole path *)
    let outline = { outline with
                    Outline.path = Path.Fixed.map outline.Outline.path (fun p ->
                        f p value)
                  } in
    State.post worker (`Back outline);
    state
  | Some (Point (outline, point)) ->
    let path = Path.Fixed.map
        outline.path
        (fun pt ->
           match Path.Point.id pt = Path.Point.id point with
           | false -> pt
           | true -> f pt value)
    in
    let outline = {outline with path} in
    State.post worker (`Back outline);
    state

type t = { prop : [`Angle | `Width ]
         ; value : float
         ; worker : Brr_webworkers.Worker.t
         }

let process { prop; value ; worker } state =
  match prop with
  | `Angle ->
    let angle = value in
    begin match state.State.mode with

      | Selection t ->
        let state = { state with angle } in
        Selection.find_selection t state.paths
        |> update_property worker state angle Path.Point.set_angle
      | _ -> { state with angle }
    end
  | `Width ->
    let width = value in
    begin match state.State.mode with

      | Selection t ->
        let state = { state with width } in
        Selection.find_selection t state.paths
        |> update_property worker state width Path.Point.set_width
      | _ -> { state with width }
    end