X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fcreating-a-sequence-of-notes-on-various-pitches.ly;h=acaae74b0a697a417cbe344d38e65bc6fcabe4e9;hb=5b2bdf8c532aa1b4aa8626f6847938f2ef4ba1be;hp=add095dc8e7c84f65f71624063a81e4610aa7856;hpb=edbaa4793402ff05a4d3c2823b0cd36862e591c2;p=lilypond.git

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 add095dc8e..acaae74b0a 100644
--- a/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly
+++ b/input/lsr/creating-a-sequence-of-notes-on-various-pitches.ly
@@ -1,6 +1,6 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.64"
+\version "2.12.0"
 
 \header {
   lsrtags = "pitches"
@@ -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
 }