pink.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

 Pink noise

function

 (pink [dur [cutoff]])
 pink like noise
 
 dur    - flonum. Duration in seconds, default 1

 cutoff - flonum. Lowpass filter cutoff in Hertz, Default 16
          lowpass6 provides the filter function

 return - sound.

;; pink.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
;;
;; Pink noise
;; 

(provide 'pink)
(current-file "pink")


;; @doc function pink
;; (pink [dur [cutoff]])
;; pink like noise
;; 
;; dur    - flonum. Duration in seconds, default 1
;;
;; cutoff - flonum. Lowpass filter cutoff in Hertz, Default 16
;;          lowpass6 provides the filter function
;;
;; return - sound.
;;

(defun pink (&optional (dur 1)(cutoff (/ *sound-srate* 16.0)))
  (lowpass6 (noise dur) cutoff))