Imported Upstream version 2.18.0

[lilypond.git] / Documentation / snippets / new / creating-real-parenthesized-dynamics.ly

diff --git a/Documentation/snippets/new/creating-real-parenthesized-dynamics.ly b/Documentation/snippets/new/creating-real-parenthesized-dynamics.ly
new file mode 100644 (file)
index 0000000..bfdd1bd
--- /dev/null
+++ b/Documentation/snippets/new/creating-real-parenthesized-dynamics.ly
@@ -0,0 +1,35 @@
+\version "2.16.0"
+
+\header {
+  lsrtags = "expressive-marks, text, workaround"
+
+  texidoc = "
+Although the easiest way to add parentheses to a dynamic mark is to use
+a @code{\\markup} block, this method has a downside: the created
+objects will behave like text markups, and not like dynamics.
+
+However, it is possible to create a similar object using the equivalent
+Scheme code (as described in the Notation Reference), combined with the
+@code{make-dynamic-script} function. This way, the markup will be
+regarded as a dynamic, and therefore will remain compatible with
+commands such as @code{\\dynamicUp} or @code{\\dynamicDown}.
+
+
+
+"
+  doctitle = "Creating \"real\" parenthesized dynamics"
+}
+
+paren =
+#(define-event-function (parser location dyn) (ly:event?)
+   (make-dynamic-script
+    #{ \markup \concat {
+         \normal-text \italic \fontsize #2 (
+        \pad-x #0.2 #(ly:music-property dyn 'text)
+        \normal-text \italic \fontsize #2 )
+       }
+    #}))
+
+\relative c'' {
+  c4\paren\f c c \dynamicUp c\paren\p
+}