txwave.lsp
 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

 Defines wave tables as used by Yamaha TX81Z

table

table

table

table

table

table

table

table

table

;; txwave.lsp
;; 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
;;
;; Defines wave tables as used by Yamaha TX81Z
;; 

(warning "txwave has been depreciated.")
(require 'wtab)
(provide 'txwave)
(current-file "txwave.lsp")


(setf
 txwave:w1 *sine-table*

 txwave:w2 (wtab:make (wtab:scale '((1 1.00)(3 0.19)(5 0.03)(7 0.01)) 
				  1.17 ))

 txwave:w3 (wtab:make (wtab:scale '((1 1.00)(2 0.39)(4 0.08)(6 0.04)
				    (8 0.02)(10 0.01)(12 0.01)) 
				  0.87))

 txwave:w4 (wtab:make (wtab:scale '((1 1.00)(2 0.56)(3 0.18)(5 0.03)
				    (7 0.01)) 
				  0.72))

 txwave:w5 (wtab:make (wtab:scale '((1 1.00)(2 1.09)(3 0.56)(5 0.15)
				    (7 0.06)(9 0.04)(11 0.02)) 
				  0.47))

 txwave:w6 (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))

 txwave:w7 (wtab:make (wtab:scale '((1 1.00)(3 0.56)(4 0.50)(5 0.15)
				    (7 0.06)(8 0.09)(9 0.04)(11 0.02)
				    (12 0.04)) 
				  0.67))

 txwave:w8 (wtab:make (wtab:scale '((1 1.00)(3 0.66)(4 0.74)(5 0.34)
				    (7 0.06)(9 0.03)(11 0.01)) 
				  0.49))

 txwave:fb (wtab:make '((1 1.00)(2 0.19)(3 0.05)(4 0.02)(5 0.01)))
 )


; ***************************************************************************  Docs

;; @doc table txwave:w1
;;

;; @doc table txwave:w2
;;

;; @doc table txwave:w3
;;

;; @doc table txwave:w4
;;

;; @doc table txwave:w5
;;

;; @doc table txwave:w6
;;

;; @doc table txwave:w7
;;

;; @doc table txwave:w8
;;

;; @doc table txwave:fb
;;