<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- header_tag -->
<html lang="en">
<head>
<title>Doubling a note with slurs (example) - GNU LilyPond Notation Reference</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="description" content="GNU LilyPond Notation Reference">
<meta name="generator" content="makeinfo 4.11">
<link title="Top" rel="start" href="index.es.html#Top">
<link rel="up" href="Building-complicated-functions.es.html#Building-complicated-functions" title="Building complicated functions">
<link rel="prev" href="Music-properties.es.html#Music-properties" title="Music properties">
<link rel="next" href="Adding-articulation-to-notes-_0028example_0029.es.html#Adding-articulation-to-notes-_0028example_0029" title="Adding articulation to notes (example)">
<link href="http://www.gnu.org/software/texinfo/" rel="generator-home" title="Texinfo Homepage">
<!--
Copyright (C) 1999--2007 by the authors
Permission is granted to copy, distribute and/or modify this
document under the terms of the GNU Free Documentation License,
Version 1.1 or any later version published by the Free Software
Foundation; with no Invariant Sections. A copy of the license is
included in the section entitled ``GNU Free Documentation
License''.
-->
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css"><!--
pre.display { font-family:inherit }
pre.format { font-family:inherit }
pre.smalldisplay { font-family:inherit; font-size:smaller }
pre.smallformat { font-family:inherit; font-size:smaller }
pre.smallexample { font-size:smaller }
pre.smalllisp { font-size:smaller }
span.sc { font-variant:small-caps }
span.roman { font-family:serif; font-weight:normal; }
span.sansserif { font-family:sans-serif; font-weight:normal; }
hr { border:0; height:1; color: #000000; background-color: #000000; }
/* hr {
border: none;
height: 1px;
color: #666666;
background-color: #666666;
}
body {
border-left: 1px solid #666666;
border-right: 1px solid #666666;
color: #332d28;
margin-right: auto;
margin-left: auto;
width: 60em;
list-style-type: square;
font-family: Arial,Helvetica,sans-serif;
padding-right: 1em;
padding-left: 1em;
}
a {
border-bottom: 1px dashed #344242;
text-decoration: none;
color: #344242;
}
a:link {
text-decoration: none;
}
a:visited {
border-bottom: 1px dashed #666666;
color: #666666;
}
a:active {
border-bottom: 1px solid #00cccc;
color: #00cccc;
}
a:hover {
border-bottom: 1px solid #1d7b85;
color: #1d7b85;
}
blockquote {
border: 1px solid #cccccc;
padding: 3px;
width: 40em;
}
.node {
border-left: 1px solid #666666;
margin: -0.5em 0px 1em;
padding: 2px 1px 0px;
font-style: italic;
}
.node a {
border: none;
text-decoration: underline;
font-style: normal;
font-weight: bold;
}
.verbatim {
font-family: "Courier New",Courier,monospace;
}
.unnumberedsubsubsec {
font-size: large;
color: #1d7b85;
}
.subsubheading {
font-size: large;
color: #3b220d;
}
.contents {
border: 1px dashed #339999;
margin: 3px 2em;
list-style-type: square;
padding-right: 1em;
width: 40em;
background-color: #fcfff9;
}
.contents a {
border-bottom: 1px dashed #423d34;
text-decoration: none;
color: #423d34;
}
.contents a:visited {
border-bottom: 1px dashed #666666;
color: #666666;
}
.contents a:active {
border-bottom: 1px solid #f0d86d;
color: #f0d86d;
}
.contents a:hover {
border-bottom: 1px solid #3b220d;
color: #3b220d;
}
.menu {
border-left: 1px dashed #339999;
margin: 3px 2em 1em;
list-style-type: square;
padding-left: 1.4em;
width: 40em;
}
.unnumbered {
}
h2 {
font-size: x-large;
color: #1d7b85;
}
*/
--></style>
</head>
<BODY BGCOLOR=WHITE TEXT=BLACK>
<div class="node">
<p>
<a name="Doubling-a-note-with-slurs-(example)"></a>
<a name="Doubling-a-note-with-slurs-_0028example_0029"></a>
Next: <a rel="next" accesskey="n" href="Adding-articulation-to-notes-_0028example_0029.es.html#Adding-articulation-to-notes-_0028example_0029">Adding articulation to notes (example)</a>,
Previous: <a rel="previous" accesskey="p" href="Music-properties.es.html#Music-properties">Music properties</a>,
Up: <a rel="up" accesskey="u" href="Building-complicated-functions.es.html#Building-complicated-functions">Building complicated functions</a>
<hr>
</div>
<h4 class="subsection">6.3.3 Doubling a note with slurs (example)</h4>
<p>Suppose we want to create a function which translates
input like <code>a</code> into <code>a( a)</code>. We begin
by examining the internal representation of the music
we want to end up with.
<pre class="example">\displayMusic{ a'( a') }
===>
(make-music
'SequentialMusic
'elements
(list (make-music
'EventChord
'elements
(list (make-music
'NoteEvent
'duration
(ly:make-duration 2 0 1 1)
'pitch
(ly:make-pitch 0 5 0))
(make-music
'SlurEvent
'span-direction
-1)))
(make-music
'EventChord
'elements
(list (make-music
'NoteEvent
'duration
(ly:make-duration 2 0 1 1)
'pitch
(ly:make-pitch 0 5 0))
(make-music
'SlurEvent
'span-direction
1)))))
</pre>
<p>The bad news is that the <code>SlurEvent</code> expressions
must be added ‘inside’ the note (or more precisely,
inside the <code>EventChord</code> expression).
<p>Now we examine the input,
<pre class="example">(make-music
'SequentialMusic
'elements
(list (make-music
'EventChord
'elements
(list (make-music
'NoteEvent
'duration
(ly:make-duration 2 0 1 1)
'pitch
(ly:make-pitch 0 5 0))))))
</pre>
<p>So in our function, we need to clone this expression (so that we
have two notes to build the sequence), add <code>SlurEvents</code> to the
<code>'elements</code> property of each one, and finally make a
<code>SequentialMusic</code> with the two <code>EventChords</code>.
<pre class="example">doubleSlur = #(define-music-function (parser location note) (ly:music?)
"Return: { note ( note ) }.
`note' is supposed to be an EventChord."
(let ((note2 (ly:music-deep-copy note)))
(set! (ly:music-property note 'elements)
(cons (make-music 'SlurEvent 'span-direction -1)
(ly:music-property note 'elements)))
(set! (ly:music-property note2 'elements)
(cons (make-music 'SlurEvent 'span-direction 1)
(ly:music-property note2 'elements)))
(make-music 'SequentialMusic 'elements (list note note2))))
</pre>
<!-- footer_tag --><br><hr>
<div class="node">
<p>
<a name="Doubling-a-note-with-slurs-_0028example_0029"></a>
Next: <a rel="next" accesskey="n" href="Adding-articulation-to-notes-_0028example_0029.es.html#Adding-articulation-to-notes-_0028example_0029">Adding articulation to notes (example)</a>,
Previous: <a rel="previous" accesskey="p" href="Music-properties.es.html#Music-properties">Music properties</a>,
Up: <a rel="up" accesskey="u" href="Building-complicated-functions.es.html#Building-complicated-functions">Building complicated functions</a>
</div>
<div style="background-color: #e8ffe8; padding: 2; border: #c0ffc0 1px solid;">
<p>
<font size="-1">
Esta página corresponde a LilyPond-2.11.57 (rama de desarrollo).
<br>
<address>
Informe de los fallos a través de la lista en español <a href="http://es.groups.yahoo.com/group/lilypond-es/">lilypond-es</a>, o en inglés a través de <a href="http://post.gmane.org/post.php?group=gmane.comp.gnu.lilypond.bugs">http://post.gmane.org/post.php?group=gmane.comp.gnu.lilypond.bugs</a>. </address>
<br>
Se agradecen las <a href="http://lilypond.org/web/devel/participating/documentation-adding">sugerencias para la documentación</a>.
</font>
</p>
</div>
</BODY></html>
