X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fgenerating-random-notes.ly;h=32a79f668a9da0b17f360b18deef1d2628bae89b;hb=49f9b097ce73335f8a6b3436c43df1aed8a77288;hp=0c0ae4e2d3e8bbedffd6c96606ec4531a8162b66;hpb=ed2a457f2ca56742326701d789f7c65e891cc646;p=lilypond.git diff --git a/input/lsr/generating-random-notes.ly b/input/lsr/generating-random-notes.ly index 0c0ae4e2d3..32a79f668a 100644 --- a/input/lsr/generating-random-notes.ly +++ b/input/lsr/generating-random-notes.ly @@ -1,18 +1,32 @@ %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it %% This file is in the public domain. -%% Tags: pitches -\version "2.11.35" +\version "2.11.55" -\header { 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 +\header { + lsrtags = "pitches" + + 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 @@ -24,5 +38,5 @@ change this number. (remainder idx 7) 0)))))) (make-list 24))))) - } + } }