X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fpedal-ped.ly;h=d7ad11110cd399dac6f097260d40e3077bbc3942;hb=1a4767cac76e0c1a11d5e28d5c7ec91872f57ddf;hp=94d31bc196769b5ca4b0533890ac59bf30a72c9d;hpb=3a64c1f4b7a0e880244a7369fa83d9c92ae8a184;p=lilypond.git

diff --git a/input/regression/pedal-ped.ly b/input/regression/pedal-ped.ly
index 94d31bc196..d7ad11110c 100644
--- a/input/regression/pedal-ped.ly
+++ b/input/regression/pedal-ped.ly
@@ -1,25 +1,21 @@
+\version "2.14.0"
 \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
+  \sustainOn b c
+  c, d16[  c  c c]  e[ e \sustainOff \sustainOn e e ] f4 \sustainOff 
+  g\sustainOn  b \sustainOff c 
+  \set Staff.pedalSustainStrings = #'("-" "-P" "P")
+  \override Staff.SustainPedal   #'padding = #-2
+  c, \sustainOn d e \sustainOff \sustainOn f
+  \sustainOff g b c
 }
+