=for timestamp
Mo Jan  9 20:00:39 CET 2006

=head2 Die Sinfonie

[Die Sinfonie ist] eine Gattung der Instrumentalmusik [in der Klassik], die
durch Joseph Haydn ihre klassiche Form erhielt.

Sie ist meist viersätzig und spiegelt bereits in den Satzbezeichnungen die Idee
des Kontrasts wieder.

=over

=item 1.

Satz: Allegro → Sonatenhauptsatz

=item 2.

Satz: langsam [z.B. lyrisch etc.] → liedform

=item 3.

Satz: tänzerisch → Menuett

=item 4.

Satz: Allegro, presto → Rondo, Sonatenhauptsatzform

=back

=head3 Kontrast

=for latex
\begin{multicols}{2}

=over

=item *

Tonarten, Dur--Moll

=item *

Tempo

=item *

Rhythmus

=item *

Dynamik [Lautstärke]

=item *

Wirkung

=item *

Besetzung

=item *

Melodieverlauf

=back

=for latex
\end{multicols}

[Die dritte Wiederholung ist meist irgendwie anders]


=for timestamp
Mo Jan 16 16:25:36 CET 2006

[Modulation ← Tonartwechsel]

[(Vollständige) Wiederholung in einer Sonate eigentlich nur der Exposition]

[Barock ← will Hörer mitnehmen; also schöne Übergänge etc.]

[Triole rhythmisch relativ besonders]

[Dreiklangbrechung ← Töne hintereinander statt gleichzeitig]


=for timestamp
Mo Jan 23 16:56:26 CET 2006

=head3 Beethoven: Klavierkonzert Nr. 4, 2. Satz

Orchester: bedrohlich, forte, Sechszehntelnoten, staccato, unisono, tiefe Lage

Klavier: melancholisch, lieblich, molto cantabile (p), Viertelnoten, legato,
akkordischer Satz, mittlere/hohe Lage

Kontrast: Dynamik

=table I<Klavier>          | I<Orchester>
=row   Takte 6--13:  p     | Takte 1--5:   f
=row   Takte 19--38: pp    | Takte 14--35: f
=row   Takte 40--41: p     | Takte 38--43: p
=row   Takte 43--55: p     | Takte 44--55: pp
=row   Takte 56--60: I<ff> | Takte 64--72: ppp
=row   Takte 61--72: pp    | 

=begin comment
Perl++

#!/usr/bin/perl

use warnings;
use strict;

use List::Util qw< max >;

my @k = parse(<<EOF);
6-13:  p
19-38: pp
40-41: p
43-55: p
56-60: ff
61-72: pp
EOF

my @o = parse(<<EOF);
1-5:   f
14-35: f
38-43: p
44-55: pp
64-72: ppp
EOF

my $takte = max(scalar @k, scalar @o) - 1;

print "<table>\n";

print "  <tr>";
print map { "<td>$_</td>" } 1..$takte;
print "  </tr>\n";

for my $arr (\@k, \@o) {
  print "  <tr>\n";

  my ($colspan, $state) = (0, 0);
  my $print = sub {
    my $style = $state eq 0
      ? "color: white"
      : "text-align: center; border: 1px solid black";
    $state = "" if $state eq 0;
    print "    <td colspan=\"$colspan\" style=\"$style\">$state</td>\n" if $colspan;

    ($colspan, $state) = (1, $arr->[$_[0]] || 0);
  };

  for(1..$takte) {
    if(($arr->[$_] || 0) eq $state) {
      $colspan++;
      next;
    }

    $print->($_);
  }
  $print->(0);

  print "  </tr>\n";
}

print "</table>\n";

sub parse {
  my @power;
  local $_;

  for(split /\n/, shift) {
    /^(\d+)-(\d+):\s*(\w+)$/ and @power[(0+$1)..(0+$2)] = ($3) x scalar(() = (0+$1)..(0+$2)), next;
    die "Malformed line: \"$_\"";
  }

  return @power;
}

=end comment


=for timestamp
Mo Jan 30 17:19:17 CET 2006

[Terz "wacklig", als Ende undenkbar]