如何在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)