* scm/music-functions.scm (determine-split-list): further analysis.

[lilypond.git] / scm / new-markup.scm

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index 4aa774a692202bb84f3ff08ca51a82dc556dc3b6..efbcdd87488da98aff998fd65b112f8346072f5c 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -461,6 +461,26 @@ Also set markup-signature and markup-keyword object properties."
 (def-markup-command typewriter (markup?)
   (font-markup 'font-family 'typewriter))
 
+(def-markup-command (doublesharp paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals-4")))
+(def-markup-command (threeqsharp paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals-3")))
+(def-markup-command (sharp paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals-2")))
+(def-markup-command (semisharp paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals-1")))
+(def-markup-command (natural paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals-0")))
+(def-markup-command (semiflat paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals--1")))
+(def-markup-command (flat paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals--2")))
+(def-markup-command (threeqflat paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals--3")))
+(def-markup-command (doubleflat paper props) ()
+  (interpret-markup paper props (markup #:musicglyph "accidentals--4")))
+
+
 (def-markup-command (column paper props mrkups) (markup-list?)
   (stack-lines
    -1 0.0 (cdr (chain-assoc 'baseline-skip props))