From: fred <fred>
Date: Thu, 30 Aug 2001 14:25:22 +0000 (+0000)
Subject: lilypond-1.5.9
X-Git-Tag: release/1.5.59~5694
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4d03a2d15ebe76cc48d7e44999ed17f8a26181e1;p=lilypond.git

lilypond-1.5.9
---

diff --git a/ly/suomi.ly b/ly/suomi.ly
new file mode 100644
index 0000000000..66e1fa1464
--- /dev/null
+++ b/ly/suomi.ly
@@ -0,0 +1,48 @@
+% common finnish names for notes. "es" means flat, "is" means sharp
+%
+% by Heikki Junes <heikki.junes@hut.fi>
+% based on svenska.ly by Mats Bengtsson.
+
+% 2001/08/28 Heikki Junes <heikki.junes@hut.fi>
+%            added bb and marked heses as `unusual'
+
+\pitchnames #`(
+	(ceses . ,(make-pitch -1 0 -2 ))
+	(ces . ,(make-pitch -1 0 -1 ))
+	(c . ,(make-pitch -1 0 0 ))
+	(cis . ,(make-pitch -1 0 1 ))
+	(cisis . ,(make-pitch -1 0 2 ))
+	(deses . ,(make-pitch -1 1 -2 ))
+	(des . ,(make-pitch -1 1 -1 ))
+	(d . ,(make-pitch -1 1 0 ))
+	(dis . ,(make-pitch -1 1 1 ))
+	(disis . ,(make-pitch -1 1 2 ))
+	(eses . ,(make-pitch -1 2 -2 ))
+	(es . ,(make-pitch -1 2 -1 ))
+	(e . ,(make-pitch -1 2 0 ))
+	(eis . ,(make-pitch -1 2 1 ))
+	(eisis . ,(make-pitch -1 2 2 ))
+	(feses . ,(make-pitch -1 3 -2 ))
+	(fes . ,(make-pitch -1 3 -1 ))
+	(f . ,(make-pitch -1 3 0 ))
+	(fis . ,(make-pitch -1 3 1 ))
+	(fisis . ,(make-pitch -1 3 2 ))
+	(geses . ,(make-pitch -1 4 -2 ))
+	(ges . ,(make-pitch -1 4 -1 ))
+	(g . ,(make-pitch -1 4 0 ))
+	(gis . ,(make-pitch -1 4 1 ))
+	(gisis . ,(make-pitch -1 4 2 ))
+	(asas . ,(make-pitch -1 5 -2 ))
+	(ases . ,(make-pitch -1 5 -2 ))   ;;non-standard name for asas
+	(as . ,(make-pitch -1 5 -1 ))
+	(a . ,(make-pitch -1 5 0 ))
+	(ais . ,(make-pitch -1 5 1 ))
+	(aisis . ,(make-pitch -1 5 2 ))
+	(bb . ,(make-pitch -1 6 -2 ))
+	(heses . ,(make-pitch -1 6 -2 ))  ;;non-standard name for bb
+	(b . ,(make-pitch -1 6 -1 ))
+	(h . ,(make-pitch -1 6 0 ))
+	(his . ,(make-pitch -1 6 1 ))
+	(hisis . ,(make-pitch -1 6 2 ))
+)
+\version "1.3.146"