lilypond-book robustness: ensure EOL at the end of @verbatim

[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 acaae74b0a697a417cbe344d38e65bc6fcabe4e9..3667374650724ade427ef09d7a53b29c773dd1ce 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
@@ -1,10 +1,11 @@
 %% 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.12.0"
+\version "2.13.1"
 
 \header {
   lsrtags = "pitches"
 
+%% Translation of GIT committish: 48f804da6794a7bc8e7fdd4b1649f485b0b09d26
   texidoces = "
 En una música que tenga muchas apariciones de la
 misma secuencia de notas a distintas alturas, podría ser de
@@ -31,43 +32,42 @@ throughout Mars, from Gustav Holst's The Planets.
 } % begin verbatim
 
 #(define (make-note-req p d)
-  (make-music 'NoteEvent
-   'duration d
-   'pitch p))
+   (make-music 'NoteEvent
+              'duration d
+              'pitch p))
 
 #(define (make-note p d)
-  (make-music 'EventChord
-   'elements (list (make-note-req p d))))
+   (make-music 'EventChord
+              'elements (list (make-note-req p d))))
 
 #(define (seq-music-list elts)
-  (make-music 'SequentialMusic
-   'elements elts))
+   (make-music 'SequentialMusic
+              'elements elts))
 
 #(define (make-triplet elt)
-  (make-music 'TimeScaledMusic
-   'denominator 3
-   'numerator 2
-   'element elt))
-
+   (make-music 'TimeScaledMusic
+              'denominator 3
+              'numerator 2
+              '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))
-  ))))
+   "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))))))
 
 \new Staff {
   \time 5/4