Merge branch 'master' of carldsorensen@git.sv.gnu.org:/srv/git/lilypond into ralph

[lilypond.git] / input / lsr / creating-a-sequence-of-notes-on-various-pitches.ly

diff --git a/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly b/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly
index 9098fe7927fdd8edcf976d36967e05365f259b96..acaae74b0a697a417cbe344d38e65bc6fcabe4e9 100644 (file)
--- a/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly
+++ b/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly
@@ -50,29 +50,28 @@ throughout Mars, from Gustav Holst's The Planets.
    'element elt))
 
 
-rhythm = #(define-music-function (parser location note) (ly:music?)
-          "Make the rhythm in Mars (the Planets) at the given note's pitch"
-          (let* ((p (ly:music-property
-                      (car (ly:music-property note 'elements))
-                      'pitch)))
-          (seq-music-list (list
-            (make-triplet (seq-music-list (list
-              (make-note p (ly:make-duration 3 0 2 3))
-              (make-note p (ly:make-duration 3 0 2 3))
-              (make-note p (ly:make-duration 3 0 2 3))
-            )))
-            (make-note p (ly:make-duration 2 0))
-            (make-note p (ly:make-duration 2 0))
-            (make-note p (ly:make-duration 3 0))
-            (make-note p (ly:make-duration 3 0))
-            (make-note p (ly:make-duration 2 0))
-          ))))
+rhythm =
+#(define-music-function (parser location note) (ly:music?)
+  "Make the rhythm in Mars (the Planets) at the given note's pitch"
+  (let ((p (ly:music-property
+              (car (ly:music-property note 'elements))
+              'pitch)))
+  (seq-music-list (list
+    (make-triplet (seq-music-list (list
+      (make-note p (ly:make-duration 3 0 2 3))
+      (make-note p (ly:make-duration 3 0 2 3))
+      (make-note p (ly:make-duration 3 0 2 3))
+    )))
+    (make-note p (ly:make-duration 2 0))
+    (make-note p (ly:make-duration 2 0))
+    (make-note p (ly:make-duration 3 0))
+    (make-note p (ly:make-duration 3 0))
+    (make-note p (ly:make-duration 2 0))
+  ))))
 
-\score {
-  \new Staff {
-    \time 5/4
-    \rhythm c'
-    \rhythm c''
-    \rhythm g
-  }
+\new Staff {
+  \time 5/4
+  \rhythm c'
+  \rhythm c''
+  \rhythm g
 }