From cb3ce391f2f9e247dd4f9c1b34f169f0ba42b50c Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Sun, 13 Jul 2008 19:22:05 -0700 Subject: [PATCH] Add definitions for arabic music. --- ly/arabic.ly | 85 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 85 insertions(+) create mode 100644 ly/arabic.ly 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) + ) + -- 2.39.2