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
open Base
module type S = Waves_intf.S
module Config = struct
type t =
{ mutable signals_width : int
; mutable values_width : int
; mutable wave_width : int
; mutable start_cycle : int
; mutable start_signal : int
; mutable selected_signal : int
; mutable signal_scroll : int
; mutable value_scroll : int
}
[@@deriving sexp]
let default =
{ signals_width = 20
; values_width = 20
; wave_width = 3
; start_cycle = 0
; start_signal = 0
; selected_signal = 0
; signal_scroll = 0
; value_scroll = 0
}
;;
end
type 'data t =
{ cfg : Config.t
; waves : 'data Wave.t array
}
[@@deriving sexp_of]
let total_rows _t = 0