ly/vlaams.ly

   1 \version "2.12.0" %hier stond 2.1.36, mocht ik dat wel veranderen?
   2
   3 %{
   4
   5  Common Flemish names for notes. "b" means flat (bemol), "k" means sharp (kruis).
   6  Adapted from espanol.ly.
   7
   8  English: a   b   c   d   e   f   g
   9  Flemish: la  si  do  re  mi  fa  sol
  10
  11 %}
  12
  13 % contributed by Hendrik Maryns <<hendrik.maryns@ugent.be>> 06/06/2004
  14
  15
  16 pitchnamesVlaams = #`(
  17         (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  18         (dob . ,(ly:make-pitch -1 0 FLAT))
  19         (do . ,(ly:make-pitch -1 0 NATURAL))
  20         (dok . ,(ly:make-pitch -1 0 SHARP))
  21         (dokk . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  22
  23         (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  24         (reb . ,(ly:make-pitch -1 1 FLAT))
  25         (re . ,(ly:make-pitch -1 1 NATURAL))
  26         (rek . ,(ly:make-pitch -1 1 SHARP))
  27         (rekk . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  28
  29         (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  30         (mib . ,(ly:make-pitch -1 2 FLAT))
  31         (mi . ,(ly:make-pitch -1 2 NATURAL))
  32         (mik . ,(ly:make-pitch -1 2 SHARP))
  33         (mikk . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  34
  35         (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  36         (fab . ,(ly:make-pitch -1 3 FLAT))
  37         (fa . ,(ly:make-pitch -1 3 NATURAL))
  38         (fak . ,(ly:make-pitch -1 3 SHARP))
  39         (fakk . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  40
  41         (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  42         (solb . ,(ly:make-pitch -1 4 FLAT))
  43         (sol . ,(ly:make-pitch -1 4 NATURAL))
  44         (solk . ,(ly:make-pitch -1 4 SHARP))
  45         (solkk . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  46
  47         (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  48         (lab . ,(ly:make-pitch -1 5 FLAT))
  49         (la . ,(ly:make-pitch -1 5 NATURAL))
  50         (lak . ,(ly:make-pitch -1 5 SHARP))
  51         (lakk . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  52
  53         (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  54         (sib . ,(ly:make-pitch -1 6 FLAT))
  55         (si . ,(ly:make-pitch -1 6 NATURAL))
  56         (sik . ,(ly:make-pitch -1 6 SHARP))
  57         (sikk . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  58 )
  59
  60 pitchnames = \pitchnamesVlaams
  61
  62 #(ly:parser-set-note-names parser pitchnames)