clojure - 我怎样才能让 t-grains ugen 产生任何声音？

Question

我正在演奏泛音，我已经可以使用振荡器、包络、lfos 和采样来制造一些噪音。

我的问题是我无法从 t-grains ugen 中获得声音。

这是我的代码。这是 SuperCollider 的一个示例（有效）的直接翻译。

(ns tutorial.core
  (:use overtone.live))

(definst grainy [b 0] (let [
                         trate (mouse-y:kr 1 30)
                         dur (/ 2 trate)]

                        (t-grains 1 (impulse:ar trate) b 1 (mouse-x:kr 0 (buf-dur:kr b)) dur 0 0.8 2)))

(def organ-sample (load-sample "~/samples/organ.wav"))
(grainy organ-sample)

你能修复我的代码或给我一个 t-grains ugen 的工作示例吗？