Soothing background soundscape

[Toby Gifford]

(bind-func dsp:DSP
  (let ((a:float 1.01)
        (x:float 0.3342)
        (gain:SAMPLE (convert 0.3)))
    (lambda (in:SAMPLE time:i64 channel:i64    data:SAMPLE*)
      (if (< (random) (* 0.00005 (+ 1.0 (random))))
          (set! a (+ 1.00001 (dtof (random)))))
      (set! x (modulo (+ x (pow x a)) 1.0))
      (* gain (convert x)))))

[Ben Swift]

Wow. I just fell asleep at my desk - it lulled me to sleep.

Cheers,
Ben

[Ben Swift]

Also, you can get rid of some of the explicit type annotations:

(bind-func dsp:DSP
(let ((a 1.01)
(x:SAMPLE 0.3342)

(gain:SAMPLE (convert 0.3)))
(lambda (in:SAMPLE time:i64 channel:i64 data:SAMPLE*)
(if (< (random) (* 0.00005 (+ 1.0 (random))))

(set! a (+ 1.00001 (random))))

(set! x (modulo (+ x (pow x a)) 1.0))

(* gain x))))

Cheers,
Ben

Toby Gifford <toby.g...@gmail.com> writes:

[Ben Swift]

Also, nice work :) I may well steal this in the future.

Cheers,
Ben

Toby Gifford <toby.g...@gmail.com> writes:

[digego]

Yeah, definitely needs to be a little more aggressive!

[Toby Gifford]

except it only 'works' if a and x are floats (and SAMPLE might be a double?). Don't ask me why.

--
You received this message because you are subscribed to the Google Groups "Extempore" group.
To unsubscribe from this group and stop receiving emails from it, send an email to extemporelan...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[Ben Swift]

Yeah, SAMPLE could *in principle* be a double, but there are bunch of
other places in the code base where we assume that it's a float, so if
you try and change SAMPLE to double then the below code not compiling is
gonna be the least of your problems :)

Fair point, though.