Snippets update from Neil Puttock, thanks!

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

diff --git a/input/new/makam.ly b/input/new/makam.ly
index 504a80d43301cd2d9db8790af812e293723379df..a3ae111e6dae94c70867391cf665d9ecec0f240b 100644 (file)
--- a/input/new/makam.ly
+++ b/input/new/makam.ly
@@ -1,9 +1,9 @@
 \version "2.11.6"
-\layout { ragged-right= ##t }
+\layout { ragged-right = ##t }
 \header {
   doctitle = "Makam"
   lsrtags = "pitches"
-  texidoc = "Makam is Turkish type of melody that uses 1/9 tone
+  texidoc = "Makam is a type of melody from Turkey using 1/9th-tone
   microtonal alterations."
 }
 
@@ -33,7 +33,7 @@ makamPitchNames = #`(
   (gc . ,(ly:make-pitch -1 4 KOMA))
   (ac . ,(ly:make-pitch -1 5 KOMA))
   (bc . ,(ly:make-pitch -1 6 KOMA))
-
+  
   (cb . ,(ly:make-pitch -1 0 BAKIYE))
   (db . ,(ly:make-pitch -1 1 BAKIYE))
   (eb . ,(ly:make-pitch -1 2 BAKIYE))
@@ -41,7 +41,7 @@ makamPitchNames = #`(
   (gb . ,(ly:make-pitch -1 4 BAKIYE))
   (ab . ,(ly:make-pitch -1 5 BAKIYE))
   (bb . ,(ly:make-pitch -1 6 BAKIYE))
-
+  
   (ck . ,(ly:make-pitch -1 0 KUCUK))
   (dk . ,(ly:make-pitch -1 1 KUCUK))
   (ek . ,(ly:make-pitch -1 2 KUCUK))
@@ -49,7 +49,7 @@ makamPitchNames = #`(
   (gk . ,(ly:make-pitch -1 4 KUCUK))
   (ak . ,(ly:make-pitch -1 5 KUCUK))
   (bk . ,(ly:make-pitch -1 6 KUCUK))
-
+  
   (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
   (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
   (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
@@ -57,7 +57,7 @@ makamPitchNames = #`(
   (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
   (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
   (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
-
+  
   ;; f for flat.
   (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
   (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
@@ -74,7 +74,7 @@ makamPitchNames = #`(
   (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
   (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
   (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
-
+  
   (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
   (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
   (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
@@ -82,7 +82,7 @@ makamPitchNames = #`(
   (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
   (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
   (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
-
+  
   (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
   (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
   (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
@@ -90,14 +90,14 @@ makamPitchNames = #`(
   (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
   (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
   (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
-
 )
 
-%% set pitch names.
-pitchnames = \makamPitchNames 
+% Set pitch names.
+pitchnames = \makamPitchNames
 #(ly:parser-set-note-names parser makamPitchNames)
 
-makamGlyphs = #'((1 . "accidentals.doublesharp")
+makamGlyphs = #'(
+       (1 . "accidentals.doublesharp")
        (8/9 . "accidentals.sharp.slashslashslash.stemstem")
        (5/9 . "accidentals.sharp.slashslashslash.stem")
        (4/9 . "accidentals.sharp")
@@ -111,7 +111,7 @@ makamGlyphs = #'((1 . "accidentals.doublesharp")
        )
 
 \relative {
-
+  
   %{ define alteration <-> symbol mapping. The following glyphs are available.
   accidentals.sharp 
   accidentals.sharp.slashslash.stem 
@@ -128,13 +128,12 @@ makamGlyphs = #'((1 . "accidentals.doublesharp")
   accidentals.flatflat.slash 
   accidentals.doublesharp 
   %}
-
-  \override Accidental #'glyph-name-alist =  \makamGlyphs
   
+  \override Accidental #'glyph-name-alist =  \makamGlyphs
   \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
-  \set Staff.keySignature =  #'(
-    (3 .  4/9)
-    (6 . -1/9))
+  \set Staff.keySignature =  #'((3 .  4/9) (6 . -1/9))
   
-  c cc db fk gbm gfc gfb efk dfbm
+  c cc db fk
+  gbm gfc gfb efk
+  fk db cc c
 }