1 ;;; midi.scm -- scm midi variables and functions
3 ;;; source file of the GNU LilyPond music typesetter
5 ;;; (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
9 (define absolute-volume-alist '())
10 (set! absolute-volume-alist
24 absolute-volume-alist))
26 (define (dynamic-absolute-volume s)
27 (let ((entry (assoc s absolute-volume-alist)))
31 (define instrument-equaliser-alist '())
32 (set! instrument-equaliser-alist
37 ("clarinet" . (0 . 1))
39 ("french horn" . (0 . 1))
45 ("contrabass" . (0 . 1))
47 instrument-equaliser-alist))
49 (define (instrument-equaliser s)
50 (let ((entry (assoc s absolute-volume-alist)))
54 (define instrument-equaliser-alist '())
56 ;; 90 == 90/127 == 0.71 is supposed to be the default value
57 ;; urg: we should set this at start of track
58 (define dynamic-default-volume 0.71)