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
11 % http://www.mail-archive.com/lilypond-user@gnu.org/msg34244.html
13 % Exchange on 17 January 2008
15 % Updated based on email advice 10 July 2008, by Neil Puttock
20 % dod dob dosd \dwn dob dobsb dodsd do
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))
90 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT)
91 (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
92 (6 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) (5 . ,SEMI-FLAT ) (1 . ,SEMI-FLAT)
93 (4 . ,SEMI-FLAT) (0 . ,SEMI-FLAT) (3 . ,SEMI-FLAT)
94 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP)
95 (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
96 (3 . ,SEMI-SHARP) (0 . ,SEMI-SHARP) (4 . ,SEMI-SHARP) (1 . ,SEMI-SHARP)
97 (5 . ,SEMI-SHARP) (2 . ,SEMI-SHARP) (6 . ,SEMI-SHARP)
98 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT)
99 (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
100 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 . ,DOUBLE-SHARP)
101 (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)