input/lsr/makam.ly

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