From f1de260a690fd2f3dd3c80142287499da52534f9 Mon Sep 17 00:00:00 2001 From: Francisco Vila Date: Wed, 26 May 2010 17:40:28 +0200 Subject: [PATCH] Doc-es: update Fundamental and Tweaks. --- Documentation/es/learning/fundamental.itely | 8 +- Documentation/es/learning/tweaks.itely | 748 +++++++++++--------- 2 files changed, 422 insertions(+), 334 deletions(-) diff --git a/Documentation/es/learning/fundamental.itely b/Documentation/es/learning/fundamental.itely index 450456c650..40d4706c76 100644 --- a/Documentation/es/learning/fundamental.itely +++ b/Documentation/es/learning/fundamental.itely @@ -475,10 +475,10 @@ siguiente: r4 g8 g c4 c8 d | e4 r8 << - { f c c } + { f8 c c } \new Staff \with { - alignAboveContext = #"main" } - { f8 f c } + alignAboveContext = #"main" + } { f8 f c } >> r4 | } @@ -560,7 +560,7 @@ antes de una barra insertada manualmente, y acabar antes de que acabe la barra (algo que quizá no sea muy musical, pero es posible): @lilypond[quote,verbatim,fragment,ragged-right,relative=2] - { g8\( a b[ c b\) a] } + { g8\( a b[ c b\) a] g4 } @end lilypond En general, los distintos tipos de corchete, y los implicados en diff --git a/Documentation/es/learning/tweaks.itely b/Documentation/es/learning/tweaks.itely index 1271204bbc..051eaaafae 100644 --- a/Documentation/es/learning/tweaks.itely +++ b/Documentation/es/learning/tweaks.itely @@ -1,7 +1,7 @@ @c -*- coding: utf-8; mode: texinfo; documentlanguage: es -*- @ignore - Translation of GIT committish: ba9298b3ea614367f3f463134bf49ba2cbd8c1fb + Translation of GIT committish: 0a8cfef9d285775b5587218e57ffaa9bbf134359 When revising a translation, copy the HEAD committish of the version that you are working on. For details, see the Contributors' @@ -239,11 +239,11 @@ una cabeza: @cindex NoteHead, ejemplo de sobreescritura @lilypond[quote,fragment,ragged-right,verbatim,relative=1] -c d +c4 d \override NoteHead #'color = #red -e f g +e4 f | \override NoteHead #'color = #green -a b c +g4 a b c | @end lilypond @strong{La instrucción \revert} @@ -274,13 +274,13 @@ dos últimas notas: @cindex NoteHead, ejemplo de sobreescritura @lilypond[quote,fragment,ragged-right,verbatim,relative=1] -c d +c4 d \override NoteHead #'color = #red -e f g +e4 f | \override NoteHead #'color = #green -a +g4 a \revert NoteHead #'color -b c +b4 c | @end lilypond @strong{El prefijo \once} @@ -299,11 +299,11 @@ podemos cambiar el color de una sola nota de la siguiente manera: @cindex NoteHead, ejemplo de sobreescritura @lilypond[quote,fragment,ragged-right,verbatim,relative=1] -c d +c4 d \once \override NoteHead #'color = #red -e f g +e4 f | \once \override NoteHead #'color = #green -a b c +g4 a b c | @end lilypond @strong{La instrucción \overrideProperty} @@ -341,10 +341,10 @@ primer lugar, veamos lo que haría @code{\once \override}: @cindex NoteHead, ejemplo de sobreescritura @lilypond[quote,fragment,ragged-right,verbatim,relative=1] - 4 - \once \override NoteHead #'font-size = #-3 - - +4 +\once \override NoteHead #'font-size = #-3 +4 +4 @end lilypond Vemos que la sobreescritura con override afecta a @emph{todas} las @@ -372,8 +372,8 @@ se cambiaría de la siguiente forma: @cindex @code{\tweak}, ejemplo @lilypond[quote,fragment,ragged-right,verbatim,relative=1] - 4 - 4 +4 +4 @end lilypond Observe que la sintaxis de @code{\tweak} no es igual que la de @@ -394,9 +394,9 @@ sólo una de una serie de articulaciones, como se muestra aquí: @cindex @code{\tweak}, ejemplo @lilypond[quote,fragment,ragged-right,verbatim,relative=2] -a ^Black - -\tweak #'color #red ^Red - -\tweak #'color #green _Green +a4^"Black" + -\tweak #'color #red ^"Red" + -\tweak #'color #green _"Green" @end lilypond @noindent @@ -432,9 +432,9 @@ tresillo corto. \tweak #'direction #up \times 4/3 { \tweak #'color #red - \times 2/3 { c8[ c8 c8] } - \times 2/3 { c8[ c8 c8] } - \times 2/3 { c8[ c8 c8] } + \times 2/3 { c8[ c c] } + \times 2/3 { c8[ c c] } + \times 2/3 { c8[ c c] } } @end lilypond @@ -454,8 +454,8 @@ se puede modificar de la forma usual mediante instrucciones \once \override TupletNumber #'text = #tuplet-number::calc-fraction-text \times 2/3 { - c[ c] - c[ c] + c8[ c] + c8[ c] \once \override TupletNumber #'transparent = ##t \times 2/3 { c8[ c c] } \times 2/3 { c8[ c c] } @@ -518,16 +518,19 @@ con tan sólo algo de práctica. Utilicemos un ejemplo concreto con un sencillo fragmento de música real: +@c Mozart, dúo, núm. 7 de La Flauta Mágica + @lilypond[quote,verbatim,relative=2] { + \key es \major \time 6/8 { - r4 b8 b[( g]) g - g4[( e]) e d[( f]) a - a4 g + r4 bes8 bes[( g]) g | + g8[( es]) es d[( f]) as | + as8 g } \addlyrics { - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -616,16 +619,17 @@ cerca de ella.} Hagámoslo así: @lilypond[quote,verbatim,relative=2] { + \key es \major \time 6/8 { % Increase thickness of all following slurs from 1.2 to 5.0 \override Slur #'thickness = #5.0 - r4 b8 b[( g]) g - g4[( e]) e d[( f]) a - a4 g + r4 bes8 bes[( g]) g | + g8[( es]) es d[( f]) as | + as8 g } \addlyrics { - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -689,17 +693,18 @@ siguiente: @lilypond[quote,verbatim,relative=2] { + \key es \major \time 6/8 { - r4 b8 + r4 bes8 % Increase thickness of immediately following slur only \once \override Slur #'thickness = #5.0 - b4[( g]) g - g4[( e]) e d[( f]) a - a4 g + bes8[( g]) g | + g8[( es]) es d[( f]) as | + as8 g } \addlyrics { - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -729,19 +734,20 @@ ligaduras: @lilypond[quote,verbatim,relative=2] { + \key es \major \time 6/8 { - r4 b8 + r4 bes8 % Increase thickness of immediately following slur only \once \override Slur #'thickness = #5.0 - b4[( g]) g + bes[( g]) g | % Increase thickness of immediately following slur only \once \override Slur #'thickness = #5.0 - g4[( e]) e d[( f]) a - a4 g + g8[( es]) es d[( f]) as | + as8 g } \addlyrics { - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -757,20 +763,21 @@ segunda ligadura: @lilypond[quote,verbatim,relative=2] { + \key es \major \time 6/8 { - r4 b8 + r4 bes8 % Increase thickness of all following slurs from 1.2 to 5.0 \override Slur #'thickness = #5.0 - b4[( g]) g - g4[( e]) + bes[( g]) g | + g8[( es]) es % Revert thickness of all following slurs to default of 1.2 \revert Slur #'thickness - e4 d[( f]) a - a4 g + d8[( f]) as | + as8 g } \addlyrics { - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -879,15 +886,16 @@ de esta forma: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] { + \key es \major \time 6/8 { - r4 b8 b[( g]) g - g4[( e]) e d[( f]) a - a4 g + r4 bes8 bes[( g]) g | + g8[( es]) es d[( f]) as | + as8 g } \addlyrics { \override LyricText #'font-shape = #'italic - The man who feels love's sweet e -- mo -- tion + The man who | feels love's sweet e -- | mo -- tion } } @end lilypond @@ -1066,8 +1074,8 @@ antes, omitiendo el Contexto implícito, @code{Voice}: { \time 12/16 \override BarLine #'stencil = ##f - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1094,8 +1102,8 @@ intentar corregirlo escribiendo el contexto correcto: { \time 12/16 \override Staff.BarLine #'stencil = ##f - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1112,9 +1120,9 @@ que establece el sello a un objeto con tamaño nulo: @lilypond[quote,verbatim,relative=2] { - c c + c4 c \once \override NoteHead #'stencil = #point-stencil - c c + c4 c } @end lilypond @@ -1142,8 +1150,8 @@ en sí dentro de la instrucción @code{\override}. { \time 12/16 \override Staff.BarLine #'break-visibility = #'#(#f #f #f) - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1176,8 +1184,8 @@ a la indicación de compás es: { \time 12/16 \override Staff.TimeSignature #'transparent = ##t - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1197,8 +1205,8 @@ compás se debe establecer al valor @code{#f}: { \time 12/16 \override Staff.TimeSignature #'stencil = ##f - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1238,8 +1246,8 @@ poner las líneas divisorias de color blanco, escribimos: { \time 12/16 \override Staff.BarLine #'color = #white - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1270,8 +1278,8 @@ internos, @code{x11-color}, de la siguiente manera: { \time 12/16 \override Staff.BarLine #'color = #(x11-color 'white) - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1300,8 +1308,8 @@ valor debe ser @code{(rgb-color 1 0 0)} y para blanco debe ser { \time 12/16 \override Staff.BarLine #'color = #(rgb-color 1 1 1) - c4 b8 c d16 c d8 - g,8 a16 b8 c d4 e16 + c4 b8 c d16 c d8 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1331,7 +1339,7 @@ varias gradaciones de gris: \override Voice.Stem #'color = #(x11-color 'grey85) \override Staff.BarLine #'color = #(x11-color 'grey10) c4 b8 c d16 c d8 | - g, a16 b8 c d4 e16 | + g,8 a16 b8 c d4 e16 | e8 } @end lilypond @@ -1366,7 +1374,7 @@ pentagrama temporal, como en un @rglos{ossia}. @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \new Staff ="main" { \relative g' { - r4 g8 g c4 c8 d + r4 g8 g c4 c8 d | e4 r8 << { f8 c c } @@ -1374,7 +1382,7 @@ pentagrama temporal, como en un @rglos{ossia}. alignAboveContext = #"main" } { f8 f c } >> - r4 + r4 | } } @end lilypond @@ -1393,7 +1401,7 @@ el sello de cada uno de ellos a @code{#f}, como sigue: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \new Staff ="main" { \relative g' { - r4 g8 g c4 c8 d + r4 g8 g c4 c8 d | e4 r8 << { f8 c c } @@ -1406,7 +1414,7 @@ el sello de cada uno de ellos a @code{#f}, como sigue: { f8 f c } } >> - r4 + r4 | } } @end lilypond @@ -1456,7 +1464,7 @@ Así pues, podemos reemplazar el ejemplo anterior con @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \new Staff ="main" { \relative g' { - r4 g8 g c4 c8 d + r4 g8 g c4 c8 d | e4 r8 << { f8 c c } @@ -1469,7 +1477,7 @@ Así pues, podemos reemplazar el ejemplo anterior con } { f8 f c } >> - r4 + r4 | } } @end lilypond @@ -1526,7 +1534,7 @@ Vamos a probarlo en nuestro ejemplo del ossia: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \new Staff ="main" { \relative g' { - r4 g8 g c4 c8 d + r4 g8 g c4 c8 d | e4 r8 << { f8 c c } @@ -1539,7 +1547,7 @@ Vamos a probarlo en nuestro ejemplo del ossia: } { f8 f c } >> - r4 + r4 | } } @end lilypond @@ -1595,7 +1603,7 @@ siguiente forma: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \new Staff ="main" { \relative g' { - r4 g8 g c4 c8 d + r4 g8 g c4 c8 d | e4 r8 << { f8 c c } @@ -1609,7 +1617,7 @@ siguiente forma: } { f8 f c } >> - r4 + r4 | } } @end lilypond @@ -1708,9 +1716,9 @@ acomodado por debajo de @q{Text2}. @lilypond[quote,fragment,ragged-right,verbatim,relative=2] c2^"Text1" -c2^"Text2" +c2^"Text2" | c2^"Text3" -c2^"Text4" +c2^"Text4" | @end lilypond Los pentagramas también se posicionan, de forma predeterminada, tan @@ -1777,13 +1785,13 @@ comportamiento predeterminado. @cindex direction, propiedad, ejemplo @lilypond[quote,fragment,ragged-right,verbatim,relative=2] -a4 g c a +a4 g c a | \override Stem #'direction = #DOWN -a4 g c a +a4 g c a | \override Stem #'direction = #UP -a4 g c a +a4 g c a | \revert Stem #'direction -a4 g c a +a4 g c a | @end lilypond Aquí utilizamos las constantes @code{DOWN} (abajo) y @code{UP} @@ -1870,11 +1878,11 @@ siguiente el efecto de especificar @code{DOWN} y @code{UP}: @cindex direction, propiedad, ejemplo @lilypond[quote,verbatim,relative=2] -c-5 a-3 f-1 c'-5 +c4-5 a-3 f-1 c'-5 | \override Fingering #'direction = #DOWN -c-5 a-3 f-1 c'-5 +c4-5 a-3 f-1 c'-5 | \override Fingering #'direction = #UP -c-5 a-3 f-1 c'-5 +c4-5 a-3 f-1 c'-5 | @end lilypond Sin embargo, la sobreescritura de la propiedad @code{direction} no es @@ -1887,9 +1895,9 @@ Este es el ejemplo anterior utilizando este método: @cindex digitación, ejemplo @lilypond[quote,verbatim,relative=2] -c-5 a-3 f-1 c'-5 -c_5 a_3 f_1 c'_5 -c^5 a^3 f^1 c'^5 +c4-5 a-3 f-1 c'-5 | +c4_5 a_3 f_1 c'_5 | +c4^5 a^3 f^1 c'^5 | @end lilypond La propiedad @code{direction} se ignora para los acordes, pero los @@ -1901,9 +1909,9 @@ debajo de las notas de un acorde, como se muestra aquí: @cindex digitación, ejemplo @lilypond[quote,verbatim,relative=2] - - - +4 +4 +4 @end lilypond @noindent @@ -1914,9 +1922,9 @@ digitación estén por encima o por debajo: @cindex digitación, ejemplo @lilypond[quote,verbatim,relative=2] - - - +4 +4 +4 @end lilypond Es posible ejercer un control aún mayor sobre la colocación de las @@ -1956,19 +1964,19 @@ Aquí podemos ver algunos ejemplos: @lilypond[quote,fragment,ragged-right,verbatim,relative=1] \set fingeringOrientations = #'(left) - +4 4 \set fingeringOrientations = #'(left) - -4 +4 +4 | \set fingeringOrientations = #'(up left down) - +4 4 \set fingeringOrientations = #'(up left) - -4 +4 +4 | \set fingeringOrientations = #'(right) - +4 4 @end lilypond @@ -1981,19 +1989,19 @@ objeto @code{Fingering} del RFI que es @code{-5}, así que probaremos @lilypond[quote,fragment,ragged-right,verbatim,relative=1] \override Fingering #'font-size = #-7 \set fingeringOrientations = #'(left) - +4 4 \set fingeringOrientations = #'(left) - -4 +4 +4 | \set fingeringOrientations = #'(up left down) - +4 4 \set fingeringOrientations = #'(up left) - -4 +4 +4 | \set fingeringOrientations = #'(right) - +4 4 @end lilypond @@ -2085,13 +2093,13 @@ c'4 \startTextSpan c4\pp\< c4 % Add Text Script -c4^Text +c4^Text | c4 c % Add Dynamic Text and terminate hairpin -c4\ff c \stopTextSpan +c4\ff c \stopTextSpan | % Stop Ottava Bracket \ottava #0 -c,4 c c c +c,4 c c c | @end lilypond Este ejemplo también muestra cómo crear textos con extensión (Text @@ -2150,7 +2158,7 @@ recordando que @code{OttavaBracket} se crea dentro del contexto de = \markup { \small \bold Slower } % Place dynamics above staff \dynamicUp -%Place following Ottava Bracket below Text Spanners +% Place following Ottava Bracket below Text Spanners \once \override Staff.OttavaBracket #'outside-staff-priority = #340 % Start Ottava Bracket \ottava #1 @@ -2160,13 +2168,13 @@ c4\pp % Add Dynamic Line Spanner c4\< % Add Text Script -c4^Text +c4^Text | c4 c % Add Dynamic Text -c4\ff c \stopTextSpan +c4\ff c \stopTextSpan | % Stop Ottava Bracket \ottava #0 -c,4 c c c +c,4 c c c | @end lilypond @cindex ligaduras y outside-staff-priority @@ -2189,13 +2197,13 @@ fuera del pentagrama de acuerdo con este valor. He aquí un ejemplo que muestra el efecto de los dos métodos: @lilypond[quote,verbatim,relative=2] -c4( c^\markup { \tiny \sharp } d4.) c8 +c4( c^\markup { \tiny \sharp } d4.) c8 | c4( \once \override TextScript #'avoid-slur = #'inside \once \override TextScript #'outside-staff-priority = ##f -c4^\markup \tiny \sharp d4.) c8 +c4^\markup { \tiny \sharp } d4.) c8 | \once \override Slur #'outside-staff-priority = #500 -c4( c^\markup { \tiny \sharp } d4.) c8 +c4( c^\markup { \tiny \sharp } d4.) c8 | @end lilypond Los cambios en @code{outside-staff-priority} también se pueden emplear @@ -2212,10 +2220,10 @@ aumentar la prioridad de @qq{Text3} hasta un valor superior: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] c2^"Text1" -c2^"Text2" +c2^"Text2" | \once \override TextScript #'outside-staff-priority = #500 c2^"Text3" -c2^"Text4" +c2^"Text4" | @end lilypond Esto, ciertamente, eleva a @qq{Text3} por encima de @qq{Text4} pero @@ -2245,9 +2253,9 @@ sea necesario para acomodar el texto: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \textLengthOn % Cause notes to space out to accommodate text c2^"Text1" -c2^"Text2" +c2^"Text2" | c2^"Text3" -c2^"Text4" +c2^"Text4" | @end lilypond La instrucción para volver al comportamiento predeterminado es @@ -2268,23 +2276,23 @@ muestra cómo el texto de marcado interactúa con tales notas. @lilypond[quote,fragment,ragged-right,verbatim,relative=2] % This markup is short enough to fit without collision -c2^"Tex" -c''2 -R1 +c2^"Tex" c'' | +R1 | + % This is too long to fit, so it is displaced upwards -c,,2^"Text" -c''2 -R1 +c,,2^"Text" c'' | +R1 | + % Turn off collision avoidance \once \override TextScript #'outside-staff-priority = ##f -c,,2^"Long Text " -c''2 -R1 +c,,2^"Long Text " c'' | +R1 | + % Turn off collision avoidance \once \override TextScript #'outside-staff-priority = ##f -\textLengthOn % and turn on textLengthOn +\textLengthOn % and turn on textLengthOn c,,2^"Long Text " % Spaces at end are honored -c''2 +c''2 | @end lilypond @@ -2307,8 +2315,8 @@ aceptables, como muestra este ejemplo: \key aes \major \time 9/8 \dynamicUp -bes4.~\f\< \( bes4 bes8 des4\ff\> c16 bes\! -ees,2.~\)\mf ees4 r8 +bes4.~\f\< \( bes4 bes8 des4\ff\> c16 bes\! | +ees,2.~\)\mf ees4 r8 | @end lilypond Sin embargo, si las notas y sus indicaciones dinámicas adosadas están @@ -2375,7 +2383,7 @@ Veamos si funciona en nuestro ejemplo anterior: @lilypond[quote,fragment,ragged-right,verbatim,relative=2] \dynamicUp \override DynamicText #'extra-spacing-width = #'(0 . 0) -a4\f b\mf c\mp b\p +a4\f b\mf c\mp b\p | @end lilypond @noindent @@ -2702,11 +2710,11 @@ b2\fermata % This will not work, see below \override MetronomeMark #'padding = #3 \tempo 4=120 -c1 +c1 | % This works \override Score.MetronomeMark #'padding = #3 \tempo 4=80 -d1 +d1 | @end lilypond Observe en el segundo ejemplo la gran importancia que tiene saber qué @@ -2756,7 +2764,7 @@ sesquisharp = \markup { \sesquisharp } \once \override Accidental #'stencil = #ly:text-interface::print \once \override Accidental #'text = #sesquisharp - cis4 + cis4 | } @end lilypond @@ -2813,9 +2821,9 @@ de la nota «padre»: @lilypond[quote,fragment,ragged-right,verbatim,relative=3] \voiceOne -< a\2 > + \once \override StringNumber #'self-alignment-X = #RIGHT -< a\2 > + @end lilypond @subheading la propiedad staff-position (posición en el pentagrama) @@ -2921,8 +2929,7 @@ resuelve la forma algo indecente de la ligadura. @lilypond[quote,verbatim,fragment,ragged-right,relative=1] r4 \once \override PhrasingSlur #'positions = #'(-4 . -3) -\acciaccatura -e8\( d8 c~ c d c d\) +\acciaccatura e8\( d8 c~ c d c d\) @end lilypond Presentamos un ejemplo más extraído del comienzo del pentagrama de la @@ -2932,8 +2939,8 @@ choca con las notas superiores: @lilypond[quote,verbatim,fragment,ragged-right] { \clef "bass" - << { b,8 ais, b, g, } \\ { e, g e, g } >> - << { b,8 ais, b, g, } \\ { e, g e, g } >> + << { b,8 ais, b, g, } \\ { e,8 g e, g } >> + << { b,8 ais, b, g, } \\ { e,8 g e, g } >> } @end lilypond @@ -2954,7 +2961,7 @@ central hasta, digamos, 3 espacios: \\ { e,8 g e, g } >> - << { b,8 ais, b, g, } \\ { e, g e, g } >> + << { b,8 ais, b, g, } \\ { e,8 g e, g } >> } @end lilypond @@ -2973,14 +2980,16 @@ dejamos con este aspecto: \new Staff \relative c'' { \key aes \major << - { c2 aes4. bes8 } \\ - { aes2 f4 fes } \\ - { \voiceFour - 2 - des2 + { c2 aes4. bes8 } + \\ + { aes2 f4 fes } + \\ + { + \voiceFour + 2 des } - >> - 1 + >> | + 1 | } @end lilypond @@ -3004,16 +3013,19 @@ Presentamos a continuación el resultado final: \new Staff \relative c'' { \key aes \major << - { c2 aes4. bes8 } \\ - { aes2 f4 fes } \\ - { \voiceFour + { c2 aes4. bes8 } + \\ + { aes2 f4 fes } + \\ + { + \voiceFour \once \override NoteColumn #'force-hshift = #0 2 \once \override NoteColumn #'force-hshift = #0.5 des2 } - >> - 1 + >> | + 1 | } @end lilypond @@ -3042,10 +3054,9 @@ quitado las indicaciones dinámicas, las digitaciones y el pedal. @c line-width ensures no break @lilypond[quote,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 - c4.\( g8 + r2 c4.\( g8 | \once \override Tie #'staff-position = #3.5 - bes1~ + bes1~ | \bar "||" \time 6/4 \mergeDifferentlyHeadedOn @@ -3054,28 +3065,31 @@ rhMusic = \relative c'' { << { c,8 d fis bes a } \\ - % Reposition the c2 to the right of the merged note - { c,8~ \once \override NoteColumn #'force-hshift = #1.0 - % Move the c2 out of the main note column so the merge will work - \shiftOnn c2 } + { + % Reposition the c2 to the right of the merged note + c,8~ \once \override NoteColumn #'force-hshift = #1.0 + % Move the c2 out of the main note column so the merge will work + \shiftOnn c2 + } \\ - % Stem on the d2 must be down to permit merging - { s8 \stemDown + { + % Stem on the d2 must be down to permit merging + s8 \stemDown \once \override Stem #'transparent = ##t d2 } \\ { s4 fis4. } - >> + >> | \mergeDifferentlyHeadedOff \mergeDifferentlyDottedOff g2.\) } lhMusic = \relative c' { - r2 2( - 1)\arpeggio - r2. d,,4 r4 r + r2 2( | + 1)\arpeggio | + r2. d,,4 r4 r | r4 } @@ -3108,8 +3122,8 @@ bloque Score, y veremos qué produce LilyPond de forma predeterminada: @c line-width ensures no break @lilypond[quote,verbatim,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 c4. g8 - bes1~ + r2 c4. g8 | + bes1~ | \time 6/4 bes2. r8 % Start polyphonic section of four voices @@ -3121,14 +3135,14 @@ rhMusic = \relative c'' { { s8 d2 } \\ { s4 fis4. } - >> - g2. + >> | + g2. | } lhMusic = \relative c' { - r2 2 - 1 - r2. d,,4 r4 r + r2 2 | + 1 | + r2. d,,4 r4 r | r4 } @@ -3158,8 +3172,8 @@ Tutorial. Al hacerlo así obtenemos: @c line-width ensures no break @lilypond[quote,verbatim,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 c4.\( g8 - bes1~ + r2 c4.\( g8 | + bes1~ | \time 6/4 bes2. r8 % Start polyphonic section of four voices @@ -3171,14 +3185,14 @@ rhMusic = \relative c'' { { s8 d2 } \\ { s4 fis4. } - >> - g2.\) + >> | + g2.\) | } lhMusic = \relative c' { - r2 2( - 1) - r2. d,,4 r4 r + r2 2( | + 1) | + r2. d,,4 r4 r | r4 } @@ -3223,9 +3237,9 @@ Con esto se completa el compás dos, dando como resultado: @c line-width ensures no break @lilypond[quote,verbatim,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 c4.\( g8 + r2 c4.\( g8 | \once \override Tie #'staff-position = #3.5 - bes1~ + bes1~ | \bar "||" \time 6/4 bes2. r8 @@ -3238,14 +3252,14 @@ rhMusic = \relative c'' { { s8 d2 } \\ { s4 fis4. } - >> - g2.\) + >> | + g2.\) | } lhMusic = \relative c' { - r2 2( - 1)\arpeggio - r2. d,,4 r4 r + r2 2( | + 1)\arpeggio | + r2. d,,4 r4 r | r4 } @@ -3296,9 +3310,9 @@ al final, dando como resultado: @c line-width ensures no break @lilypond[quote,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 c4.\( g8 + r2 c4.\( g8 | \once \override Tie #'staff-position = #3.5 - bes1~ + bes1~ | \bar "||" \time 6/4 bes2.^\markup { \bold "Moderato" } r8 @@ -3313,16 +3327,16 @@ rhMusic = \relative c'' { { s8 d2 } \\ { s4 fis4. } - >> + >> | \mergeDifferentlyHeadedOff \mergeDifferentlyDottedOff - g2.\) + g2.\) | } lhMusic = \relative c' { - r2 2( - 1)\arpeggio - r2. d,,4 r4 r + r2 2( | + 1)\arpeggio | + r2. d,,4 r4 r | r4 } @@ -3363,9 +3377,9 @@ aplicar estos cambios obtenemos: @c line-width ensures no break @lilypond[quote,verbatim,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 c4.\( g8 + r2 c4.\( g8 | \once \override Tie #'staff-position = #3.5 - bes1~ + bes1~ | \bar "||" \time 6/4 bes2.^\markup { \bold "Moderato" } r8 @@ -3375,23 +3389,27 @@ rhMusic = \relative c'' { << { c,8 d fis bes a } \\ - % Move the c2 out of the main note column so the merge will work - { c,8~ \shiftOnn c2 } + { + % Move the c2 out of the main note column so the merge will work + c,8~ \shiftOnn c2 + } \\ - % Stem on the d2 must be down to permit merging - { s8 \stemDown d2 } + { + % Stem on the d2 must be down to permit merging + s8 \stemDown d2 + } \\ { s4 fis4. } - >> + >> | \mergeDifferentlyHeadedOff \mergeDifferentlyDottedOff - g2.\) + g2.\) | } lhMusic = \relative c' { - r2 2( - 1)\arpeggio - r2. d,,4 r4 r + r2 2( | + 1)\arpeggio | + r2. d,,4 r4 r | r4 } @@ -3425,10 +3443,9 @@ final: @c line-width ensures no break @lilypond[quote,verbatim,ragged-right,line-width=5.5\in] rhMusic = \relative c'' { - r2 - c4.\( g8 + r2 c4.\( g8 | \once \override Tie #'staff-position = #3.5 - bes1~ + bes1~ | \bar "||" \time 6/4 bes2.^\markup { \bold "Moderato" } r8 @@ -3437,28 +3454,31 @@ rhMusic = \relative c'' { << { c,8 d fis bes a } \\ - % Reposition the c2 to the right of the merged note - { c,8~ \once \override NoteColumn #'force-hshift = #1.0 - % Move the c2 out of the main note column so the merge will work - \shiftOnn c2 } + { + % Reposition the c2 to the right of the merged note + c,8~ \once \override NoteColumn #'force-hshift = #1.0 + % Move the c2 out of the main note column so the merge will work + \shiftOnn c2 + } \\ - % Stem on the d2 must be down to permit merging - { s8 \stemDown + { + % Stem on the d2 must be down to permit merging + s8 \stemDown \once \override Stem #'transparent = ##t d2 } \\ { s4 fis4. } - >> + >> | \mergeDifferentlyHeadedOff \mergeDifferentlyDottedOff - g2.\) + g2.\) | } lhMusic = \relative c' { - r2 2( - 1)\arpeggio - r2. d,,4 r4 r + r2 2( | + 1)\arpeggio | + r2. d,,4 r4 r | r4 } @@ -3513,9 +3533,7 @@ pueden conectar mediante ligaduras de unión dos notas que estén en la misma voz. Usando dos voces, con las notas ligadas en una de ellas: @lilypond[quote,fragment,relative=2] -<< { b8~ b8\noBeam } -\\ { b[ g8] } ->> +<< { b8~ b\noBeam } \\ { b8[ g] } >> @end lilypond @noindent @@ -3529,10 +3547,10 @@ de que la ligadura se cruza entre las voces: << { \once \override Stem #'transparent = ##t - b8~ b8\noBeam + b8~ b\noBeam } \\ - { b[ g8] } + { b8[ g] } >> @end lilypond @@ -3545,10 +3563,10 @@ valor de longitud @code{length} a @code{8}, { \once \override Stem #'transparent = ##t \once \override Stem #'length = #8 - b8~ b8\noBeam + b8~ b\noBeam } \\ - { b[ g8] } + { b8[ g] } >> @end lilypond @@ -3586,10 +3604,10 @@ los dos métodos: \once \override Score.MetronomeMark #'transparent = ##t % Invisible tempo marking to lengthen fermata in MIDI \tempo 4=80 - a4\fermata + a4\fermata | % New tempo for next section \tempo 4=100 - a4 a a a + a4 a a a | } \layout { } \midi { } @@ -3608,10 +3626,10 @@ los dos métodos: \once \override Score.MetronomeMark #'stencil = ##f % Invisible tempo marking to lengthen fermata in MIDI \tempo 4=80 - a4\fermata + a4\fermata | % New tempo for next section \tempo 4=100 - a4 a a a + a4 a a a | } \layout { } \midi { } @@ -3675,20 +3693,34 @@ emphasize = { \override Lyrics.LyricText #'font-shape = #'italic \override Lyrics.LyricText #'font-series = #'bold } + normal = { \revert Lyrics.LyricText #'font-shape \revert Lyrics.LyricText #'font-series } -global = { \time 4/4 \partial 4 \key c \major} -SopranoMusic = \relative c' { c4 | e4. e8 g4 g | a a g } -AltoMusic = \relative c' { c4 | c4. c8 e4 e | f f e } -TenorMusic = \relative c { e4 | g4. g8 c4. b8 | a8 b c d e4 } -BassMusic = \relative c { c4 | c4. c8 c4 c | f8 g a b c4 } -VerseOne = \lyrics { E -- | ter -- nal \emphasize Fa -- ther, \normal | strong to save, } -VerseTwo = \lyricmode { O | \emphasize Christ, \normal whose voice the | wa -- ters heard, } -VerseThree = \lyricmode { O | \emphasize Ho -- ly Spi -- rit, \normal | who didst brood } -VerseFour = \lyricmode { O | \emphasize Tri -- ni -- ty \normal of | love and pow'r } +global = { \key c \major \time 4/4 \partial 4 } + +SopranoMusic = \relative c' { c4 | e4. e8 g4 g | a4 a g } +AltoMusic = \relative c' { c4 | c4. c8 e4 e | f4 f e } +TenorMusic = \relative c { e4 | g4. g8 c4. b8 | a8 b c d e4 } +BassMusic = \relative c { c4 | c4. c8 c4 c | f8 g a b c4 } + +VerseOne = \lyrics { + E -- | ter -- nal \emphasize Fa -- ther, | \normal strong to save, +} + +VerseTwo = \lyricmode { + O | \emphasize Christ, \normal whose voice the | wa -- ters heard, +} + +VerseThree = \lyricmode { + O | \emphasize Ho -- ly Spi -- rit, | \normal who didst brood +} + +VerseFour = \lyricmode { + O | \emphasize Tri -- ni -- ty \normal of | love and pow'r +} \score { \new ChoirStaff << @@ -3727,22 +3759,29 @@ las partes que tienen todos los @code{#()}. Esto se explicará en @ref{Trucos avanzados con Scheme}. @lilypond[quote,verbatim,ragged-right] -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line(#:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) \relative c'' { \tempo 4=50 - a4.\mpdolce d8 cis4--\glissando a - b4 bes a2 + a4.\mpdolce d8 cis4--\glissando a | + b4 bes a2 | \inst "Clarinet" - cis4.\< d8 e4 fis - g8(\! fis)-. e( d)-. cis2 + cis4.\< d8 e4 fis | + g8(\! fis)-. e( d)-. cis2 | } @end lilypond @@ -3758,11 +3797,18 @@ esconder dentro de otro archivo: @example %%% guardar esto en un archivo de nombre "definiciones.ily" -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line(#:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) @@ -3792,27 +3838,32 @@ archivo como @file{"musica.ly"}). @end example @lilypond[quote,ragged-right] -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line(#:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) \relative c'' { \tempo 4=50 - a4.\mpdolce d8 cis4--\glissando a - b4 bes a2 + a4.\mpdolce d8 cis4--\glissando a | + b4 bes a2 | \inst "Clarinet" - cis4.\< d8 e4 fis - g8(\! fis)-. e( d)-. cis2 + cis4.\< d8 e4 fis | + g8(\! fis)-. e( d)-. cis2 | } @end lilypond - - Eso tiene mejor aspecto, pero haremos algunos cambios más. El glissando es difícil de ver, así que lo haremos más grueso y lo acercaremos a las cabezas de las notas. Pondremos la indicación metronómica encima de la clave, en lugar de ir encima de la primera @@ -3824,24 +3875,34 @@ Sustituyamos nuestro archivo @file{definiciones.ily} con éste: @example %%% definiciones.ily -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line( #:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) \layout@{ - \context @{ \Score + \context @{ + \Score \override MetronomeMark #'extra-offset = #'(-9 . 0) \override MetronomeMark #'padding = #'3 @} - \context @{ \Staff + \context @{ + \Staff \override TimeSignature #'style = #'numbered @} - \context @{ \Voice + \context @{ + \Voice \override Glissando #'thickness = #3 \override Glissando #'gap = #0.1 @} @@ -3849,24 +3910,34 @@ inst = #(define-music-function (parser location string) (string?) @end example @lilypond[quote,ragged-right] -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line( #:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) \layout{ - \context { \Score + \context { + \Score \override MetronomeMark #'extra-offset = #'(-9 . 0) \override MetronomeMark #'padding = #'3 } - \context { \Staff + \context { + \Staff \override TimeSignature #'style = #'numbered } - \context { \Voice + \context { + \Voice \override Glissando #'thickness = #3 \override Glissando #'gap = #0.1 } @@ -3874,11 +3945,11 @@ inst = #(define-music-function (parser location string) (string?) \relative c'' { \tempo 4=50 - a4.\mpdolce d8 cis4--\glissando a - b4 bes a2 + a4.\mpdolce d8 cis4--\glissando a | + b4 bes a2 | \inst "Clarinet" - cis4.\< d8 e4 fis - g8(\! fis)-. e( d)-. cis2 + cis4.\< d8 e4 fis | + g8(\! fis)-. e( d)-. cis2 | } @end lilypond @@ -3892,24 +3963,35 @@ tamaño general de la salida. @example %%% definiciones.ily -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line( #:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) #(set-global-staff-size 23) + \layout@{ - \context @{ \Score + \context @{ + \Score \override MetronomeMark #'extra-offset = #'(-9 . 0) \override MetronomeMark #'padding = #'3 @} - \context @{ \Staff + \context @{ + \Staff @} - \context @{ \Voice + \context @{ + \Voice \override Glissando #'thickness = #3 \override Glissando #'gap = #0.1 @} @@ -3917,16 +3999,24 @@ inst = #(define-music-function (parser location string) (string?) @end example @lilypond[quote,ragged-right] -mpdolce = #(make-dynamic-script (markup #:hspace 0 #:translate '(5 . 0) - #:line( #:dynamic "mp" #:text #:italic "dolce" ))) - -inst = #(define-music-function (parser location string) (string?) - (make-music +mpdolce = +#(make-dynamic-script + (markup #:hspace 0 + #:translate '(5 . 0) + #:line (#:dynamic "mp" + #:text #:italic "dolce"))) + +inst = +#(define-music-function + (parser location string) + (string?) + (make-music 'TextScriptEvent 'direction UP 'text (markup #:bold (#:box string)))) #(set-global-staff-size 23) + \layout{ \context { \Score \override MetronomeMark #'extra-offset = #'(-9 . 0) @@ -3940,11 +4030,11 @@ inst = #(define-music-function (parser location string) (string?) \relative c'' { \tempo 4=50 - a4.\mpdolce d8 cis4--\glissando a - b4 bes a2 + a4.\mpdolce d8 cis4--\glissando a | + b4 bes a2 | \inst "Clarinet" - cis4.\< d8 e4 fis - g8(\! fis)-. e( d)-. cis2 + cis4.\< d8 e4 fis | + g8(\! fis)-. e( d)-. cis2 | } @end lilypond @@ -3975,7 +4065,9 @@ estilo} para mis proyectos. Comienzo todos los archivos de música con @example %%% global.ily \version @w{"@version{}"} + #(ly:set-option 'point-and-click #f) + \include "../iniciar/iniciar-definiciones.ily" \include "../iniciar/iniciar-disposicion.ily" \include "../iniciar/iniciar-cabeceras.ily" @@ -4175,28 +4267,24 @@ notas un color que depende de su posición dentro del pentagrama. @lilypond[quote,verbatim,ragged-right] #(define (color-notehead grob) - "Color the notehead according to its position on the staff." - (let ((mod-position (modulo (ly:grob-property grob 'staff-position) 7))) - (case mod-position - ;; Return rainbow colors - ((1) (x11-color 'red )) ; for C - ((2) (x11-color 'orange )) ; for D - ((3) (x11-color 'yellow )) ; for E - ((4) (x11-color 'green )) ; for F - ((5) (x11-color 'blue )) ; for G - ((6) (x11-color 'purple )) ; for A - ((0) (x11-color 'violet )) ; for B - ) - ) -) + "Color the notehead according to its position on the staff." + (let ((mod-position (modulo (ly:grob-property grob 'staff-position) + 7))) + (case mod-position + ;; Return rainbow colors + ((1) (x11-color 'red )) ; for C + ((2) (x11-color 'orange )) ; for D + ((3) (x11-color 'yellow )) ; for E + ((4) (x11-color 'green )) ; for F + ((5) (x11-color 'blue )) ; for G + ((6) (x11-color 'purple )) ; for A + ((0) (x11-color 'violet )) ; for B + ))) \relative c' { % Arrange to obtain color from color-notehead procedure \override NoteHead #'color = #color-notehead - a2 b - c2 d - e2 f - g2 a + a2 b | c2 d | e2 f | g2 a | } @end lilypond -- 2.39.2