Merge branch 'master-git.sv.gnu.org-lilypond.git' of /home/lilydev/vc/gub/downloads...

[lilypond.git] / input / test / makam.ly

diff --git a/input/test/makam.ly b/input/test/makam.ly
index bf8a3ece7b191dbc1631197e6bb3b0a698086659..549df765c8a3c4b924648b5edcfc79b0c0f46ff8 100644 (file)
--- 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)
 
@@ -97,8 +112,8 @@ pitchnames = \makamPitchNames
   ragged-right = ##t
 }
 
-\relative {
-  \override Accidental #'glyph-name-alist = #'((1 . "accidentals.doublesharp")
+
+makamGlyphs = #'((1 . "accidentals.doublesharp")
        (8/9 . "accidentals.sharp.slashslashslash.stemstem")
        (5/9 . "accidentals.sharp.slashslashslash.stem")
        (4/9 . "accidentals.sharp")
@@ -110,6 +125,34 @@ pitchnames = \makamPitchNames
        (-8/9 . "accidentals.flat.slashslash")
        (-1 . "accidentals.flatflat")
        )
+
+\relative {
+
+  %{ define alteration <-> symbol mapping. The following glyphs are available.
+
+  accidentals.sharp 
+  accidentals.sharp.slashslash.stem 
+  accidentals.sharp.slashslashslash.stemstem 
+  accidentals.sharp.slashslashslash.stem 
+  accidentals.sharp.slashslash.stemstemstem 
+  accidentals.natural 
+  accidentals.flat 
+  accidentals.flat.slash 
+  accidentals.flat.slashslash 
+  accidentals.mirroredflat.flat 
+  accidentals.mirroredflat 
+  accidentals.flatflat 
+  accidentals.flatflat.slash 
+  accidentals.doublesharp 
+
+  %}
+
+  \override Accidental #'glyph-name-alist =  \makamGlyphs
+  
+  \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
+  \set Staff.keySignature =  #'(
+    (3 .  4/9)
+    (6 . -1/9))
   
   c cc db fk gbm gfc gfb efk dfbm
 }