#!r6rs
(library (rsc3 ugen implicit)
(export implicit-ugen)
(import (rnrs)
	(only (srfi lists) make-list)
	(rsc3 graphdef id)
	(rsc3 graphdef output)
	(rsc3 graphdef rate)
	(rsc3 graphdef ugen))

;; Gloss, k-rate only, no lag.

(define (implicit-ugen cc)
  (make-ugen "Control"
	     kr
	     (list)
	     (map make-output (make-list (length cc) kr))
	     0
	     (make-uid 0)))

)