From a349a341d0ed42002048be28b948c1bb1503bc6b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 28 Jul 2013 13:19:29 +0200 Subject: [PATCH] Issue 3479: Define \fermata markup command that heeds `direction' --- scm/define-markup-commands.scm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 2f08783d7e..d5aef11140 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -3790,6 +3790,28 @@ Could be disabled with @code{\\override #'(multi-measure-rest-number . #f)} mmr-stil stil)))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; fermata markup +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define-markup-command (fermata layout props) () + #:category music + #:properties ((direction UP)) + "Create a fermata glyph. When @var{direction} is @code{DOWN}, use +an inverted glyph. Note that within music, one would usually use the +@code{\\fermata} articulation instead of a markup. + +@lilypond[verbatim,quote] + { c1^\\markup \\fermata d1_\\markup \\fermata } + +\\markup { \\fermata \\override #`(direction . ,DOWN) \\fermata } +@end lilypond +" + (interpret-markup layout props + (if (eqv? direction DOWN) + (markup #:musicglyph "scripts.dfermata") + (markup #:musicglyph "scripts.ufermata")))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; translating. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2