#!r6rs
(library (rsc3 graphdef control)
(export make-control control-name 
	make-control* control*? control*-rate control*-default control*-name
	control->u8t)
(import (rnrs)
	(rsc3 u8 encode))

;; A <control> is accessed by a <string> name and an <integer> index.

(define-record-type control (fields name index))

(define (control->u8t c)
  (list (encode-pstr (control-name c))
	(encode-i16 (control-index c))))

;; A <control*> is a place holder for a <control>.

(define-record-type control* (fields name default rate lag))

)