From 1faa2712ddf4b5a506fdd4a927e1c2458f716c9d Mon Sep 17 00:00:00 2001
From: Nikita Dudnik <nikdudnik@gmail.com>
Date: Fri, 24 Sep 2021 00:42:23 +0200
Subject: [PATCH] Update example

---
 src/example/cljs_audio/app.cljs   | 68 ++++++++++++++-----------------
 src/main/cljs_audio/webaudio.cljs |  2 +-
 2 files changed, 31 insertions(+), 39 deletions(-)

diff --git a/src/example/cljs_audio/app.cljs b/src/example/cljs_audio/app.cljs
index 208cc0e..90f457e 100644
--- a/src/example/cljs_audio/app.cljs
+++ b/src/example/cljs_audio/app.cljs
@@ -5,19 +5,19 @@
     [cljs-audio.scheduling :as s]
     [cljs-audio.time :as t]
     [cljs-audio.modules :as m]
-    [cljs.core.async :refer [go <!]]
+    [cljs.core.async :refer [go <! take!]]
     [cljs.core.async.interop :refer-macros [<p!]]
-    ["standardized-audio-context" :refer (AudioContext)]))
+    ["standardized-audio-context" :as sac]))
 
 (defn graph [{:keys [ir kick time bpm freq]}]
   (let [{:keys [frequency gain]} (s/schedule-parameters {:frequency at-time :gain (partial adsr 0.2 0.15 0.6 0.5 0.2)}
                                                         [{:frequency freq :gain 0.3 ::s/time (+ time 0)}
                                                          {:frequency (* 2 freq) :gain 0.3 ::s/time (+ time (t/seconds 120 "1/4"))}
                                                          {:frequency (* 4 freq) :gain 0.3 ::s/time (+ time (t/seconds 120 "1/4")
-                                                                                                    (t/seconds 120 "1/4"))}])]
-    [{:voice  (m/simple-voice {:frequency frequency
-                               :gain      gain
-                               :type      "sawtooth"})
+                                                                                                      (t/seconds 120 "1/4"))}])]
+    [{:voice        (m/simple-voice {:frequency frequency
+                                     :gain      gain
+                                     :type      "sawtooth"})
       :sampled-kick (m/poly m/one-shot-sample
                             [{:buffer kick :start-time time :gain gain :rate 0.7}
                              {:buffer kick :start-time (+ time (t/seconds bpm "1/4")) :gain gain :rate 0.7}
@@ -28,9 +28,9 @@
       ;                         :gain      gain
       ;                         :type      "sine"})
       ;:reverb [:convolver {:buffer ir}]
-      :fx     (m/multi-tap-delay {:times (mapv m/at-start [(t/seconds bpm "1/2")
-                                                           (t/seconds bpm "1")
-                                                           (t/seconds bpm "2")]) :gains (mapv m/at-start [0.5 0.25 0.125 0.05])})
+      :fx           (m/multi-tap-delay {:times (mapv m/at-start [(t/seconds bpm "1/2")
+                                                                 (t/seconds bpm "1")
+                                                                 (t/seconds bpm "2")]) :gains (mapv m/at-start [0.5 0.25 0.125 0.05])})
       ;:vca    [:gain {:gain 0.3}]
       ;:comp   [:dynamics-compressor {:threshold -50 :knee 0 :ratio 20 :attack 0.005 :release 0.050}]
       }
@@ -52,36 +52,28 @@
 
 (def events ["touchstart" "touchend" "mousedown" "keydown"])
 
-(defn fetch-sample [ctx path] (go (->> (js/fetch path)
-                                       (<p!)
-                                       (.arrayBuffer)
-                                       (<p!)
-                                       (.decodeAudioData ctx)
-                                       (<p!))))
-
 (defn resume-audio-context []
-  (let [ctx (new AudioContext)]
-    (.then (.resume ctx)
-           (fn []
-             (go
-               (let [ir-audio-data (<! (fetch-sample ctx "resources/ir.wav"))
-                     kick-audio-data (<! (fetch-sample ctx "resources/kick.wav"))
-                     bpm 120]
-                 (try
-                   (doseq [ev events] (.removeEventListener js/document.body ev resume-audio-context))
-                   (js/document.body.addEventListener "mousedown"
-                                                      (fn [e]
-                                                        (.preventDefault e)
-                                                        (swap! audio wa/update-audio (graph {:kick kick-audio-data :freq (/ (.-offsetY e) 10) :ir ir-audio-data :time (.-currentTime ctx) :bpm bpm}))))
-                   (js/document.body.addEventListener "touchstart"
-                                                      (fn [e]
-                                                        (.preventDefault e)
-                                                        (let [touch (.item (.-changedTouches e) 0)]
-                                                          (when (not (nil? touch))
-                                                            (swap! audio wa/update-audio (graph {:kick kick-audio-data :freq (/ (.-pageY touch) 5) :ir ir-audio-data :time (.-currentTime ctx) :bpm bpm}))))
-                                                        ))
-                   (reset! audio (wa/make-audio ctx nil))
-                   (catch js/Error err (js/console.log (ex-cause err))))))))))
+  (let [audio (atom (wa/make-audio {:polyfill sac}))]
+    (take! (wa/resume @audio)
+             (fn []
+               (go
+                 (let [ir-audio-data (<! (wa/fetch-sample @audio "resources/ir.wav"))
+                       kick-audio-data (<! (wa/fetch-sample @audio "resources/kick.wav"))
+                       bpm 120]
+                   (try
+                     (doseq [ev events] (.removeEventListener js/document.body ev resume-audio-context))
+                     (js/document.body.addEventListener "mousedown"
+                                                        (fn [e]
+                                                          (.preventDefault e)
+                                                          (swap! audio wa/update-audio (graph {:kick kick-audio-data :freq (/ (.-offsetY e) 10) :ir ir-audio-data :time (wa/current-time @audio) :bpm bpm}))))
+                     (js/document.body.addEventListener "touchstart"
+                                                        (fn [e]
+                                                          (.preventDefault e)
+                                                          (let [touch (.item (.-changedTouches e) 0)]
+                                                            (when (not (nil? touch))
+                                                              (swap! audio wa/update-audio (graph {:kick kick-audio-data :freq (/ (.-pageY touch) 5) :ir ir-audio-data :time (wa/current-time @audio) :bpm bpm}))))
+                                                          ))
+                     (catch js/Error err (js/console.log (ex-cause err))))))))))
 
 (defn main []
   (doseq [ev events] (js/document.body.addEventListener ev resume-audio-context false)))
\ No newline at end of file
diff --git a/src/main/cljs_audio/webaudio.cljs b/src/main/cljs_audio/webaudio.cljs
index b4062c3..6e8a8da 100644
--- a/src/main/cljs_audio/webaudio.cljs
+++ b/src/main/cljs_audio/webaudio.cljs
@@ -9,7 +9,7 @@
   (let [polyfill (js->clj polyfill)
         clazz (get polyfill "AudioContext" js/AudioContext)
         ctx (new clazz)]
-    {:ctx ctx :patch [{} #{}] :env {} :stream stream :polyfill polyfill}))
+    {:ctx ctx :patch [{} #{}] :env {} :polyfill polyfill :stream stream}))
 
 (defn update-audio [{:keys [ctx patch env polyfill stream]} new-patch]
   (println :polyfill polyfill)