Benutzer:Johhent/Dominantsept

aus Wikipedia, der freien Enzyklopädie
Zur Navigation springen Zur Suche springen
\version "2.22.0"

\header {
  % Voreingestellte LilyPond-Tagline entfernen
  tagline = ##f
  title = "Dominantseptakkord - Tonika"
}

\layout {
  indent = 0
  \context {
    \Score
    \remove "Bar_number_engraver"
  }
}

global = {
  \key c \major
  \time 4/2
}

right = \relative c'' {
  \global
  \override Staff.TimeSignature.stencil = ##f
  %Keine Taktstriche, genauso ginge   \cadenzaOn dann aber Zählung als nur ein Takt
  % Die Noten folgen hier.
  % \sectionLabel "Grundstellung"
  <\tweak NoteHead.color "blue" b d \tweak NoteHead.color #red f\4>1 <c c e\3> 
  <\tweak NoteHead.color #red f, \tweak NoteHead.color "blue" b d\2> <e c'\1 c> 
  <d \tweak NoteHead.color #red f \tweak NoteHead.color "blue" b\7> <c e c'\1> \break
  % \sectionLabel "Quintsext"
  <g' d'\tweak NoteHead.color #red f\4>1 <g c e\3> 
  <\tweak NoteHead.color #red f g d'\2> <e g c\1> 
  <d \tweak NoteHead.color #red f g\5> <c e g\5> \break
  % \sectionLabel "Terzquart"
  <g' \tweak NoteHead.color "blue" b \tweak NoteHead.color #red f'\4>1 <g c e\3> 
  <\tweak NoteHead.color #red f g \tweak NoteHead.color "blue" b\7> <e g c\1> 
  <\tweak NoteHead.color "blue" b \tweak NoteHead.color #red f' g\5> <c e g\5> \break
  % \sectionLabel "Sekundakkord"
  <d g \tweak NoteHead.color "blue" b\7>1 <e g c\1> 
  <g \tweak NoteHead.color "blue" b d\2> <g c e\3> 
  <\tweak NoteHead.color "blue" b, d g\5> <c e g\5>
}

thoroughbass = \figures { 
  % Grundstellung
  <7>1 s <7> s <7> s  
  % Quintsext
  <6 5>1 s <6 5> s <6 5> s
  % Terzquart
  <4 3>1 s <4 3> s <4 3> s
  % Sekund
  <2>1 <6> <2> <6> <2> <6>

}

left = \relative c {
  \global
  \set stringNumberOrientations = #'(down)
  \override Staff.TimeSignature.stencil = ##f
  % Die Noten folgen hier.
  % Grundstellung  
  g1\5 c\1 g1\5 c\1 g1\5 c\1 \break
  % Quintsext
  \tweak NoteHead.color "blue" b1\7 c\1 \tweak NoteHead.color "blue" b1\7 c\1 \tweak NoteHead.color "blue" b1\7 c\1 \break
  % Terzquart
  d1\2 c\1 d1\2 c\1 d1\2 c\1 \break
  % Sekundakkord
  \tweak NoteHead.color #red f1\4 e\3 \tweak NoteHead.color #red f1\4 e\3 \tweak NoteHead.color #red f1\4 e\3 
}

\score {
  \new PianoStaff 
  <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { \clef bass  <<

      \left 
      \thoroughbass
     >> }
  >>
  \layout { }
  \midi {
    \tempo 4=100
  }
}