IMSLP Forums

Code: Select all

#!/usr/bin/perl
@row={};
print "Enter tone row/series, one at a time. Sharps only, represented as '-s;' e.g. Cs.\n";
for($i=0;$i=11;$i++){ 
 push(@row, <>); ##Entering Row.
}
%notes=( ##Establishing Notes to Numbers.
 C=>0,
 Cs=>1,
 D=>2,
 Ds=>3,
 E=>4,
 F=>5,
 Fs=>6,
 G=>7,
 Gs=>8,
 A=>9,
 As=>10,
 B=>11,
);
%pitches=( ##Establishing the commutative property.
 0=>C,
 1=>Cs,
 2=>D,
 3=>Ds,
 4=>E,
 5=>F,
 6=>Fs,
 7=>G,
 8=>Gs,
 9=>A,
 10=>As,
 11=>B,
);
$value=NULL;
foreach $note (keys %notes){
 if ($note=~ m/row[0]/){
  $value=$note;
  %notes=(%notes, $note, 0);
 }
}
foreach $note (keys %notes){
 %notes=($note,($notes{$note}+12-$value)%12); ##Changing the values for the actual row
}
%series=();
foreach $tone(@row){
 $series{$tone}=$notes{tone};  ##Making the Series
};
%series1=(); ##P1
%series2=();
%series3=();
%series4=();
%series5=();
%series6=();
%series7=();
%series8=();
%series9=();
%series10=();
%series11=();
@numseries=();
foreach $note (keys %series){
 push(@numseries, $series{$note});
}
foreach $note (keys %series){
 $series1{$series{$note}}=$pitches{$series{$note}+(12-$numseries[1])};
 $series2{$series{$note}}=$pitches{$series{$note}+(12-$numseries[2])};
 $series3{$series{$note}}=$pitches{$series{$note}+(12-$numseries[3])};
 $series4{$series{$note}}=$pitches{$series{$note}+(12-$numseries[4])};
 $series5{$series{$note}}=$pitches{$series{$note}+(12-$numseries[5])};
 $series6{$series{$note}}=$pitches{$series{$note}+(12-$numseries[6])};
 $series7{$series{$note}}=$pitches{$series{$note}+(12-$numseries[7])};
 $series8{$series{$note}}=$pitches{$series{$note}+(12-$numseries[8])};
 $series9{$series{$note}}=$pitches{$series{$note}+(12-$numseries[9])};
 $series10{$series{$note}}=$pitches{$series{$note}+(12-$numseries[10])};
 $series11{$series{$note}}=$pitches{$series{$note}+(12-$numseries[11])};
}
print "  I0 I1 I2 I3 I4 I5 I6 I7 I8 I9 I10 I11 ";
print "P0", join("  ",@row), "R0\n";
print "P1", join("  ",%series1), "R1\n";
print "P2", join("  ",%series2), "R2\n";
print "P3", join("  ",%series3), "R3\n";
print "P4", join("  ",%series4), "R4\n";
print "P5", join("  ",%series5), "R5\n";
print "P6", join("  ",%series6), "R6\n";
print "P7", join("  ",%series7), "R7\n";
print "P8", join("  ",%series8), "R8\n";
print "P9", join("  ",%series9), "R9\n";
print "P10", join("  ",%series10), "R10\n";
print "P11", join("  ",%series11), "R11\n";
print "  IR0IR1IR2IR3IR4IR5IR6IR7IR8IR9IR10IR11\n";