input/test/makam.ly

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