input/lsr/pitch/makam.ly

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