input/lsr/makam.ly

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