blob: 1052cf8427b620e44a325ddc40e0bf660aa9c94f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module State = Script_state.State
type t = float * (float * float)
(** Tick event
Tick only occurs when drawing a new path
*)
let process (delay, point) state =
match state.State.mode with
| Edit ->
(* Add the point in the list *)
let current = State.insert_or_replace
state
point
delay
state.current in
{ state with current }
| _ -> state
|
