#!r6rs
(library (rsc3 graphdef input)
(export input make-input input-ugen input-port input->u8t)
(import (rnrs)
	(rsc3 u8 encode))

;; An <input> represents a UGen input signal in a UGen graph, an
;; 'Input Specification'.  The <integer> ugen is the index of the
;; UGen, the <integer> port is an output port at ugen.

(define-record-type input (fields ugen port))

(define (input->u8t i)
  (list (encode-i16 (input-ugen i))
	(encode-i16 (input-port i))))

)