X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fcreating-real-parenthesized-dynamics.ly;h=cf8867b266ce6fc7c87a313f533ff8a8c069241c;hb=f1fe7729f83c4ce7c2d9bba83ac6c9253e17f9d4;hp=87a0b64fd5258d651c6c19b4e65e7e079373a160;hpb=92aecd273c6940deba6c6ec70770817d8f5094d5;p=lilypond.git

diff --git a/input/lsr/creating-real-parenthesized-dynamics.ly b/input/lsr/creating-real-parenthesized-dynamics.ly
index 87a0b64fd5..cf8867b266 100644
--- a/input/lsr/creating-real-parenthesized-dynamics.ly
+++ b/input/lsr/creating-real-parenthesized-dynamics.ly
@@ -4,27 +4,29 @@
 
 \header {
   lsrtags = "expressive-marks, text"
- texidoc = "
-Although the easiest way to add parenthesis to a dynamic mark is to use
-a \\markup block, this method has a downside: the created objects will
-behave like text markups, and not like dynamics.
+
+  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 \"Markup programmer interface\"), combined
-with the make-dynamic-script function. This way, the markup will be
-regarded as a dynamic, and therefore will remain compatible with
-commands such as \\dynamicUp or \\dynamicDown.
+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}.
 
 
-" }
-% begin verbatim
-\paper { ragged-right = ##t }
 
-parenF = #(make-dynamic-script (markup #:line(#:normal-text #:italic
-#:fontsize 2 "(" #:hspace -0.8 #:dynamic "f" #:normal-text #:italic
-#:fontsize 2 ")" )))
+"
+  doctitle = "Creating \"real\" parenthesized dynamics"
+} % begin verbatim
+\paper { ragged-right = ##t }
 
-\score
-{
-       { c''\parenF c'' c'' \dynamicUp c''\parenF }
+parenF = #(make-dynamic-script (markup #:line (#:normal-text #:italic
+           #:fontsize 2 "(" #:hspace -0.8 #:dynamic "f" #:normal-text
+           #:italic #:fontsize 2 ")"
+          )))
+\relative c'' {
+  c4\parenF c c \dynamicUp c\parenF
 }