]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/lily-in-scheme.ly
Merge commit 'origin/dev/jneeman' into systems-per-page
[lilypond.git] / input / regression / lily-in-scheme.ly
index b3fc634da215b39e38cb809c713a2d81ea598871..e9b34f6ec5e361abdd947ce160a5268be061994c 100644 (file)
@@ -1,39 +1,44 @@
-\header {
-    texidoc = "LilyPond syntax can be used inside scheme to
-build music expressions, with the @code{#@{ ... #@}} syntax.
-Scheme forms can be introduced inside these blocks by escaping 
-them with a @code{$}, both in a LilyPond context (see the @code{music} variable) or in a Scheme 
-context (see the @code{$padding} and @code{$(* padding 2)} forms.)"
-}
-\version "2.3.4"
-\paper { raggedright = ##t }
+\header { texidoc = "LilyPond syntax can be used inside scheme to
+    build music expressions, with the @code{#@{ ... #@}} syntax.
+    Scheme forms can be introduced inside these blocks by escaping
+    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
+the @code{TextScript} grob.
 
-withPaddingA = #(def-music-function (location padding music) (number? ly:music?)
-                   #{ \override TextScript #'padding = #$padding
-                      $music 
-                      \revert TextScript #'padding #})
-  
-withPaddingB = #(def-music-function (location padding music) (number? ly:music?)
-                   #{ \override TextScript #'padding = #$(* padding 2)
-                      $music 
-                      \revert TextScript #'padding #})
-  
-withPaddingC = #(def-music-function (location padding music) (number? ly:music?)
-                   #{ \override TextScript #'padding = #(+ 1 $(* padding 2))
-                      $music 
-                      \revert TextScript #'padding #})
-  
-  \score {
-      \notes {
-          c'^"1"
-          \withPaddingA #2
-            { c'^"2" c'^"3"}
-          c'^"4"
-          \withPaddingB #2
-            { c'^"5" c'^"6"}
-          c'^"7"
-          \withPaddingC #2
-            { c'^"8" c'^"9"}
-          c'^"10"
+"
+          
       }
-  }
+
+\version "2.12.0"
+\layout { ragged-right = ##t }
+
+withPaddingA = #(define-music-function (parser location padding music) (number? ly:music?)
+                #{ \override TextScript #'padding = #$padding
+                $music 
+                \revert TextScript #'padding #})
+
+withPaddingB = #(define-music-function (parser location padding music) (number? ly:music?)
+                #{ \override TextScript #'padding = #$(* padding 2)
+                $music 
+                \revert TextScript #'padding #})
+
+withPaddingC = #(define-music-function (parser location padding music) (number? ly:music?)
+                #{ \override TextScript #'padding = #(+ 1 $(* padding 2))
+                   $music 
+                   \revert TextScript #'padding #})
+
+{
+    c'^"1"
+    \withPaddingA #2
+    { c'^"2" c'^"3"}
+    c'^"4"
+    \withPaddingB #2
+    { c'^"5" c'^"6"}
+    c'^"7"
+    \withPaddingC #2
+    { c'^"8" c'^"9"}
+    c'^"10"
+}