#!r6rs
(library (rsc3 graphdef output)
(export make-outputs make-output output? output-rate output->u8t)
(import (rnrs)
	(only (rsc3 collection list) make-list)
	(rsc3 u8 encode)
	(rsc3 graphdef rate))

;; An <output> represents a UGen output signal in a UGen graph.

(define-record-type output (fields rate))

(define (output->u8t o)
  (list (encode-u8 (rate-value (output-rate o)))))

(define (make-outputs n r)
  (make-list n (make-output r)))

)