Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / input / lsr / generating-random-notes.ly

diff --git a/input/lsr/generating-random-notes.ly b/input/lsr/generating-random-notes.ly
index c8e8d1eb584724517fe67fd1aef85bb760700971..54720e2eabb7ded7780f893a3054885e4259bb0f 100644 (file)
--- a/input/lsr/generating-random-notes.ly
+++ b/input/lsr/generating-random-notes.ly
@@ -1,15 +1,17 @@
-%% Do not edit this file; it is auto-generated from LSR!
-%% Tags: pitches
-\version "2.11.35"
+%% 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.38"
 
-\header { texidoc = "
-This Scheme-based snippet allows you to generate 32 random notes (or as
+\header {
+  lsrtags = "pitches"
+ texidoc = "
+This Scheme-based snippet allows you to generate 24 random notes (or as
 many as you want), based on the current time (or any randomish number
 you might wish to specify instead, so you can obtain the same random
 notes each time): i.e. to get different random notes patterns, just
 change this number.
 " }
-
+% begin verbatim
 \score {
 { #(let ((random-state (seed->random-state (current-time))))
     (ly:export
@@ -22,6 +24,6 @@ change this number.
                               'pitch (ly:make-pitch (quotient idx 7)
                                       (remainder idx 7)
                                       0))))))
-       (make-list 32)))))
+       (make-list 24)))))
    }
 }