File talk:De Profundis (Josquin).png

From Wikimedia Commons, the free media repository
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
  
}

discantusNotes = {
  \set Staff.instrumentName = #"C"
  
  \clef "G_8"
  \transpose g c' {
    \relative
    {
      a1. a2 a1 d,1 g2. fis4 g a b2. a4 g fis e2 a1 g2 a2. g4 fis2 d e1 d2 r2 r1 r1
      d'1. d2 d1 g, c1 b2 c a b a fis g1 a g
    }
  }  
}

altusNotes = {
  \set Staff.instrumentName = #"A"
  
  \clef "G_8"
  \transpose g c' {
    \relative
    {
      r\breve r1 d1. d2 d1 g, c2. b4 c d e2. d4 c b a2 d1 cis2 d 
      a1 a2 a a b2. a4 g2 b2. a4 b c d,2 e2. d4 e fis g2 e fis d4 e fis g a2. g4 g1 fis2 g1 
    }
  }
}

tenorNotes = {
  \set Staff.instrumentName = #"T"
  
  \clef "bass"
  \transpose g c' {
    \relative
    {
      r\breve r\breve r\breve r\breve r\breve r\breve r2
      fis,1 fis2 fis fis g2. a4 b2 g2. fis,4 g a b2 c g1 r2 g'2 fis g d d1 c2 d1 b
    }
  }
}

bassNotes = {
  \set Staff.instrumentName = #"B"
  
  \clef "bass"
  \transpose g c' {
    \relative
    {
      r\breve r\breve r\breve r\breve r\breve r\breve
      d,1. d2 d1 g,1. g2 g1 g2 c2. b4 c d e2 c d g fis d e1 d r1
    }
  }
}

discantusLyrics = \lyricmode {
  De pro -- fun -- dis cla -- _ _ _ ma -- _ _ _ vi ad __ _ te __ _ do -- _ mi -- ne.
  De pro -- fun -- dis cla -- _ ma -- _ vi ad te do -- mi -- ne.
}
altusLyrics = \lyricmode {
  De pro -- fun -- dis cla -- _ _ _ ma -- _ _ _ vi ad __ _ te do -- mi -- ne,
  cla -- ma -- _ _ _ _ _ _ _ _ _ _ _ _ _ vi ad __ _ _ _ te __ _ do -- mi -- ne.
}
tenorLyrics = \lyricmode {
  Do -- mi -- ne, cla -- ma -- _ _ _ _ _ _ _ _ vi ad __ _ _ te do -- _ mi -- ne.
}
bassLyrics = \lyricmode {
  De pro -- fun -- dis cla -- ma -- vi ad __ _ _ _ te __ _ _ do -- _ _ mi -- ne.
}
\paper {
  between-system-padding = #2
  between-system-space = #2
  ragged-last-bottom = ##t
  ragged-bottom = ##t
}

#(ly:set-option 'point-and-click #f) 
#(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
    }
  }
}