clojure - どうすればt-grains ugenで音を出すことができますか?

Question

倍音で遊んでいて、オシレーター、エンベロープ、lfos、サンプルを使用して、すでにいくつかのノイズを作成できます。

私の問題は、t-grains ugen から音が出ないことです。

これが私のコードです。これは、SuperCollider の例 (動作する) の 1 つからの直訳です。

(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 の実例を教えてもらえますか?