如何将样品包裹在Overtone的信封中？

Question

我在Freesound.org上使用的一些示例在最后单击一下，例如：

repl> (use 'overtone.live)
nil
repl> (def stick (freesound 82280))
#'repl/stick
repl> (stick)

因此，我试图将此样本包装在信封中，但是我得到的只是沉默。我怀疑我使用buf-rd ...

有问题

(definst stick1
  [amp 0.7]
  (let [env     (env-gen (perc) :action FREE)
        phase   (phasor:ar :start 0 :end 1 :rate 1)
        index   (* phase (buf-frames stick))
        snd     (buf-rd 1 stick index)]
    (* amp env snd)))

(stick1)

Answer 1

play-buf是将样本合并到信封中的正确功能。 perc用于设置0.01秒的攻击时间，并在静音前释放1秒，从而消除了咔嗒声。

(def stick (freesound 82280))

(definst stick1
  [amp 0.7]
  (let [env     (env-gen (perc 0.01 1) :action FREE)
        snd     (play-buf 1 stick)]
    (* amp env snd)))

(stick1)