2015-02-14 14:48 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>:
> 2015-02-14 13:27 GMT+01:00 Rutger Hofman <rut...@cs.vu.nl>:
>> Good morning list,
>>
>> I would like to create cue notes with lyrics. I added lyric-event to the
>> Score.quotedCueEventTypes but that gave me no lyrics. How should I go about
>> this?
>>
>> Thanks,
>>
>> Rutger Hofman
>> Amsterdam
>>
>
> Hi,
>
> best I can currently think of is the code below.
> Though, there is a _big_ drawback with it: You have to specify the
> durations of the lyrics. Using \lyricsto will not work, as far as I
> can tell.
>
> \version "2.18.2"
>
> cueLyr =
> #(define-music-function
> (parser location what main-music) (string? ly:music?)
;; should read:
(_i "Insert contents of quote @var{what} corresponding to @var{main-music},
in CueLyrics.")
> (make-music 'QuoteMusic
> 'element main-music
> 'quoted-context-type 'CueLyrics
> 'quoted-context-id "cue-lyr"
> 'quoted-music-name what
> ))
>
> \layout {
> \context {
> \Score
> \accepts "CueLyrics"
> quotedCueEventTypes =
> #'(note-event rest-event tie-event
> beam-event tuplet-span-event
> dynamic-event slur-event lyric-event)
> }
> %% maybe other contexts have to accept "CueLyrics" as well!
> \context {
> \ChoirStaff
> \accepts "CueLyrics"
> }
> \context{
> \Lyrics
> \name CueLyrics
> \alias Lyrics
> fontSize = #-4
> }
> }
>
> oboeNotes = \relative c'' {
> c2 r8 d16\f f e g f a
> g8 g16 g g2.
> }
> \addQuote "oboe" { \oboeNotes }
>
> lyr = \lyricmode {
> xy2 \skip8
> a16 b c d e f g8 a16 h i
>
> }
> \addQuote "lyr" { \lyr }
>
>
> <<
> \new Staff \oboeNotes
> \new Lyrics \lyr
>
> \new Staff
> \new Voice
> \relative c'' {
> c2
> <<
> \cueDuring #"oboe" #UP { r2 }
> \cueLyr #"lyr" { r2 }
> >>
> g2 c,
> }
>>>
>
> HTH a bit,
> Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
