Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / Documentation / snippets / broken-crescendo-hairpin.ly

diff --git a/Documentation/snippets/broken-crescendo-hairpin.ly b/Documentation/snippets/broken-crescendo-hairpin.ly
index b21fc6e7929fc8847dce5edcdd85809993272811..82725533312f59d4a3e312ac4613a1f73a86df42 100644 (file)
--- a/Documentation/snippets/broken-crescendo-hairpin.ly
+++ b/Documentation/snippets/broken-crescendo-hairpin.ly
@@ -1,10 +1,10 @@
 %% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% generated from LSR http://lsr.di.unimi.it
 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.16.0"
+\version "2.18.0"
 
 \header {
   lsrtags = "contemporary-notation, expressive-marks, symbols-and-glyphs"
@@ -15,47 +15,35 @@ method is used: A white rectangle is drawn on top of the respective
 part of the crescendo hairpin, making it invisible.  The rectangle is
 defined as postscript code within a text markup.
 
-To fine-tune the position and size of the markup, the number preceding
-@code{setgray} in the postscript definition can be set to a value less
-than one, making it grey.  The two numbers before @code{scale} in the
-postscript code are responsible for the width and height of the
-rectangle, the two numbers before @code{translate} change the x- and
-y-origin of the rectangle.
+The markup command @code{with-dimensions} tells LilyPond to consider
+only the bottom edge of the rectangle when spacing it against the
+hairpin. The property @code{staff-padding} prevents the rectangle from
+fitting between the hairpin and staff.
 
-
-Make sure to put the hairpin in a lower layer than the text markup to
-draw the rectangle over the hairpin.
+Make sure the hairpin is in a lower layer than the text markup to draw
+the rectangle over the hairpin.
 
 "
   doctitle = "Broken Crescendo Hairpin"
 } % begin verbatim
 
-
 \relative c' {
   <<
     {
       \dynamicUp
-      \override DynamicLineSpanner #'staff-padding = #4
       r2 r16 c'8.\pp r4
     }
     \\
     {
-      \override DynamicLineSpanner #'layer = #0
+      \override DynamicLineSpanner.layer = #0
       des,2\mf\< ~
-      \override TextScript #'layer = #2
-      des16_\markup {
-        \postscript #"
-          1.9 -8 translate
-          5 4 scale
-          1 setgray
-          0 0 moveto
-          0 1 lineto
-          1 1 lineto
-          1 0 lineto
-          0 0 lineto
-          fill"
-      }
-      r8. des4 ~ des16->\sff
+      \override TextScript.layer = #2
+      \once\override TextScript.staff-padding = #6
+      \once\override TextScript.vertical-skylines = #'()
+      des16_\markup \with-dimensions #'(2 . 7) #'(0 . 0)
+                    \with-color #white
+                    \filled-box #'(2 . 7) #'(0 . 2) #0
+      r8. des4 ~ des16->\sff r8.
     }
   >>
 }