Re: [CM] clm, evelope with reverb

2013-12-11 Thread Bill Schottstaedt 
I think you're not losing the reverb, but the effect of it -- that is
you have a smooth envelope on a sine wave, so reverb just becomes
a subtle amplitude effect (a swelling sort of) -- try an envelope 
that stops abruptly.  Or compare the cases with and without reverb
in an editor -- in the reverb case, the envelope is rounded off.

___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

[CM] clm, evelope with reverb

2013-12-11 Thread James Hearon 
Hi,
I'm getting better at using reverb but wrestling with trying to include 
amplitude envelopes in the instrument now.  The reverb (locsig) is working for 
me, if I just use amplitude instead of the amplitude envelope on the output 
stream, but if I try  to employ the amplitude envelope I loose the reverb.

   (locsig loc i (* amplitude (oscil osc) ))  ;works fine
   (locsig loc i (* (env amp-env) (oscil osc) )) ; no reverb?
   
I've tried several changes to the ins but not sure I understand why (env 
amp-env) takes away the reverb?

 (definstrument examp (start-time duration frequency amplitude 
 &optional (amp-env '(0 0 .5 1.0 1.0 0))
   (reverb-amount 0.5)  
 )
  (multiple-value-bind (beg end) (times->samples start-time duration)
(let ((osc (make-oscil :frequency frequency))
  (amp-env (make-env amp-env :scaler amplitude :duration duration))
   (loc (make-locsig :reverb reverb-amount))  )
  (run 
   (loop for i from beg below end do
  (locsig loc i (* (env amp-env) (oscil osc) ))  ;;problem here 
  )

(with-sound (:reverb nrev :reverb-data (:reverb-factor 1.0 :lp-coeff 0.7) 
:channels 2 :srate 48000)
(examp 0  1.5  220.0  0.35  '(0 0 .5 1.0  1.0 1.0  1.5 0) 0.3) )


  ___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist