From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 6 Jun 2004 17:45:06 +0000 (+0000)
Subject: new file. (Thanks Hendrik Maryns)
X-Git-Tag: release/2.3.4~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a2582712dafe23f9645bdb14a84abb3ab4aaad21;p=lilypond.git

new file. (Thanks Hendrik Maryns)
---

diff --git a/ChangeLog b/ChangeLog
index c82f66151f..8f1bcba70d 100644
--- 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 c3aa719cfe..4cd15a6d76 100644
--- 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
index 0000000000..d16aec92c2
--- /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