A.3.4 Añadir articulaciones a las notas (ejemplo)
La manera fácil de añadir articulación a las notas es juxtaponer dos expresiones musicales. Sin embargo, supongamos que queremos escribir una función musical que lo haga.
Una $variable dentro de la notación #{…#} es
como una \variable normal en la notación clásica de
LilyPond. Podríamos escribir
{ \music -. -> }
pero a los efectos de este ejemplo, aprenderemos ahora cómo hacerlo en Scheme. Empezamos examinando nuestra entrada y la salida deseada.
% input
\displayMusic c4
===>
(make-music
'NoteEvent
'duration
(ly:make-duration 2 0 1/1)
'pitch
(ly:make-pitch -1 0 0))))
=====
% desired output
\displayMusic c4->
===>
(make-music
'NoteEvent
'articulations
(list (make-music
'ArticulationEvent
'articulation-type 'accent))
'duration
(ly:make-duration 2 0 1/1)
'pitch
(ly:make-pitch -1 0 0))
Vemos que una nota (c4) se representa como una expresión
NoteEvent. Para añadir una articulación de acento, se debe
añadir una expresión ArticulationEvent a la propiedad
articulations de la expresión NoteEvent.
Para construir esta función, empezamos con
(define (add-accent note-event)
"Add an accent ArticulationEvent to the articulations of `note-event',
which is supposed to be a NoteEvent expression."
(set! (ly:music-property note-event 'articulations)
(cons (make-music 'ArticulationEvent
'articulation-type 'accent)
(ly:music-property note-event 'articulations)))
note-event)
La primera línea es la forma de definir una función en Scheme: el
nombre de la función es add-accent, y tiene una variable
llamada note-event. En Scheme, el tipo de variable suele
quedar claro a partir de su nombre (¡esto también es una buena
práctica en otros lenguajes de programación!)
"Add an accent…"
es una descripción de lo que hace la función. No es estrictamente necesaria, pero de igual forma que los nombres claros de variable, es una buena práctica.
Se preguntará por qué modificamos el evento de nota directamente
en lugar de trabajar sobre una copia (se puede usar
ly:music-deep-copy para ello). La razón es un contrato
silencioso: se permite que las funciones musicales modifiquen sus
argumentos; o bien se generan partiendo de cero (como la entrada
del usuario) o están ya copiadas (referenciar una variable de
música con ‘\name’ o la música procedente de expresiones de
Scheme inmediatas ‘$(…)’ proporcionan una copia). Dado
que sería ineficiente crear copias innecesarias, el valor devuelto
de una función musical no se copia. Así pues, para cumplir
dicho contrato, no debemos usar ningún argumento más de una vez, y
devolverlo cuenta como una vez.
En un ejemplo anterior, hemos construido música mediante la
repetición de un argumento musical dado. En tal caso, al menos
una repetidión tuvo que ser una copia de sí misma. Si no lo
fuese, podrían ocurrir cosas muy extrañas. Por ejemplo, si usamos
\relative o \transpose sobre la música resultante
que contiene los mismos elementos varias veces, estarían sujetos
varias veces a la relativización o al transporte. Si los
asignamos a una variable de música, se rompe el curso porque hacer
referencia a ‘\name’ creará de nuevo una copia que no retiene
la identidad de los elementos repetidos.
Ahora bien, aun cuando la función anterior no es una función
musical, se usará normalmente dentro de funciones musicales. Así
pues, tiene sentido obedecer el mismo convenio que usamos para las
funciones musicales: la entrada puede modificarse para producir la
salida, y el código que llama es responsable de crear las copias
si aún necesita el propio argumento sin modificar. Si observamos
las propias funciones de LilyPond como music-map, veremos
que se atienen a los mismos principios.
¿En qué punto nos encontramos? Ahora tenemos un note-event
que podemos modificar, no a causa de la utilización de
ly:music-deep-copy sino por una explicación muy
desarrollada. Añadimos el acento a su propiedad de lista
'articulations.
(set! place new-value)
Aquí, lo que queremos establecer (el ‘place’) es la propiedad
'articulations de la expresión note-event.
(ly:music-property note-event 'articulations)
ly:music-property es la función ustilizada para acceder a las
propiedades musicales (las 'articulations, 'duration,
'pitch, etc, que vemos arriba en la salida de
\displayMusic). El nuevo valor es la antigua propiedad
'articulations, con un elemento adicional: la expresión
ArticulationEvent, que copiamos a partir de la salida de
\displayMusic,
(cons (make-music 'ArticulationEvent
'articulation-type 'accent)
(ly:music-property result-event-chord 'articulations))
Se usa cons para añadir un elemento a la parte delantera de
una lista sin modificar la lista original. Esto es lo que
queremos: la misma lista de antes, más la nueva expresión
ArticulationEvent. El orden dentro de la propiedad
'articulations no tiene importancia aquí.
Finalmente, una vez hemos añadido la articulación de acento a su
propiedad articulations, podemos devolver
note-event, de aquí la última línea de la función.
Ahora transformamos la función add-accent en una función
musical (es cuestión de un poco de aderezo sintáctico y una
declaración del tipo de su argumento).
addAccent = #(define-music-function (note-event)
(ly:music?)
"Add an accent ArticulationEvent to the articulations of `note-event',
which is supposed to be a NoteEvent expression."
(set! (ly:music-property note-event 'articulations)
(cons (make-music 'ArticulationEvent
'articulation-type 'accent)
(ly:music-property note-event 'articulations)))
note-event)
A continuación verificamos que esta función musical funciona correctamente:
\displayMusic \addAccent c4