X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fpedal-ped.ly;h=6af6aafbb2bf2b5b942cf4527b07226495ba828e;hb=2205ef7a616d73e6a83274816e775426bf41b7bd;hp=94d31bc196769b5ca4b0533890ac59bf30a72c9d;hpb=3a64c1f4b7a0e880244a7369fa83d9c92ae8a184;p=lilypond.git

diff --git a/input/regression/pedal-ped.ly b/input/regression/pedal-ped.ly
index 94d31bc196..6af6aafbb2 100644
--- a/input/regression/pedal-ped.ly
+++ b/input/regression/pedal-ped.ly
@@ -1,25 +1,21 @@
+\version "2.7.39"
 \header
 {
-    texidoc = "Piano pedals: the standard style is with Ped symbols.
-The string can be tuned. This example shows the shorter tilde/P variant
+  texidoc = "The standard piano pedals style comes with Ped symbols.
+The pedal string can be also tuned, for example, to a shorter tilde/P variant
 at the end of the melody."
 
 }
 
 
-\score{
-    \context Staff \notes\relative c'{
-
-        c4 d e f g
-        \sustainDown b c
-        c, d16[  c  c c]  e[ e \sustainUp \sustainDown e e ] f4 \sustainUp 
-        g\sustainDown  b \sustainUp c 
-        \property Staff.pedalSustainStrings = #'("-" "-P" "P")
-        \property Staff.SustainPedal \override #'padding = #-2
-        c, \sustainDown d e \sustainUp \sustainDown f
-        \sustainUp g b c
-
-
-
-    }
+\context Staff \relative c'{
+  c4 d e f g
+  \sustainDown b c
+  c, d16[  c  c c]  e[ e \sustainUp \sustainDown e e ] f4 \sustainUp 
+  g\sustainDown  b \sustainUp c 
+  \set Staff.pedalSustainStrings = #'("-" "-P" "P")
+  \override Staff.SustainPedal   #'padding = #-2
+  c, \sustainDown d e \sustainUp \sustainDown f
+  \sustainUp g b c
 }
+