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