1 %% Do not edit this file; it is auto-generated from LSR!
5 texidoc = "Makam is Turkish type of melody that uses 1/9 tone
6 microtonal alterations."
15 Define 1/9 alterations.
20 #(define-public KOMA 1/9)
21 #(define-public BAKIYE 4/9)
22 #(define-public KUCUK 5/9)
23 #(define-public BUYUKMUCENNEB 8/9)
32 (c . ,(ly:make-pitch -1 0 NATURAL))
33 (d . ,(ly:make-pitch -1 1 NATURAL))
34 (e . ,(ly:make-pitch -1 2 NATURAL))
35 (f . ,(ly:make-pitch -1 3 NATURAL))
36 (g . ,(ly:make-pitch -1 4 NATURAL))
37 (a . ,(ly:make-pitch -1 5 NATURAL))
38 (b . ,(ly:make-pitch -1 6 NATURAL))
40 (cc . ,(ly:make-pitch -1 0 KOMA))
41 (dc . ,(ly:make-pitch -1 1 KOMA))
42 (ec . ,(ly:make-pitch -1 2 KOMA))
43 (fc . ,(ly:make-pitch -1 3 KOMA))
44 (gc . ,(ly:make-pitch -1 4 KOMA))
45 (ac . ,(ly:make-pitch -1 5 KOMA))
46 (bc . ,(ly:make-pitch -1 6 KOMA))
48 (cb . ,(ly:make-pitch -1 0 BAKIYE))
49 (db . ,(ly:make-pitch -1 1 BAKIYE))
50 (eb . ,(ly:make-pitch -1 2 BAKIYE))
51 (fb . ,(ly:make-pitch -1 3 BAKIYE))
52 (gb . ,(ly:make-pitch -1 4 BAKIYE))
53 (ab . ,(ly:make-pitch -1 5 BAKIYE))
54 (bb . ,(ly:make-pitch -1 6 BAKIYE))
56 (ck . ,(ly:make-pitch -1 0 KUCUK))
57 (dk . ,(ly:make-pitch -1 1 KUCUK))
58 (ek . ,(ly:make-pitch -1 2 KUCUK))
59 (fk . ,(ly:make-pitch -1 3 KUCUK))
60 (gk . ,(ly:make-pitch -1 4 KUCUK))
61 (ak . ,(ly:make-pitch -1 5 KUCUK))
62 (bk . ,(ly:make-pitch -1 6 KUCUK))
64 (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
65 (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
66 (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
67 (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
68 (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
69 (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
70 (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
73 (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
74 (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
75 (efc . ,(ly:make-pitch -1 2 (- KOMA)))
76 (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
77 (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
78 (afc . ,(ly:make-pitch -1 5 (- KOMA)))
79 (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
81 (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
82 (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
83 (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
84 (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
85 (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
86 (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
87 (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
89 (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
90 (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
91 (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
92 (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
93 (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
94 (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
95 (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
97 (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
98 (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
99 (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
100 (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
101 (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
102 (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
103 (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
109 pitchnames = \makamPitchNames
110 #(ly:parser-set-note-names parser makamPitchNames)
118 makamGlyphs = #'((1 . "accidentals.doublesharp")
119 (8/9 . "accidentals.sharp.slashslashslash.stemstem")
120 (5/9 . "accidentals.sharp.slashslashslash.stem")
121 (4/9 . "accidentals.sharp")
122 (1/9 . "accidentals.sharp.slashslash.stem")
123 (0 . "accidentals.natural")
124 (-1/9 . "accidentals.mirroredflat")
125 (-4/9 . "accidentals.flat.slash")
126 (-5/9 . "accidentals.flat")
127 (-8/9 . "accidentals.flat.slashslash")
128 (-1 . "accidentals.flatflat")
133 %{ define alteration <-> symbol mapping. The following glyphs are available.
136 accidentals.sharp.slashslash.stem
137 accidentals.sharp.slashslashslash.stemstem
138 accidentals.sharp.slashslashslash.stem
139 accidentals.sharp.slashslash.stemstemstem
142 accidentals.flat.slash
143 accidentals.flat.slashslash
144 accidentals.mirroredflat.flat
145 accidentals.mirroredflat
147 accidentals.flatflat.slash
148 accidentals.doublesharp
152 \override Accidental #'glyph-name-alist = \makamGlyphs
154 \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
155 \set Staff.keySignature = #'(
159 c cc db fk gbm gfc gfb efk dfbm