Source file `llama_io.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Llama

module Wav = struct
  type t = { path : string }

  let of_file_at_path path = { path }

  let read_wav_file_mono_exn { path } =
    Llama_low_level.Wav.read_wav_file_mono_exn path

  let sample_player_mono t =
    let data = read_wav_file_mono_exn t in
    Dsl.sample_player_mono data
end