scm/midi.scm

   1 ;;; midi.scm -- scm midi variables and functions
   2 ;;;
   3 ;;;  source file of the GNU LilyPond music typesetter
   4 ;;;
   5 ;;; (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7
   8 (define absolute-volume-alist '())
   9 (set! absolute-volume-alist
  10       (append
  11       '(
  12         ("sf" . 115)
  13         ("fff" . 102)
  14         ("ff" . 90)
  15         ("f" . 77)
  16         ("mf" . 64)
  17         ("mp" . 51)
  18         ("p" . 38)
  19         ("pp" . 26)
  20         ("ppp" . 13)
  21         )
  22       absolute-volume-alist))
  23
  24 (define (dynamic-absolute-volume s)
  25   (let ((entry (assoc s absolute-volume-alist)))
  26     (if entry
  27         (cdr entry))))
  28
  29 ;; 90 is supposed to be the default value
  30 ;; urg: we should set this at start of track
  31 (define dynamic-default-volume 90)