;; (rand-id rate id)

;; Choose which random number generator to use for this synth.  All
;; synths that use the same generator reproduce the same sequence of
;; numbers when the same seed is set again.

;; See also: rand-seed.

;; Graphs to generate noise in the context of a given RNG and to reset
;; a specified RNG.

(with-sc3
 (lambda (fd)
   (send-synth
    fd "r"
    (letc ((bus 0)
	   (id 1))
      (mrg2 (rand-id ir id)
	    (out bus (add (mul (white-noise ar) 0.05)
			  (dust2 ar 70))))))
   (send-synth
    fd "s"
    (letc ((seed 1910) (id 1))
      (mrg2 (rand-id kr id)
	    (rand-seed kr
		       (impulse kr (mul-add (f-sin-osc kr 0.2 0) 10 11) 0)
		       seed))))))

;; Start two noise synths on left and right channel with a different randgen id

(with-sc3
 (lambda (fd)
   (send fd (s-new2 "r" 1001 1 1 "bus" 0 "id" 1))
   (send fd (s-new2 "r" 1002 1 1 "bus" 1 "id" 2))))

;; Reset the seed of randgen 1

(with-sc3 (lambda (fd) (send fd (s-new1 "s" 1003 1 1 "id" 1))))

;; Change the target RNG with ID 2, ie. effect right channel.

(with-sc3 (lambda (fd) (send fd (n-set1 1003 "id" 2))))

;; free noise nodes.

(with-sc3
 (lambda (fd)
   (send fd (n-free1 1001))
   (send fd (n-free1 1002))
   (send fd (n-free1 1003))))