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 \relative {
 116
 117   %{ define alteration <-> symbol mapping. The following glyphs are available.
 118
 119   accidentals.sharp
 120   accidentals.sharp.slashslash.stem
 121   accidentals.sharp.slashslashslash.stemstem
 122   accidentals.sharp.slashslashslash.stem
 123   accidentals.sharp.slashslash.stemstemstem
 124   accidentals.natural
 125   accidentals.flat
 126   accidentals.flat.slash
 127   accidentals.flat.slashslash
 128   accidentals.mirroredflat.flat
 129   accidentals.mirroredflat
 130   accidentals.flatflat
 131   accidentals.flatflat.slash
 132   accidentals.doublesharp
 133
 134   %}
 135
 136
 137   \override Accidental #'glyph-name-alist = #'((1 . "accidentals.doublesharp")
 138        (8/9 . "accidentals.sharp.slashslashslash.stemstem")
 139        (5/9 . "accidentals.sharp.slashslashslash.stem")
 140        (4/9 . "accidentals.sharp")
 141        (1/9 . "accidentals.sharp.slashslash.stem")
 142        (0 . "accidentals.natural")
 143        (-1/9 . "accidentals.mirroredflat")
 144        (-4/9 . "accidentals.flat.slash")
 145        (-5/9 . "accidentals.flat")
 146        (-8/9 . "accidentals.flat.slashslash")
 147        (-1 . "accidentals.flatflat")
 148        )
 149
 150
 151
 152   c cc db fk gbm gfc gfb efk dfbm
 153 }