% Reli-Beamer: 1280 x 800 % PDFXch Export: GIF 4Bpp, No, No *** 150 dpi *** 90,3 % \version "2.19.30" \include "--- Beamer-Def.ily" % ----- für Beamer-Version (1) % \include "--- Print-Def.ily" % ----- für Druck-Version (2) % neueSeite = {} % falls die Seitenwechsel in der Druck-Version stören vereinfachen = ##f % Druck-Version vereinfachen wie vorbereitet? % ==================================================== TitelStr = "Geh aus, mein Herz, und suche Freud" % ==================================================== #(if (= VersionIndicator 1) (define Ueberschrift (markup #:titleFormat TitelStr)) (define UeberschriftPapier (markup #:titleFormat TitelStr))) Zielton = c global = { \key d \major \time 2/2 \numericTimeSignature % \set Timing.beamExceptions = #'() % \set Timing.baseMoment = #(ly:make-moment 1 4) % \set Timing.beatStructure = #'(1 1 1 1) \partial 4 } MelodieStrophe = \relative c'' { \global \dynamicUp % Die Noten folgen hier. \custom-mark "Strophe" a4 a4. g8 fis4 fis fis8( g) fis( e) d4 \breathe a' d4 cis8( b) a4 fis \brBeam e8( fis) g( a) fis4 \breathe fis e4. a8 cis8( b) a( gis) b2 a4 \breathe a, g'4. fis8 e4 e a8( b) a( g) fis4 \breathe a, g'4. fis8 e4 e a8( b) a( g) fis4 \breathe fis8( g) a4 fis8( g) a4 fis8( g) a2 fis4 \breathe a d4. b8 a8( g) fis( e) e2 d4 \bar "||" } TextStropheI = \lyricmode { % Liedtext folgt hier. \set stanza = "1." Geh aus mein Herz und su -- che Freud in die -- ser lie -- ben Som -- mer -- zeit an dei -- nes Got -- tes Ga -- ben; schau an der schö -- nen Gär -- ten Zier und sie -- he, wie sie mir und dir sich aus -- ge -- schmü -- cket ha -- ben, sich aus -- ge -- schmü -- cket ha -- ben. } TextStropheIII = \lyricmode { % Liedtext folgt hier. \set stanza = "3." Die Ler -- che schwingt sich in die Luft, das Täub -- lein fliegt aus sei -- ner Kluft und macht sich in die Wäl -- der; die hoch -- be -- gab -- te Nach -- ti -- gall er -- götzt und füllt mit ih -- rem Schall Berg, Hü -- gel, Tal und Fel -- der, Berg, Hü -- gel, Tal und Fel -- der. } TextStropheVIII = \lyricmode { % Liedtext folgt hier. \set stanza = "8." Ich sel -- ber kann und mag nicht ruhn, des gro -- ßen Got -- tes gro -- ßes Tun er -- weckt mir al -- le Sin -- nen; ich sin -- ge mit, wenn al -- les singt und las -- se, was dem Höch -- sten klingt, aus mei -- nem Her -- zen rin -- nen, aus mei -- nem Her -- zen rin -- nen. } TextStropheVIIII = \lyricmode { % Liedtext folgt hier. \set stanza = "9." Hilf mir und seg -- ne mei -- nen Geist mit Se -- gen, der vom Him -- mel fleußt, dass ich dir stet -- ig blü -- he; gib, dass der Som -- mer dei -- ner Gnad in mei -- ner See -- le früh und spat viel Glau -- bens -- früch -- te zie -- he, viel Glau -- bens -- früch -- te zie -- he. } TextStropheIV = \lyricmode { % Liedtext folgt hier. \set stanza = "4." Mach in mir dei -- nem Gei -- ste Raum, dass ich dir werd ein gu -- ter Baum, und lass mich Wur -- zel trei -- ben. Ver -- leih -- e, dass zu dei -- nem Ruhm ich dei -- nes Gar -- tens schö -- ne Blum und Pflan -- ze mö -- ge blei -- ben, und Pflan -- ze mö -- ge blei -- ben. } TextStropheV = \lyricmode { % Liedtext folgt hier. \set stanza = "5." Er -- wäh -- le mich zum Pa -- ra -- deis und lass mich bis zum letz -- ten Reis an Leib und See -- le grün -- en, so will ich dir und dei -- ner Ehr al -- lein und sonst -- en kei -- nem mehr hier und dort ew -- ig die -- nen, hier und dort ew -- ig die -- nen. } AkkordeStrophe = \chordmode { \global % Akkorde folgen hier. \godi-chord-prefix s4 d1 a2:7 d \high d/fis d a d \high a/cis d e:7 a a:7 s d s a:7 \high a/cis d s d s \high a/cis d \high d/fis g a:7 d4 } % ------------- Definitionen für mehrfach verwendete Teile: ------------- empty = {} % ========================= Markups und Scores: ========================= \markup \UeberschriftPapier % Titel / Überschrift, nur in Papier-Version sichtbar % Vereinfachte / kompakte Version: --------------------- printVerse = \score { % Strophe 1, 3, 8 für Druck-Version << \new ChordNames \AkkordeStrophe \new Staff { \transpose c \Zielton {\new Voice = "melodyVoice" \MelodieStrophe} } \new Lyrics \lyricsto "melodyVoice" { \TextStropheI } \new Lyrics \lyricsto "melodyVoice" { \TextStropheIII } \new Lyrics \lyricsto "melodyVoice" { \TextStropheVIII } >> \header { piece = \Ueberschrift } % Pseudo-Überschrift für Score-Block (nur in Beamer-Version sichtbar) \layout { } } nextScore = \empty #(if (and vereinfachen (= VersionIndicator 2))(define nextScore printVerse)) \nextScore % Ausführliche Version (nicht vereinfacht) printVerse = \score { % Strophe 1 << \new ChordNames \AkkordeStrophe \new Staff { \transpose c \Zielton {\new Voice = "melodyVoice" \MelodieStrophe} } \new Lyrics \lyricsto "melodyVoice" { \TextStropheI } >> \header { piece = \Ueberschrift } % Pseudo-Überschrift für Score-Block (nur in Beamer-Version sichtbar) \layout { } } nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore printVerse)) \nextScore % Neue Folie beginnen: nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore neueFolie)) \nextScore printVerse = \score { % Strophe 3 << \new ChordNames \AkkordeStrophe \new Staff { \transpose c \Zielton {\new Voice = "melodyVoice" \MelodieStrophe} } \new Lyrics \lyricsto "melodyVoice" { \TextStropheIII } >> \header { piece = \Ueberschrift } % Pseudo-Überschrift für Score-Block (nur in Beamer-Version sichtbar) \layout { } } nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore printVerse)) \nextScore % Neue Folie beginnen: nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore neueFolie)) \nextScore printVerse = \score { % Strophe 8 << \new ChordNames \AkkordeStrophe \new Staff { \transpose c \Zielton {\new Voice = "melodyVoice" \MelodieStrophe} } \new Lyrics \lyricsto "melodyVoice" { \TextStropheVIII } >> \header { piece = \Ueberschrift } % Pseudo-Überschrift für Score-Block (nur in Beamer-Version sichtbar) \layout { } } nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore printVerse)) \nextScore % Neue Folie beginnen: nextScore = \empty #(if (or (not vereinfachen)(= VersionIndicator 1))(define nextScore neueFolie)) \nextScore #(define nextScore empty) % #(if vereinfachen (define nextScore vspacePrintI) (define nextScore vspacePrintI)) \nextScore % Abstand I...V zur nächsten Partitur, nur in Druck-Version