Perl-Composer M3T-Progressions Version 1.034
Code #!/usr/bin/perl # composer_200618.plx use strict; use warnings; use 5.010; # Variablen my @zwoelftoene = ( "c", "c+", "d", "d+", "e", "f", "f+", "g", "g+", "a", "a+", "b", "c'", "c+'", "d'", "d+'", "e'", "f'", "f+'", "g'", "g+'", "a'", "a+'", "b'", "c''", "c+''" ); my @startchord = ( 0, 4, 7, 11 ); my @folgechord; my @m3t4tchords; my %m3t4tchords; # Variablenbelegung @m3t4tchords = ( [ 4,3,4,"Xmaj7" ], [ 4,3,3,"X7" ], [ 3,4,4,"xmaj7" ], [ 3,4,3,"x7" ], [ 3,3,3,"X0" ], [ 5,2,5,"Xsus4" ], [ 5,2,4,"Xsus4maj7" ], [ 5,2,3,"Xsus47" ], [ 4,3,5,"X