TV-Musik: »How I Met Your Mother«

Marina Gerlach und Hanna Hinnerichs

Die musikalische Gestaltung der Erzählstruktur in How I Met Your Mother

»Kids, I’m gonna tell you an incredible story.«

Diese Ansage des Protagonisten Ted Mosby (S01E01, Pilot) stellt den Beginn der amerikanischen Sitcom How I Met Your Mother dar. Die ZuschauerIn bekommt, neben den Kindern des Protagonisten auf dem roten Sofa sitzend, über neun Staffeln mit 208 Episoden hinweg erzählt, wie Ted seine Ehefrau kennenlernte. Dabei muss größte Geduld aufgebracht werden: Erst in der letzten Staffel kann ihr Gesicht erspäht werden, vorher müssen ein Regenschirm und ein Fuß ausreichen. Doch was sichert diese durchgehende Aufmerksamkeit auf Seite der ZuschauerInnen?

Ein wichtiger Punkt stellt das Stilmittel des »unzuverlässigen Erzählens« dar, bei dem die RezipientIn rückblickend die Wahrheit von Aussagen über die fiktionale Welt in Frage stellt.[1] Es wird Spannung erzeugt, da das Gesagte immer wieder konterkariert und dadurch Raum für Spekulationen und Wünsche der ZuschauerInnen geschaffen wird, der durch die folgenden narrativen Auflösungen geschickt eingegrenzt wird. Den Fokus unserer Forschung stellt die musikalische Gestaltung dieser Auflösung dar: Die Musik, so unsere These, dient in How I Met Your Mother als Indikator für unzuverlässiges Erzählen.

* * *

Die Rahmenhandlung der Serie bildet im Jahr 2030 Teds Erzählung, wie er die Mutter seiner Kinder kennenlernte. Die Kernhandlung beginnt 2005 mit dem jungen Ted, der als Architekt in New York lebt und eng mit Marshall Eriksen, Barney Stinson, Robin Scherbatsky und Lily Aldrin befreundet ist, den vier weiteren ProtagonistInnen. Dabei lässt sich die Erzählstruktur in zwei Ebenen gliedern: Auf der primären Erzählebene gibt Ted als extradiegetisch-homodiegetischer Erzähler die Rahmenhandlung wieder.[2] Um die zeitliche Abgrenzung zu verdeutlichen, verwenden wir die von Bernd Leiendecker eingeführte Differenzierung von »Zukunfts-Ted« und »Gegenwarts-Ted«.[3] Den Erstgenannten bekommt die ZuschauerIn bis zum Finale nicht zu Gesicht; nur seine Stimme ist, oft am Beginn und Ende einer Episode, als Voiceover zu hören. Gegenwarts-Ted ist Hauptfigur der Binnenerzählungen auf sekundärer Ebene, die abwechselnd von ihm, seinen Freunden oder anderen Charakteren vermittelt werden. Hier handelt es sich meist um intradiegetisch-homodiegetisches Erzählen; die Figuren erzählen Geschichten, in denen sie selbst auftreten.[4] Zum Beispiel klärt Lily Ted in The Pineapple Incident am Morgen nach einer wilden Nacht darüber auf, welche Ereignisse sich in der Bar abgespielt hatten (S01E10), oder die Freunde schildern in der Folge Game Night (S01E15) abwechselnd ihre peinlichsten Erlebnisse, um Barneys Geheimnis zu erfahren.

Die von Zukunfts-Ted erzählte Rahmenhandlung folgt in den meisten Fällen einer chronologischen Erzählweise: Ted trifft in der ersten Episode von How I Met Your Mother auf seine große Liebe Robin, die in der letzten Staffel seinen Freund Barney heiratet und deren Hochzeit Schauplatz für das Aufeinandertreffen von Ted und seiner späteren Ehefrau Tracy wird (S09E23, Last Forever). Zahlreiche Rückblenden auf sekundärer Erzählebene brechen diese Struktur jedoch immer wieder auf. Beispielsweise erzählen Marshall und Gegenwarts-Ted von der abenteuerlichen Fahrt mit Marshalls Auto im ersten Studienjahr (S02E17, Arrivederci, Fiero) und Robin berichtet von ihrer Karriere als Teenagerstar in Kanada (S02E09, Slap Bet). Die dabei entstehende komplexe Struktur aus »kleinen« Rückblenden innerhalb der »großen« Rückblende, also der Rahmenerzählung von Zukunfts-Ted, bietet genügend Spielraum für das Stilmittel des unzuverlässigen Erzählens, das in How I Met Your Mother oft angewandt wird: Beispielsweise versucht Robin ihre Vergangenheit zu verstecken und erzählt den Freunden in der Episode Slap Bet von einer angeblich früheren Ehe, was schließlich jedoch als Lüge entlarvt wird. Ein weiteres Beispiel bietet die Episode The Perfect Coctail (S06E22), in der Gegenwarts-Ted seine hervorragenden Fähigkeiten beim Beatboxing nach dem Bourbon-Trinken beschreibt. Die Sequenz wird jedoch nach Lilys Erklärung, dass Ted wenig Talent habe und im alkoholisierten Zustand lediglich sich selbst falsch wahrnehme, wiederholt und widerlegt dann Teds anfängliche Aussage. Somit interpretiert die ZuschauerIn retrospektiv viele Rückblenden als unzuverlässig erzählt, da die Sequenzen nicht die Wahrheit über die fiktionale Welt dargestellt hatten.[5] Die Aufmerksamkeit der RezipientIn wird dadurch jedoch nur noch mehr eingefordert, da das Gesagte eine Fallhöhe bekommt und sich immer wieder als falsch erweisen kann. Insgesamt wird unzuverlässiges Erzählen (als Resultat von Gedächtnislücken, Fehlwahrnehmungen oder absichtlichen Lügen) von den ZuschauerInnen verziehen, da in den meisten Fällen eine kurze Zeitspanne zwischen Unwahrheit und Auflösung besteht.[6]

* * *

Damit zur Musik: Ist sie Mit- oder Gegenspielerin der komplexen Erzählstruktur von How I Met Your Mother? Entlarvt sie Sequenzen, in denen unzuverlässig erzählt wird?

In vielen Fällen wird eine nicht der Wahrheit entsprechende Erzählung durch eine zweite, wahrhaftige Variante korrigiert. Erst dadurch kann die RezipientIn die Unwahrheit entlarven.[7] Durch die Analyse der Serienmusik wollen wir herausfinden, ob die Musik aber nicht schon vorher Hinweise liefert – auch in den Episoden, in denen die ZuschauerIn mit nicht aufgelösten lügenden Rückblenden konfrontiert wird und bis zum Schluss im Unklaren bleibt, welche der erzählten Varianten der Wahrheit, etwa in der Episode Zoo or False (S05E19).

Die Serienmusik besteht in How I Met Your Mother zu einem Großteil aus präexistenten Titeln der Rock- und Pop-Kultur aus den letzten fünf Jahrzehnte. Die eigens für die Serie komponierte Musik stammt von John Swihart. Präexistente Songs sind mit größter Sorgfalt für die entsprechenden Szenen ausgewählt worden. Sie generieren nicht nur die jeweils passende Stimmung, sondern haben in einigen Episoden eine zusätzliche Bedeutungsebene. Der Titel Victoria von den Kinks verrät in der Folge The Naked Truth (S07E02) schon vor der szenischen Enthüllung, wem Ted nach über fünf Jahren überraschend begegnen wird. Der Song beginnt leise im Hintergrund, lediglich die Gitarre ist zu hören. Nach einem Szenenwechsel ist die Kamera auf Ted gerichtet, die Musik wird lauter, und beim Übergang zum Refrain, der lauthals mit dem Namen »Victoria« beginnt, sehen wir Teds Ex-Freundin Victoria im Bild. Die Musik antizipiert hier also die Handlung. Ein weiterer solcher Moment geschieht am Anfang der achten Staffel (S08E01, Farhampton): Hier verwendet John Swihart den Song The Funeral der Band of Horses. Der Song begleitet das erste Treffen Teds und seiner zukünftigen Frau. Retrospektiv ist die Auswahl dieses Titels als Hinweis auf den Tod der Mutter in der Zukunft zu deuten.

Swiharts eigene Musik folgt größtenteils der Mood-Technik: Dabei erzeugt die Musik durch die Wahl der Instrumente, Tonlage, Dynamik und Tonart eine Stimmung, die sowohl passend als auch kontrastierend zum Bildmaterial eingesetzt werden kann. Swihart setzt diese Technik ein, um den Szenen eine stimmige Atmosphäre zu verleihen. Auf diese Weise nimmt man die Musik in der Regel eher hintergründig wahr. Von größerem Interesse sind jedoch die Ausnahmen von dieser Regel.

Betrachtet man diese Ausnahmen, stellt man fest, dass es sich oft um Szenen handelt, in den unzuverlässiges Erzählen zum Einsatz kommt. Die Musik hat dabei einen auffälligeren Charakter, so dass diese Szenen verstärkt in den Fokus der ZuschauerInnen geraten. Wie gesagt handelt es sich beim unzuverlässigen Erzählen um Unwahrheiten als Resultate von Gedächtnislücken, Fehlwahrnehmungen oder absichtlichen Lügen.[8] Szenisch meist eins zu eins umgesetzt, haben sie einen absurden Charakter, der zur Verstärkung der Komik der Szenen beiträgt. Welche Rolle spielt die Musik dabei?

Betrachtet man die Vielzahl der Szenen, in denen unzuverlässiges Erzählen eingesetzt wird, stellt man bei einem Großteil fest, dass die Musik schon vor der eigentlichen Auflösung verrät, in welcher Variante der Geschichte nicht die Wahrheit erzählt wurde. Im Vergleich zur sonst stimmungsgebenden und hintergründig wahrnehmbaren musikalischen Untermalung sticht in den entsprechenden Szenen die Musik stark heraus und besitzt zum Teil eine karikierenden Wirkung. Im Kontrast dazu wird bei Szenen, die das wahre Geschehen zeigen, kaum bis gar keine Musik verwendet. So sehen wir in der Episode The Scorpion and the Toad (S02E02) zwei Varianten von Lilys Zeit in San Francisco. In der ersten Version schildert sie ihren Aufenthalt als wunderbar und erzählt von den großartigen Menschen, die sie kennengelernt hat. Im weiteren Verlauf der Episode erzählt Lily nach ein paar Drinks dann die Wahrheit: San Francisco sei furchtbar gewesen. Die Menschen, die wir im ersten Clip sahen, sind nun plötzlich die multiplen Persönlichkeiten ihres verstörenden Busnachbarn. Musikalische Untermalung ist ausschließlich bei der gelogenen Variante zu finden; sie stützt die Beschönigungen, die Lily als Wahrheit zu verkleiden versucht. Die anschließende wahrheitsgemäße Version enthält keine Musik: Sie wurde von allen beschönigenden Ausschmückungen, somit auch von ihrer Musik, befreit. Bereits vor der Auflösung der Lüge gibt die Musik den aufmerksamen ZuschauerInnen also einen Anstoß, den Wahrheitsgehalt der Szene zu hinterfragen.

Ein weiteres Beispiel findet sich in der schon erwähnten Episode Zoo or False, in der Marshall erzählt, wie er zuvor überfallen wurde. Innerhalb der Episode sieht man den Überfall in verschiedenen Versionen; eine klare Auflösung, wie sich der Überfall wirklich ereignet hat, bekommen die ZuschauerInnen nicht. Lediglich die Musik gibt einen Hinweis, welche der Geschichten wahr sein könnte. In der ersten Variante erzählt Marshall, dass er von einem bewaffneten Räuber überfallen wurde. Als daraufhin seine Frau Lily beschließt, eine Waffe zu besorgen, schildert Marshall den Vorfall so, dass er nach einem Abstecher in den Zoo von einem Affen bestohlen wurde. Diese Variante wird von seinem Freund Barney ausgeschmückter erzählt. Im Vergleich der Varianten wird deutlich, dass die musikalische Untermalung erheblich wechselt: In Marshalls erster Fassung ist kaum Musik zu hören. Während Marshalls Affen-Variante bereits im Hintergrund von Trommeln begleitet wird, ist bei Barneys ausgeschmückter Version übertrieben komödiantische Klaviermusik zu hören, die an alte Stummfilmmusik erinnert. Hier verstärkt die Musik die Komik der Szene und zieht durch ihre Überspitztheit das Gezeigte zusätzlich ins Lächerliche.

Eine Besonderheit der Serie ist, wie schon gesagt, die komplexe Erzählstruktur. Obwohl die Rahmenhandlung chronologisch erfolgt, werden die Binnenerzählungen der einzelnen Episoden durch häufige Wechsel von Perspektiven und Zeitebenen aufgebrochen. Musikalische Beiträge der Charaktere selbst – wie Marshalls gesungene Selbstgespräche, die Original-Songs der Serie (You Just Got Slapped, Let’s Go To The Mall) – sowie Musical-ähnliche Auftritte wie Superdate und Nothing Suits Me Like A Suit etablieren sowohl eine weitere Ebene, auf der die Handlung vorangetrieben wird, als auch ein weiteres Mittel, um die komplexe Erzählstruktur noch stärker aufzubrechen.

* * *

Die von uns untersuchten Szenen zeigen exemplarisch, welche Funktionen die Musik innerhalb der Serie einnimmt. Sie untermauern insbesondere unsere These, dass die Serienmusik als Indikator für unzuverlässiges Erzählen dient. Die Musik in How I Met Your Mother ist also ein wesentlicher Bestandteil der Serie; sie entlarvt Unwahrheiten, fungiert als Handlungsträgerin, stützt die komplexe Erzählstruktur und bewirkt durch ihr teilweise überspitztes Verhältnis zum Bildmaterial eine Verstärkung der Komik.

 

Nachweise

[1] Bernd Leiendecker, Unzuverlässiges Erzählen als Mittel der Komik, S. 233.

[2] Gérard Genette, Die Erzählung, S. 178.

[3] Bernd Leiendecker, Unzuverlässiges Erzählen als Mittel der Komik, S. 234.

[4] Gérard Genette, Die Erzählung, S. 163f.

[5] Bernd Leiendecker, Unzuverlässiges Erzählen als Mittel der Komik, S. 233.

[6] Ebd., S. 237ff.

[7] Ebd., S. 237.

[8] Ebd., S. 237ff.

 

Literatur

Genette, Gérard: Die Erzählung, München: Fink 1998.

Leiendecker, Bernd: Unzuverlässiges Erzählen als Mittel der Komik in How I Met Your Mother, in: Transnationale Serienkultur. Theorie, Ästhetik, Narration und Rezeption neuer Fernsehserien, hrsg. von Susanne Eichner, Lothar Mikos und Rainer Winter, Wiesbaden: Springer 2013.

Maintz, Johann Jakob: Formen und Funktionen unzuverlässiges Erzählens in der Sitcom How I Met Your Mother, in: Studentische Zeitschrift für Medien und Kommunikation, hrsg. von Friedrich, Kantekin Hamburg: 2015, <http://stuz-muk.de/wp-content/uploads/2015/10/How-I-Met-Your-Mother_2_2.pdf> (Abruf am 7. Februar 2018).

TV-Musik: »Sherlock« und »House«

Sebastian Röpke und Franziska Schumacher

Sherlock Holmes und sein Doppelgänger

»The music is about the fireworks of his mind and his energy«,[1] beschreibt der Komponist Michael Price die musikalische Verwirklichung des Hauptcharakters in der BBC-Serie Sherlock (UK 2010ff.). Basierend auf der literarischen Vorlage von Sir Arthur Conan Doyle, aber ins moderne London versetzt, löst Sherlock Holmes (Benedict Cumberbatch) als »Consulting Detective« mit Hilfe seines Freundes John Watson (Martin Freeman) Kriminalfälle, die aussichtslos scheinen. Michael Price und David Arnold, die Komponisten der Serienmusik, haben sich bereits durch zahlreiche Kompositionen für Filme und Serien einen Namen gemacht.

Auch die Serie House, M.D. (später House) (2004–2012) nutzt die gleiche Vorlage, doch wird sie hier auf ein medizinisches Umfeld adaptiert. Gregory House (Hugh Laurie), Nephrologe und Spezialist für Diagnostik, sucht dabei recht eigenwillig Lösungen für die schwierigsten Krankheitsfälle.

Dass sich die Hauptcharaktere im Kern nicht nur semantisch, sondern auch charakterlich, insbesondere auf musikalischer Ebene ähneln, möchten wir im Folgenden näher analysieren. Dabei wird die intra- und extradiegetische Musik in den Serien Sherlock und House, M.D. als Mittel der Charakterisierung eingesetzt. Wir konzentrieren uns vor allem auf die Serie Sherlock als ›vorlagentreuere‹ Variante, ziehen jedoch vergleichend die Serie House, M.D. hinzu, im Speziellen die Hauptfigur Gregory House.

Diegetische Musik in den Serien Sherlock und House, M.D.

In beiden Serien kommt dem diegetischen Ton eine tragende Rolle zu. Er lässt die Rezipienten nicht nur an der auditiven Wahrnehmung der Serienfiguren teilhaben, sondern stellt eine Verbindung zwischen Serienfigur und Zuschauern her. Dadurch wird den Zuschauern die Perspektive der Figuren zugänglich und nachvollziehbar. In Sherlock wird mit eben dieser Erfahrung gespielt: Extradiegetischer wird mit intradiegetischem Ton überblendet oder durch intradiegetische Geräusche unterbrochen. Ein Beispiel dafür ist die Szene, in der Sherlocks Erzfeind Jim Moriarty die Kronjuwelen stiehlt. Dazu ist die Ouvertüre von Rossinis La gazza ladra, zu Deutsch Die diebische Elster, zu hören. Zunächst ist nicht zu identifizieren, ob nur der Zuschauer die Musik hört oder auch Moriarty selbst. Trotz des Titels des Musikstückes ist das Bild-Ton-Verhältnis eher kontrapunktierend: Was man sieht, scheint nicht mit dem zusammenzupassen, was man hört. Das ruft ein Gefühl hervor, das genauso obskur ist wie Moriartys Persönlichkeit.

In House, M.D. sind es vor allem die diegetischen Geräusche, die den Rezipienten unmittelbar an der Szenerie teilhaben lassen. Die Zuschauer werden durch die Geräuschkulisse in eine Krankenhausumgebung versetzt, die die Bildebene realistisch erscheinen lässt und unterstützt. Außerdem wird, ähnlich wie in Sherlock, mit dem Effekt gespielt, dass man als Zuschauer in vielen Szenen zunächst annimmt, extradiegetischen Ton zu hören. Im Lauf der Szenen stellt sich jedoch heraus, dass es sich um Musik handelt, die Gregory House selbst hört, meist über den iPod, der sein ständiger Begleiter ist. Die Zuschauer können dadurch am emotionalen Zustand des Protagonisten teilhaben.

Musikalische Repräsentation des Charakters Sherlock Holmes in der BBC-Serie Sherlock

Der Hauptfigur der Serie Sherlock wird ein charakteristisches Thema gewidmet. Dieses erscheint in jeder Episode in verschiedenen Varianten und Situationen, aber immer in Verbindung mit der Hauptfigur. Das erste Mal ist es in der ersten Episode The Game Is On zu hören. Vorherrschend für dieses Thema ist der Hackbrett-Klang, der ihm etwas Quirliges und Lustiges verleiht. Trotzdem steht das Stück in Moll, was dem Ganzen eine düstere Note gibt. Dies repräsentiert Sherlocks zwei Seiten: seine lustige, einfältige Art, die oft in Verbindung mit Watson erscheint, und die Seite des hoch-funktionellen Soziopathen und Junkies. Der Komponist David Arnold sagte dazu:

»He was a high-functioning drug user, so there’s a bit of madness involved.«[2]

Im Lauf der Serie wird das Thema verschiedentlich abgewandelt, u. a. unterschiedlich instrumentiert, anders harmonisiert und in anderen Stilen verarbeitet.

Auch andere wichtige Figuren werden musikalisch repräsentiert. In Verbindung mit anderen Charakteren vermischen und kontrapunktieren sich die musikalischen Themen. Häufig erklingt Sherlocks Thema gemeinsam mit dem vom Klavier dominierten Thema Watsons (S01E01, A Study in Pink), wenn ein Dialog zwischen den beiden stattfindet. Welche Charaktere spezielle Themen bekommen, wurde den Komponisten zufolge gemäß der Wichtigkeit der Figuren entschieden. So erhielten zum Beispiel die Bösewichte Jim Moriarty und Charles Augustus Magnussen spezielle Themen, nicht jedoch Sherlocks und Watsons Haushälterin Mrs. Hudson.

Beim Auftritt von Sherlock Holmes wird das musikalische Geschehen oft von Streichern bestimmt, die in Verbindung mit ihm eine signifikante Rolle spielen. Die Themen der Geigen bilden verschiedene Charakterzüge ab: Sie sind weich, oft aber auch beunruhigend, melancholisch und episch. Dies unterstützt den Eindruck eines genialen Junkies. Durch die literarische Vorlage war die Geige mit der Figur Sherlock Holmes ebenso assoziiert wie seine Pfeife; Holmes wird von Arthur Conan Doyle als ein kultivierter und begnadeter Geigenspieler dargestellt.

Funktion des intradiegetischen Musizierens in den zwei Serien

Das Musizieren des Hauptcharakters hat verschiedene Funktionen. Während Sherlock Holmes (außer in der letzten Folge) immer nur alleine Geige spielt, musiziert Dr. House des Öfteren mit anderen zusammen. Trotzdem stellt es für beide einen Kommunikationsweg zwischen ihnen und anderen Menschen dar. Besonders Sherlock fällt es sonst eher schwer, mit anderen Menschen sozial zu interagieren (S04E03, The Final Problem). Das wird in der vorerst letzten Folge der Serie betont, in der die Musik den einzigen Kommunikationsweg zwischen ihm und seiner Schwester darstellt. In einem hochemotionalen Moment bittet sie ihn, nicht Bach, sondern ›sich selbst‹ zu spielen, worauf eine Komposition von ihm zu hören ist. – Für Dr. House ist das Musizieren vor allem ein Weg der Kommunikation mit Patienten, der ihm einen leichteren und tiefgreifenden Zugang zu ihnen bietet (S03E15, Half-Wit).

Das Musizieren gibt außerdem die Möglichkeit, Emotionen auszudrücken und zu verarbeiten. Dies geschieht bei Sherlock ebenfalls durch das Komponieren (S03E02, The Sign of Three). Besonders Emotionen wie Liebe und Zuneigung sind für ihn schwer zu verarbeiten. Die schwierigste emotionale Situation ist sein Zusammentreffen mit Irene Adler, die unbekannte Gefühle in ihm auslöst. Diese verarbeitet er auf komponierende Weise in Irene’s Theme (S02E01, A Scandal in Belgravia). Aber auch Freundschaft ist ein Gefühl, das Sherlock dadurch ausdrückt, dass er für Watson Geige spielt, um ihm eine Freude zu bereiten. Außerdem komponiert und spielt er dessen Hochzeitswalzer. Auch House musiziert für seinen Freund Wilson am Klavier, ferner spielt er Gitarre, Orgel und Harmonika. Der House-Darsteller Hugh Laurie nahm auf diesen Aspekt in einem Interview Bezug:

»Despite his cynical, sarcastic, crude demeanor character, music provides a sort of emotional language for House, one that he uses primarily but not exclusively in isolation.«[3]

Trotz seines zynischen Charakters stelle die Musik demnach eine emotionale Sprache für House dar, die er vorzugsweise (aber nicht ausschließlich) dann verwende, wenn er alleine sei. Letztlich dient das Musizieren beiden der Entspannung, als Ausgleich zu den hohen kognitiven Aktivitäten sowie als Mittel der Inspiration: Wenn Dr. House gestresst ist, sieht man ihn oft in seinem Büro mit geschlossenen Augen auf dem Boden liegen und Musik verschiedener Genres hören.

Das Hören von Musik hat in den Serien einen hohen Stellenwert und eine ähnliche Funktion wie das Musizieren selbst. Während Sherlock Holmes eher klassische Musik hört, ist ein hauptsächlich mit Popularmusik und Jazz gefüllter iPod der ständige Begleiter von Gregory House. Seine Musikwahl spiegelt dabei häufig seine Stimmung wieder. Ein Beispiel dafür ist die Folge Love Hurts (S01E20), in der House ein Date hat, das jedoch kein gutes Ende nimmt. Die darauffolgende Liedauswahl Some Devil von Dave Matthews zeigt seine Verletzlichkeit an.

* * *

Erwecken die unterschiedlichen Szenerien der Serien zunächst den Eindruck von Eigenständigkeit und Originalität, so bemerkt man bei genauerem Hinsehen die Gemeinsamkeiten beider Protagonisten nach den Vorlagen von Sir Arthur Conan Doyle. Das Musizieren von Sherlock Holmes ist für seinen Charakter konstitutiv. Dadurch ist es möglich, die Vielschichtigkeit der Person besser darstellen zu können. Dem Zuschauer wird eine Gefühlsebene eröffnet, die sonst kaum zugänglich wäre. Auch bei Gregory House wird diese Ebene eröffnet, die er für sich selbst, gerade aber auch für die Interaktion mit anderen Menschen benötigt. Diese Parallelen zeichnen Gregory House auf musikalischer Ebene also als eine ›Sherlock-Holmes-Variation‹ aus.

 

Nachweise

[1] Gerard Gilbert, Settling the score, 2012.

[2] Garrett Tiedemann, David Arnold and Michael Price talk about composing for »Sherlock«, 2014.

[3] Zitiert nach Barbara Barnett, The Music of House, MD, 2008.

 

Quellen und Literatur

Barnett, Barbara: The Music of House, MD. My personal soundtrack, in: Chasing Zebras. The Unofficial Guide to House, M.D., 9. Juli 2008, <https://barbarabarnettbc.wordpress.com/2008/07/09/the-music-of-house-md-my-personal-soundtrack> (Abruf am 9. Februar 2018).

Gilbert, Gerard: Settling the score: Meet the musical brains behind TV’s top dramas, in: The Independent, 15. Dezember 2012, <www.independent.co.uk/arts-entertainment/music/features/settling-the-score-meet-the-musical-brains-behind-tvs-top-dramas-8411959.html> (Abruf am 11. Februar 2018).

Mumford, Gwilym: Sherlock returns to the BBC: ›He’s definitely devilish‹, in: The Guardian, 17. Dezember 2011, <www.theguardian.com/tv-and-radio/2011/dec/17/sherlock-bbc-cumberbatch-freeman-interview> (Abruf am 9. Februar 2018).

Plunkett, John: Bond and Sherlock composer David Arnold: ›He doesn’t follow the herd‹, in: dass., 4. August 2013, <www.theguardian.com/media/2013/aug/04/james-bond-sherlock-composer-david-arnold> (Abruf am 9. Februar 2018).

Tiedemann, Garrett: David Arnold and Michael Price talk about composing for »Sherlock«, in: classicalMPR, 17. März 2014, <www.classicalmpr.org/story/2014/03/17/sherlock-bbc-composers-interview> (Abruf am 11. Februar 2018).

TV-Musik: »Westworld«

Christina Jany

Musik als Indikator für die Künstlichkeit in Westworld

Ein Saloon. Ein mechanisches Klavier. Die Notenrolle beginnt sich zu drehen. Klavierhämmer schlagen auf verstimmte Saiten, spielen ein stampfendes Thema. Cut. Prärie. Eine Dampfeisenbahn fährt in eine holzgebaute, staubige Kleinstadt. Frauen in ausgestellten, viktorianischen Kleidern und Männer mit Colts, Sporen und Cowboyhüten steigen aus. Ein neuer Tag im Wilden Westen beginnt.

Doch all dies ist nicht echt. Es ist eine Kulisse und – wie das mechanische Klavier, welches nun von selbst spielt – bloß eine perfekte Imitation dessen, was einst echt war. Die Tarnung ist so gut, dass man Gefahr läuft, zu vergessen, dass es sich um eine künstlich erschaffene Welt handelt: den fiktiven Freizeitpark Westworld der ebenso fiktiven Firma Delos.

Die gleichnamige Serie handelt von diesem Park, dessen Besonderheit neben seiner extremen Weitläufigkeit die über 2.000 Roboter (»Hosts«) sind, die ihn bevölkern. Wohlhabende Besucher*[1] (»Guests«) haben die Möglichkeit, in über 100 geloopten Storylines Abenteuer des »Wilden Westens« nachzuspielen, ohne dass ihnen dabei echte Gefahr droht. Die Hosts sind so programmiert, dass sie echten Menschen nichts anhaben, während die »echten« Menschen die Roboter ohne Konsequenzen benutzen, vergewaltigen und töten können. Das »Gedächtnis« der Hosts wird nach jedem Tod oder dem Ende jeder Loop gelöscht; sie »wachen« dann vollständig genesen zu Beginn der Loop wieder auf, das mechanische Klavier spielt die ersten Töne und der Tag in Westworld beginnt von Neuem.

Währenddessen spielt eine zweite Handlung im Kontrollzentrum des Parks. Dort sitzt die Firma Delos, deren eigentliche Motive für das Betreiben des Parks tiefer gehen zu scheinen als das bloße Anbieten grenzenloser Vergnügungen. Hier werden die Hosts repariert, gesäubert, zugenäht und programmiert.

Ein neu installiertes Update, genannt »Rêverie«, welches eine Verknüpfung von kleinen Bewegung mit Erinnerungen der Hosts ermöglicht, sorgt zu Beginn der Serie für Unruhen. Wie in der filmischen Vorlage von Michael Crichton[2] aus dem Jahr 1973 scheinen einige Hosts eine Art Unterbewusstsein oder eigenen Willen zu entwickeln. Es stellt sich die Frage, wo Identität beginnt und was es – unter diesen Voraussetzungen – bedeutet, menschlich zu sein.

Neben dieser philosophischen Problematik machte die Serie nach ihrem Erscheinen im Jahr 2016 auch wegen der außergewöhnlichen und vielschichtigen Verwendung ihrer Serienmusik von sich reden. In ihr lassen sich bewusst eingesetzte Hinweise auf die Künstlichkeit dieser menschengemachten »Neuen Welt« finden.

* * *

Der Komponist Ramin Djawadi benutzt in dieser zweiten Zusammenarbeit mit HBO[3] für den Soundtrack der Serie drei verschiedene musikalische Elemente:

  1. Er schieb ca. 24 eigene Kompositionen,[4] die einen Großteil der extradiegetischen[5] Musik der Serie ausmachen. Für diese benutzt er Leitmotive, um Orte und Personen der Serie darzustellen oder zu charakterisieren. Eine Unterscheidung zwischen dem Park und der Welt außerhalb trifft er, indem er für die Musik beider Orte verschiedene Instrumentierungen benutzt: In der (extradiegetischen) Musik des Parks[6] hört man akustische und elektrische Gitarren, Klaviersounds und vermehrt Orchesterinstrumente, während besonders Synthesizer und künstlich erzeugte Klänge, sowie getragene, düstere Streicher- und Klaviersounds die Labore und Welt außerhalb des Parks untermalen.
  2. Neben diesen Neukompositionen machen außerdem die Verwendung bekannter klassischer Musikstücke im Original (u. a. Rêverie und Claire de Lune von Claude Debussy, Habanera aus der Carmen-Suite von Georges Bizet und der Walzer aus Schwanensee von Pjotr Tschaikowsky) sowie
  3. zehn eigens adaptierte Popsongs den Soundtrack der Serie aus.

Diese zehn Popsong-Cover (nach Radiohead, Amy Winehouse, Nine Inch Nails, Soundgarden, The Animals und The Rolling Stones) sind in unterschiedlicher Form zu hören. Sechs von ihnen erklingen diegetisch[7] und werden von dem bereits erwähnten mechanischen Klavier im Saloon des Ankunftsortes Sweetwater gespielt. Die restlichen vier Songs sind wiederum extradiegetisch als Orchester- bzw. Streicherbearbeitungen zu hören.

Die Auswahl der Songs erfolgte nicht willkürlich, schließlich mussten teure Lizenzen bezahlt werden.[8] Ausgesucht wurden sie von Showrunner Jonathan Nolan,[9] laut eigener Aussage einem großen Radiohead-Fan,[10] was erklären kann, warum gleich vier Coversongs dieser Band im Soundtrack vorkommen, der Song No Surprises sogar in zwei unterschiedlichen Versionen.

Wie bei diesem Song, ist es auch bei einigen anderen schon allein der Titel, der eine signifikante Verbindung zum Seriengeschehen darstellt. Oft liegt aber auch in den Songtexten der Originalversion ein Verweis auf die entsprechende Szene oder auf eine darin handelnde Person. Die Texte selbst kommen zwar in den instrumentalen Coverversionen nicht vor, können aber als ein versteckter Hinweis auf das Innenleben der Hosts oder auch auf die zukünftige Handlung verstanden werden.

So erklingt No Surprises als Klaviercover im Saloon, als dem dort »arbeitenden« Host Maeve bewusst wird, dass sie sich in einem sich wiederholenden Loop befindet, also alles schon mehrmals so erleben musste. Ebenso hört man den Amy-Winehouse-Song Back to Black mit der für die Hosts so symbolhaften Zeile »I died a hundred times«.

Mit dieser Musik, gespielt vom mechanischen Klavier im Saloon, wird die sonst so perfekte Westernkulisse durchbrochen, denn es erklingen nicht nur zeitgemäßere Ragtimes von Scott Joplin,[11] sondern Popsongs aus unserem heutigen Hörhorizont. Dies ist ein Hinweis auf die Künstlichkeit der Welt für den Zuschauer* sowie den interseriellen Parkbesucher*:

»It just reminds you that something is not right here. It’s all fake.«

Ramin Djawadi[12]

Vorwegnahmen der Handlung lassen sich in den extradiegetischen, für Streicher oder Orchester bearbeiteten Songs finden. Beispielsweise verrät der ebenfalls von Radiohead stammende Titel Exit Music (for a Film) schon zu Beginn der finalen Szene der letzten Folge die folgende Auflösung, in der – wie im Songtext vorweggenommen – die ›Hölle auf Erden‹ losbricht.

»Wake from your sleep. […] Today we escape.

Pack and get dressed before your father hears us, before all hell breaks loose. […] You can laugh a spineless laugh. We hope your rules and wisdom choke you. Now we are one in everlasting peace.«

Radiohead, Exit Music (for a Film)

Auch die Auswahl der klassischen Musikstücke verdeutlicht Westworlds Künstlichkeit. Das zeigt sich besonders in einer später wiederkehrenden Szene am Ende von Folge 1, dem Überfall des Banditen Hector auf den Saloon in Sweetwater. Diese Szene kommt durch die Besonderheit der Handlung in sich wiederholenden Loops insgesamt dreimal in Staffel 1 vor, dabei jedoch jedes Mal mit unterschiedlicher Musik.

Ist es beim ersten Mal noch der orchestrierte Popsong Paint it Black (The Rolling Stones), so stehen in den zwei Wiederholungen der Szene aber klassische Titel, genauer Ausschnitte aus Ballett- bzw. Opernszenen: die Habanera aus der Carmen-Suite von Bizet sowie der Walzer aus Tschaikowskys Schwanensee. Das ist wiederum ein Hinweis für den Zuschauer*: Es passiert hier alles nicht wirklich, es ist eine durchkomponierte Choreographie.

Einen Sonderfall stellt Debussys Klavierstück Rêverie L. 68 dar. Es erklingt sowohl intra- als auch extradiegetisch mehrmals in der Serie und steht dabei symbolhaft für das mögliche Unterbewusstsein der Hosts beziehungsweise kann als die musikalische Manifestation des gleichnamigen Updates gedeutet werden. Dafür spricht, dass es erstmals in Folge 3 diegetisch im Büro des Gründers und Chefs des Parks, Dr. Robert Ford, erklingt, als er es von einem eigens für diesen Zweck programmierten Host spielen lässt. Später in der Serie ist es dann extradiegetisch in Rückblenden oder in Erinnerungen der Hosts an ihre früheren Leben zu hören. Tatsächlich wird in Folge 9 deutlich, dass Debussys Rêverie sogar in die Hosts einprogrammiert wurde.[13] Hier wird die Musik sowohl innerhalb der Handlung der Serie selbst als auch außerhalb für den Zuschauer* benutzt, um eine unterbewusste Verbindung einzelner Szenen herzustellen:

»The music is being controlled, and it’s being chosen for a reason. […] The great power of music is that something subconsciously happens when you listen to a piece of music, even if you don’t pay full attention to it. It just does something to us that nothing else can do, other than music.«

Ramin Djawadi

* * *

Zusammen mit dem mechanischen Klavier, das selbst schon als eine Allegorie der Hosts verstanden werden kann, ist die Verwendung der klassischen Musikstücke und Popsong-Cover eine bewusste und wiederkehrende Erinnerung an Westworlds Künstlichkeit. Dies ist gewollt und spiegelt sich in der innerhalb der Handlung der Serie aufgeworfenen Frage der Storywriter wider, ob die Perfektion des Parks und der Hosts, die mit jedem Update menschlicher werden, nicht zu weit gehe.

Es versteckt sich aber noch mehr in der passgenauen Auswahl der Popsongs sowie dem differenzierten Einsatz von Debussys Rêverie: In diesen Stücken lassen sich auch Zusatzinformationen und Vorwegnahmen der Handlung sowie Deutungen des Innenlebens der Hosts finden. Das geht so weit, dass die Musik durch die Rêverie selbst zum Teil des gesuchten Unterbewusstseins der Hosts wird. Damit wird die die Serie bestimmende Frage nach der bloßen Möglichkeit eines Innenlebens oder einer eigenen Identität der Hosts durch die Musik bereits deutlich vor dem eigentlichen Staffelfinale beantwortet.

 

Nachweise 

[1] Ich verwende ein * bei Begriffen, die alle möglichen Geschlechter mit einbeziehen.

[2] Bekannt vor allem für seine Romanvorlage für die Filme Jurassic Park (1990) und Westworld (1973).

[3] Es handelt sich um die zweite Zusammenarbeit nach Game of Thrones (ab 2011).

[4] <www.what-song.com/Tvshow/196/Westworld/s/739>.

[5] »Extradiegetisch«: nur außerhalb der Realität der Serie/des Films zu hören.

[6] Hier muss zwischen »extra«- und »intradiegetisch« unterschieden werden, da für die intradiegetische Musik innerhalb des Parks ausschließlich der Klang des mechanischen Klaviers verwendet wird.

[7] Diegetisch = auch in der Welt der Serie/des Films hörbar, einer Klangquelle innerhalb der Serie zuzuordnen.

[8] Vgl. Jason Lipshutz, Inside Westworld’s Rock Covers, 2016.

[9] Vgl. Gwilym Mumford, Play it again, 2016.

[10] Vgl. Jennifer Vineyard, Why You’ll Be Hearing a Lot of Radiohead on Westworld, 2016.

[11] <www.what-song.com/Tvshow/196/Westworld/s/739>.

[12] Vgl. Gwilym Mumford, Play it again, 2016.

[13] Vgl. Jennifer Vineyard, How Music Is Controlling the Hosts on Westworld, 2016.

 

Quellen und Literatur

Daub, Adrian: Westworld. Futter für die Junkies, in: Die Zeit, 2. Oktober 2016 <www.zeit.de/kultur/film/2016-09/westworld-hbo-serien-krise-serielles-erzaehlen/komplettansicht> (Abruf am 11. Februar 2018).

Kornhaber, Spencer: The Secret to Westworld’s Success Is in Its Music, in: The Atlantic, 8. Dezember 2016, <www.theatlantic.com/entertainment/archive/2016/12/westworld-soundtrack-ramin-djawadi-score-released/509969> (Abruf am 11. Februar 2018).

Lipshutz, Jason: Inside Westworld’s Rock Covers (And What Chris Cornell Thought of that Soundgarden Sync), in: billboard, 28. Oktober 2016, <www.billboard.com/articles/columns/rock/7557728/westworld-saloon-rock-covers-chris-cornell> (Abruf am 11. Februar 2018).

Locke, Charley: How Westworld’s Music Became Equal Parts Groundhog Day and MTV, in: Wired, 12. Februar 2016, <www.wired.com/2016/12/designing-westworld-music> (Abruf am 11. Februar 2018).

Mumford, Gwilym: Play it again, Ram: meet the man behind Westworld’s old-timey rock covers, in: The Guardian, 23. Oktober 2016, <www.theguardian.com/tv-and-radio/shortcuts/2016/oct/23/ramin-djawadi-westworld-old-timey-rock-song-piano-covers> (Abruf am 11. Februar 2018).

Vineyard, Jennifer: Why You’ll Hear Modern Songs Playing on Westworld, in: Vulture, 5. Oktober 2016, <www.vulture.com/2016/10/westworld-modern-songs.html> (Abruf am 11. Februar 2018).

Dies.: Why You’ll Be Hearing a Lot of Radiohead on Westworld, in: Vulture, 13. Oktober 2016, <www.vulture.com/2016/10/westworld-radiohead-music.html> (Abruf am 11. Februar 2018).

Dies.: How Music Is Controlling the Hosts on Westworld, in: Vulture, 23. November 2016, <www.vulture.com/2016/11/westworld-how-music-is-controlling-the-hosts.html> (Abruf am 11. Februar 2018).

Westworld Soundtrack, in: <www.what-song.com/Tvshow/196/Westworld/s/739> (Abruf am 11. Februar 2018).

Athanasius Kircher: Orpheus und die Macht der Musik

Kapitel I

Die wunderbare Kraft der Musik

Die Magie von Konsonanz und Dissonanz ist nichts anderes, sagen wir, als jene Wirksamkeit der wundersamen Klänge, eine Gewalt, die unter den anderen Arten der natürlichen Magie sicher keinen geringen Rang einnimmt. Einige Klänge besitzen nämlich eine so wunderbare Kraft zu verändern und mitzureißen, dass der menschliche Geist deren eigentliche Ursache offensichtlich kaum zu fassen vermag. Was für ein starker Magnetismus den musikalischen Weisen innewohnt und was für eine gewaltige Anziehungskraft, weiß jedermann, so dass die Alten nicht ohne Grund immer wieder den Musiker und Magier Orpheus anführen, der wilde Tiere, Wälder und sogar Steine mit dem magischen Klang seiner Leier anzog. Über ihn schreibt elegant Claudianus in der Vorrede seines zweiten Buchs über den Raub der Proserpina Folgendes:

Mit Freude griff damals der Sänger beim Fest für sein Vaterland
wieder in die Saiten seiner vernachlässigten Leier,
Und niedersetzend schlug er sachte mit dem Plektrum die Saiten,
führte mit munterem Daumen das edle Elfenbein.

Kaum hatte man ihn gehört, legten sich Wind und Wellen,
nur noch träge floss der Hebrus mit wenig Wasser.
Das Rhodepegebirge strecke seine Berge aus, die nach Gesang dürsteten,
und Ossa warf ab, recht geneigt, den kalten Schnee vom Grat.

Steil hinab stieg den schneebefreiten Haemus die Pappel,
und ihre Freundin, die Pinie, zog die Eiche als Begleiterin mit sich.
Wie sehr er auch die Phyrreischen Künste Apolls verschmäht hatte,
der Stimme des Orpheus schmiegte der Lorbeer sich an und kam.

Mit zärtlichem Blick schauten die Molosserhunde auf den unbesorgten Hasen,
und das Lamm näherte sich dem Wolf und bot ihm seine Flanke.
Einträchtig spielte die Schar der Rehe mit dem Tiger
und die Hirsche scheuten nicht mehr die numidische Mähne.

[Claudianus, De raptu Proserpinae II, praefatio, 13–28]

Diese wundersame Anziehung von Tieren, Bäumen und Felsen muss man teils bildlich, teils allegorisch verstehen.

Was es bedeutet,
dass Orpheus Steine angezogen haben soll

Damit gaben die Alten zu verstehen, dass die Macht der Musik in der Seele die größte sei, dass sie sich entsprechend der Unterschiede in den Klängen und Harmonien verändere und ihnen folge, wie Wachs, das man beliebig kneten kann. Deshalb nannten sie die Musik den »Anfang aller Dinge«, wie auch Psellus in seiner Musica sagt:

»Die Musik hält nach Meinung der Alten alles zusammen.«

»τὴν μουσικὴν οἱ πάλαιοι συνέχειν εἶπον τὸ πᾶν.«

Außerdem erkannten sie, dass die Musik die Sitten bilden und verändern kann und dass nichts so leicht in zarte und weiche Herzen eindringe wie der Gesang unterschiedlicher Töne, von denen man kaum sagen kann, welche Wirkung für beides in ihnen wohnt, nämlich träge Menschen anzustacheln und aufgeregte zu beruhigen, einmal die Herzen zu entspannen, sie dann wieder anzuspannen, wie dies später noch ausführlicher dargelegt wird. Steine, Bäume und Tiere, das heißt völlig unverständige, wilde und unermesslich grausame Menschen wurden durch den göttlichen Klang seiner Leier angezogen, und er führte sie zu Menschlichkeit und geselliger Lebensweise. Andere fassen die besagte Anziehung allegorisch auf, indem sie darauf verweisen, dass Orpheus ein großartiger Astrologe und Musiker gewesen sei, der in beiden Künsten sehr erfahren war, so dass er Töne ordnen und mischen und die Harmonie der Himmelsgestirne habe nachahmen können, auf die er sich sehr gut verstand. Und er habe diese Harmonie in derjenigen Weise hervorgerufen, dass er allen Einfluss und alle Kraft der Gestirne zu sich hinabziehen und mithilfe dieser Kraft durch sein Spiel alles, was er wollte, bewegen und auch zur Ruhe bringen konnte. Einige fügen noch hinzu, dass er, da er sehr gut wusste, nach welcher Proportion und mit welchem Zusammenspiel alles von der Natur gebaut und zusammengefügt wurde und was jedem die Sterne bereitet hätten und welchem jeder unterworfen sei, seine Spielweise diesen Dingen und ihren Sternen anpasste und so das Unbelebte durch die Kraft der Sterne in Bewegung gesetzt habe, und dass er, was in ihnen verborgen lag, durch seine Harmonie quasi nach außen brachte, nicht anders, als das Eisen aus dem Stein das darin verborgene Feuer schlägt oder die Luft aus dem Blasebalg die verborgene Flamme [aus der Asche] hervorbringt. Gibt es doch in allen Dingen so etwas wie verborgene Flämmchen und Anlagen und Empfindung für die Harmonie, so dass die Alten sagten, Gott selbst sei die Harmonie von allem.

Das Streben nach Harmonie steckt in allem

Nach der Aussage des Proklos stimmen alle Dinge zusammen Hymnen auf die Anführer ihrer Ordnung an, aber jeweils anders die Wesen von geistiger Art, von verstandesmäßiger, von natürlicher oder nur sinnenmäßiger. Gesetzt also, dass jemand wirklich das Schlagen hörte (sagt Proklos), das einzelne Phänomene in der Luft auf ihr Rund ausüben – wie die Sonnenteilchen auf die Sonne, die Mondteilchen auf den Mond –, so nähme dieser sicher einen besonderen Klang wahr, der wohl passend auf seinen König ausgerichtet ist, von welcher Art immer ihn einzelne Dinge bewirken können.

Es ist bekannt, was diese magnetische Kraft der Musik, die alles bewegt, bei den Menschen bewirken kann. Denn kein Herz kann so verhärtet und wild sein, dass es nicht durch geeignete Melodien und Gesänge, die das Herz umreißen, erweicht würde oder sich auf der anderen Seite gegen unpassende und unstimmige Melodien verschlösse und wehrte.

Einfluss der Musik auf Herzen der Menschen

Ein Lied komponierte Musäus, das als süße Himmelsgabe für die Menschen alles besänftigte. Es dröhnen im Krieg die Trommeln, um den bald Kämpfenden Mut zu machen, Trompeten und Flöten erklingen, um die Herzen der Soldaten im Kampf zu erheben. Der Musiker Timotheus konnte mit seinem phrygischen Gesang Alexanders Herz nach Belieben so anfeuern, dass er ganz wild zu den Waffen rannte. Wollte der Sänger es aber anders, so wechselte er die Tonart, besänftigte Alexanders Wut und zog das beruhigte Herz hin zum Essen und zu Gelagen. Ähnliches lesen wir über einen Kitharöden des Königs von Dänemark. Hat nicht Pythagoras, wie es Cicero bezeugt, einen Jüngling aus Taormina, der durch eine unglückliche Liebe wie durch eine Rossbremse gereizt war, durch seinen Spondeus besänftigt und beruhigt? Sicher wird gesagt, dass Theophrast musikalische Klänge verwendet haben soll, um Stürme und Verwirrungen des Herzens zu bändigen. Als Klytämnestra von einem Kitharöden zur Standhaftigkeit und Keuschheit angehalten wurde, konnte Agamemnon sie deshalb verlassen – so berichtet es uns die Geschichte der Trojaner. Von ihm bezeugt Plutarch, dass er durch Melodien eines Kitharöden so entflammt wurde, dass er Waffen, die ihm gerade im Wege lagen, an sich gerissen und seine gewalttätigen Hände gegen die gerichtet habe, die ihn umgaben.

Musikalische Weisen fesseln nicht nur die Menschen, sondern auch die Tiere. Elefanten werden durch Trommeln angelockt, wie es Strabo bezeugt, Schwäne durch die Kithara, mit süßem Ton singt die Flöte wie ein Vogel, wenn die Doppelflöte sein Lied vortäuscht. Der Bären eingeborene Wildheit und ihre wilde Zügellosigkeit werden allein durch den Klang der Flöte, den sie hören, zur Ruhe gebracht. Mit den Weisen einer Flöte soll Pythagoras einen Angriff von Wölfen abgewehrt haben.

Die Kraft der Musik als Heilmittel für Krankheiten

Schließlich ist die Musik ein ausgezeichnetes Heilmittel, geeignet, um alle Krankheiten zu vertreiben. Dass durch sie Menschen geheilt werden, die an Beschwerden von Ischias, Melancholie, Raserei, Besessenheit und an Vergiftungen leiden, berichten kirchliche und weltliche Erzählungen, wie später dargelegt wird.

Wie die Sache mit der Trompete für Taube zu verstehen ist

Dass auch weniger bekannten Autoren immer wieder behaupten, Asklepiades habe mit einer Trompete Taube geheilt, will ich nicht recht so verstehen, als hätte er dies mit Ton und Klang einer Trompete bewerkstelligt. Wohl aber könnte er mit einem Gerät, das in Form einer Trompete gebaut und in die Ohren von Tauben gesteckt wurde (wie dies heutzutage viele an Taubheit Leidende benutzen; der Bau des Geräts wird im Folgenden mitgeteilt), die Gestalt der Klänge und der Wörter zusammengefügt und durch unterschiedlichen Widerhall mithilfe des Gerätes im Ohr eines Tauben besser hörbar gemacht haben. Dadurch könnte auf wunderbare Weise den Tauben geholfen worden sein. So ist der Kern der Erzählung aufzufassen, nach welcher Asklepiades Taube mit dem Klang einer Trompete geheilt habe.

Dies vorausgeschickt – wollen wir jetzt nicht betrachten, welcher Magnetismus in der Musik wirkt, um die Herzen anzuziehen? Welche Proportionen die Konsonanzen haben müssen, so dass wir uns an ihnen beim Hören so sehr erfreuen, und was es mit der musikalischen Zahl, dem Gewicht und der Mensur sowohl bei den Klängen als auch im Gehör oder auch in der Seele auf sich hat, je nachdem, ob sie sich an Klängen erfreut oder aber beim Hören von irgendeinem Leidgefühl übermannt wird? Es gibt nämlich Klänge, die so lästig und misstönend sind, dass durch ihre Unkultiviertheit die Zähne von selbst knirschen. Und dann wieder andere, die so stimmig und kultiviert sind und die so süß einströmen, dass sie die Seele zu entrücken scheinen.

Unterschiedliche Meinungen über die Kraft der Musik

Wenn ich mir das anschaue, so lässt es sich kaum sagen, wie groß die Meinungsverschiedenheiten und Streitigkeiten der Autoren bezüglich der Kraft und Wirkung solcher Harmonie sind und wie sehr die Meinungen fast aller Autoren über die Konsonanzen der Gesänge auseinandergehen, wobei einige diese Kraft Gott als der Quelle jeglicher Konsonanz oder einer aus Zahlen aufgebauten Seele zuweisen, andere irgendeinem himmlischen Einfluss oder einem kabbalistischen Dekachordum, wieder andere einem geheimnisvollen Mitempfinden der Seele mit den musikalischen Zahlen und viele Autoren den Gesetzen der Geometrie. All diese, die so uneins sind und sich geradezu mit der Wahrheit im großen Missklang befinden, lassen wir hinter uns und wollen endlich ans Licht bringen, was wir über die ziehende Macht der Musik, die den Geist anzuziehen versteht, feststellen können und mit welchen Verfahrensweisen und mit welchem Verlauf sie ihre unterschiedlichen Einflüsse nicht nur auf Menschen, sondern auch auf wilde Tiere ausübt.

 

Athanasius Kircher: Musurgia universalis, Rom 1650
MU B, IX 1.1, S. 201–203

TV-Musik: »House of Cards«

Anselm Vollprecht

Musikalische Repräsentation von Macht in House of Cards

Stellen Sie sich vor, Sie bekommen einen Anruf und werden gefragt, ob Sie die Musik für eine Politik-Fernsehserie schreiben können. Was ist das Besondere an dem Material?

»There is a lot of dialogue and a lot of the narrative happens about stuff that you are not really seeing«,

sagt der Komponist Jeff Beal dazu in einem Interview.

Bedeutsamkeit erhalten diese Dialoge durch die Konsequenzen, die mit ihnen verbunden sind. Die Protagonisten besitzen politische Macht, ihre Worte haben schweres Gewicht. Wenn diese Folgen nicht sichtbar sind, kann stattdessen die Musik aushelfen. Doch welche musikalischen Mittel können die Assoziation der Bedeutsamkeit herstellen, die politische Macht mit sich bringt? Sind diese Mittel universell oder kulturell verschieden?

Diese Fragen werden im Folgenden anhand der Analyse der Musik von zwei Fernsehserien mit demselben Sujet untersucht: House of Cards ist eine Geschichte über einen machthungrigen Politiker, der mithilfe von Intrigen, Korruption und Mord die höchste Position im politischen System erreicht. Der Roman von Michael Dobbs wurde zweimal in Fernsehserien umgesetzt – Anfang der 1990er Jahre in Großbritannien und seit 2013 im Auftrag von Netflix mit Schauplatz Washington.

Folgende These werde ich untersuchen: Die musikalische Repräsentation von politischer Macht basiert in House of Cards auf kulturell geprägten Stereotypen. Dabei werde ich mich aus mehreren Gründen auf die Titelmusik konzentrieren. Sie ist in TV-Serien von besonderer Bedeutung: Jeff Beal, der Komponist der US-amerikanischen Version, sagt, der Vorspann sei eine Art musikalischer »Mikrokosmos der Welt der Serie«. Hier sollen also ein bestimmtes Setting und eine Atmosphäre hergestellt werden. Daher gehe ich davon aus, dass die Titelmusik in Bezug auf die Herstellung einer Atmosphäre der (politischen) Macht eine besondere Rolle einnimmt. Außerdem bietet sie sich im Hinblick auf einen Vergleich der beiden Serien an, denn sowohl in der US-amerikanischen als auch in der britischen Version gibt es eine prominente Titelmusik.

Für die Untersuchung wähle ich drei verschiedene Ansatzpunkte:

  • Erstens versuche ich eine möglichst objektive Analyse der Musik und der verwendeten musikalischen Mittel.
  • Zweitens beschreibe ich als Beispiel meinen subjektiven Höreindruck und die damit verbundenen Assoziationen.
  • Wenn vorhanden, beziehe ich drittens Aussagen der Komponisten ein.

Musikalische Zeichen

Die Wirkungen und Assoziationen, die bestimmte musikalische Höreindrücke bei Zuschauern auslösen, sind in hohem Maße subjektiv. Dennoch arbeiten Filme und Fernsehserien mit einem erwarteten, intersubjektiven, gemeinsamen Assoziationspotenzial des Publikums.

Anselm Kreuzer, deutscher Filmkomponist, schreibt, musikalische Zeichen seien – ähnlich sprachlichen Codes – relativ stabil.[1] Unter ›musikalischem Code‹ versteht Kreuzer bestimmte Gestaltungselemente, die sich im westlichen Kulturraum bereits in der Geschichte der Oper herausgebildet hätten und beim Hörer relativ konstante Assoziationen auslösten.[2] Dieser Code sei also kulturell gewachsen.

Die US-amerikanische Filmwissenschaftlerin Claudia Gorbman schreibt, bestimmte Musikinstrumente, Rhythmen, Melodielinien oder Harmonien böten ein ganzes Lexikon an musikalischer Konnotation, welches von den Filmmusikstudios in erheblichem Maße verwendet werde.[3] Filmmusik schaffe, aufgrund ihres hohen Grades an kultureller Codierung, effizient eine bestimmte Atmosphäre und einen historischen, geografischen Rahmen.[4]

Reinhard Kungel gibt in seinem Handbuch Filmmusik für Filmemacher konkrete Hinweise auf die Zuordnung von musikalischen Gestaltungselementen:

»Trompeten repräsentieren vor allem im amerikanischen Kino Macht und Nationalstolz – wohl eine Spätwirkung der von Trompetenklängen begleiteten Befreiungskriege.«[5]

Dies kann als weiteres Beispiel dafür gewertet werden, dass die Beschäftigung mit musikalischen Zeichen ein Teil der Arbeit von Filmmusikkomponisten ist. Dabei bleibt die Analyse des tatsächlichen Ursprungs eines musikalischen Zeichens sekundär, solange sich die erhoffte Wirkung bei einem Großteil der Zielgruppe einstellt. Das heißt, ein musikalisches Zeichen für Indianer muss nicht zwangsläufig etwas mit der Musik der indigenen Bevölkerung Amerikas zu tun haben, dafür aber mit der Vorstellung, die das Publikum von dieser Musik hat.

Dazu schreibt der Filmmusikwissenschaftler Wolfgang Thiel:

»Bei der bewussten Wahrnehmung eines für uns neuen Musikwerkes bilden und überprüfen wir unser Urteil mit Hilfe des Gedächtnisses an inneren Wertmodellen, die als Ergebnis des bisherigen Umgangs mit Musik in unserem Bewusstsein existieren.«[6]

Jim Parker: Francis Urquhart’s March

Die Musik für die britische BBC-Produktion wurde von Jim Parker (* 1934) geschrieben, einem britischen Komponisten und Instrumentalisten (Klarinette und Englischhorn), der jenseits von Film und TV auch mit Kammermusik in Erscheinung getreten ist. Für die Titelmusik schrieb er Francis Urquhart’s March, benannt nach dem Protagonisten der Serie:

March.jpg

Das 52 Sekunden lange Stück im Viervierteltakt (Tempo ♩= 112) besteht aus einer dreimaligen Wiederholung der oben notierten achttaktigen Form sowie einer ebenfalls achttaktigen Melodie. Die Komposition steht (anders als im Notenbeispiel) in D-Dur und basiert auf einfacher Kadenzharmonik.

Das Thema ist durch Einfachheit, punktierte Achtel- und Sechzehntelnoten sowie einen Umfang von einer Oktave charakterisiert. Zunächst wird es von Trompeten gespielt, beim zweiten Mal von Hörnern und beim dritten Mal von Posaunen. Trompeten und Hörner fügen im zweiten bzw. dritten Durchgang weitere Begleitstimmen hinzu.

Blasinstrumente und klassisches Schlagwerk haben, wie es typisch für einen Marsch ist, eine übergeordnete Rolle. Eine kleine Trommel beginnt mit einem Auftakt und schlägt dann Viertel, bis sie im letzten Durchgang von der Pauke abgelöst wird. Auch ein größeres Streichensemble ist zu hören. Es hat eine begleitende Funktion, spielt im ersten Durchgang Akkordtöne in abgesetzten Vierteln und im weiteren Verlauf hintergründige Klangflächen. Die Aufnahme wurde mit einem Studioorchester hergestellt. Es sind keine digitalen Veränderungen am Klang hörbar.

Mich erinnert die Titelmusik an eine Nationalhymne oder die Untermalung eines staatlichen Festakts, auch an englische Musik des 18. Jahrhunderts. Man hört ein groß besetztes Orchester und militärisch konnotierte Schlagwerkklänge. Gleichzeitig hat die Melodie etwas Feines, Elegant-Aristokratisches, das an traditionelle, königliche Hofzeremonien denken lässt.

Der Fokus scheint auf dem Alter und der Tradition der britischen Demokratie zu liegen, passend zur Architektur des im Bild gezeigten Westminster Palace. Die Assoziation von Macht ergibt sich aus dem Hinweis auf Tradition.

Jeff Beal: Main Theme for »House of Cards«

Verantwortlich für die Musik der US-amerikanischen Version ist der amerikanische Komponist und Jazztrompeter Jeff Beal (* 1963).

Die Titelmusik ist etwa 90 Sekunden lang und steht in einem langsamen Viervierteltakt (♩= 98). Charakteristisch ist ein rhythmisiertes E-Bass-Ostinato auf Grundton und Terz von a-Moll. Über diesem Bass-Orgelpunkt ergeben sich verschiedene Akkorde. An einer Stelle entsteht dabei eine Dissonanz von A-Dur über a-Moll. Jeff Beal sagt in einem Interview dazu:

»Mir hat die Spannung, die dadurch hergestellt wird, immer gefallen, weil es ein Fehler ist und dadurch der Eindruck erzeugt wird, dass hier irgendetwas nicht stimmt.«

Hinzu kommen mehrere weitere Elemente: Ein Drumset setzt auf der Snaredrum Akzente und spielt in der zweiten Hälfte durchgehende Achtel auf der geschlossenen Hi-Hat. Das getragene Hauptthema wird von tiefen Streichern und einem Horn gespielt. Eine Trompete spielt eine wie improvisiert wirkende Melodie im Hintergrund. Außerdem erklingt eine Folge von Akkordbrechungen, die von einem Klavier gespielt werden. Dieses Arpeggio wird von Beal als »Puppenspieler-Element« bezeichnet. Im Verlauf des Stückes wechseln sich die verschiedenen Elemente ab oder überlagern sich. Hinzu kommen elektronisch-atmosphärische Klangflächen und Geräuschelemente.

Die Produktion ist digital: Auf der gesamten Tonspur, vor allem auf Schlagzeug und Trompete, befindet sich ein starker Hall-Effekt. Viele Klänge sind nicht identifizierbar und wirken elektronisch generiert. Dies legt nahe, dass nicht mit einem Studioorchester gearbeitet wurde, wobei einzelne Stimmen durchaus mit ›echten‹ Instrumenten eingespielt sein können.

Jeff Beal bezeichnet die vom Produzenten gewünschte Wirkung als »Ruf zu den Waffen«, hymnenartig, dunkel-verdreht und unheilvoll. Der wummernde, wabernde Bass prägt den Charakter der Titelmusik. Mithilfe des Halleffekts auf den Instrumenten wird der Anschein eines riesigen Raumes erzeugt, während die Snaredrum eine militärische Assoziation hervorruft. Die Streicher wiederum erinnern an romantisch-bürgerliche Konzerttradition.

* * *

Bedingt von ihren Kulturräumen Großbritannien und USA bedienen sich die Komponisten teils ähnlicher, teils grundlegend unterschiedlicher musikalischer Mittel. Jim Parker assoziiert im Großbritannien der 1990er Jahre Macht vor allem mit viktorianisch-traditioneller Orchestermusik. Der Amerikaner Jeff Beal will vergleichbare Assoziationen mit dunklen Bass-Frequenzen, Hall-Effekten und fernen Trompetenklängen erzeugen.

Die Titelmusiken der beiden House of Cards-Serien sind beispielhaft für die vielfältige und komplexe Arbeit mit Assoziationen in der Film- und Fernsehmusik. Gleichzeitig kann die Wirkung dieser Musik Ansätze für Rückschlüsse auf einen musikalischen Code geben. Einblicke in Handbücher für Filmmusikkomponisten und das Interview mit Jeff Beal bestätigen den Eindruck, dass ›funktionierende‹ Film- und Fernsehmusik passgenau die Vorurteile und Assoziationspotenziale des Publikums bedient. Die Repräsentation von politischer Macht basiert also in beiden Versionen von House of Cards auf der Verwendung von musikalischen Stereotypen.

 

Nachweise

[1] Anselm C. Kreuzer, Filmmusik in Theorie und Praxis, S. 77.

[2] Ebd.

[3] Claudia Gorbman, Unheard Melodies, S. 85.

[4] Ebd., S. 58.

[5] Reinhard Kungel, Filmmusik für Filmemacher, S. 54.

[6] Wolfgang Thiel, Filmmusik in Geschichte und Gegenwart, S. 39.

 

Literatur

Eco, Umberto: Function and Sign. The Semiotics of Architecture, in: Rethinking Architecture. A Reader in Cultural Theory, hrsg. von Neil Leach, Padstow: Routledge 2006, S. 182–202.

Gorbman, Claudia: Unheard Melodies: Narrative Film Music, London u. a.: BFI 1987.

Kreuzer, Anselm C.: Filmmusik in Theorie und Praxis, Konstanz: UVK 2009.

Kungel, Reinhard: Filmmusik für Filmemacher: Die richtige Musik zum besseren Film, Heidelberg: d-punkt 2008.

Thiel, Wolfgang: Filmmusik in Geschichte und Gegenwart, Berlin: Henschelverlag 1981.

Weidinger, Andreas: Filmmusik, Konstanz: UVK 2006.

Musik in LucasArts-Spielen

Inhalt.jpg

Im Dezember 2016 fand am Leipziger Zentrum für Musikwissenschaft die Tagung Videospiele: interdisziplinäre Perspektiven statt. In diesem Rahmen wurden von Studierenden Poster-Präsentationen zur Musik in einigen Spielen von Lucasfilm Games bzw. LucasArts aus den 1990er Jahren vorbereitet. Diese Poster können Sie hier ansehen.

 

Alexandra Alt und Jonas Enseleit – Indiana Jones and the Fate of Atlantis (1992):

Indiana Jones.jpg

Indiana Jones and the Fate of Atlantis

 

Humiaki Otsubo – Zombies Ate My Neighbors (1993):

Zombies.jpg

Zombies Ate My Neighbors

 

Max Wolffgang – The Dig (1995):

TheDig.jpg

The Dig

 

Max Giebel – Afterlife (1996):

Afterlife.jpg

Afterlife

 

Maria von Haebler und Georg Heinel – Grim Fandango (1998):

GrimFandango.jpg

Grim Fandango

 

Maike Böckenhoff und Tim Griesbach – Star Wars: Rogue Squadron (1998):

RogueSquadron.jpg

Star Wars: Rogue Squadron

Elementare Harmonielehre mit dem Computer

Im Frühjahr 1990 habe ich für den Commodore AMIGA in GFA-BASIC ein Programm geschrieben, das einfache Generalbässe und Funktionsfolgen (beides nur in Dur) halbwegs manierlich aussetzen kann. Das Programm berechnet zuerst alle Möglichkeiten (also alle enthaltenen Akkorde in allen denkbaren Lagen) und bewertet sie dann nach mehreren Stimmführungsregeln: Bleiben gemeinsame Töne liegen? Ist der nächste Weg gewählt? Gibt es Quint- (schlecht!) oder Oktavparallelen (ganz schlecht!!)? Ist die Lage zu hoch oder zu tief? Dann wird die beste Variante ausgewählt und entweder als Text oder mit einer furchtbar unästhetischen Grafikroutine ausgegeben. So wenig das Programm kann (man könnte es eigentlich modular erweitern, aber offenbar hatte ich nach einem Monat das Interesse daran wieder verloren) und so viele Fehler es auch macht (zum Beispiel den Tenor in Fis-Dur beharrlich eine Oktave zu tief zu setzen, obwohl man »enge Lage« bestellt, siehe die Abbildung unten): Elementare Harmonielehre scheint sich also zumindest rudimentär ›algorithmisieren‹ zu lassen.

Unten steht der uralte, fehlerhafte und wenig elegante Sourcecode von 1990. Wer ein ADF-Diskimage mit dem Programm haben möchte, kann mir eine Mail schreiben (an christoph PUNKT hust AT gmx PUNKT de). Dafür wäre allerdings zusätzlich ein AMIGA-Emulator wie Amiga Forever nötig. Und nur für dieses Harmonielehre-Programm würde sich das nicht lohnen.

Christoph Hust

 

' *********************************************
' *********************************************
' **                                         **
' ** HL.GFA: (sehr) elementare Harmonielehre **
' **         (Aussetzen von einfachen Gene-  **
' **          ralbässen und Funktionsfolgen  **
' **          in Dur mit grafischer Ausgabe) **
' **                                         **
' ** Programmiert in GFA-BASIC auf dem Com-  **
' ** modore Amiga. Begonnen am 23. 02. 1990, **
' ** "abgeschlossen" bzw. aufgegeben am      **
' ** 25. 03. 1990. Programmiert von          **
' ** Christoph Hust. -- Ich war jung und     **
' ** hatte keine Ahnung. :)                  **
' **                                         **
' *********************************************
' *********************************************
'
' >>> Variablen initialisieren <<<
'
DIM stufe$(7,4),x$(10),vorzeichen$(2,6,2),akkord$(4),tonleiter$(12,2),oktave(4)
DIM lak$(4),moeglichkeit$(4,4),differenz(4,4),okta(4,4),bewertung(4),weg(4)
DIM leiter$(8)
GOSUB variablen
'
' >>> Modus etc. abfragen <<<
'
ALERT 1,"Programm-Modus?",1,"  GB  |  Akkorde ",modus
INPUT "Tonart: ",tonart$
GOSUB tonnameneinlesen
INPUT "Anzahl der Akkorde";zahl
DIM akkorde$(zahl),tonlaengen(zahl),kadenz$(zahl,4,4),baß$(zahl)
ALERT 1,"Ausgabe als Noten|oder als Text?",2," Text | Noten",zeichnen
'
' >>> Eingabeprozedur <<<
'
FOR i=1 TO zahl
  IF modus=gbaß THEN
    PRINT "Baßton Nr.";i;
    INPUT baß$(i)
    INPUT "Bezifferung";akkorde$(i)
    IF akkorde$(i)="/" THEN
      akkorde$(i)=akkorde$(i-1)
    ENDIF
    IF zeichnen=2 THEN
      ALERT 1,"Tonlänge?|1/1=Ganze, 1/2=Halbe, 1/4=Viertel",2," 1/1 | 1/2 | 1/4 ",tl
      SELECT tl
      CASE 1
        tonlaengen(i)=1
      CASE 2
        tonlaengen(i)=2
      CASE 3
        tonlaengen(i)=4
      ENDSELECT
    ENDIF
  ELSE
    PRINT "Akkord Nr.";i;
    INPUT akkorde$(i)
    akkorde$(i)=UPPER$(akkorde$(i))
    IF zeichnen=2 THEN
      ALERT 1,"Tonlänge?|1/1=Ganze, 1/2=Halbe, 1/4=Viertel",2," 1/1 | 1/2 | 1/4 ",tl
      SELECT tl
      CASE 1
        tonlaengen(i)=1
      CASE 2
        tonlaengen(i)=2
      CASE 3
        tonlaengen(i)=4
      ENDSELECT
    ENDIF
  ENDIF
  IF @gueltigerakkord(akkorde$(i))=0 THEN
    IF modus<>gbaß THEN
      ALERT 1,akkorde$(i)+": unbekannter Akkord.",1," NOCHMAL ",dummy
      DEC i
    ENDIF
  ENDIF
NEXT i
ALERT 1,"Lage des ersten Akkords?|3=Terzlage,|5=Quintlage,|8=Oktavlage",3," 3 | 5 | 8 ",l
SELECT l
CASE 1
  anfangslage=3
CASE 2
  anfangslage=5
CASE 3
  anfangslage=8
ENDSELECT
ALERT 1,"Weite oder|enge Lage?",1," eng | weit ",lagewe
'
' >>> Berechnung durchführen <<<
'
CLS
PRINT AT(4,4);"Einen Moment, ich rechne."
FOR nummer=1 TO zahl
  PRINT AT(5,5);"Ich bin momentan bei Akkord Nr. ";nummer;". Noch ";zahl-nummer;" Akkorde zu berechnen.   "
  PRINT AT(5,6);TIME$,DATE$
  IF modus=gbaß THEN
    GOSUB generalbaß(baß$(nummer),akkorde$(nummer))
  ELSE
    GOSUB akkord(akkorde$(nummer))
  ENDIF
  IF nochmal=1 THEN
    DEC nummer
  ELSE
    FOR stimme=baß TO sopran
      kadenz$(nummer,stimme,1)=akkord$(stimme)
      kadenz$(nummer,stimme,2)=STR$(oktave(stimme))
    NEXT stimme
    FOR i=baß TO sopran
      lak$(i)=akkord$(i)
    NEXT i
  ENDIF
NEXT nummer
'
' >>> Ausgabe <<<
'
CLS
IF zeichnen=2 THEN
  PUT 3,10,gschl$
  PUT 3,45,fschl$
  gt$="e"
  GOSUB stammton(gt$)
  gt$=stton$
  xposition=20
  GOSUB vorzeicheneintragen
  xposition=xposition+10
  PUT xposition,22,vier$
  PUT xposition,32,vier$
  PUT xposition,52,vier$
  PUT xposition,62,vier$
  xposition=xposition+30
  GOSUB stammton("c")
  c$=stton$
ENDIF
FOR nummer=1 TO zahl
  IF zeichnen=2 THEN
    PRINT AT(xposition/8+1,11+seite/10+(3*seite/100));akkorde$(nummer);
    FOR stimme=baß TO sopran
      GOSUB note(tonlaengen(nummer),kadenz$(nummer,stimme,1),VAL(kadenz$(nummer,stimme,2)))
    NEXT stimme
    tkt=tkt+1/tonlaengen(nummer)
    IF tkt>=1 THEN
      tkt=0
      GOSUB taktstrich
    ENDIF
    xposition=xposition+30
    IF xposition>=600 THEN
      IF seite=0 THEN
        seite=110
        xposition=0
        PUT 3,120,gschl$
        PUT 3,155,fschl$
        xposition=20
        GOSUB vorzeicheneintragen
        xposition=xposition+20
      ELSE
        GOSUB notenpapier
        ALERT 1,"Seite ist voll.|Ausdrucken?",2," Ja | Nein",druck
        IF druck=1 THEN
          HARDCOPY
        ENDIF
        CLS
        seite=0
        xposition=20
        PUT 3,10,gschl$
        PUT 3,45,fschl$
        GOSUB vorzeicheneintragen
        xposition=xposition+10
        PUT xposition,22,vier$
        PUT xposition,32,vier$
        PUT xposition,52,vier$
        PUT xposition,62,vier$
        xposition=xposition+30
      ENDIF
    ENDIF
  ELSE
    PRINT "Nr. ";nummer;": ";akkorde$(nummer);
    FOR stimme=sopran DOWNTO baß
      PRINT TAB(10*stimme);
      GOSUB ausgabe(kadenz$(nummer,stimme,1),VAL(kadenz$(nummer,stimme,2)))
    NEXT stimme
    PRINT
    PRINT STRING$(70,"-")
    IF nummer MOD 5=0 THEN
      REPEAT
      UNTIL INKEY$<>""
      CLS
    ENDIF
  ENDIF
NEXT nummer
IF zeichnen=2 THEN
  xposition=xposition-55
  GOSUB taktstrich
  xposition=xposition-28
  GOSUB taktstrich
  GOSUB notenpapier
  ALERT 1,"Ausdrucken?",2," Ja | Nein ",druck
  IF druck=1 THEN
    HARDCOPY
  ENDIF
ENDIF
END
'
' *******************
' ** Unterroutinen **
' *******************
'
' ----------
' - AKKORD -
' ----------
'
' baut mittels BILDEAKKORD die Akkorde in allen Lagen auf
' und speichert sie im Array "moeglichkeit$()"
'
PROCEDURE akkord(akkordname$)
  IF nummer=1 THEN                                    ! Erster Akkord
    GOSUB bildeakkord(akkordname$,anfangslage)
    GOSUB bestimmebaßton
    FOR i=1 TO 3
      FOR ton=baß TO sopran
        moeglichkeit$(i,ton)=akkord$(ton)
      NEXT ton
    NEXT i
    IF lagewe=1 THEN
      FOR i=tenor TO sopran
        ii=0
        DO
          INC ii
          EXIT IF tonleiter$(ii,1)=moeglichkeit$(1,i) OR tonleiter$(ii,2)=moeglichkeit$(1,i)
        LOOP
        SELECT i
        CASE 2
          IF ii>1 THEN
            DEC oktave(tenor)
          ENDIF
        CASE 3
          IF ii>3 THEN
            DEC oktave(alt)
          ENDIF
        CASE 4
          IF ii>10 THEN
            DEC oktave(sopran)
          ENDIF
        ENDSELECT
      NEXT i
    ELSE
      p=0
      DO
        INC p
        EXIT IF tonleiter$(p,1)=moeglichkeit$(1,baß) OR tonleiter$(p,2)=moeglichkeit$(1,baß)
      LOOP
      DO
        INC p
        IF p=13 THEN
          INC flg
          p=1
        ENDIF
        EXIT IF tonleiter$(p,1)=moeglichkeit$(1,tenor) OR tonleiter$(p,2)=moeglichkeit$(2,tenor)
      LOOP
      oktave(tenor)=oktave(baß)+flg
      flg=0
      DO
        INC p
        IF p=13 THEN
          INC flg
          p=1
        ENDIF
        EXIT IF tonleiter$(p,1)=moeglichkeit$(1,alt) OR tonleiter$(p,2)=moeglichkeit$(1,alt)
      LOOP
      oktave(alt)=oktave(tenor)+flg
      flg=0
      DO
        INC p
        IF p=13 THEN
          INC flg
          p=1
        ENDIF
        EXIT IF tonleiter$(p,1)=moeglichkeit$(1,sopran) OR tonleiter$(p,2)=moeglichkeit$(1,sopran)
      LOOP
      oktave(sopran)=oktave(alt)+flg
    ENDIF
    IF oktave(sopran)<3 THEN
      IF lagewe=2 THEN
        FOR stimme=baß TO sopran
          INC oktave(stimme)
        NEXT stimme
      ENDIF
    ENDIF
  ELSE
    GOSUB bildeakkord(akkordname$,3)    ! Akkord in Terzlage aufbauen
    FOR ton=baß TO sopran
      moeglichkeit$(1,ton)=akkord$(ton)
    NEXT ton
    GOSUB bildeakkord(akkordname$,5)                   ! in Quintlage
    FOR ton=baß TO sopran
      moeglichkeit$(2,ton)=akkord$(ton)
    NEXT ton
    GOSUB bildeakkord(akkordname$,8)               ! und in Oktavlage
    FOR ton=baß TO sopran
      moeglichkeit$(3,ton)=akkord$(ton)
    NEXT ton
    GOSUB bestimmebaßton
  ENDIF
  FOR n=1 TO 3
    FOR ton=tenor TO sopran
      okt=oktave(ton)
      GOSUB ermittledifferenz(akkord$(baß),moeglichkeit$(n,ton))
      IF nummer=1 THEN
        differenz(n,ton)=abstandaufwaerts
      ELSE
        GOSUB ermittledifferenz(lak$(ton),moeglichkeit$(n,ton))
        IF abstandaufwaerts>abstandabwaerts THEN
          differenz=-abstandabwaerts
        ELSE
          differenz=abstandaufwaerts
        ENDIF
        IF moeglichkeit$(n,ton)="ces" THEN
          IF differenz>0 THEN
            INC okt
          ENDIF
        ELSE
          IF lak$(ton)="ces" AND differenz<0 THEN
            DEC okt
          ENDIF
          IF position+differenz<=0 THEN
            DEC okt
          ELSE
            IF position+differen>12 THEN
              IF lak$(ton)<>"ces" THEN
                INC okt
              ENDIF
            ENDIF
          ENDIF
        ENDIF
      ENDIF
      okta(n,ton)=okt
      differenz(n,ton)=differenz
    NEXT ton
  NEXT n
  GOSUB akkordebewerten
  FOR i=2 TO 4
    akkord$(i)=moeglichkeit$(bestemoeglichkeit,i)
    oktave(i)=okta(bestemoeglichkeit,i)
  NEXT i
  IF oktave(tenor)<=oktave(baß) THEN
    p=0
    DO
      INC p
      EXIT IF tonleiter$(p,1)=akkord$(baß) OR tonleiter$(p,2)=akkord$(baß)
    LOOP
    DO
      INC p
      IF p=13 THEN
        flg=1
      ELSE
        flg=0
      ENDIF
      EXIT IF flg=1
      EXIT IF tonleiter$(p,1)=akkord$(tenor) OR tonleiter$(p,2)=akkord$(tenor)
    LOOP
    IF flg=1 THEN
      DEC oktave(baß)
    ENDIF
  ENDIF
  IF nummer=1 THEN
    IF oktave(3)>oktave(4) THEN
      INC oktave(sopran)
    ENDIF
    IF oktave(sopran)=oktave(alt) THEN
      p=0
      DO
        INC p
        EXIT IF tonleiter$(p,1)=akkord$(3) OR tonleiter$(p,2)=akkord$(3)
      LOOP
      DO
        INC p
        IF p=13 THEN
          flg=1
        ELSE
          flg=0
        ENDIF
        EXIT IF flg=1
        EXIT IF tonleiter$(p,1)=akkord$(4) OR tonleiter$(p,2)=akkord$(4)
      LOOP
      IF flg=0 THEN
        INC oktave(sopran)
      ENDIF
    ENDIF
    IF oktave(alt)-oktave(sopran)<2 THEN
      p=0
      DO
        INC p
        EXIT IF tonleiter$(p,1)=akkord$(3) OR tonleiter$(p,2)=akkord$(3)
      LOOP
      DO
        INC p
        IF p=13 THEN
          flg=1
        ELSE
          flg=0
        ENDIF
        EXIT IF flg=1
        EXIT IF tonleiter$(p,1)=akkord$(4) OR tonleiter$(p,2)=akkord$(4)
      LOOP
      IF flg=0 THEN
        DEC oktave(sopran)
      ENDIF
    ENDIF
  ENDIF
RETURN
'
' -------------------
' - AKKORDEBEWERTEN -
' -------------------
'
' bewertet die Akkorde nach definierten Satzregeln, könnte modular
' erweitert werden; speichert das Ergebnis in "bestemoeglichkeit" 
' und triggert ggf. eine neue Berechnung in weiter statt enger Lage 
' (oder vice versa)
'
PROCEDURE akkordebewerten
  ARRAYFILL bewertung(),0                  ! letzte Bewertung löschen
  ARRAYFILL weg(),0
  adressek=1
  adresseg=1
  FOR xx=1 TO 3
    FOR ton=tenor TO sopran               ! Kriterium I: gleiche Töne
      SELECT ton
      CASE 2
        IF okta(n,ton)=1 THEN
          GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
          IF differenz<4 THEN
            bewertung(xx)=bewertung(xx)-0.5
          ENDIF
        ELSE
          IF okta(n,ton)<1 THEN
            DEC bewertung(xx)
          ELSE
            IF okta(n,ton)=2 THEN
              GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
              IF differenz>11 THEN
                bewertung(xx)=bewertung(xx)-0.5
              ENDIF
            ELSE
              IF okta(n,ton)>2 THEN
                DEC bewertung(xx)
              ENDIF
            ENDIF
          ENDIF
        ENDIF
      CASE 3
        IF okta(n,ton)=1 THEN
          GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
          IF differenz<11 THEN
            bewertung(xx)=bewertung(xx)-0.5
          ENDIF
        ELSE
          IF okta(n,ton)<1 THEN
            DEC bewertung(xx)
          ELSE
            IF okta(n,ton)=3 THEN
              GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
              IF differenz>4 THEN
                bewertung(xx)=bewertung(xx)-0.5
              ENDIF
            ELSE
              IF okta(n,ton)>3 THEN
                DEC bewertung(xx)
              ENDIF
            ENDIF
          ENDIF
        ENDIF
      CASE 4
        IF okta(n,ton)=2 THEN
          GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
          IF differenz<6 THEN
            bewertung(xx)=bewertung(xx)-0.5
          ENDIF
        ELSE
          IF okta(n,ton)<2 THEN
            DEC bewertung(xx)
          ELSE
            IF okta(n,ton)=3 THEN
              GOSUB ermittledifferenz("c",moeglichkeit$(xx,ton))
              IF differenz>11 THEN
                bewertung(xx)=bewertung(xx)-0.5
              ENDIF
            ELSE
              IF okta(n,ton)>3 THEN
                DEC bewertung(xx)
              ENDIF
            ENDIF
          ENDIF
        ENDIF
      ENDSELECT
      IF lak$(ton)=moeglichkeit$(xx,ton) THEN
        bewertung(xx)=bewertung(xx)+2
      ENDIF
    NEXT ton
    IF SGN(baßdifferenz)=((-1)*SGN(differenz(xx,sopran))) THEN             ! II: Gegenbewgg.
      INC bewertung(xx)
    ENDIF
    weg(xx)=ABS(differenz(xx,4))
  NEXT xx
  FOR xx=1 TO 3                        ! Kriterium III: kürzester Weg
    IF weg(xx)<=weg(adressek) THEN
      adressek=xx
    ELSE
      IF weg(xx)>=weg(adresseg) THEN
        adresseg=xx
      ENDIF
    ENDIF
  NEXT xx
  INC bewertung(adressek)
  DEC bewertung(adresseg)
  IF akkorde$(nummer)<>akkorde$(nummer-1) OR modus=gbaß THEN
    FOR i=1 TO 3
      FOR ton=baß TO sopran
        FOR ton2=baß TO sopran
          IF ton<>ton2 THEN
            IF nummer<>1 THEN
              GOSUB ermittlequint(moeglichkeit$(i,ton))
              IF moeglichkeit$(i,ton2)=quint$ OR moeglichkeit$(i,ton)=quintb$ OR moeglichkeit$(i,ton)=quintk$ THEN
                GOSUB ermittlequint(lak$(ton))
                IF lak$(ton2)=quint$ OR lak$(ton)=quintb$ OR lak$(ton)=quintk$ THEN
                  bewertung(i)=bewertung(i)-50  ! Krit. IV: Quintpar.
                ENDIF
              ENDIF
            ENDIF
            IF UPPER$(moeglichkeit$(i,ton))=UPPER$(moeglichkeit$(i,ton2)) THEN
              IF lak$(ton)=lak$(ton2) THEN
                IF differenz(i,ton)<>0 THEN
                  bewertung(i)=bewertung(i)-100  ! Krit. V: Oktavpar.
                ENDIF
              ENDIF
            ENDIF
          ENDIF
        NEXT ton2
      NEXT ton
    NEXT i
  ENDIF
  bestemoeglichkeit=1                        ! die Auswertung beginnt
  FOR xx=1 TO 3
    IF bewertung(xx)>=bewertung(bestemoeglichkeit) THEN
      bestemoeglichkeit=xx
    ENDIF
  NEXT xx
  IF bewertung(bestemoeglichkeit)<-50 THEN
    IF lagewe=1 THEN
      lagewe=2
    ELSE
      lagewe=1
    ENDIF
    nochmal=1                       ! keine gute Möglichkeit gefunden
  ELSE
    nochmal=0                                     ! We have a winner!
  ENDIF
RETURN
'
' ---------------------
' -- AKKORDEEINLESEN --
' ---------------------
'
PROCEDURE akkordeinlesen(stufe)
  IF stufe=7 THEN
    stufe=5
    d7=1
  ELSE
    d7=0
  ENDIF
  DEC stufe
  RESTORE toene
  FOR i2=1 TO ueber                   ! bis zum ersten Ton der Tonika
    READ dummy$
  NEXT i2
  x2=ueber
  FOR i2=1 TO stufe                       ! bis zur gewünschten Stufe
    READ dummy$
    INC x2
    IF x2=7 THEN
      x2=0
      RESTORE toene
    ENDIF
  NEXT i2
  FOR i2=1 TO 3                                     ! Akkord einlesen
    READ x$(i2)
    INC x2
    IF x2=7 THEN
      x2=0
      RESTORE toene
    ENDIF
    READ dummy$                       ! Akkorde sind Terzschichtungen
    INC x2
    IF x2=7 THEN
      x2=0
      RESTORE toene
    ENDIF
  NEXT i2
  IF d7=1 THEN
    READ x$(4)
  ELSE
    x$(4)=""
  ENDIF
  FOR i2=1 TO 4                                   ! Vorzeichen ändern
    FOR ii2=1 TO anzahl
      IF x$(i2)=vorzeichen$(art,ii2,1) THEN
        x$(i2)=vorzeichen$(art,ii2,2)
      ENDIF
    NEXT ii2
  NEXT i2
RETURN
'
' ------------------------
' - AKKORDZUSAMMENSETZEN -
' ------------------------
'
' wird von AKKORD angesprungen und setzt einen bestimmten Akkord in 
' einer bestimmten Lage zusammen im Array "akkord$()"
'
PROCEDURE akkordzusammensetzen
  akkord$(baß)=x$(1)
  IF lagewe=1 THEN                                        ! enge Lage
    IF stufe=7 THEN                                      ! Septakkord
      SELECT lage
      CASE 3                                               ! Terzlage
        akkord$(tenor)=x$(3)
        akkord$(alt)=x$(4)
        akkord$(sopran)=x$(2)
      CASE 5                                              ! Quintlage
        akkord$(tenor)=x$(4)
        akkord$(alt)=x$(2)
        akkord$(sopran)=x$(3)
      CASE 8                                              ! Oktavlage
        akkord$(tenor)=x$(2)
        akkord$(alt)=x$(3)
        akkord$(sopran)=x$(4)
      ENDSELECT
    ELSE
      SELECT lage
      CASE 8                                              ! Oktavlage
        akkord$(tenor)=x$(2)
        akkord$(alt)=x$(3)
        akkord$(sopran)=x$(1)
      CASE 5                                              ! Quintlage
        akkord$(tenor)=x$(1)
        akkord$(alt)=x$(2)
        akkord$(sopran)=x$(3)
      CASE 3                                               ! Terzlage
        akkord$(tenor)=x$(3)
        akkord$(alt)=x$(1)
        akkord$(sopran)=x$(2)
      ENDSELECT
    ENDIF
  ELSE                                                  ! weite Lage
    IF stufe=7 THEN                                 ! alles wie oben
      SELECT lage
      CASE 3
        akkord$(sopran)=x$(2)
        akkord$(alt)=x$(3)
        akkord$(tenor)=x$(4)
      CASE 5
        akkord$(sopran)=x$(3)
        akkord$(alt)=x$(4)
        akkord$(tenor)=x$(2)
      CASE 8
        akkord$(sopran)=x$(4)
        akkord$(alt)=x$(2)
        akkord$(tenor)=x$(3)
      ENDSELECT
    ELSE
      SELECT lage
      CASE 8
        akkord$(sopran)=x$(1)
        akkord$(alt)=x$(2)
        akkord$(tenor)=x$(3)
      CASE 5
        akkord$(sopran)=x$(3)
        akkord$(alt)=x$(1)
        akkord$(tenor)=x$(2)
      CASE 3
        akkord$(sopran)=x$(2)
        akkord$(alt)=x$(3)
        akkord$(tenor)=x$(1)
      ENDSELECT
    ENDIF
  ENDIF
RETURN
'
' -----------
' - AUSGABE -
' -----------
'
' Prozedur zur Textausgabe
'
PROCEDURE ausgabe(name$,hoehe)
  SELECT hoehe
  CASE 0
    PRINT UPPER$(name$),
  CASE 1
    PRINT name$,
  DEFAULT
    PRINT name$;
    FOR i=1 TO hoehe-1
      PRINT "'";
    NEXT i
    PRINT "",
  ENDSELECT
RETURN
'
' -------------------
' - BESTIMMEBASSTON -
' -------------------
'
' bestimmt den Basston
'
PROCEDURE bestimmebaßton
  IF nummer=1 THEN
    lak$(baß)=akkord$(baß)
    IF akkord$(baß)<>"ces" AND akkord$(baß)<>"c" AND akkord$(baß)<>"cis" AND akkord$(baß)<>"des" AND akkord$(baß)<>"d" AND akkord$(baß)<>"dis" AND akkord$(baß)<>"es" AND akkord$(baß)<>"e" AND akkord$(baß)<>"eis" THEN
      DEC oktave(baß)
    ENDIF
  ENDIF
  GOSUB ermittledifferenz(lak$(baß),akkord$(baß))
  IF abstandabwaerts<abstandaufwaerts THEN
    differenz=-abstandabwaerts
  ELSE
    differenz=abstandaufwaerts
  ENDIF
  REPEAT
    SELECT nochmal
    CASE 1
      differenz=abstandaufwaerts
    CASE 2
      differenz=-abstandabwaerts
    ENDSELECT
    okt=oktave(baß)
    GOSUB ermittleoktave
    oktave(baß)=okt
    nochmal=0
    IF oktave(baß)=0 AND (akkord$(baß)="des" OR akkord$(baß)="d" OR akkord$(baß)="dis" OR akkord$(baß)="ces" OR akkord$(baß)="c" OR akkord$(baß)="cis") THEN
      nochmal=1
    ELSE
      IF oktave(baß)<0 THEN
        nochmal=1
      ENDIF
    ENDIF
    IF oktave(baß)=2 AND NOT (akkord$(baß)="ces" OR akkord$(baß)="c" OR akkord$(baß)="cis" OR akkord$(baß)="des" OR akkord$(baß)="d" OR akkord$(baß)="dis" OR akkord$(baß)="es" OR akkord$(baß)="e" OR akkord$(baß)="eis") THEN
      nochmal=2
    ELSE
      IF oktave(baß)>2 THEN
        nochmal=2
      ENDIF
    ENDIF
  UNTIL nochmal=0
  baßdifferenz=differenz
RETURN
'
' ---------------
' - BILDEAKKORD -
' ---------------
'
' übersetzt zuerst Funktionen in Stufen und springt dann
' AKKORDZUSAMMENSETZEN an
'
PROCEDURE bildeakkord(funktion$,lage)
  SELECT funktion$               ! "Funktionen" sind hier nur schicke
  CASE "T"                             ! Synonyme für Stufen (leider)
    stufe=1
  CASE "SP"
    stufe=2                        ! (Und auch das lediglich in Dur.)
  CASE "DP"
    stufe=3
  CASE "S"
    stufe=4
  CASE "D"
    stufe=5
  CASE "TP"
    stufe=6
  CASE "D7"
    stufe=7
  ENDSELECT
  FOR i=1 TO 4
    x$(i)=stufe$(stufe,i)
  NEXT i
  GOSUB akkordzusammensetzen
RETURN
'
' ------------------
' - BILDEINTERVALL -
' ------------------
'
' bildet Intervalle für Generalbass und Stufen/Funktionen
'
PROCEDURE bildeintervall(grund$,intervall%)
  LOCAL position%,int%
  DEC intervall%
  IF INT(intervall%/7)=(intervall%/7) THEN
    intervall$=baßton$
  ELSE
    position%=0
    int%=0
    DO
      INC position%
      IF position%>12 THEN
        position%=1
      ENDIF
      EXIT IF tonleiter$(position%,1)=grund$ OR tonleiter$(position%,2)=grund$
    LOOP
    DO
      INC position%
      IF position%>12 THEN
        position%=1
      ENDIF
      IF LEN(tonleiter$(position%,1))=1 OR LEN(tonleiter$(position%,2))=1 THEN
        IF tonleiter$(position%,2)<>"b" THEN
          INC int%
        ENDIF
      ENDIF
      EXIT IF int%=intervall%
    LOOP
    IF LEN(tonleiter$(position%,1))=1 THEN
      intervall$=tonleiter$(position%,1)
    ELSE
      intervall$=tonleiter$(position%,2)
    ENDIF
  ENDIF
RETURN
'
' ---------------------
' - ERMITTLEDIFFERENZ -
' ---------------------
'
' bestimmt die Differenz zweier Töne, u. a. als Entscheidungsgrund-
' lage für die Bestimmung der Variante mit dem nächsten Weg
'
PROCEDURE ermittledifferenz(tona$,tonb$)
  position=0
  abstandaufwaerts=0
  abstandabwaerts=0
  RESTORE tonleiter
  DO
    INC position
    EXIT IF tonleiter$(position,1)=tona$ OR tonleiter$(position,2)=tona$
  LOOP
  IF tona$<>tonb$ THEN
    position2=position
    DO
      INC position2
      INC abstandaufwaerts
      IF position2=13 THEN
        position2=1
      ENDIF
      EXIT IF tonleiter$(position2,1)=tonb$ OR tonleiter$(position2,2)=tonb$
    LOOP
    position2=position
    DO
      DEC position2
      INC abstandabwaerts
      IF position2=0 THEN
        position2=12
      ENDIF
      EXIT IF tonleiter$(position2,1)=tonb$ OR tonleiter$(position2,2)=tonb$
    LOOP
  ENDIF
RETURN
'
' -------------------------
' - ERMITTLEDIFFERENZ_OKT -
' -------------------------
'
' bestimmt die Differenz von Oktavlagen
'
PROCEDURE ermittledifferenz_okt(tona$,tonb$,okt_a,okt_b)
  IF okt_a<0 THEN
    okt_a=0
  ENDIF
  IF okt_b<0 THEN
    okt_b=0
  ENDIF
  position=0
  differenz_o=0
  DO
    INC position
    EXIT IF leiter$(position)=tona$
  LOOP
  okt=okt_a
  IF NOT (tona$=tonb$ AND okt_a=okt_b) THEN
    position2=position
    DO
      DO
        INC position2
        IF position2=8 THEN
          INC okt
          position2=1
        ENDIF
        INC differenz_o
        EXIT IF leiter$(position2)=tonb$
      LOOP
      EXIT IF okt_b=okt
    LOOP
  ENDIF
RETURN
'
' ------------------
' - ERMITTLEOKTAVE -
' ------------------
'
' Oktavlage eines Tons bestimmen.
' Die Prozedur arbeitet in Fis-Dur fehlerhaft!
'
PROCEDURE ermittleoktave
  IF akkord$(baß)="ces" THEN
    IF differenz>0 THEN
      INC okt
    ENDIF
  ELSE
    IF lak$(baß)="ces" AND differenz<0 THEN
      DEC okt
    ENDIF
    IF position+differenz<=0 THEN
      DEC okt
    ELSE
      IF position+differenz>12 THEN
        IF lak$(baß)<>"ces" THEN
          INC okt
        ENDIF
      ENDIF
    ENDIF
  ENDIF
RETURN
'
' -----------------
' - ERMITTLEQUINT -
' -----------------
'
' Ermittelt die Quint über einem Ton. Entscheidungsgrundlage für die
' Abwertung von Stimmführungen mit Quintparallelen.
'
PROCEDURE ermittlequint(ton$)
  gpos=0
  DO
    INC gpos
    IF gpos>12 THEN
      gpos=1
    ENDIF
    EXIT IF ton$=tonleiter$(gpos,1) OR ton$=tonleiter$(gpos,2)
  LOOP
  IF ton$=tonleiter$(gpos,1) THEN
    art=1
  ELSE
    art=2
  ENDIF
  gpos=gpos+7
  IF gpos=>13 THEN
    gpos=gpos-12
  ENDIF
  IF ton$="eis" THEN
    quint$="his"
  ELSE
    quint$=tonleiter$(gpos,art)
  ENDIF
  IF quint$="h" THEN
    quintb$="b"
    quintk$="his"
  ELSE
    quintb$=quint$+"es"
    quintk$=quint$+"is"
  ENDIF
RETURN
'
' ---------------
' - GENERALBASS -
' ---------------
'
' Steuerung des Generalbass-Modus.
'
PROCEDURE generalbaß(baßton$,bezifferung$)
  LOCAL i%,baßton$,anz_ziff%4
  ERASE ziffern%()
  FOR i%=1 TO 10
    x$(i%)=""
  NEXT i%
  SELECT bezifferung$
  CASE ""
    bezifferung$="135"
  CASE "36"
    bezifferung$="136"
  CASE "6"
    bezifferung$="136"
  CASE "46"
    bezifferung$="146"
  CASE "4"
    bezifferung$="145"
  CASE "3"
    bezifferung$="135"
  CASE "5"
    bezifferung$="135"
  CASE "7"
    bezifferung$="1357"
  CASE "56"
    bezifferung$="1356"
  CASE "34"
    bezifferung$="1346"
  CASE "2"
    bezifferung$="1246"
  CASE "t.s."
    bezifferung$="0"
  ENDSELECT
  IF bezifferung$="0" THEN
    FOR i=1 TO 4
      akkorde$(i)=""
    NEXT i
  ELSE
    anz_ziff%=LEN(bezifferung$)
    DIM ziffern%(anz_ziff%)
    FOR i%=1 TO anz_ziff%
      ziffern%(i%)=VAL(MID$(bezifferung$,i%,1))
    NEXT i%
    QSORT ziffern%()
    GOSUB stammton_gbaß(baßton$)
    baßton$=stton$
    FOR i%=1 TO anz_ziff%
      GOSUB bildeintervall(baßton$,ziffern%(i%))
      GOSUB vorzeichen(intervall$)
      x$(i%)=v_ton$
    NEXT i%
    IF anz_ziff%=4 THEN
      stufe=7
    ELSE
      stufe=1
    ENDIF
    IF nummer=1 THEN
      lage=anfangslage
      GOSUB akkordzusammensetzen
      FOR ton=baß TO sopran
        moeglichkeit$(1,ton)=akkord$(ton)
        akkord$(ton)=akkord$(ton)                  ! sieht falsch aus
      NEXT ton
      IF lagewe=1 THEN
        FOR i=tenor TO sopran
          ii=0
          DO
            INC ii
            EXIT IF tonleiter$(ii,1)=moeglichkeit$(1,i) OR tonleiter$(ii,2)=moeglichkeit$(1,i)
          LOOP
          SELECT i
          CASE 2
            IF ii>11 THEN
              DEC oktave(tenor)
            ENDIF
          CASE 3
            IF ii>3 THEN
              DEC oktave(alt)
            ENDIF
          CASE 4
            IF ii>10 THEN
              DEC oktave(sopran)
            ENDIF
          ENDSELECT
        NEXT i
      ELSE
        p=0
        DO
          INC p
          EXIT IF tonleiter$(p,1)=moeglichkeit$(1,baß) OR tonleiter$(p,2)=moeglichkeit$(1,baß)
        LOOP
        DO
          INC p
          IF p=13 THEN
            INC flg
            p=1
          ENDIF
          EXIT IF tonleiter$(p,1)=moeglichkeit$(1,tenor) OR tonleiter$(p,2)=moeglichkeit$(1,tenor)
        LOOP
        oktave(tenor)=oktave(baß)+flg
        flg=0
        DO
          INC p
          IF p=13 THEN
            INC flg
            p=1
          ENDIF
          EXIT IF tonleiter$(p,1)=moeglichkeit$(1,alt) OR tonleiter$(p,2)=moeglichkeit$(1,alt)
        LOOP
        oktave(alt)=oktave(tenor)+flg
        flg=0
        DO
          INC p
          IF p=13 THEN
            INC flg
            p=1
          ENDIF
          EXIT IF tonleiter$(p,1)=moeglichkeit$(1,sopran) OR tonleiter$(p,2)=moeglichkeit$(1,sopran)
        LOOP
        oktave(sopran)=oktave(alt)+flg
      ENDIF
      IF oktave(sopran)<3 THEN
        IF lagewe=2 THEN
          FOR stimme=baß TO sopran
            INC oktave(stimme)
          NEXT stimme
        ENDIF
      ENDIF
    ELSE
      lage=3
      GOSUB akkordzusammensetzen
      FOR ton=tenor TO sopran
        moeglichkeit$(2,ton)=akkord$(ton)
      NEXT ton
      lage=5
      GOSUB akkordzusammensetzen
      FOR ton=tenor TO sopran
        moeglichkeit$(3,ton)=akkord$(ton)
      NEXT ton
      lage=8
      GOSUB akkordzusammensetzen
      FOR ton=tenor TO sopran
        moeglichkeit$(1,ton)=akkord$(ton)
      NEXT ton
      GOSUB bestimmebaßton
      FOR i%=1 TO 3
        moeglichkeit$(i%,1)=baßton$
      NEXT i%
      FOR n=1 TO 3
        FOR ton=tenor TO sopran
          okt=oktave(ton)
          GOSUB ermittledifferenz(akkord$(baß),moeglichkeit$(n,ton))
          IF nummer=1 THEN
            differenz(n,ton)=abstandaufwaerts
          ELSE
            GOSUB ermittledifferenz(lak$(ton),moeglichkeit$(n,ton))
            IF abstandaufwaerts>abstandabwaerts THEN
              differenz=-abstandabwaerts
            ELSE
              differenz=abstandaufwaerts
            ENDIF
            IF moeglichkeit$(n,ton)="ces" THEN
              IF differenz>0 THEN
                INC okt
              ENDIF
            ELSE
              IF lak$(ton)="ces" AND differenz<0 THEN
                DEC okt
              ENDIF
              IF position+differenz<=0 THEN
                DEC okt
              ELSE
                IF position+differenz>12 THEN
                  IF lak$(ton)<>"ces" THEN
                    INC okt
                  ENDIF
                ENDIF
              ENDIF
            ENDIF
          ENDIF
          okta(n,ton)=okt
          differenz(n,ton)=differenz
        NEXT ton
      NEXT n
      GOSUB akkordebewerten
      FOR i=2 TO 4
        akkord$(i)=moeglichkeit$(bestemoeglichkeit,i)
        oktave(i)=okta(bestemoeglichkeit,i)
      NEXT i
      IF oktave(tenor)<=oktave(baß) THEN
        p=0
        DO
          INC p
          EXIT IF tonleiter$(p,1)=akkord$(baß) OR tonleiter$(p,2)=akkord$(baß)
        LOOP
        DO
          INC p
          IF p=13 THEN
            flg=1
          ELSE
            flg=0
          ENDIF
          EXIT IF flg=1
          EXIT IF tonleiter$(p,1)=akkord$(tenor) OR tonleiter$(p,2)=akkord$(tenor)
        LOOP
        IF flg=1 THEN
          DEC oktave(baß)
        ENDIF
      ENDIF
      IF nummer=1 THEN
        IF oktave(3)>oktave(4) THEN
          INC oktave(sopran)
        ENDIF
        IF oktave(sopran)=oktave(alt) THEN
          p=0
          DO
            INC p
            EXIT IF tonleiter$(p,1)=akkord$(3) OR tonleiter$(p,2)=akkord$(3)
          LOOP
          DO
            INC p
            IF p=13 THEN
              flg=1
            ELSE
              flg=0
            ENDIF
            EXIT IF flg=1
            EXIT IF tonleiter$(p,1)=akkord$(4) OR tonleiter$(p,2)=akkord$(4)
          LOOP
          IF flg=0 THEN
            INC oktave(sopran)
          ENDIF
        ENDIF
        IF oktave(alt)-oktave(sopran)<2 THEN
          p=0
          DO
            INC p
            EXIT IF tonleiter$(p,1)=akkord$(3) OR tonleiter$(p,2)=akord$(3)
          LOOP
          DO
            INC p
            IF p=13 THEN
              flg=1
            ELSE
              flg=0
            ENDIF
            EXIT IF flg=1
            EXIT IF tonleiter$(p,1)=akkord$(4) OR tonleiter$(p,2)=akkord$(4)
          LOOP
          IF flg=0 THEN
            DEC oktave(sopran)
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
RETURN
'
' ------------
' - STAMMTON -
' ------------
'
' Stammton eines chromatisierten Tons bestimmen
'
PROCEDURE stammton(name$)
  IF name$="his" OR name$="b" THEN
    stton$="h"
  ELSE
    IF name$="fes" OR name$="fis" OR name$="f" THEN
      stton$="f"
    ELSE
      IF name$="ces" THEN
        stton$="c"
      ELSE
        IF name$="as" THEN
          stton$="a"
        ELSE
          RESTORE tonleiter
          DO
            INC pos
            IF pos=13 THEN
              pos=1
            ENDIF
            EXIT IF tonleiter$(pos,1)=name$ OR tonleiter$(pos,2)=name$
          LOOP
          IF INSTR(name$,"is") THEN
            DEC pos
          ELSE
            IF INSTR(name$,"es") THEN
              INC pos
            ENDIF
          ENDIF
          stton$=tonleiter$(pos,1)
        ENDIF
      ENDIF
    ENDIF
  ENDIF
  FOR ii2=1 TO anzahl
    IF stton$=vorzeichen$(art,ii2,1) THEN
      stton$=vorzeichen$(art,ii2,2)
    ENDIF
  NEXT ii2
RETURN
'
' -----------------
' - STAMMTON_BASS -
' -----------------
'
' gleiche Funktion für Generalbass
'
PROCEDURE stammton_gbaß(name$)
  IF name$="his" OR name$="b" THEN
    stton$="h"
  ELSE
    IF name$="fes" OR name$="fis" OR name$="f" THEN
      stton$="f"
    ELSE
      IF name$="ces" THEN
        stton$="c"
      ELSE
        IF name$="as" THEN
          stton$="a"
        ELSE
          RESTORE tonleiter
          DO
            INC pos
            IF pos=13 THEN
              pos=1
            ENDIF
            EXIT IF tonleiter$(pos,1)=name$ OR tonleiter$(pos,2)=name$
          LOOP
          IF INSTR(name$,"is") THEN
            DEC pos
          ELSE
            IF INSTR(name$,"es") THEN
              INC pos
            ENDIF
          ENDIF
          stton$=tonleiter$(pos,1)
        ENDIF
      ENDIF
    ENDIF
  ENDIF
RETURN
'
' --------
' - NOTE -
' --------
'
' Ausgabe einer Note
'
PROCEDURE note(laenge,nam$,oktave)
  start=75
  IF oktave=2 AND LEFT$(nam$)="c" THEN
    LINE xposition-8,45+seite,xposition+8,45+seite
  ENDIF
  GOSUB ermittledifferenz_okt(gt$,nam$,0,oktave)
  yposition=start-(2.5*differenz_o)+seite
  GOSUB zeichnenote(xposition,yposition,laenge)
  IF oktave>=3 THEN
    GOSUB ermittledifferenz_okt(c$,nam$,3,oktave)
    IF differenz_o>=5 THEN
      IF (differenz_o/2)<>INT(differenz_o/2) THEN
        hl=INT(differenz_o/2)
      ELSE
        hl=INT(differenz_o/2)-1
      ENDIF
      FOR i=1 TO hl
        LINE xposition-8,40-i*5+seite-15,xposition+8,40-i*5+seite-15
      NEXT i
    ENDIF
  ENDIF
RETURN
'
' ---------------
' - NOTENPAPIER -
' ---------------
'
' Notenlinien zeichnen
'
PROCEDURE notenpapier
  LOCAL y,i,ii,iii
  COLOR 1
  y=20
  FOR i=1 TO 2
    FOR ii=1 TO 2
      FOR iii=1 TO 5
        LINE 0,y,639,y
        y=y+5
      NEXT iii
      y=y+5
    NEXT ii
    y=y+5
  NEXT i
RETURN
'
' --------------
' - TAKTSTRICH -
' --------------
'
' Taktstrich zeichnen
'
PROCEDURE taktstrich
  xposition=xposition+30
  LINE xposition,70+seite,xposition,20+seite
  LINE xposition+1,70+seite,xposition+1,20+seite
RETURN
'
' -------------------
' - TONARTBESTIMMEN -
' -------------------
'
' 1. wie viele Töne incl. c werden bis zum Grundton der Tonart 
'    überlesen? -> "ueber"
' 2. was für Vorzeichen (Be oder Kreuz)? -> "art"
' 3. wie viele Vorzeichen? -> "anzahl"
'
PROCEDURE tonartbestimmen
  SELECT UPPER$(tonart$)
  CASE "GES"
    ueber=4
    art=2
    anzahl=6
  CASE "DES"
    ueber=1
    art=2
    anzahl=5
  CASE "AS"
    ueber=5
    art=2
    anzahl=4
  CASE "ES"
    ueber=2
    art=2
    anzahl=3
  CASE "B"
    ueber=6
    art=2
    anzahl=2
  CASE "F"
    ueber=3
    art=2
    anzahl=1
  CASE "C"
    ueber=0
    art=0
    anzahl=0
  CASE "G"
    ueber=4
    art=1
    anzahl=1
  CASE "D"
    ueber=1
    art=1
    anzahl=2
  CASE "A"
    ueber=5
    art=1
    anzahl=3
  CASE "E"
    ueber=2
    art=1
    anzahl=4
  CASE "H"
    ueber=6
    art=1
    anzahl=5
  CASE "FIS"
    ueber=3
    art=1
    anzahl=6
  DEFAULT
    ALERT 1,UPPER$(tonart$)+"-Dur: unbekannte Tonart",1,"Programmende",dummy
    EDIT
  ENDSELECT
RETURN
'
' ---------------------
' - TONLEITEREINLESEN -
' ---------------------
'
' Tonleiter aus dem Datenteil einlesen
'
PROCEDURE tonleitereinlesen
  RESTORE tonleiter
  FOR i=1 TO 12
    READ anzahl
    IF anzahl=1 THEN
      READ tonleiter$(i,1)
      tonleiter$(i,2)=tonleiter$(i,1)
    ELSE
      READ tonleiter$(i,1)
      READ tonleiter$(i,2)
    ENDIF
  NEXT i
RETURN
'
' --------------------
' - TONNAMENEINLESEN -
' --------------------
'
' Tonnamen aus dem Datenteil einlesen
'
PROCEDURE tonnameneinlesen
  GOSUB tonleitereinlesen
  GOSUB tonartbestimmen
  GOSUB vorzeicheneinlesen
  FOR i=1 TO 7
    GOSUB akkordeinlesen(i)
    FOR ii=1 TO 4
      stufe$(i,ii)=x$(ii)
    NEXT ii
  NEXT i
  leiter$(1)="c"
  leiter$(2)="d"
  leiter$(3)="e"
  leiter$(4)="f"
  leiter$(5)="g"
  leiter$(6)="a"
  leiter$(7)="h"
  FOR ii=1 TO 7
    FOR i=1 TO anzahl
      IF leiter$(ii)=vorzeichen$(art,i,1) THEN
        leiter$(ii)=vorzeichen$(art,i,2)
      ENDIF
    NEXT i
  NEXT ii
RETURN
'
' --------------
' - UEBERLESEN -
' --------------
'
' Daten ignorieren
'
PROCEDURE ueberlesen(i)
  FOR x%=1 TO i
    READ dummy$
  NEXT x%
RETURN
'
' -------------
' - VARIABLEN -
' -------------
'
' Variablen initialisieren
'
PROCEDURE variablen
  gbaß=1
  baß=1
  tenor=2
  alt=3
  sopran=4
  oktave(baß)=1
  oktave(tenor)=2
  oktave(alt)=3
  oktave(sopran)=3
  PRINT "#"
  GET 0,0,8,8,kreuz$
  CLS
  PRINT "b"
  GET 0,0,8,8,b$
  CLS
  PRINT "4"
  GET 0,0,8,8,vier$
  CLS
  GOSUB schluesselzeichnen
RETURN
'
' --------------
' - VORZEICHEN -
' --------------
'
PROCEDURE vorzeichen(ton$)
  LOCAL i%
  v_ton$=ton$
  FOR i%=1 TO anzahl
    IF ton$=vorzeichen$(art,i%,1) THEN
      v_ton$=vorzeichen$(art,i%,2)
    ENDIF
  NEXT i%
RETURN
'
' ----------------------
' - VORZEICHENEINLESEN -
' ----------------------
'
PROCEDURE vorzeicheneinlesen
  RESTORE vorzeichen
  FOR i=1 TO 2
    FOR ii=1 TO 6
      FOR iii=1 TO 2
        READ vorzeichen$(i,ii,iii)
      NEXT iii
    NEXT ii
  NEXT i
RETURN
'
' -----------------------
' - VORZEICHENEINTRAGEN -
' -----------------------
'
' Vorzeichnung bei graphischer Ausgabe
'
PROCEDURE vorzeicheneintragen               ! man kann's auch zu Tode
  SELECT art                                     ! "strukturieren"...
  CASE 1
    GOSUB vorzeicheneintragen_k
  CASE 2
    GOSUB vorzeicheneintragen_b
  ENDSELECT
RETURN
'
' -------------------------
' - VORZEICHENEINTRAGEN_B -
' -------------------------
'
PROCEDURE vorzeicheneintragen_b
  oktave=3
  xposition=35
  FOR i=1 TO anzahl
    SELECT i
    CASE 2
      INC oktave
    CASE 3
      DEC oktave
    CASE 4
      INC oktave
    CASE 5
      DEC oktave
    CASE 6
      INC oktave
    ENDSELECT
    GOSUB ermittledifferenz_okt(gt$,vorzeichen$(art,i,2),0,oktave)
    yposition=90-(2.5*differenz_o)-1+seite
    PUT xposition,yposition,b$
    xposition=xposition+10
  NEXT i
  oktave=1
  xposition=35
  FOR i=1 TO anzahl
    SELECT i
    CASE 2
      INC oktave
    CASE 3
      DEC oktave
    CASE 4
      INC oktave
    CASE 5
      DEC oktave
    CASE 6
      INC oktave
    ENDSELECT
    GOSUB ermittledifferenz_okt(gt$,vorzeichen$(art,i,2),0,oktave)
    yposition=90-(2.5*differenz_o)-1+seite
    PUT xposition,yposition,b$
    xposition=xposition+10
  NEXT i
RETURN
'
' -------------------------
' - VORZEICHENEINTRAGEN_K -
' -------------------------
'
PROCEDURE vorzeicheneintragen_k
  oktave=4
  xposition=35
  FOR i=1 TO anzahl
    IF i=5 THEN
      DEC oktave
    ELSE
      IF i=6 THEN
        INC oktave
      ENDIF
    ENDIF
    GOSUB ermittledifferenz_okt(gt$,vorzeichen$(art,i,2),0,oktave)
    yposition=90-(2.5*differenz_o)+seite
    PUT xposition,yposition,kreuz$
    xposition=xposition+10
  NEXT i
  xposition=35
  oktave=2
  FOR i=1 TO anzahl
    IF i=5 THEN
      DEC oktave
    ELSE
      IF i=6 THEN
        INC oktave
      ENDIF
    ENDIF
    GOSUB ermittledifferenz_okt(gt$,vorzeichen$(art,i,2),0,oktave)
    yposition=90-(2.5*differenz_o)+seite
    PUT xposition,yposition,kreuz$
    xposition=xposition+10
  NEXT i
RETURN
'
' ----------------------
' - SCHLUESSELZEICHNEN -
' ----------------------
'
PROCEDURE schluesselzeichnen
  COLOR 1
  CIRCLE 20,20,7
  FILL 20,20
  LINE 27,20,20,35
  LINE 28,20,21,35
  GET 10,10,30,40,fschl$
  CLS
  CIRCLE 30,30,7
  LINE 23,30,37,10
  LINE 24,30,38,10
  LINE 37,10,33,8
  LINE 38,10,34,8
  LINE 33,8,30,10
  LINE 34,8,31,10
  LINE 30,10,30,42
  LINE 31,10,31,42
  CIRCLE 31,42,3
  FILL 30,42
  GET 20,5,40,45,gschl$
  CLS
RETURN
'
' ---------------
' - ZEICHNENOTE -
' ---------------
'
PROCEDURE zeichnenote(x,y,l)
  COLOR 1
  SELECT l
  CASE 1
    CIRCLE x,y,5
    CIRCLE x,y,6
  CASE 2
    CIRCLE x,y,5
    CIRCLE x,y,6
    LINE x+5,y,x+5,y-15
    LINE x+6,y,x+6,y-15
  CASE 4
    CIRCLE x,y,5
    LINE x+5,y,x+5,y-15
    LINE x+6,y,x+6,y-15
    FILL x,y+1
    FILL x,y-1
  CASE 8
    CIRCLE x,y,5
    LINE x+5,y,x+5,y-15
    LINE x+6,y,x+6,y-15
    FILL x,y+1
    FILL x,y-1
    LINE x+5,y-15,x+10,y-4
    LINE x+6,y-15,x+11,y-4
  CASE 100
    PUT x,y,kreuz$
  CASE 101
    PUT x,y,b$
  ENDSELECT
RETURN
'
' --------------------
' - @GUELTIGERAKKORD -
' --------------------
'
' prüft, ob die Funktion bekannt ist,
' antwortet via TRUE/FALSE-Flag
'
FUNCTION gueltigerakkord(n$)
  IF n$="T" OR n$="SP" OR n$="DP" OR n$="S" OR n$="D" OR n$="TP" OR n$="D7" THEN
    RETURN 1
  ELSE
    RETURN 0
  ENDIF
ENDFUNC
'
' ***************
' ** Datenteil **
' ***************
'
toene:
DATA c,d,e,f,g,a,h
'
vorzeichen:
DATA f,fis,c,cis,g,gis,d,dis,a,ais,e,eis
DATA h,b,e,es,a,as,d,des,g,ges,c,ces
'
tonleiter:
DATA 1,c
DATA 2,cis,des
DATA 1,d
DATA 2,dis,es
DATA 1,e
DATA 2,eis,f
DATA 2,fis,ges
DATA 1,g
DATA 2,gis,as
DATA 1,a
DATA 2,ais,b
DATA 2,h,ces