map-vel6.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

 Map object:  amplitude scale -+6db as function of MIDI velocity.
 See map.lsp

var

 Contains a MIDI velocity to amplitude in db mapping.
 (send map:*vel6* :get v) --> d
 0 <= v < 128             --> -3 <= d <= +3

;; map-vel6.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
;;
;; Map object:  amplitude scale -+6db as function of MIDI velocity.
;; See map.lsp
;;

(require 'map)
(provide 'map-vel6)


;; @doc var map:*vel6*
;; Contains a MIDI velocity to amplitude in db mapping.
;; (send map:*vel6* :get v) --> d
;; 0 <= v < 128             --> -3 <= d <= +3
;; 

(setf map:*vel6* (send map:functional :new #'(lambda (x)(+ (* x 0.047) -3))))