From e3cf3c5fb01ea73fcf84bf7cda23e5f7285ebfc7 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 30 Dec 2006 03:22:05 +0100
Subject: [PATCH] more makam tweaks.
---
input/test/makam.ly | 48 ++++++++++++++++++++++++++++++---------------
1 file changed, 32 insertions(+), 16 deletions(-)
diff --git a/input/test/makam.ly b/input/test/makam.ly
index 7f9a8905fa..53dd69cc1a 100644
--- a/input/test/makam.ly
+++ b/input/test/makam.ly
@@ -8,11 +8,24 @@
\version "2.11.6"
+%{
+
+Define 1/9 alterations.
+
+%}
+
+
#(define-public KOMA 1/9)
#(define-public BAKIYE 4/9)
#(define-public KUCUK 5/9)
#(define-public BUYUKMUCENNEB 8/9)
+%{
+
+Define pitch names
+
+%}
+
makamPitchNames = #`(
(c . ,(ly:make-pitch -1 0 NATURAL))
(d . ,(ly:make-pitch -1 1 NATURAL))
@@ -89,6 +102,8 @@ makamPitchNames = #`(
)
+
+%% set pitch names.
pitchnames = \makamPitchNames
#(ly:parser-set-note-names parser makamPitchNames)
@@ -98,23 +113,9 @@ pitchnames = \makamPitchNames
}
\relative {
- \override Accidental #'glyph-name-alist = #'((1 . "accidentals.doublesharp")
- (8/9 . "accidentals.sharp.slashslashslash.stemstem")
- (5/9 . "accidentals.sharp.slashslashslash.stem")
- (4/9 . "accidentals.sharp")
- (1/9 . "accidentals.sharp.slashslash.stem")
- (0 . "accidentals.natural")
- (-1/9 . "accidentals.mirroredflat")
- (-4/9 . "accidentals.flat.slash")
- (-5/9 . "accidentals.flat")
- (-8/9 . "accidentals.flat.slashslash")
- (-1 . "accidentals.flatflat")
- )
-%{
+ %{ define alteration <-> symbol mapping. The following glyphs are available.
- available glyphs:
-
accidentals.sharp
accidentals.sharp.slashslash.stem
accidentals.sharp.slashslashslash.stemstem
@@ -130,7 +131,22 @@ pitchnames = \makamPitchNames
accidentals.flatflat.slash
accidentals.doublesharp
-%}
+ %}
+
+
+ \override Accidental #'glyph-name-alist = #'((1 . "accidentals.doublesharp")
+ (8/9 . "accidentals.sharp.slashslashslash.stemstem")
+ (5/9 . "accidentals.sharp.slashslashslash.stem")
+ (4/9 . "accidentals.sharp")
+ (1/9 . "accidentals.sharp.slashslash.stem")
+ (0 . "accidentals.natural")
+ (-1/9 . "accidentals.mirroredflat")
+ (-4/9 . "accidentals.flat.slash")
+ (-5/9 . "accidentals.flat")
+ (-8/9 . "accidentals.flat.slashslash")
+ (-1 . "accidentals.flatflat")
+ )
+
c cc db fk gbm gfc gfb efk dfbm
--
2.39.5