ly/arabic.ly

   1 \version "2.12.0"
   2 \include "italiano.ly"
   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 0))
  29 }
  30
  31 %
  32 % Arabic maqam groups
  33 %
  34
  35 bayati = #`(
  36     (0 . 0)
  37     (1 . ,SEMI-FLAT)
  38     (2 . ,FLAT)
  39     (3 . 0)
  40     (4 . 0)
  41     (5 . ,FLAT)
  42     (6 . ,FLAT)
  43   )
  44
  45 kurd = #`(
  46     (0 . 0)
  47     (1 . ,FLAT)
  48     (2 . ,FLAT)
  49     (3 . 0)
  50     (4 . 0)
  51     (5 . ,FLAT)
  52     (6 . ,FLAT)
  53     )
  54
  55 rast = #`(
  56     (0 . 0)
  57     (1 . 0)
  58     (2 . ,SEMI-FLAT)
  59     (3 . 0)
  60     (4 . 0)
  61     (5 . 0)
  62     (6 . ,SEMI-FLAT)
  63   )
  64
  65 sikah = #`(
  66     (0 . 0)
  67     (1 . ,SEMI-FLAT)
  68     (2 . ,SEMI-FLAT)
  69     (3 . ,SEMI-SHARP)
  70     (4 . 0)
  71     (5 . ,SEMI-FLAT)
  72     (6 . ,SEMI-FLAT)
  73   )
  74
  75 iraq = #`(
  76     (0 . 0)
  77     (1 . ,SEMI-FLAT)
  78     (2 . ,SEMI-FLAT)
  79     (3 . 0)
  80     (4 . ,SEMI-FLAT)
  81     (5 . ,SEMI-FLAT)
  82     (6 . ,SEMI-FLAT)
  83   )
  84