\version "2.24.1"

\header {
  title = "Monologo di Clara (Omega-Puncta)"
  date = "21.06.2026"
}

global = {
  \key e \minor
  \time 4/4
  \tempo 4 = 76
}

soprano = \new Voice = "Clara" {
  \set Staff.midiInstrument = "voice oohs"
  \global
  % --- Szene beginnt ---
  R1*4 |
  e,4 b e | g2 g4 R4 | R1*4 |
  a,4 d a | f2 f4 R4 |
  % --- Crescendo ---
  R4 e f g | a2 b2 | c4 b2 g4 | R2. |
  % --- Matrix / Subito Piano ---
  \key c \minor
  R4 c a' f | g2 g2 | R4 g e c | c2 R2 |
}

pianoRight = \new Voice = "Klavier (rechte Hand)" {
  \set Staff.midiInstrument = "acoustic grand"
  \global
  % --- Szene beginnt ---
  <e, b g>1 |
  <d b' g>1 |
  <a c e>1 |
  <a c f>1 |
  % --- Crescendo ---
  <a c f>2 <b d f>2 |
  <c e g>2 <d f b>2 |
  <e a c>1 |
  <e g c>1 |
  % --- Matrix / Subito Piano ---
  <a c f>1 |
  <b d g>1 |
  <g c e>1 |
  <g c e>1 |
}

pianoLeft = \new Voice = "Klavier (linke Hand)" {
  \set Staff.midiInstrument = "acoustic grand"
  \clef bass
  \global
  % --- Szene beginnt ---
  e,,1 |
  d,,1 |
  c,,1 |
  a,,,1 |
  % --- Crescendo ---
  f,,2 g,,2 |
  a,,2 b,,2 |
  c,,1 |
  a,,,1 |
  % --- Matrix / Subito Piano ---
  f,,1 |
  g,,1 |
  c,,1 |
  <c,, c,>1 |
}

lyrics = \new Lyrics \lyricsto "Clara" {
  \set stanza = "1."
  % --- Szene beginnt ---
  Cred -- i... credi dav -- ve -- ro
  % --- Crescendo ---
  che la gen -- te ca -- pi -- rà... che sa -- ran -- no con -- so -- la -- ti?
  % --- Matrix / Subito Piano ---
  Che han -- no vi -- ssu -- to in -- una ma -- tri -- ce? L'ho ca -- pi -- to io. Da an -- ni.
}

% --- Weis' verzweifelter Antrag ---
weisAntrag = \new Voice = "Weis" {
  \set Staff.midiInstrument = "voice oohs"
  \key e \minor
  \time 4/4
  \tempo 4 = 76
  R1*4 |
  e4 g b d | c'2 b2 | a4 g f e | d2 R2 |
}

weisLyrics = \new Lyrics \lyricsto "Weis" {
  \set stanza = "2."
  Per -- ché non mi cre -- di? Per -- ché non mi se -- gui?
}

% --- Weis' finales Urteil ---
weisUrteil = \new Voice = "Weis (Urteil)" {
  \set Staff.midiInstrument = "voice oohs"
  \key e \minor
  \time 4/4
  \tempo 4 = 76
  R1*2 |
  g4 a b c' | b2 a2 | g4 f e d | e2 R2 |
}

weisUrteilLyrics = \new Lyrics \lyricsto "Weis (Urteil)" {
  \set stanza = "3."
  Que -- sto non è co -- rag -- gio. Que -- sto è con -- sen -- so.
}

\score {
  <<
    \new Staff = "Clara" <<
      \soprano
      \lyrics
    >>
    \new PianoStaff = "Klavier" <<
      \new Staff = "rechte Hand" \pianoRight
      \new Staff = "linke Hand" \pianoLeft
    >>
    \new Staff = "Weis" <<
      \weisAntrag
      \weisLyrics
    >>
    \new Staff = "Weis (Urteil)" <<
      \weisUrteil
      \weisUrteilLyrics
    >>
  >>
  \layout {
    indent = 0
    \context {
      \Score
      \remove "Bar_number_engraver"
    }
  }
  \midi {}
}