new file. (Thanks Hendrik Maryns)

diff --git a/ChangeLog b/ChangeLog
index c82f66151f912dfbb185149c2c6b2cba813c9041..8f1bcba70d01f473fd1a0c3baed9e5ebe9d3107f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-06-06  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * ly/vlaams.ly: new file. (Thanks Hendrik Maryns)
+
 2004-06-04  Mats Bengtsson  <mabe@drongo.s3.kth.se>
 
        * Documentation/user/notation.itely (Instrument transpositions):

diff --git a/THANKS b/THANKS
index c3aa719cfe70223baecdeaf72e70ca21f83c1195..4cd15a6d769e7ac6051a27786154c36511a0088c 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -10,11 +10,13 @@ Jan Nieuwenhuizen
 
 CONTRIBUTORS
 
+
 Carl Sorensen
 Michael Welsh Duggan
 Pedro Kroger
 Erik Sandberg
 Guy Gascoigne-Piggford
+Hendrik Maryns
 
 BUG HUNTERS/SUGGESTIONS
 

diff --git a/ly/vlaams.ly b/ly/vlaams.ly
new file mode 100644 (file)
index 0000000..d16aec9
--- /dev/null
+++ b/ly/vlaams.ly
@@ -0,0 +1,60 @@
+\version "2.2.0" %hier stond 2.1.36, mocht ik dat wel veranderen?
+
+%{
+
+ Common Flemish names for notes. "b" means flat (bemol), "k" means sharp (kruis).
+ Adapted from espanol.ly.
+
+ English: a   b   c   d   e   f   g
+ Flemish: la  si  do  re  mi  fa  sol
+
+%}
+
+% contributed by Hendrik Maryns <<hendrik.maryns@ugent.be>> 06/06/2004
+
+
+pitchnamesVlaams = #`(
+       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
+       (dob . ,(ly:make-pitch -1 0 FLAT))
+       (do . ,(ly:make-pitch -1 0 NATURAL))
+       (dok . ,(ly:make-pitch -1 0 SHARP))
+       (dokk . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
+
+       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
+       (reb . ,(ly:make-pitch -1 1 FLAT))
+       (re . ,(ly:make-pitch -1 1 NATURAL))
+       (rek . ,(ly:make-pitch -1 1 SHARP))
+       (rekk . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
+
+       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
+       (mib . ,(ly:make-pitch -1 2 FLAT))
+       (mi . ,(ly:make-pitch -1 2 NATURAL))
+       (mik . ,(ly:make-pitch -1 2 SHARP))
+       (mikk . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
+
+       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
+       (fab . ,(ly:make-pitch -1 3 FLAT))
+       (fa . ,(ly:make-pitch -1 3 NATURAL))
+       (fak . ,(ly:make-pitch -1 3 SHARP))
+       (fakk . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
+
+       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
+       (solb . ,(ly:make-pitch -1 4 FLAT))
+       (sol . ,(ly:make-pitch -1 4 NATURAL))
+       (solk . ,(ly:make-pitch -1 4 SHARP))
+       (solkk . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
+
+       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
+       (lab . ,(ly:make-pitch -1 5 FLAT))
+       (la . ,(ly:make-pitch -1 5 NATURAL))
+       (lak . ,(ly:make-pitch -1 5 SHARP))
+       (lakk . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
+
+       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+       (sib . ,(ly:make-pitch -1 6 FLAT))
+       (si . ,(ly:make-pitch -1 6 NATURAL))
+       (sik . ,(ly:make-pitch -1 6 SHARP))
+       (sikk . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
+)
+
+pitchnames = \pitchnamesVlaams