Align metronome mark at time signature or first musical element.

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

diff --git a/Documentation/snippets/creating-a-sequence-of-notes-on-various-pitches.ly b/Documentation/snippets/creating-a-sequence-of-notes-on-various-pitches.ly
index 26cea9dbbb172f69f4dba324c9bc00ac879ff8ab..fc9b3680ad8c5eff5b6b451f0e4906f1b4aea1dd 100644 (file)
--- a/Documentation/snippets/creating-a-sequence-of-notes-on-various-pitches.ly
+++ b/Documentation/snippets/creating-a-sequence-of-notes-on-various-pitches.ly
@@ -1,11 +1,12 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is automatically
+%% generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.13.1"
+\version "2.13.29"
 
 \header {
   lsrtags = "pitches"
 
-%% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
+%% Translation of GIT committish: 0b55335aeca1de539bf1125b717e0c21bb6fa31b
   texidoces = "
 En una música que tenga muchas apariciones de la
 misma secuencia de notas a distintas alturas, podría ser de
@@ -21,11 +22,10 @@ de Gustav Holst.
 
   texidoc = "
 In music that contains many occurrences of the same sequence of notes
-at different pitches, the following music function may prove useful. 
-It takes a note, of which only the pitch is used.  The supporting
-Scheme functions were borrowed from the \"Tips and tricks\" document in
-the manual for version 2.10.   This example creates the rhythm used
-throughout Mars, from Gustav Holst's The Planets. 
+at different pitches, the following music function may prove useful.
+It takes a note, of which only the pitch is used.   This example
+creates the rhythm used throughout Mars, from Gustav Holst's The
+Planets.
 
 "
   doctitle = "Creating a sequence of notes on various pitches"
@@ -40,10 +40,6 @@ throughout Mars, from Gustav Holst's The Planets.
    (make-music 'EventChord
               'elements (list (make-note-req p d))))
 
-#(define (seq-music-list elts)
-   (make-music 'SequentialMusic
-              'elements elts))
-
 #(define (make-triplet elt)
    (make-music 'TimeScaledMusic
               'denominator 3
@@ -56,9 +52,9 @@ rhythm =
    (let ((p (ly:music-property
              (car (ly:music-property note 'elements))
              'pitch)))
-     (seq-music-list
+     (make-sequential-music
       (list
-       (make-triplet (seq-music-list
+       (make-triplet (make-sequential-music
                       (list
                        (make-note p (ly:make-duration 3 0 2 3))
                        (make-note p (ly:make-duration 3 0 2 3))