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 Turkish type of melody that uses 1/9 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
  96 %% set pitch names.
  97 pitchnames = \makamPitchNames
  98 #(ly:parser-set-note-names parser makamPitchNames)
  99
 100 makamGlyphs = #'((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
 134   \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
 135   \set Staff.keySignature =  #'(
 136     (3 .  4/9)
 137     (6 . -1/9))
 138
 139   c cc db fk gbm gfc gfb efk dfbm
 140 }