input/lsr/makam.ly

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