User:Andy02124/sandbox/lilypond
Appearance
< User:Andy02124 | sandbox
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!
[edit]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! __
}
>>](https://cdn.statically.io/img/upload.wikimedia.org/score/9/d/9dq3nz98n0hfqexywhxgwnci9wvlgqv/9dq3nz98.png)
%=====================================================
- 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,
}
>>](https://cdn.statically.io/img/upload.wikimedia.org/score/1/d/1doyv47isq3l6jwm9qmu5z488rn5dpt/1doyv47i.png)
%===========================================