Documentation/snippets/adding-orchestral-cues-to-a-vocal-score.ly

   1 % Do not edit this file; it is automatically
   2 % generated from Documentation/snippets/new
   3 % This file is in the public domain.
   4 %% Note: this file works from version 2.13.34
   5 \version "2.13.36"
   6
   7 \header {
   8 %% Translation of GIT committish: 5a7301fc350ffc3ab5bd3a2084c91666c9e9a549
   9
  10   texidoces = "
  11    Este ejemplo muestra una forma de simplificar la adición de muchas
  12 notas guía orquestales a la reducción de piano en una partitura vocal.
  13 La función musical @code{\\cueWhile} toma cuatro argumentos: la música
  14 de la que se toma la cita, como viene definida por @code{\\addQuote},
  15 el nombre que insertar antes de las notas guía, y después @code{#UP} o
  16 @code{#DOWN} para especificar @code{\\voiceOne} con el nombre encima
  17 del pentagrama o bien @code{\\voiceTwo} con el nombre debajo del
  18 pentagrama, y finalmente la música de piano con la que las notas guía
  19 deben aparecer en paralelo.  El nombre del instrumento citado se
  20 posiciona a la izquierda de las notas guía.  Se pueden citar muchos
  21 pasajes como guía, pero no se pueden superponer en el tiempo entre
  22 ellos.
  23
  24 "
  25
  26  doctitlees = "Añadir notas guía orquestales a una partitura vocal"
  27
  28
  29
  30
  31   lsrtags="vocal-music, staff-notation"
  32   texidoc="
  33   This shows one approach to simplify adding many orchestral cues to
  34 the piano reduction in a vocal score.  The music function
  35 @code{\\cueWhile} takes four arguments: the music from which the cue
  36 is to be taken, as defined by @code{\\addQuote}, the name to be
  37 inserted before the cue notes, then either @code{#UP} or @code{#DOWN}
  38 to specify either @code{\\voiceOne} with the name above the staff or
  39 @code{\\voiceTwo} with the name below the staff, and finally the piano
  40 music in parallel with which the cue notes are to appear.  The name
  41 of the quoted instrument is positioned to the left of the cue notes.
  42 Many passages can be cued, but they cannot overlap each other in time.
  43 "
  44   doctitle = "Adding orchestral cues to a vocal score"
  45 } % begin verbatim
  46
  47
  48 cueWhile =
  49   #(define-music-function
  50     (parser location instrument name dir music)
  51     (string? string? ly:dir? ly:music?)
  52     #{
  53       \cueDuring $instrument #$dir {
  54         \once \override TextScript #'self-alignment-X = #RIGHT
  55         \once \override TextScript #'direction = $dir
  56         s1*0-\markup { \tiny $name }
  57         $music
  58       }
  59     #}
  60   )
  61
  62 flute = \relative c'' {
  63   \transposition c'
  64   s4 s4 e g
  65 }
  66 \addQuote "flute" { \flute }
  67
  68 clarinet = \relative c' {
  69   \transposition bes
  70   fis4 d d c
  71 }
  72 \addQuote "clarinet" { \clarinet }
  73
  74 singer = \relative c'' { c4. g8 g4 bes4 }
  75 words = \lyricmode { here's the lyr -- ics }
  76
  77 pianoRH = \relative c'' {
  78   \transposition c'
  79   \cueWhile "clarinet" "Clar." #DOWN { c4. g8 }
  80   \cueWhile "flute" "Flute" #UP { g4 bes4 }
  81 }
  82 pianoLH = \relative c { c4 <c' e> e, <g c> }
  83
  84 \score {
  85   <<
  86     \new Staff {
  87       \new Voice = "singer" {
  88         \singer
  89       }
  90     }
  91     \new Lyrics {
  92       \lyricsto "singer"
  93       \words
  94     }
  95     \new PianoStaff <<
  96       \new Staff {
  97         \new Voice {
  98           \pianoRH
  99         }
 100       }
 101       \new Staff {
 102         \clef "bass"
 103         \pianoLH
 104       }
 105     >>
 106   >>
 107 }