Tweak example

Author: gridbugs

examples/dune

@@ -34,6 +34,12 @@
  (package llama)
  (libraries llama))
 
+(executable
+ (public_name polyphonic_events_graphical)
+ (modules polyphonic_events_graphical)
+ (package llama_interactive)
+ (libraries llama_interactive))
+
 (executable
  (public_name oscilloscope)
  (modules oscilloscope)

examples/midi_player.ml

@@ -3,7 +3,7 @@ open Llama_interactive
 open Llama.Midi
 open Dsl
 
-let midi_signal (data : Llama_midi.Data.t) =
+let midi_signal (data : Llama_midi.Data.t) ~mouse_x ~mouse_y =
   let clock = clock_of_frequency_hz (const 1000.0) in
   let track = List.hd data.tracks in
   let midi_event_signal = track_signal track clock in
@@ -33,8 +33,9 @@ let midi_signal (data : Llama_midi.Data.t) =
           |> exp_01 1.0
         in
         let filtered_osc =
-          chebyshev_low_pass_filter osc ~resonance:(const 4.0)
-            ~cutoff_hz:(sum [ const 100.0; filter_env |> scale 12000.0 ])
+          chebyshev_low_pass_filter osc ~resonance:mouse_y
+            ~cutoff_hz:
+              (sum [ const 100.0; filter_env *.. mouse_x |> scale 12000.0 ])
         in
         filtered_osc
         |> lazy_amplifier
@@ -48,11 +49,7 @@ let mouse_filter = butterworth_low_pass_filter ~cutoff_hz:(const 10.0)
 let midi_signal_with_effects (input : (_, _) Input.t) data =
   let mouse_x = mouse_filter input.mouse.mouse_x in
   let mouse_y = mouse_filter input.mouse.mouse_y in
-  midi_signal data
-  |> chebyshev_low_pass_filter ~resonance:(const 2.0)
-       ~cutoff_hz:(mouse_x |> exp_01 4.0 |> scale 10000.0 |> offset 100.0)
-  |> chebyshev_high_pass_filter ~resonance:(const 4.0)
-       ~cutoff_hz:(mouse_y |> exp_01 4.0 |> scale 2000.0 |> offset 100.0)
+  midi_signal data ~mouse_x ~mouse_y
 
 module Args = struct
   type t = { midi_file_path : string }
@@ -84,9 +81,9 @@ end
 let () =
   let { Args.midi_file_path } = Args.parse () in
   with_visualization_window ~background_rgba_01:(0.0, 0.0, 0.2, 1.0)
-    ~stable:false ~stride:4 ~pixel_scale:6 ~sample_scale:0.2
+    ~stable:false ~stride:1 ~pixel_scale:1 ~sample_scale:1.
     ~sample_to_rgba_01:(Fun.const (0.6, 0.5, 0.2, 1.0))
     (fun window ->
       let reader = Llama_midi.File_reader.of_path midi_file_path in
       let data = Llama_midi.File_reader.read reader in
-      midi_signal_with_effects (Window.input_signals window) data)
+      midi_signal_with_effects (Window.input_signals window) data |> scale 0.1)