Source file `waves_window.ml`

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
open! Base
open Hardcaml_waveterm_kernel
module M = Waves_window_intf.M

module Make
    (Data : Data.S)
    (Render : Hardcaml_waveterm_kernel.Render.M(Data).S)
    (Hierarchy : Hierarchy.M(Data).S) =
struct
  type t =
    { hierarchy : Hierarchy.t
    ; style : Style.t
    }
  [@@deriving sexp_of]

  let style = Window_styles.(colour white_on_black).waves
  let create ~hierarchy () = { hierarchy; style }

  let draw ~ctx ~bounds ~selected_wave_index t =
    Render.draw_wave
      ~wave_cursors:(Cursors.get_active_cursors t.hierarchy.cursors)
      ~style:t.style
      ~ctx
      ~bounds
      ~selected_wave_index
      (Hierarchy.get_currently_rendered_waves t.hierarchy)
  ;;
end