1 %% DO NOT EDIT this file manually; it is automatically
2 %% generated from LSR http://lsr.dsi.unimi.it
3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
4 %% and then run scripts/auxiliar/makelsr.py
6 %% This file is in the public domain.
12 %% Translation of GIT committish: 615cbf212fdaf0b220b3330da417d0c3602494f2
14 En una música que tenga muchas apariciones de la
15 misma secuencia de notas a distintas alturas, podría ser de
16 utilidad la siguiente función musical. Admite una nota, de la que
17 sólo se utiliza su altura. Las funciones de apoyo en Scheme se
18 han tomado prestadas del documento de \"Consejos y trucos\" de la
19 versión 2.10 del manual. Este ejemplo crea las duraciones
20 rítmicas que se usan a todo lo largo de «Marte», de «Los Planetas»
24 doctitlees = "Crear una secuencia de notas a distintas alturas"
27 In music that contains many occurrences of the same sequence of notes
28 at different pitches, the following music function may prove useful.
29 It takes a note, of which only the pitch is used. This example
30 creates the rhythm used throughout Mars, from Gustav Holst's The
34 doctitle = "Creating a sequence of notes on various pitches"
37 #(define (make-note-req p d)
38 (make-music 'NoteEvent
42 #(define (make-note p d)
43 (make-music 'EventChord
44 'elements (list (make-note-req p d))))
46 #(define (make-triplet elt)
47 (make-music 'TimeScaledMusic
53 #(define-music-function (parser location note) (ly:music?)
54 "Make the rhythm in Mars (the Planets) at the given note's pitch"
55 (let ((p (ly:music-property
56 (car (ly:music-property note 'elements))
58 (make-sequential-music
60 (make-triplet (make-sequential-music
62 (make-note p (ly:make-duration 3 0 2 3))
63 (make-note p (ly:make-duration 3 0 2 3))
64 (make-note p (ly:make-duration 3 0 2 3)))))
65 (make-note p (ly:make-duration 2 0))
66 (make-note p (ly:make-duration 2 0))
67 (make-note p (ly:make-duration 3 0))
68 (make-note p (ly:make-duration 3 0))
69 (make-note p (ly:make-duration 2 0))))))