Jump to content

User:Andy02124/sandbox/lilypond

From Wikipedia, the free encyclopedia

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! __ 
    }
  >>

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

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,
    }
  >>

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