Valentin Villenave wrote:
this is simply awesome! I just added it to the LSR, as other users
might be interested.
Okie.
Though, I would like somebody with rights to change the LSR (cc Graham)
to replace the "randomish number" with (current-time) - so that the
snippet reads
\version "2.10.0"
\score {
{ #(let ((random-state (seed->random-state (current-time))))
(ly:export
(make-music 'SequentialMusic 'elements
(map (lambda x
(let ((idx (random 12 random-state)))
(make-music 'EventChord
'elements (list (make-music 'NoteEvent
'duration (ly:make-duration 2 0 1 1)
'pitch (ly:make-pitch (quotient idx 7)
(remainder idx 7)
0))))))
(make-list 256)))))
}
}
This way you get a different result each time you run lilypond. A bit
more illustrative :+)
-Rune
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
