input/new/makam.ly

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