From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 11 Sep 2007 22:41:34 +0000 (+0200)
Subject: Make makam-init.ly useful for real life use.
X-Git-Tag: release/2.11.33-1~4^2~12^2~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f6debe193a59aef5c5e6e5346e36562c07380f1f;p=lilypond.git

Make makam-init.ly useful for real life use.

Remove example input, and modify context to apply changes to all
key/accidental grobs by default.
---

diff --git a/ly/makam-init.ly b/ly/makam-init.ly
index e9bd509b73..36b0397460 100644
--- a/ly/makam-init.ly
+++ b/ly/makam-init.ly
@@ -152,33 +152,14 @@ makamGlyphs = #`((1 . "accidentals.doublesharp")
        (-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
+\layout {
+  \context {
+    \Score
+    \override KeySignature #'glyph-name-alist = \makamGlyphs
+    \override Accidental #'glyph-name-alist = \makamGlyphs
+    \override AccidentalCautionary #'glyph-name-alist = \makamGlyphs
+    \override TrillPitchAccidental #'glyph-name-alist = \makamGlyphs
+    \override AmbitusAccidental #'glyph-name-alist = \makamGlyphs
+  }
 }
+