map-vel3.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 -+3db as function of MIDI velocity.
 See map.lsp

var

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

;; map-vel3.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 -+3db as function of MIDI velocity.
;; See map.lsp
;;

(require 'map)
(provide 'map-vel3)


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

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