diff options
| author | Keith OHara <k-ohara5a5a@oco.net> | 2011-02-27 10:22:28 -0800 |
|---|---|---|
| committer | Keith OHara <k-ohara5a5a@oco.net> | 2011-03-01 23:14:30 -0800 |
| commit | 9513397ad5f95ce92d490ba09afb4c32ec8bb791 (patch) | |
| tree | b8cf84133c3ae874c8e5a8d76ec342eb606c0128 /ly/arabic.ly | |
| parent | dbafc9ace7e261b158dacaea1076bb5db8b987a2 (diff) | |
Key signatures for modes. Fix 748.
Compute midi key signatures for modes with fractional alterations,
using code from Graham Breed.
Provide a keyAlterationOrder for the modes in arabic.ly.
Diffstat (limited to 'ly/arabic.ly')
| -rw-r--r-- | ly/arabic.ly | 50 |
1 files changed, 35 insertions, 15 deletions
diff --git a/ly/arabic.ly b/ly/arabic.ly index 48414b473d..61790e5542 100644 --- a/ly/arabic.ly +++ b/ly/arabic.ly @@ -33,52 +33,72 @@ dwn = { % bayati = #`( - (0 . 0) + (0 . ,NATURAL) (1 . ,SEMI-FLAT) (2 . ,FLAT) - (3 . 0) - (4 . 0) + (3 . ,NATURAL) + (4 . ,NATURAL) (5 . ,FLAT) (6 . ,FLAT) ) kurd = #`( - (0 . 0) + (0 . ,NATURAL) (1 . ,FLAT) (2 . ,FLAT) - (3 . 0) - (4 . 0) + (3 . ,NATURAL) + (4 . ,NATURAL) (5 . ,FLAT) (6 . ,FLAT) ) rast = #`( - (0 . 0) - (1 . 0) + (0 . ,NATURAL) + (1 . ,NATURAL) (2 . ,SEMI-FLAT) - (3 . 0) - (4 . 0) - (5 . 0) + (3 . ,NATURAL) + (4 . ,NATURAL) + (5 . ,NATURAL) (6 . ,SEMI-FLAT) ) sikah = #`( - (0 . 0) + (0 . ,NATURAL) (1 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) (3 . ,SEMI-SHARP) - (4 . 0) + (4 . ,NATURAL) (5 . ,SEMI-FLAT) (6 . ,SEMI-FLAT) ) iraq = #`( - (0 . 0) + (0 . ,NATURAL) (1 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) - (3 . 0) + (3 . ,NATURAL) (4 . ,SEMI-FLAT) (5 . ,SEMI-FLAT) (6 . ,SEMI-FLAT) ) +\layout { + \context { + \Score + keyAlterationOrder = + #`( + (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) + (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT) + (6 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) (5 . ,SEMI-FLAT ) (1 . ,SEMI-FLAT) + (4 . ,SEMI-FLAT) (0 . ,SEMI-FLAT) (3 . ,SEMI-FLAT) + (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) + (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP) + (3 . ,SEMI-SHARP) (0 . ,SEMI-SHARP) (4 . ,SEMI-SHARP) (1 . ,SEMI-SHARP) + (5 . ,SEMI-SHARP) (2 . ,SEMI-SHARP) (6 . ,SEMI-SHARP) + (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) + (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT) + (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 . ,DOUBLE-SHARP) + (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP) + ) + } +} |