Main Page       Index

square-04.lsp

 square-04.lsp
 Version 1.00 	29 April 2005
 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

 A 04 partial square wave approximation.

var

*square-04* 

 Wave table, a band limited, 04 partial, square wave approximation.

View the Sourcecode :


;; square-04.lsp
;; Version 1.00 	29 April 2005
;; 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
;;
;; A 04 partial square wave approximation.
;;

(require 'wtab)
(provide 'square-04)


;; @doc var *square-04*
;; Wave table, a band limited, 04 partial, square wave approximation.
;;

(setq *square-04* (wtab:make 
		   (wtab:scale
		    (wtab:make-plist 04 
				     :frqfn #'(lambda (n)(- (* n 2) 1)))
		    0.78 )))

Main Page       Index