ly/arabic.ly

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