Source file `llama_interactive.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
29
30
31
32
33
34
include Llama
module Window = Window
module Input = Input

let with_window_lwt = Window.with_lwt
let with_window = Window.with_
let visualize = Window.visualize

let play_signal_visualized_lwt ?(title = Defaults.title)
    ?(width = Defaults.width) ?(height = Defaults.height) ?(fps = Defaults.fps)
    ?(background_rgba_01 = Defaults.background_rgba_01)
    ?(f_delay_s = Defaults.f_delay_s) ?(pixel_scale = Defaults.pixel_scale)
    ?(sample_scale = Defaults.sample_scale)
    ?(sample_to_rgba_01 = Defaults.sample_to_rgb_01) ?(stride = Defaults.stride)
    ?(scale_output_volume = 1.0) ?(stable = Defaults.stable) signal =
  with_window_lwt ~title ~width ~height ~fps ~background_rgba_01 ~f_delay_s
    (fun window ->
      let viz'd_signal =
        visualize ~pixel_scale ~sample_scale ~sample_to_rgba_01 ~stride ~stable
          window signal
      in
      play_signal_lwt (viz'd_signal |> Dsl.scale scale_output_volume))

let play_signal_visualized ?(title = Defaults.title) ?(width = Defaults.width)
    ?(height = Defaults.height) ?(fps = Defaults.fps)
    ?(background_rgba_01 = Defaults.background_rgba_01)
    ?(f_delay_s = Defaults.f_delay_s) ?(pixel_scale = Defaults.pixel_scale)
    ?(sample_scale = Defaults.sample_scale)
    ?(sample_to_rgba_01 = Defaults.sample_to_rgb_01) ?(stride = Defaults.stride)
    ?(scale_output_volume = 1.0) ?(stable = Defaults.stable) signal =
  Lwt_main.run
    (play_signal_visualized_lwt ~title ~width ~height ~fps ~background_rgba_01
       ~f_delay_s ~pixel_scale ~sample_scale ~sample_to_rgba_01 ~stride
       ~scale_output_volume ~stable signal)