ly/makam-init.ly

   1 \header {
   2
   3   texidoc = "Makam is Turkish type of melody that uses 1/9 tone
   4   microtonal alterations."
   5
   6 }
   7
   8
   9 \version "2.11.6"
  10
  11 %{
  12
  13 Define 1/9 alterations.
  14
  15 %}
  16
  17
  18 #(define-public EKSIK-IKI 5/18)
  19 #(define-public EKSIK-UC 6/18)
  20
  21 #(define-public KOMA 1/9)
  22 #(define-public BAKIYE 4/9)
  23 #(define-public KUCUK 5/9)
  24 #(define-public BUYUKMUCENNEB 8/9)
  25
  26 %{
  27
  28 Define pitch names
  29
  30 %}
  31
  32 makamPitchNames = #`(
  33   (c . ,(ly:make-pitch -1 0 NATURAL))
  34   (d . ,(ly:make-pitch -1 1 NATURAL))
  35   (e . ,(ly:make-pitch -1 2 NATURAL))
  36   (f . ,(ly:make-pitch -1 3 NATURAL))
  37   (g . ,(ly:make-pitch -1 4 NATURAL))
  38   (a . ,(ly:make-pitch -1 5 NATURAL))
  39   (b . ,(ly:make-pitch -1 6 NATURAL))
  40
  41   (cc . ,(ly:make-pitch -1 0 KOMA))
  42   (dc . ,(ly:make-pitch -1 1 KOMA))
  43   (ec . ,(ly:make-pitch -1 2 KOMA))
  44   (fc . ,(ly:make-pitch -1 3 KOMA))
  45   (gc . ,(ly:make-pitch -1 4 KOMA))
  46   (ac . ,(ly:make-pitch -1 5 KOMA))
  47   (bc . ,(ly:make-pitch -1 6 KOMA))
  48
  49   (cb . ,(ly:make-pitch -1 0 BAKIYE))
  50   (db . ,(ly:make-pitch -1 1 BAKIYE))
  51   (eb . ,(ly:make-pitch -1 2 BAKIYE))
  52   (fb . ,(ly:make-pitch -1 3 BAKIYE))
  53   (gb . ,(ly:make-pitch -1 4 BAKIYE))
  54   (ab . ,(ly:make-pitch -1 5 BAKIYE))
  55   (bb . ,(ly:make-pitch -1 6 BAKIYE))
  56
  57   (ck . ,(ly:make-pitch -1 0 KUCUK))
  58   (dk . ,(ly:make-pitch -1 1 KUCUK))
  59   (ek . ,(ly:make-pitch -1 2 KUCUK))
  60   (fk . ,(ly:make-pitch -1 3 KUCUK))
  61   (gk . ,(ly:make-pitch -1 4 KUCUK))
  62   (ak . ,(ly:make-pitch -1 5 KUCUK))
  63   (bk . ,(ly:make-pitch -1 6 KUCUK))
  64
  65   (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
  66   (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
  67   (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
  68   (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
  69   (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
  70   (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
  71   (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
  72
  73   ;; f for flat.
  74   (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
  75   (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
  76   (efc . ,(ly:make-pitch -1 2 (- KOMA)))
  77   (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
  78   (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
  79   (afc . ,(ly:make-pitch -1 5 (- KOMA)))
  80   (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
  81
  82   (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
  83   (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
  84   (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
  85   (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
  86   (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
  87   (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
  88   (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
  89
  90   (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
  91   (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
  92   (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
  93   (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
  94   (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
  95   (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
  96   (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
  97
  98   (cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
  99   (dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
 100   (efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
 101   (ffi . ,(ly:make-pitch -1 3 (- EKSIK-IKI)))
 102   (gfi . ,(ly:make-pitch -1 4 (- EKSIK-IKI)))
 103   (afi . ,(ly:make-pitch -1 5 (- EKSIK-IKI)))
 104   (bfi . ,(ly:make-pitch -1 6 (- EKSIK-IKI)))
 105
 106   (cfu . ,(ly:make-pitch -1 0 (- EKSIK-UC)))
 107   (dfu . ,(ly:make-pitch -1 1 (- EKSIK-UC)))
 108   (efu . ,(ly:make-pitch -1 2 (- EKSIK-UC)))
 109   (ffu . ,(ly:make-pitch -1 3 (- EKSIK-UC)))
 110   (gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
 111   (afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
 112   (bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))
 113
 114
 115   (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
 116   (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
 117   (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
 118   (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
 119   (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
 120   (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
 121   (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
 122
 123 )
 124
 125
 126 %% set pitch names.
 127 pitchnames = \makamPitchNames
 128 #(ly:parser-set-note-names parser makamPitchNames)
 129
 130 #(define eksikMirroredSlashedFlat
 131   (if (defined? 'eksikMirroredSlashedFlat)
 132        eksikMirroredSlashedFlat #f))
 133
 134 makamGlyphs = #`((1 . "accidentals.doublesharp")
 135        (8/9 . "accidentals.sharp.slashslashslash.stemstem")
 136        (5/9 . "accidentals.sharp.slashslashslash.stem")
 137        (4/9 . "accidentals.sharp")
 138        (1/9 . "accidentals.sharp.slashslash.stem")
 139        (0 . "accidentals.natural")
 140        (-1/9 . "accidentals.mirroredflat")
 141        (-5/18 . ,(if eksikMirroredSlashedFlat
 142                  "accidentals.mirroredflat.backslash"
 143                  "accidentals.mirroredflat"))
 144        (-6/18 . ,(if eksikMirroredSlashedFlat
 145                  "accidentals.mirroredflat.backslash"
 146                  "accidentals.mirroredflat"))
 147        (-4/9 . "accidentals.flat.slash")
 148        (-5/9 . "accidentals.flat")
 149        (-8/9 . "accidentals.flat.slashslash")
 150        (-1 . "accidentals.flatflat"))
 151
 152 \layout {
 153   \context {
 154     \Score
 155     \override KeySignature #'glyph-name-alist = \makamGlyphs
 156     \override Accidental #'glyph-name-alist = \makamGlyphs
 157     \override AccidentalCautionary #'glyph-name-alist = \makamGlyphs
 158     \override TrillPitchAccidental #'glyph-name-alist = \makamGlyphs
 159     \override AmbitusAccidental #'glyph-name-alist = \makamGlyphs
 160   }
 161 }
 162