1 %% Do not edit this file; it is auto-generated from input/new
2 %% This file is in the public domain.
4 \layout { ragged-right = ##t }
8 texidoc = "Makam is a type of melody from Turkey using 1/9th-tone
9 microtonal alterations."
12 % Define 1/9 alterations.
14 #(define-public KOMA 1/9)
15 #(define-public BAKIYE 4/9)
16 #(define-public KUCUK 5/9)
17 #(define-public BUYUKMUCENNEB 8/9)
23 (c . ,(ly:make-pitch -1 0 NATURAL))
24 (d . ,(ly:make-pitch -1 1 NATURAL))
25 (e . ,(ly:make-pitch -1 2 NATURAL))
26 (f . ,(ly:make-pitch -1 3 NATURAL))
27 (g . ,(ly:make-pitch -1 4 NATURAL))
28 (a . ,(ly:make-pitch -1 5 NATURAL))
29 (b . ,(ly:make-pitch -1 6 NATURAL))
31 (cc . ,(ly:make-pitch -1 0 KOMA))
32 (dc . ,(ly:make-pitch -1 1 KOMA))
33 (ec . ,(ly:make-pitch -1 2 KOMA))
34 (fc . ,(ly:make-pitch -1 3 KOMA))
35 (gc . ,(ly:make-pitch -1 4 KOMA))
36 (ac . ,(ly:make-pitch -1 5 KOMA))
37 (bc . ,(ly:make-pitch -1 6 KOMA))
39 (cb . ,(ly:make-pitch -1 0 BAKIYE))
40 (db . ,(ly:make-pitch -1 1 BAKIYE))
41 (eb . ,(ly:make-pitch -1 2 BAKIYE))
42 (fb . ,(ly:make-pitch -1 3 BAKIYE))
43 (gb . ,(ly:make-pitch -1 4 BAKIYE))
44 (ab . ,(ly:make-pitch -1 5 BAKIYE))
45 (bb . ,(ly:make-pitch -1 6 BAKIYE))
47 (ck . ,(ly:make-pitch -1 0 KUCUK))
48 (dk . ,(ly:make-pitch -1 1 KUCUK))
49 (ek . ,(ly:make-pitch -1 2 KUCUK))
50 (fk . ,(ly:make-pitch -1 3 KUCUK))
51 (gk . ,(ly:make-pitch -1 4 KUCUK))
52 (ak . ,(ly:make-pitch -1 5 KUCUK))
53 (bk . ,(ly:make-pitch -1 6 KUCUK))
55 (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
56 (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
57 (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
58 (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
59 (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
60 (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
61 (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
64 (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
65 (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
66 (efc . ,(ly:make-pitch -1 2 (- KOMA)))
67 (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
68 (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
69 (afc . ,(ly:make-pitch -1 5 (- KOMA)))
70 (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
72 (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
73 (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
74 (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
75 (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
76 (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
77 (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
78 (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
80 (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
81 (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
82 (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
83 (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
84 (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
85 (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
86 (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
88 (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
89 (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
90 (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
91 (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
92 (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
93 (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
94 (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
98 pitchnames = \makamPitchNames
99 #(ly:parser-set-note-names parser makamPitchNames)
102 (1 . "accidentals.doublesharp")
103 (8/9 . "accidentals.sharp.slashslashslash.stemstem")
104 (5/9 . "accidentals.sharp.slashslashslash.stem")
105 (4/9 . "accidentals.sharp")
106 (1/9 . "accidentals.sharp.slashslash.stem")
107 (0 . "accidentals.natural")
108 (-1/9 . "accidentals.mirroredflat")
109 (-4/9 . "accidentals.flat.slash")
110 (-5/9 . "accidentals.flat")
111 (-8/9 . "accidentals.flat.slashslash")
112 (-1 . "accidentals.flatflat")
117 %{ define alteration <-> symbol mapping. The following glyphs are available.
119 accidentals.sharp.slashslash.stem
120 accidentals.sharp.slashslashslash.stemstem
121 accidentals.sharp.slashslashslash.stem
122 accidentals.sharp.slashslash.stemstemstem
125 accidentals.flat.slash
126 accidentals.flat.slashslash
127 accidentals.mirroredflat.flat
128 accidentals.mirroredflat
130 accidentals.flatflat.slash
131 accidentals.doublesharp
134 \override Accidental #'glyph-name-alist = \makamGlyphs
135 \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
136 \set Staff.keySignature = #'((3 . 4/9) (6 . -1/9))