blob: f3be91da59223c1f28dd3779902cf17b1dc5ca86 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
type mode =
| Edit
| Selection of Selection.t
| Out
type worker_event = Worker_messages.from_worker
(*
The state cant hold functionnal values, and thus cannot be used to store
elements like timer
*)
type state =
{ mode : mode
; paths : Outline.t list
; current : Path.Path_Builder.t
; width : float
; angle : float
; rendering : Layer.Paths.printer
; mouse_down_position : Gg.v2
}
include Application.Make(struct type t = state end)
let post
: Brr_webworkers.Worker.t -> Worker_messages.to_worker -> unit
= Brr_webworkers.Worker.post
let insert_or_replace state ((x, y) as p) stamp path =
let width = state.width
and angle = state.angle in
let point = Path.Point.create ~x ~y ~angle ~width ~stamp in
match Path.Path_Builder.peek path with
| None ->
Path.Path_Builder.add_point
point
path
| Some p1 ->
let open Gg.V2 in
let p1' = Path.Point.get_coord p1 in
let dist = (norm (p1' - (of_tuple p))) in
if dist < 5. then (
path
) else (
Path.Path_Builder.add_point
point
path
)
(** Select the given segment, and modify angle and width accordingly *)
let select_segment _ (_, selected, p0, p1) state dist =
let point' = Path.Point.mix dist (Path.Point.get_coord p0) p0 p1 in
let angle = (Float.round @@ 10. *. Path.Point.get_angle point') /. 10.
and width = (Float.round @@ 10. *. Path.Point.get_width point') /. 10. in
let id = Selection.select_path selected in
{ state with
mode = (Selection id)
; angle
; width }
let init =
{ paths = []
; current = Path.Path_Builder.empty
; mode = Out
; angle = 30.
; width = 10.
; rendering = `Fill
; mouse_down_position = Gg.V2.ox
}
|
