Merge branch 'master' of git://git.savannah.gnu.org/lilypond.git

[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 3667374650724ade427ef09d7a53b29c773dd1ce..63b038ca8fd7205a05b4380caf5da9981a7a210e 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,15 @@
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% DO NOT EDIT this file manually; it is automatically
+%% generated from LSR http://lsr.dsi.unimi.it
+%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
+%% and then run scripts/auxiliar/makelsr.py
+%%
 %% This file is in the public domain.
-\version "2.13.1"
+\version "2.14.0"
 
 \header {
   lsrtags = "pitches"
 
-%% Translation of GIT committish: 48f804da6794a7bc8e7fdd4b1649f485b0b09d26
+%% Translation of GIT committish: 70f5f30161f7b804a681cd080274bfcdc9f4fe8c
   texidoces = "
 En una música que tenga muchas apariciones de la
 misma secuencia de notas a distintas alturas, podría ser de
@@ -21,11 +25,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 +43,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 +55,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))