From: Graham Percival <graham@percival-music.ca>
Date: Mon, 14 Jul 2008 02:22:05 +0000 (-0700)
Subject: Add definitions for arabic music.
X-Git-Tag: release/2.11.53-1~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cb3ce391f2f9e247dd4f9c1b34f169f0ba42b50c;p=lilypond.git

Add definitions for arabic music.
---

diff --git a/ly/arabic.ly b/ly/arabic.ly
new file mode 100644
index 0000000000..e5939a0d21
--- /dev/null
+++ b/ly/arabic.ly
@@ -0,0 +1,85 @@
+\version "2.11.51"
+\include "italiano.ly"
+
+%%%%%%%
+%
+% Definition of "dwn" symbol in order to draw the half flat symbol 
+% that is more often used in Arabic music (A b with a slash across) 
+% , rather than the reverse b symbol that is used by LilyPond. 
+% The method was contributed by Valentin Villenavea on the LilyPond Forum
+%
+% http://www.mail-archive.com/lilypond-user@gnu.org/msg34244.html
+% 
+% Exchange on 17 January 2008
+%
+% Updated based on email advice 10 August 2008, by Neil Puttock 
+%  
+%
+% Example 
+%
+% dod dob dosd \dwn dob dobsb dodsd do
+% 
+
+dwn = {
+  \once \override Voice.Accidental #'stencil = #(lambda (grob)
+  (ly:stencil-combine-at-edge
+    (ly:accidental-interface::print grob) Y UP
+    (grob-interpret-markup grob (markup #:line
+          (#:fontsize -1 (#:musicglyph "flags.ugrace")))) -1.3 0))
+}
+
+
+%
+%
+% Arabic maqam groups 
+%
+bayati = #`(
+    (0 . 0)
+    (1 . ,SEMI-FLAT)
+    (2 . ,FLAT)
+    (3 . 0)
+    (4 . 0)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
+  )
+
+kurd = #`(
+    (0 . 0)
+    (1 . ,FLAT)
+    (2 . ,FLAT)
+    (3 . 0)
+    (4 . 0)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
+    )
+
+rast = #`(
+    (0 . 0)
+    (1 . 0)
+    (2 . ,SEMI-FLAT)
+    (3 . 0)
+    (4 . 0)
+    (5 . 0)
+    (6 . ,SEMI-FLAT)
+  )
+
+sikah = #`(
+    (0 . 0)
+    (1 . ,SEMI-FLAT)
+    (2 . ,SEMI-FLAT)
+    (3 . ,SEMI-SHARP)
+    (4 . 0)
+    (5 . ,SEMI-FLAT)
+    (6 . ,SEMI-FLAT)
+  )
+
+iraq = #`(
+    (0 . 0)
+    (1 . ,SEMI-FLAT)
+    (2 . ,SEMI-FLAT)
+    (3 . 0)
+    (4 . ,SEMI-FLAT)
+    (5 . ,SEMI-FLAT)
+    (6 . ,SEMI-FLAT)
+  )
+