Mini-Motiv-Kreation

Jetzt beginnt es richtig Spaß zu machen!

 
Ich habe einen Mini-Motiv-Kreatör und zwei neue Dims entworfen:


 
Zuerst zu den Beispielen:






Nun zum Theoretischen:

 

Code

 
#!/usr/bin/perl

# minimotifcreator-1.0.pl

use strict;
use warnings;

use Storable qw(store retrieve);



# Variablen

my @startnotes = (0,2,4,6,7,-1,-3,-5,-7);

my @basepattern = ( [0],
                    [0,1],
                    [0,-1],
                    [0,2],
                    [0,-2],
                    [0,3],
                    [0,-3],
                    [0,4],
                    [0,-4],
                    [0,5],
                    [0,-5],
                    [0,6],
                    [0,-6],
                    [0,7],
                    [0,-7],
                    [0,1,2],
                    [0,-1,-2],
                    [0,2,4],
                    [0,-1,-3],
                    [0,1,2,3],
                    [0,-1,-2,-3],
                    [0,2,4,5],
                    [0,-1,-2,-3],
                    [0,2,4,6],
                    [0,-1,-3,-5],
                    [0,2,4,7],
                    [0,-3,-5,-7],
                    [0,1,2,3,4],
                    [0,-1,-2,-3,-4],
                    [0,2,4,6,7],
                    [0,-1,-3,-5,-7] );
                   
my @mmpattern;


# Programm

foreach ( @startnotes ) {
    my $startnote = $_;
    print "Mein aktueller Startton: $startnote\n";
    my @basepattern_startnote;
    foreach ( @basepattern ) {
        my $basepattern_tmp_ref = $_;
        my @basepattern_tmp = @$basepattern_tmp_ref;
        my @mmpattern_temp;
        foreach ( @basepattern_tmp ) {
            my $patternnote = $_;
            print "Mein aktueller Musterton: $patternnote\n";
            my $note = $patternnote + $startnote;
            print "Mein aktueller Ton: $note\n";
            push @mmpattern_temp, $note;
        }
        push @basepattern_startnote, [@mmpattern_temp];       
    }
    @mmpattern = (@mmpattern,@basepattern_startnote);   
}
           

# Kontrolldruck & Speicherung

print "\n\n";
print "Meine kreiierten MMPattern:\n\n";
foreach ( @mmpattern ) {
    my $pattern_ref = $_;
    my @pattern = @$pattern_ref;
    print join ( " : ", map { $_ } @pattern ), "\n";
}
print "\nMeine ", scalar @mmpattern, " kreiierten MMPattern, Ende.\n\n";
   



store \@mmpattern, 'mmpattern.str';


Output

 
...
Meine kreiierten MMPattern:

0
0 : 1
0 : -1
0 : 2
0 : -2
0 : 3
0 : -3
0 : 4
0 : -4
0 : 5
0 : -5
0 : 6
0 : -6
0 : 7
0 : -7
0 : 1 : 2
0 : -1 : -2
0 : 2 : 4
0 : -1 : -3
0 : 1 : 2 : 3
0 : -1 : -2 : -3
0 : 2 : 4 : 5
0 : -1 : -2 : -3
0 : 2 : 4 : 6
0 : -1 : -3 : -5
0 : 2 : 4 : 7
0 : -3 : -5 : -7
0 : 1 : 2 : 3 : 4
0 : -1 : -2 : -3 : -4
0 : 2 : 4 : 6 : 7
0 : -1 : -3 : -5 : -7
2
2 : 3
2 : 1
2 : 4
2 : 0
2 : 5
2 : -1
2 : 6
2 : -2
2 : 7
2 : -3
2 : 8
2 : -4
2 : 9
2 : -5
2 : 3 : 4
...
-7 : -8 : -10 : -12
-7 : -5 : -3 : 0
-7 : -10 : -12 : -14
-7 : -6 : -5 : -4 : -3
-7 : -8 : -9 : -10 : -11
-7 : -5 : -3 : -1 : 0
-7 : -8 : -10 : -12 : -14

Meine 279 kreiierten MMPattern, Ende.



Und zu den Tönen (des experimentellen mad4rhythm-16):


Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A
BDurMaj7#5:"D-"-Mixolydisch:M1-A:M2-B:M3-A
FMollb5:"D-"-Mixolydisch:M1-B:M2-B:M3-A
G-Maj7sus2:"D-"-Mixolydisch:M1-C:M2-B:M3-A
B-7sus4:"D-"-Mixolydisch:M1-D:M2-B:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
BDursus2:"A"-Chromatisch:M1-B:M2-C:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
E-Moll:"A"-Chromatisch:M1-C:M2-C:M3-A
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A
BDurMaj7#5:"D-"-Mixolydisch:M1-A:M2-B:M3-A
FMollb5:"D-"-Mixolydisch:M1-B:M2-B:M3-A
G-Maj7sus2:"D-"-Mixolydisch:M1-C:M2-B:M3-A
B-7sus4:"D-"-Mixolydisch:M1-D:M2-B:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
BDursus2:"A"-Chromatisch:M1-B:M2-C:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
E-Moll:"A"-Chromatisch:M1-C:M2-C:M3-A
GDur6sus2:"B"-Phrygisch:M1-A:M2-D:M3-A
Bdim22:"B"-Phrygisch:M1-B:M2-D:M3-A
GDur6sus2:"B"-Phrygisch:M1-A:M2-D:M3-A
EMoll:"B"-Phrygisch:M1-C:M2-D:M3-A
EMoll6:"B"-Phrygisch:M1-D:M2-D:M3-A
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
G-DurMaj7b5:"A"-Chromatisch:M1-B:M2-C:M3-B
B-Dur6b5:"A"-Chromatisch:M1-C:M2-C:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
BDur6sus2:"A"-Chromatisch:M1-D:M2-C:M3-B
E-Durb5:"F"-Mixolydisch:M1-A:M2-D:M3-B
BDur65:"F"-Mixolydisch:M1-B:M2-D:M3-B
D-Dur6b5:"F"-Mixolydisch:M1-C:M2-D:M3-B
E-Durb5:"F"-Mixolydisch:M1-A:M2-D:M3-B
Edim22:"F"-Mixolydisch:M1-D:M2-D:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
G-DurMaj7b5:"A"-Chromatisch:M1-B:M2-C:M3-B
B-Dur6b5:"A"-Chromatisch:M1-C:M2-C:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
BDur6sus2:"A"-Chromatisch:M1-D:M2-C:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
G-DurMaj7b5:"A"-Chromatisch:M1-B:M2-C:M3-B
B-Dur6b5:"A"-Chromatisch:M1-C:M2-C:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
BDur6sus2:"A"-Chromatisch:M1-D:M2-C:M3-B
E-Durb5:"F"-Mixolydisch:M1-A:M2-D:M3-B
BDur65:"F"-Mixolydisch:M1-B:M2-D:M3-B
D-Dur6b5:"F"-Mixolydisch:M1-C:M2-D:M3-B
E-Durb5:"F"-Mixolydisch:M1-A:M2-D:M3-B
Edim22:"F"-Mixolydisch:M1-D:M2-D:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
CMoll7:"F"-Mixolydisch:M1-B:M2-A:M3-B
E-Durb5:"F"-Mixolydisch:M1-C:M2-A:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-B
E-Dursus2:"F"-Mixolydisch:M1-D:M2-A:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
B-DurMaj7b5:"E"-Chromatisch:M1-A:M2-B:M3-B
E-dim2:"E"-Chromatisch:M1-B:M2-B:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
G-DurMaj7b5:"A"-Chromatisch:M1-B:M2-C:M3-B
B-Dur6b5:"A"-Chromatisch:M1-C:M2-C:M3-B
E-dim12:"A"-Chromatisch:M1-A:M2-C:M3-B
BDur6sus2:"A"-Chromatisch:M1-D:M2-C:M3-B
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A
BDurMaj7#5:"D-"-Mixolydisch:M1-A:M2-B:M3-A
FMollb5:"D-"-Mixolydisch:M1-B:M2-B:M3-A
G-Maj7sus2:"D-"-Mixolydisch:M1-C:M2-B:M3-A
B-7sus4:"D-"-Mixolydisch:M1-D:M2-B:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
BDursus2:"A"-Chromatisch:M1-B:M2-C:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
E-Moll:"A"-Chromatisch:M1-C:M2-C:M3-A
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A
BDurMaj7#5:"D-"-Mixolydisch:M1-A:M2-B:M3-A
FMollb5:"D-"-Mixolydisch:M1-B:M2-B:M3-A
G-Maj7sus2:"D-"-Mixolydisch:M1-C:M2-B:M3-A
B-7sus4:"D-"-Mixolydisch:M1-D:M2-B:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
BDursus2:"A"-Chromatisch:M1-B:M2-C:M3-A
A-dim22:"A"-Chromatisch:M1-A:M2-C:M3-A
E-Moll:"A"-Chromatisch:M1-C:M2-C:M3-A
GDur6sus2:"B"-Phrygisch:M1-A:M2-D:M3-A
Bdim22:"B"-Phrygisch:M1-B:M2-D:M3-A
GDur6sus2:"B"-Phrygisch:M1-A:M2-D:M3-A
EMoll:"B"-Phrygisch:M1-C:M2-D:M3-A
EMoll6:"B"-Phrygisch:M1-D:M2-D:M3-A
Gdim22:"F"-Mixolydisch:M1-A:M2-A:M3-A
CDur7add9:"F"-Mixolydisch:M1-B:M2-A:M3-A


Kommentare

Kommentar veröffentlichen

Beliebte Posts aus diesem Blog

·

Bild
. Der tiefste Punkt ist erreicht - und: Das bedeutet: Hoffnung »»»»»»»»»»»»»»»»»»»»»»»»»»» https://www.tagesschau.de/multimedia/sendung/tt-4763.html Aktualisiert vor 2 Stunden Dresden : Der Einheitstag als Farce Hunderte Unbelehrbare haben die Stimmung des Dresdner Einheitsfestes vergiftet. Das konnte geschehen, weil es Behörden an Sensibilität gegenüber rechtem Ungeist fehlt. Ein Kommentar von Tilman Steffen Vor 2 Stunden
Mehr anzeigen

Es brennt.

Seien wir doch ehrlich, es brennt irgendwie fast überall³³, und auch nicht erst seit gestern.* Vor G7-Gipfel: Donald Trump will in Frankreich mit fast allen reden - SPIEGEL ONLINE Brasilien: Emmanuel Macron erklärt Waldbrände zum "Notfall" - Bolsonaro wütend - SPIEGEL ONLINE Emmanuel Macron vor dem G7-Gipfel: Nach Biarritz mit Bravour - SPIEGEL ONLINE Wasserstoff: Merkel kündigt Wasserstoffstrategie für Luftfahrt an | ZEIT ONLINE Der Studium-Interessentest | ZEIT Campus Neurobiologie: Warum wir unsere Kindheitserlebnisse vergessen | ZEIT ONLINE Niedrigzinsen: Der deutsche Sparer gehört zu den Gewinnern | ZEIT ONLINE Strafzinsen: Schlecht beraten mit Markus Söder | ZEIT ONLINE Atomkraft: Diese interaktive Karte zeigt das Strahlenrisiko - SPIEGEL ONLINE Belgien: Betonprobleme bei weiteren Atommeilern - SPIEGEL ONLINE AKW GAU Simulation - Ausbreitungskarten Europa - Bild 2 - SPIEGEL ONLINE - Wirtschaft Deutschland kauft 189,5 Millionen Jodtabletten - fü
Mehr anzeigen

Bye, bye Nord Stream 2!

Bild
Nachdem, was Russland in Belarus macht (die noch nicht geklärten Dinge um Nawalny kommen wohl noch dazu), sollte Nord Stream sang- und klanglos beerdigt werden. Die Aktionen haben Folgen für sehr viele Menschen in Belarus, und das darf nicht ohne Folgen für Russland bleiben. Meine Meinung.   Opposition ist besorgt: Russland will notfalls Einsatzkräfte nach Belarus schicken | ZEIT ONLINE Belarus: Russlands Medien berichten widersprüchlich - Politik - SZ.de Zwischen den Fronten: Berichten aus Belarus | NDR.de - Fernsehen - Sendungen A-Z - ZAPP Belarus: Lukaschenko lässt russische Journalisten einfliegen | kurier.at Lukaschenka und sein Propaganda-Bruder Putin EU-Außenministertreffen: Erst Belarus, dann die Türkei Krise in Belarus: Lukaschenko bittet Russland um Polizeireserve Krise in Belarus: Tichanowskaja gegen Einmischung Russlands | tagesschau.de Nord Stream – Wikipedia Massenproteste in Belarus: Zahlreiche Festnahmen in Minsk - DER SPIEGEL    Lukaschenka hatte erkl
Mehr anzeigen