LSR: update.

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

diff --git a/input/lsr/makam.ly b/input/lsr/makam.ly
index 74c7218e4bf93ea27da9b8645d652b22fc8919ee..a333f7b9172863b1a4fa2aab8e07919f42feecb2 100644 (file)
--- a/input/lsr/makam.ly
+++ b/input/lsr/makam.ly
@@ -1,11 +1,11 @@
 %% Do not edit this file; it is auto-generated from input/new
 %% This file is in the public domain.
 \version "2.11.38"
-\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."
 }
 % begin verbatim
@@ -35,7 +35,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))
@@ -43,7 +43,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))
@@ -51,7 +51,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))
@@ -59,7 +59,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)))
@@ -76,7 +76,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)))
@@ -84,7 +84,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)))
@@ -92,14 +92,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")
@@ -113,7 +113,7 @@ makamGlyphs = #'((1 . "accidentals.doublesharp")
        )
 
 \relative {
-
+  
   %{ define alteration <-> symbol mapping. The following glyphs are available.
   accidentals.sharp 
   accidentals.sharp.slashslash.stem 
@@ -130,13 +130,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
 }