1 ;;; midi.scm -- scm midi variables and functions
3 ;;; source file of the GNU LilyPond music typesetter
5 ;;; (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
8 ;; define factor of total volume per dynamic marking
9 (define absolute-volume-alist '())
10 (set! absolute-volume-alist
24 absolute-volume-alist))
26 (define (default-dynamic-absolute-volume s)
27 (let ((entry (assoc s absolute-volume-alist)))
31 ;; define factors of total volume of minimum and maximum volume
32 (define instrument-equaliser-alist '())
33 (set! instrument-equaliser-alist
38 ("clarinet" . (0 . 0.7))
39 ("bassoon" . (0 . 0.6))
40 ("french horn" . (0.1 . 0.7))
41 ("trumpet" . (0.1 . 0.8))
42 ("timpani" . (0.2 . 0.9))
43 ("violin" . (0.2 . 1.0))
44 ("viola" . (0.1 . 0.7))
45 ("cello" . (0.2 . 0.8))
46 ("contrabass" . (0.2 . 0.8))
48 instrument-equaliser-alist))
50 (define (default-instrument-equaliser s)
51 (let ((entry (assoc s instrument-equaliser-alist)))
55 ;; 90 == 90/127 == 0.71 is supposed to be the default value
56 ;; urg: we should set this at start of track
57 (define dynamic-default-volume 0.71)