X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fgenerating-random-notes.ly;h=f199ef159832112c84382749c459162e1a79cffd;hb=95169ee96cc067978db9e8c99b58d9a9a640da38;hp=54720e2eabb7ded7780f893a3054885e4259bb0f;hpb=a0b2e9cf56fadc0c2c4f23d0e3aa34ba7eaaa0ae;p=lilypond.git diff --git a/input/lsr/generating-random-notes.ly b/input/lsr/generating-random-notes.ly index 54720e2eab..f199ef1598 100644 --- a/input/lsr/generating-random-notes.ly +++ b/input/lsr/generating-random-notes.ly @@ -1,19 +1,33 @@ %% 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" +\version "2.12.0" \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 + + texidoces = " +Este fragmento de código basado en Scheme genera +24 notas aleatorias (o tantas como se necesiten), basándose en la +hora actual (o en cualquier número pseudo-aleatorio que se +especifique en su lugar, para obtener las mismas notas aleatorias +cada vez): es decir, para obtener distintos patrones de notas, +sólo tiene que modificar este número. + +" + doctitlees = "Generación de notas aleatorias" + + texidoc = " +This Scheme-based snippet generates 24 random notes (or as many as +required), based on the current time (or any randomish number specified +instead, in order to obtain the same random notes each time): i.e., to +get different random note patterns, just change this number. + +" + doctitle = "Generating random notes" +} % begin verbatim + \score { -{ #(let ((random-state (seed->random-state (current-time)))) + { #(let ((random-state (seed->random-state (current-time)))) (ly:export (make-music 'SequentialMusic 'elements (map (lambda x @@ -25,5 +39,5 @@ change this number. (remainder idx 7) 0)))))) (make-list 24))))) - } + } }