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.35"
   4 \layout { ragged-right= ##t }
   5 \header {
   6   doctitle = "Makam"
   7   lsrtags = "pitches"
   8   texidoc = "Makam is Turkish type of melody that uses 1/9 tone
   9   microtonal alterations."
  10 }
  11 % begin verbatim
  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
  98 %% set pitch names.
  99 pitchnames = \makamPitchNames
 100 #(ly:parser-set-note-names parser makamPitchNames)
 101
 102 makamGlyphs = #'((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
 136   \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
 137   \set Staff.keySignature =  #'(
 138     (3 .  4/9)
 139     (6 . -1/9))
 140
 141   c cc db fk gbm gfc gfb efk dfbm
 142 }