txwav6
 Version 1.00  31 October 2004
 Author Steven Jones

 Contact jones57@swbell.net include the word "nyquist" in subject line

 The contents of this file are released under the terms of the GNU General
 Public License. See the file LICENSE.txt

var

 Wave 6 of Yamaha TX81Z
 First 6 odd harmonics, plus 2 and 10 (1 2 3 5 7 9 10 11)

;; txwav6
;; Version 1.00  31 October 2004
;; Author Steven Jones
;;
;; Contact jones57@swbell.net include the word "nyquist" in subject line
;;
;; The contents of this file are released under the terms of the GNU General
;; Public License. See the file LICENSE.txt
;;

(require 'wtab)
(provide 'txwav6)


;; @doc var *txwav6*
;; Wave 6 of Yamha TX81Z
;; First 6 odd harmonics, plus 2 and 10 (1 2 3 5 7 9 10 11)
;;

(setf *txwav6* (wtab:make (wtab:scale '((1 1.00)(2 1.16) (3 0.66) (5 0.34)
					(7 0.06)(9 0.03)(10 0.04)(11 0.01)) 
				      0.45)))