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
   9 (define absolute-volume-alist '())
  10 (set! absolute-volume-alist
  11       (append
  12       '(
  13         ("sf" . 1.00)
  14         ("ffff" . 0.91)
  15         ("fff" . 0.81)
  16         ("ff" . 0.71)
  17         ("f" . 0.61)
  18         ("mf" . 0.50)
  19         ("mp" . 0.40)
  20         ("p" . 0.30)
  21         ("pp" . 0.20)
  22         ("ppp" . 0.10)
  23         )
  24       absolute-volume-alist))
  25
  26 (define (dynamic-absolute-volume s)
  27   (let ((entry (assoc s absolute-volume-alist)))
  28     (if entry
  29         (cdr entry))))
  30
  31 (define instrument-equaliser-alist '())
  32 (set! instrument-equaliser-alist
  33       (append
  34        '(
  35          ("flute" . (0 . 1))
  36          ("oboe" . (0 . 1))
  37          ("clarinet" . (0 . 1))
  38          ("bassoon" . (0 . 1))
  39          ("french horn" . (0 . 1))
  40          ("trumpet" . (0 . 1))
  41          ("timpani" . (0 . 1))
  42          ("violin" . (0 . 1))
  43          ("viola" . (0 . 1))
  44          ("cello" . (0 . 1))
  45          ("contrabass" . (0 . 1))
  46          )
  47        instrument-equaliser-alist))
  48
  49 (define (instrument-equaliser s)
  50   (let ((entry (assoc s absolute-volume-alist)))
  51     (if entry
  52         (cdr entry))))
  53
  54 (define instrument-equaliser-alist '())
  55
  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)