;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; USES OSX's BUILT IN SPEECH SYNTH ENGINE

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(au:clear-graph)


(define speech (au:make-node "augn" "ttsp" "appl"))

(au:connect-node speech 0 *au:output-node* 0)

(au:update-graph)


(define dat (objc:call "NSMutableData" "dataWithLength:" 4))

(define my-speech-channel-data (objc:call dat "bytes"))

(au:get-property speech 3331 *au:global-scope* 0 my-speech-channel-data 4)


(au:speak (now) my-speech-channel-data "hello world")