From a2582712dafe23f9645bdb14a84abb3ab4aaad21 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 6 Jun 2004 17:45:06 +0000 Subject: [PATCH] new file. (Thanks Hendrik Maryns) --- ChangeLog | 4 ++++ THANKS | 2 ++ ly/vlaams.ly | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 66 insertions(+) create mode 100644 ly/vlaams.ly diff --git a/ChangeLog b/ChangeLog index c82f66151f..8f1bcba70d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-06-06 Han-Wen Nienhuys + + * ly/vlaams.ly: new file. (Thanks Hendrik Maryns) + 2004-06-04 Mats Bengtsson * 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 <> 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 -- 2.39.5