Endschübe II
Endschübe II Schub 2! endneu 5 endneu 6 endneu 7 endneu 8 endneu 9 endneu 10 endneu 11
Posts
Modus- und Akkord-Checker
Output-Ausschnitte ... Hiphip-hooray! "B"-Aeolisch ist möglich! Modal-Ton-String: A,B,D,D-,E,G,G-, Ton-String: D-EG Hiphip-hooray! "E"-Vermindert ist möglich! Modal-Ton-String: A,B-,C,D-,E,E-,G,G-, Ton-String: D-EG Es gibt 17 Modus-Möglichkeiten für "Db"-Mollb5! Davon sind ... Aeolisch: "B"-Aeolisch Ionisch: "D"-Ionisch Dorisch: "E"-Dorisch Mixolydisch: "A"-Mixolydisch Vermindert: "D"-Vermindert "Ab"-Vermindert "Bb"-Vermindert "G"-Vermindert "F"-Vermindert "B"-Vermindert "Db"-Vermindert "E"-Vermindert Alteriert: "Db"-Alteriert "Eb"-Alteriert Bitte einen Modus aus der folgenden Liste auswählen ( Nummer + Return! ) Nummer: 1 Modus: "D"-Vermindert Nummer: 2 Modus: "D-"-Alteriert Nummer: 3 Modus: "A-"-Vermindert Nummer: 4 Modus: "B-"-Vermindert Nummer: 5 Modus: "G...
Ein kleiner Modus-Checker
Neuer Zwischenstand Code #!/usr/bin/perl # modefinder-1.0.pl use strict; use warnings; # Variablen my %chordtypes = ( "Maj7sus2" => ["Maj7sus2", "0", "2", "7", "11"], "Maj7sus4" => ["Maj7sus4", "0", "5", "7", "11"], "7sus2" => ["7sus2", "0", "2", "7", "10"], "7sus4" => ["7sus4", "0", "5", "7", "10"], "Dur" => ["Dur", "0", "4", "7", "12"], "Dursus2" => ["Dursus2", "0", "2", "4", "7"], "Durb5" => ["Durb5", "0", "4", "6", "12"], "Durb5sus2" => ["Durb5sus2", "0", "2", "4...
Es soll nun mod(al)isch werden
Modalik sei nun angesagt! Hier noch 4 Zwischenergebnisse: zwischenneu 1 zwischenneu 2 zwischenneu 3 zwischenneu 4 Ab heute versuche ich Modalik zu implementieren. Damit das alles mal entspannter klingt. Das kann dauern, schau'n mer mol.
In den Nudeltopf gefallen
Versackt im Code-Spaghettitopf Es hat nicht sollen sein, heut'. Immerhin ein bisschen was ist geschafft. Zwei Ergebnisse diversfollbox 1 diversfollbox 2 Kuckuckseier, wie im Code.
Der Rückfall auf die Viertel - Teil I
Kuckucksei 1 des Tages 17-03-2019 Der erste, noch unbeholfene Versuch: Code-Schnippsel ... ## Array-Einträge kriegen Kuckucksei "Notenlängen-Änderung" untergejubelt ### Instrument 1 my $arrays_inst1_ref = notevalue_change(\@arrays_inst1); @arrays_inst1 = (); @arrays_inst1 = @$arrays_inst1_ref; ### Instrument 2 my $arrays_inst2_ref = notevalue_change(\@arrays_inst2); @arrays_inst2 = (); @arrays_inst2 = @$arrays_inst2_ref; ### Instrument 3 my $arrays_inst3_ref = notevalue_change(\@arrays_inst3); @arrays_inst3 = (); @arrays_inst3 = @$arrays_inst3_ref; ... # Subroutine Notevalue-Array transformieren ( Kuckuckseiprinzip ) sub notevalue_change { print "\nSubroutine notevalue_change!\n\n"; my $arrays_instx_ref = shift; my @arrays_instx = @$arrays_instx_ref; my @arrays_instx_new; foreach ( @arrays_instx ) { my $array_temp_ref = $_; ...