File talk:Josquin Cor meum.png
Jump to navigation
Jump to search
LilyPond source
\version "2.11.63" global = { \set Score.skipBars = ##t % main \revert Score.SpacingSpanner #'spacing-increment % CHECK: no effect? \key a \minor \time 4/2 \override Voice.NoteHead #'style = #'default \override Voice.Rest #'style = #'default \set fontSize = #2.5 } motiveAColor = { \override NoteHead #'color = #(x11-color 'MediumBlue) \override Stem #'color = #(x11-color 'MediumBlue) } motiveBColor = { \override NoteHead #'color = #(x11-color 'DarkGreen) \override Stem #'color = #(x11-color 'DarkGreen) } motiveCColor = { \override NoteHead #'color = #(x11-color 'red) \override Stem #'color = #(x11-color 'red) } motiveDColor = { \override NoteHead #'color = #(x11-color 'purple) \override Stem #'color = #(x11-color 'purple) } normalColor = { \override NoteHead #'color = #black \override Stem #'color = #black } discantusNotes = { \set Staff.instrumentName = #"T1" \clef "G_8" \relative { r\breve r\breve r\breve r\breve r\breve r\breve << \motiveBColor >> a\breve c1 f,1 f'1. f2 e1 d1 d\breve << \normalColor >> r2 << \motiveCColor >> d,2 e c g'1 c, << \normalColor >> r2 g' a2. b4 c2 d1 c b2 c1 r\breve r\breve r\breve } } altusNotes = { \set Staff.instrumentName = #"T2" \clef "G_8" \relative { << \motiveAColor >> e,\breve g1 c, c'1. b2 a g << \normalColor >> a2. g4 a b a1 g4 f e2 c c'2. b4 c d c2. b4 a1 g2 a1 r2 a a1 a d,2 g1 f2 g2. a4 b c d2. c4 c2. b8[ a] b2 e,\breve r1 r\breve r\breve r2 << \motiveCColor >> d2 e c g'1 c,2 << \motiveDColor >> c' d2. e8[ d] e2 c2 } } tenorNotes = { \set Staff.instrumentName = #"T3" \clef "G_8" \relative { r1 << \motiveAColor >> e,\breve g1 c, f1. e2 d c << \normalColor >> f2. e8[ d] e2 a1 g2 a1 r\breve r1 d1 d2 d d1 c r r2 << \motiveCColor >> a b g d'1 g,1 << \normalColor >> r\breve r\breve r\breve r2 << \motiveCColor >> d e c g'1 c,2 << \motiveDColor >> c' d2. c8[ d] e2 c1 b2 c1 } } bassNotes = { \set Staff.instrumentName = #"B" \clef "bass" \relative { r\breve r\breve r\breve r\breve << \motiveBColor >> a,\breve c1 f, f'1. f2 e1 d d\breve << \normalColor >> r2 << \motiveCColor >> a b g d'1 g,\breve << \normalColor >> r1 r2 g'2 g g2. f4 e d f1 e2 f2. e4 d c d1 c2. b8[ a] g1 r1 r\breve r2 g e f } } discantusLyrics = \lyricmode { Cor me -- um con -- tur -- ba -- tum est, de -- re -- li -- quit me vir -- _ _ _ tus me -- _ a } altusLyrics = \lyricmode { Cor me -- um con -- tur -- ba -- _ _ _ _ _ _ _ _ _ tum est __ _ _ _ _ _ _ in me, de -- re -- li -- quit me vir -- tus __ _ _ _ me -- _ _ _ _ _ a, de -- re -- li -- quit me vir -- _ _ _ _ tus } tenorLyrics = \lyricmode { Cor me -- um con -- tur -- ba -- _ _ _ _ _ tum __ _ est, de -- re -- li -- quit me, de -- re -- li -- quit me, de -- re -- li -- quit me vir -- _ _ _ _ tus me -- a } bassLyrics = \lyricmode { Cor me -- um con -- tur -- ba -- tum est, de -- re -- li -- quit me, de -- re -- li -- _ _ _ quit me vir -- _ _ _ tus me -- _ _ a et lu -- men } \paper { ragged-last-bottom = ##t ragged-bottom = ##t } #(set-default-paper-size "a5" 'portrait) #(set-global-staff-size 10) %"Schriftgröße" der Notenzeilen (16.9) \score { \new StaffGroup = choirStaff << \new Voice = "discantusNotes" << \global \discantusNotes >> \addlyrics { \discantusLyrics } \new Voice = "altusNotes" << \global \altusNotes >> \addlyrics { \altusLyrics } \new Voice = "tenorNotes" << \global \tenorNotes >> \addlyrics { \tenorLyrics } \new Voice = "bassNotes" << \global \bassNotes >> \addlyrics { \bassLyrics } >> % \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 70 2) } } %entfernen, um midi zu erzeugen \layout { \context { \Score % no bars in staves \override BarLine #'transparent = ##t % incipit should not start with a start delimiter \remove "System_start_delimiter_engraver" } \context { \Voice \override TextScript #'padding = #0.2 \override TextScript #'font-size = #-5 \override TextScript #'staff-padding = #0.1 % no slurs \override Slur #'transparent = ##t % Comment in the below "\remove" command to allow line % breaking also at those barlines where a note overlaps % into the next bar. Especially for large scores, you % will typically yield better line breaking and thus improve % overall spacing if you comment in the following command. \remove "Forbid_line_break_engraver" } } }