User:Andy02124/sandbox/lilypond

Lilypond experiment

1923: The song 'Yes, We Have No Bananas' is published, and promptly faces a law suit from the American publishers of Handel's Messiah for allegedly taking the theme from the Hallelujah chorus. (March 23) https://www.independent.co.uk/arts-entertainment/happy-anniversary-hallelujah-we-have-no-bananas-1430601.html

https://archive.org/details/variety71-1923-06/page/n49/mode/1up article about Yes sales

Hallelujah, Bananas!

A. Yes! We Have No Bananas by Frank Silver and Irving Cohn, 1923. Public domain.
B. Alternate lyrics cobbled together by Sigmund Spaeth very soon thereafter.

$\layout { \context Lyrics { \override LyricText.font-size = -1 \override LyricHyphen.minimum-distance = #1.0 % \override VerticalAxisGroup.staff-affinity = ##f % \override VerticalAxisGroup.staff-staff-spacing = % #'((basic-distance . 0) % (minimum-distance . 2) % (padding . 2)) } } \new Staff << \new Voice = orig \relative c'' { \key c \major \time 2/2 \tempo 2 = 120 \set Staff.midiInstrument = "marimba" %"choir aahs" \set Score.tempoHideNote = ##t \language "english" c4 r r g | a4 g r f | e4 g2. ~ | g4 r r gs | a4 d r c | b4 a r b | c1 ~ | c4 r r g | a4 d r c | \phrasingSlurDotted af_$ d$ r c | g4_$ d'$ r c | g4_$ d'$ r c | fs,4 g r a | b2 b | b1 ~ | b4 << % split into two voices to handle differing scansion { \voiceOne % stems automatically up e,4 f \once \override NoteColumn.force-hshift = #-0.5 fs | g1 | a4 a2 g4 | g c2. ~ | c1 | c | d4 d2 c4 % we have an... } \new Voice = spaeth \relative c' { \voiceTwo % stems down \set Score.midiMaximumVolume = #0 % these aren't chords \tiny r4 e \once \override NoteColumn.force-hshift = #1 f | g2. a4 | a g2. % I was... \phrasingSlurDotted $g4 c2.$( | c2) c4 c \once \override NoteColumn.force-hshift = #-0.5 c1 | d2. c4 } \new Lyrics \with { \override LyricText.extra-offset = #'(0 . 2.8) \override LyricHyphen.extra-offset = #'(0 . 2.8) \override LyricExtender.extra-offset = #'(0 . 2.8) } \lyricsto spaeth { I was see -- ing Nel -- lie home, __ _ to an old fash -- ioned } >> % end split \oneVoice c4 a2. ~ | a2 g | c4 r r g | a g r f | e g2. ~ | g4 r r gs | a4 d r c | b4 a r b | c1 ~ | c4 r4 r2 \bar "|." } % end orig Voice \addlyrics { \set stanza = "A. " Yes! We have no ba -- na -- nas. __ We have no ba -- na -- nas to -- day. __ We've string beans and HON -- ions, cah -- BAH -- ges, and scal -- lions, and all kinds of fruit and say, __ we have an old -- fash -- ioned to -- MAH -- to, __ Long Is -- land po -- TAH -- to, __ but yes, we have no ba -- na -- nas, __ we have no ba -- na -- nas to -- day! __ } \addlyrics { \set stanza = "B. " %\set LyricExtender.extendersOverRests = ##f Ha -- le -- lu -- jah, Ba -- na -- nas! __ Oh, bring back my Bon -- nie to me. __ I dreamt that I dwelt __ _ in mar -- __ _ ble halls, __ _ the kind that you sel -- dom see. _ \repeat unfold 12 { \skip 1 } % skip over voiceTwo lyrics 12 gar -- den; __ but, Ha -- le -- lu -- jah, Ba -- na -- nas! __ Oh, bring back my Bon -- nie to me! __ } >>$

%=====================================================

With da capo

$\layout { line-width = #70 \context Lyrics { \override LyricHyphen.minimum-distance = #1.0 } } \new Staff << %this doesn't seem to have any effect \new Voice { \once \override Score.NonMusicalPaperColumn.line-break-system-details = #'((Y-offset . 0)) s1*4 \break \once \override Score.NonMusicalPaperColumn.line-break-system-details = #'((Y-offset . 140)) s1*3 \break s1*3 \break s1*2 \break s1*3 \break \once \override Score.NonMusicalPaperColumn.line-break-system-details = #'((Y-offset . 120)) s1*3 \break \once \override Score.NonMusicalPaperColumn.line-break-system-details = #'((Y-offset . 130)) s1*3 \break s1*4 \break } \new Voice = orig \relative c'' { \set Staff.midiInstrument = "marimba" %"choir aahs" \set Score.tempoHideNote = ##t \set Score.BarNumber = ##f \magnifyStaff #5/7 \tempo 2 = 120 \key c \major \time 2/2 \language "english" \repeat segno 2 { c4 r r g | a4 g r f | e4 g2. ~ | g4 r r gs | \break a4 d r c | b4 a r b | c1 ~ | } \alternative { { c4 r r g \bar "||" } { \once \override NoteHead.extra-spacing-width = #'(-2 . 2) c4 -\tweak control-points #'((-1.5 . 1) (-1 . 1) (0 . 2) (1 . 0)) ( <> ) r r2 \mark \markup \tiny "Fine" \bar "|." } } a4 d r c | \phrasingSlurDotted af$ d$ r c | g4$ d'$ r c | g4$ d'$ r c | fs,4 g r a | b2 b |b1 ~ | b4 << % split into two voices to handle differing scansion { \voiceOne % stems up e,4 f fs | g1 | a4 a2 g4 | g c2. ~ | c1 | c | d4 d2 c4 % we have an... } \new Voice = spaeth \relative c' { \voiceTwo % stems down \set Score.midiMaximumVolume = #0 % these aren't chords \teeny r4 e \once \override NoteColumn.force-hshift = #1 f | g2. a4 | a g2. % I was... \phrasingSlurDotted $g4 c2.$( | c2) c4 c \once \override NoteColumn.force-hshift = #-0.5 c1 | d2. c4 } \new Lyrics \with { % \override LyricText.extra-offset = #'(0 . 2.8) % \override LyricHyphen.extra-offset = #'(0 . 2.8) % \override LyricExtender.extra-offset = #'(0 . 2.8) %\override StanzaNumber.extra-offset = #'(0 . 2.8) } \lyricsto spaeth { \set fontSize = #-2 \override LyricText.extra-offset = #'(0 . 2.8) \override LyricHyphen.extra-offset = #'(0 . 2.8) I was see -- ing \override LyricText.extra-offset = #'(0 . 0) \override LyricHyphen.extra-offset = #'(0 . 0.2) Nel -- lie home, __ _ to an \override LyricText.extra-offset = #'(0 . 2.8) \override LyricHyphen.extra-offset = #'(0 . 3) old fash -- ioned } >> % end split \oneVoice c4 a2. ~ | a2 \mark \markup \tiny "D.C. al Fine" g \bar "||" } % end orig Voice \addlyrics { \set stanza = "A. " \set fontSize = #-2 Yes! We have no ba -- na -- nas. __ We have no ba -- na -- nas to -- day. __ We've \skip 1 string beans and HON -- ions, cah -- BAH -- ges, and scal -- lions, and all kinds of fruit and say, __ we have an old -- fash -- ioned to -- MAH -- to, __ Long Is -- land po -- TAH -- to, __ but } \addlyrics { \set stanza = "B. " \set fontSize = #-2 Ha -- le -- lu -- jah, Ba -- na -- nas! __ Oh, bring back my Bon -- nie to me. __ I \skip 1 dreamt that I dwelt __ _ in mar -- __ _ ble halls, __ _ the kind that you sel -- dom see \repeat unfold 11 { \skip 1 } % skip over voiceTwo lyrics gar -- den; __ but, } >>$

%===========================================