]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/lily-in-scheme.ly
Imported Upstream version 2.19.45
[lilypond.git] / input / regression / lily-in-scheme.ly
index 2a0cd8b0d3a27c5d2ab1d2285f75697d95b6333b..fdf6da5ee2e455313d4c4d9fac6dd63713cb5b7c 100644 (file)
@@ -4,31 +4,31 @@
     them with a @code{$}, both in a LilyPond context or in a Scheme
     context.
 
-In this example, the @code{\withpaddingA}, @code{\withpaddingB} and
-@code{\withpaddingC} music functions set different kinds of padding on
+In this example, the @code{\\withpaddingA}, @code{\\withpaddingB} and
+@code{\\withpaddingC} music functions set different kinds of padding on
 the @code{TextScript} grob.
 
 "
           
       }
 
-\version "2.11.51"
+\version "2.19.22"
 \layout { ragged-right = ##t }
 
-withPaddingA = #(define-music-function (parser location padding music) (number? ly:music?)
-                #{ \override TextScript #'padding = #$padding
+withPaddingA = #(define-music-function (padding music) (number? ly:music?)
+                #{ \override TextScript.padding = #padding
                 $music 
-                \revert TextScript #'padding #})
+                \revert TextScript.padding #})
 
-withPaddingB = #(define-music-function (parser location padding music) (number? ly:music?)
-                #{ \override TextScript #'padding = #$(* padding 2)
+withPaddingB = #(define-music-function (padding music) (number? ly:music?)
+                #{ \override TextScript.padding = #(* padding 2)
                 $music 
-                \revert TextScript #'padding #})
+                \revert TextScript.padding #})
 
-withPaddingC = #(define-music-function (parser location padding music) (number? ly:music?)
-                #{ \override TextScript #'padding = #(+ 1 $(* padding 2))
+withPaddingC = #(define-music-function (padding music) (number? ly:music?)
+                #{ \override TextScript.padding = #(+ 1 (* padding 2))
                    $music 
-                   \revert TextScript #'padding #})
+                   \revert TextScript.padding #})
 
 {
     c'^"1"