ly/arabic.ly

   1 \version "2.17.6"
   2 \language "italiano"
   3
   4 %%%%%%%
   5 %
   6 % Definition of "dwn" symbol in order to draw the half flat symbol
   7 % that is more often used in Arabic music (A b with a slash across),
   8 % rather than the reverse b symbol that is used by LilyPond.
   9 % The method was contributed by Valentin Villenave on the LilyPond Forum
  10 %
  11 % http://www.mail-archive.com/lilypond-user@gnu.org/msg34244.html
  12 %
  13 % Exchange on 17 January 2008
  14 %
  15 % Updated based on email advice 10 July 2008, by Neil Puttock
  16 %
  17 %
  18 % Example
  19 %
  20 % dod dob dosd \dwn dob dobsb dodsd do
  21 %
  22
  23 dwn = {
  24   \once \override Voice.Accidental.stencil = #(lambda (grob)
  25   (ly:stencil-combine-at-edge
  26     (ly:accidental-interface::print grob) Y UP
  27     (grob-interpret-markup grob (markup #:line
  28           (#:fontsize -1 (#:musicglyph "flags.ugrace")))) -1.3))
  29 }
  30
  31 %
  32 % Arabic maqam groups
  33 %
  34
  35 bayati = #`(
  36     (0 . ,NATURAL)
  37     (1 . ,SEMI-FLAT)
  38     (2 . ,FLAT)
  39     (3 . ,NATURAL)
  40     (4 . ,NATURAL)
  41     (5 . ,FLAT)
  42     (6 . ,FLAT)
  43   )
  44
  45 kurd = #`(
  46     (0 . ,NATURAL)
  47     (1 . ,FLAT)
  48     (2 . ,FLAT)
  49     (3 . ,NATURAL)
  50     (4 . ,NATURAL)
  51     (5 . ,FLAT)
  52     (6 . ,FLAT)
  53     )
  54
  55 rast = #`(
  56     (0 . ,NATURAL)
  57     (1 . ,NATURAL)
  58     (2 . ,SEMI-FLAT)
  59     (3 . ,NATURAL)
  60     (4 . ,NATURAL)
  61     (5 . ,NATURAL)
  62     (6 . ,SEMI-FLAT)
  63   )
  64
  65 sikah = #`(
  66     (0 . ,NATURAL)
  67     (1 . ,SEMI-FLAT)
  68     (2 . ,SEMI-FLAT)
  69     (3 . ,SEMI-SHARP)
  70     (4 . ,NATURAL)
  71     (5 . ,SEMI-FLAT)
  72     (6 . ,SEMI-FLAT)
  73   )
  74
  75 iraq = #`(
  76     (0 . ,NATURAL)
  77     (1 . ,SEMI-FLAT)
  78     (2 . ,SEMI-FLAT)
  79     (3 . ,NATURAL)
  80     (4 . ,SEMI-FLAT)
  81     (5 . ,SEMI-FLAT)
  82     (6 . ,SEMI-FLAT)
  83   )
  84
  85 \layout {
  86   \context {
  87     \Score
  88       keyAlterationOrder =
  89       #`(
  90          (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT)
  91          (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
  92          (6 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) (5 . ,SEMI-FLAT ) (1 . ,SEMI-FLAT)
  93          (4 . ,SEMI-FLAT) (0 . ,SEMI-FLAT) (3 . ,SEMI-FLAT)
  94          (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP)
  95          (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
  96          (3 . ,SEMI-SHARP) (0 . ,SEMI-SHARP) (4 . ,SEMI-SHARP) (1 . ,SEMI-SHARP)
  97          (5 . ,SEMI-SHARP) (2 . ,SEMI-SHARP) (6 . ,SEMI-SHARP)
  98          (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT)
  99          (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
 100          (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 . ,DOUBLE-SHARP)
 101          (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
 102         )
 103   }
 104 }