File:Greensleeves4Accordion.gif

\version "2.18.2"
\language "deutsch"

\layout {

  ragged-last = ##f

  \context {
    \Staff
    \omit ClefModifier
    \override TimeSignature #'break-visibility = #end-of-line-invisible
    \override Clef #'break-visibility = #begin-of-line-visible
    %#(override-auto-beam-setting '(end 1 8 * *) 2 8)
    %\override Score.BreathingSign #'Y-offset = #3
  }
  \context{
    \Voice
    %\override BreathingSign #'text =
    %\markup { \musicglyph #"scripts.rvarcomma" }
    \override BreathingSign.stencil = #ly:breathing-sign::divisio-minima
    %\override BreathingSign #'Y-offset = #-1
    \override BreathingSign.extra-offset = #'(-4 . 0)
  }

  \context {
    \Score
    \remove "Bar_number_engraver"
    \override Score.BarNumber.break-visibility = #'#(#f #f #f)

  }
}

\header {
  title = "Greensleeves"
  composer = "Worte und Weise: 16. Jh."
  subtitle = "for Accordion"
}

% Die einzelnen Zeichenketten für eine spezielle Fußzeile
FootLeft = #(string-append " " )
FootRight = #(string-append " " )
FootCenter = #(string-append "gesetzt mit Lilypond 2.18 und Stradella Toolbox stradella-toolbox--1.2.ly ")


\paper {
  #(set-paper-size "a4")
  page-count = #1
  oddFooterMarkup = \markup \fill-line {
    \abs-fontsize #6.5 { \FootLeft }
    \abs-fontsize #6.0 { \italic { \FootCenter } }
    \abs-fontsize #6.5 { \FootRight }
  }
}

\include "stradella-toolbox--1.2.ly"
% download here www.lilypondforum.de/index.php?topic=1158.0

\enableStradellaTweakShortnames

AkkDiskant = \relative c' {
  \clef treble
  \key e \minor
  \time 6/8
  \autoBeamOff % bei Bedarf Ausschalten der automatischen Balkensetzung, dann das Kommentarzeichen entfernen
  \partial 8
  e8
  g4 a8 h8.[ c16] h8
  a4 fis8 d8.[ e16] fis8
  g4 e8 e8.[ dis16] e8
  fis4 dis8 h4 \breathe e8
  g4 a8 h8.[ c16] h8
  a4 fis8 d8.[ e16]
  fis8 g4 fis8 dis8.[ cis16] dis8
  e4 e8 e4 r8 \bar "||" \break
  d'4.^\markup { \italic "Chorus (Refrain)"}
  d8.[ cis16] h8 a4
  fis8 d8.[ e16 fis8]
  g4( e8) e8.[ dis16] e8
  fis4 dis8 h4.
  d'4. d8. cis16 h8
  a4 fis8 d8.[  e16]  fis8
  g8.
  fis16 e8 dis8.[ cis16] dis8
  e4. e4.
  \bar "|."
}

% Nicht relativ! sondern absolut notieren
% X, = Basston, X,, = Terzbaßton, X = Dur, X' = Moll, X'' = Septakkord, X''' = verminderter
AkkBass = \stradellaMode {
  \clef bass
  \key e \minor
  \partial 8
  %möglicherweise ein Fehler in der Toolbox
  %Pausen oder Skips verschieben die Akkordbezeichnungen
  \once \override Stem.stencil = ##f
  \once \override Stem.length = #0.0
  \once \override Beam.stencil = ##f
  \once \override Flag.stencil = ##f
  \once \override Script.stencil = ##f
  \once \override NoteHead.transparent = ##t
  \once \override TextScript.transparent = ##t
  g,8

  e, e' e' g, e' e'
  d, d d a, d d
  e, e' e' h, e' e'
  h, h'' h'' fis,[ h''8]
  %möglicherweise ein Fehler in der Toolbox
  %Pausen oder Skips verschieben die Akkordbezeichnungen
  \once \override Stem.stencil = ##f
  \once \override Stem.length = #0.0
  \once \override Beam.stencil = ##f
  \once \override Flag.stencil = ##f
  \once \override Script.stencil = ##f
  \once \override NoteHead.transparent = ##t
  \once \override TextScript.transparent = ##t
  g,8
  e,8 e' e' h, e' e'
  d, d d a, d d
  e, e' e' h, h'' h''
  e, e' e' e'4.
  g,8 g g g, g g
  d, d d a, d d
  e, e' e' h, e' e'
  h, h'' h'' <h, h''>4.
  g,8 g g g, g g
  d, d d a, d d
  e, e' e' h, h'' h''
  <e, e'>4. q
}

% hier kommt die 1. Strophe
StropheI = \lyricmode {
  %\override LyricText  #'font-series = #'bold
  \set stanza = #"1. "
  A -- las, my love, __
  you do me wrong __
  to cast me off __
  dis -- cour -- teous -- ly,
  and I have lov -- ed you so long, __
  de -- light -- ing in __ your com -- pa -- ny.
  Green -- sleeves __ was all my joy; __
  Green __ sleeves __ was my de -- light,
  Green -- sleeves was my heart of gold, __
  and who but my La __ dy Green -- sleeves.
}

\score {
  <<
    \new Lyrics = "LyrI" \with {
      % \override VerticalAxisGroup #'staff-affinity = #DOWN
    }
    \new PianoStaff <<
      \set PianoStaff.instrumentName = #""
      \set PianoStaff.shortInstrumentName = #""
      \new Staff = "Diskant" {
        \new Voice = "Melodie" { \AkkDiskant }

      }
      \new Lyrics \lyricsto "Melodie" { \StropheI }
      % \new Lyrics \lyricsto "Melodie" { \StropheII }
      \new Staff = "Bass" {
        \stradellaSpread es ##t #-2/12 ##t #'() % Chromatic with two semitones gap, expand the chords, no additional options
        \stradellaChordify
        \AkkBass
      }

      \new Staff = "Stradella" \with {
        \remove "Clef_engraver"
        \remove "Time_signature_engraver"
        \remove "Bar_engraver"
        \remove "Key_engraver"
        \remove "Accidental_engraver"
        \remove "Breathing_sign_engraver"
        \remove "Cue_clef_engraver"
        \remove "Dynamic_engraver"
        \remove "Ledger_line_engraver"
        \override Stem.stencil = ##f
        \override Stem.length = #0.0
        \override Beam.stencil = ##f
        \override Flag.stencil = ##f
        \override Script.stencil = ##f
        \override Rest.stencil = ##f
        \override Dots.stencil = ##f
        \override TupletNumber.stencil = ##f
        \override TupletBracket.stencil = ##f
        \override NoteHead.Y-offset = #0.0
        \override NoteHead.font-size = #-60.0  
        \override NoteHead.transparent = ##t   
        \override StaffSymbol.line-count = #1
        \override StaffSymbol.staff-space = #0
      } {
        \new Voice = "StradellaVoice" {
          \stopStaff 
          \override Staff.StaffSymbol #'after-line-breaking = #(stradella-cleanup 0)
          \stradellaStaticTextify #UP #UP #0 "german"
          \stradellaStaticTextify #DOWN #UP #0 "german"
          \stradellaReduceForTextOnly
          \stradellaChordify
          \AkkBass
        }
      }
    >>

  >>

}