public static ArrayList<PitchCandidate> harmonicChecks(
ArrayList<PitchCandidate> pitch_candidates,
MelodicNote CF_note,
Boolean CFnoteRoot,
Integer previous_cf_pitch,
Integer previous_cp_pitch,
MelodicNote CP_note,
int voice_pitch_count,
int cf_voice_index) {
// begin Harmonic checks
boolean cand_prev_cf_diss = true;
// Will need to evaluate each CP pitch candidate against the counterpoint notes
// in each previously built voice
// Evaluate Pitch Candidates Against these checke
for (PitchCandidate myPC : pitch_candidates) {
Integer cand_pitch = myPC.getPitch();
Integer cf_pitch = CF_note.getPitch();
if (previous_cp_pitch == 9999)
previous_cp_pitch = cand_pitch; // 9999 means the CP is held over to multiple cfs
Integer melody_motion_to_cand = cand_pitch - previous_cp_pitch;
int this_interval = abs(myPC.getPitch() - CF_note.getPitch()) % 12;
// if (myPC.getLatestInterval(cf_voice_index) != null) previous_cf_pitch =
// myPC.getLatestInterval(cf_voice_index); //NEW
System.out.println("this interval = " + this_interval);
Integer melodic_motion_to_ = cf_pitch - previous_cf_pitch;
Integer previous_interval = abs(previous_cp_pitch - previous_cf_pitch) % 12;
System.out.println("previous interval = " + previous_interval);
Double cp_start_time = CP_note.getStartTime();
Double cf_start_time = CF_note.getStartTime();
// compute interval whether consonant
boolean this_interval_consonant = false;
for (Integer consonance : consonances) {
if (this_interval == consonance) {
this_interval_consonant = true;
System.out.println(
"this_interval == "
+ consonance
+ " means this_interval_consonant == "
+ this_interval_consonant);
break;
}
}
if (this_interval_consonant) {
System.out.println("this interval consonant");
if (this_interval == 0) {
myPC.decrementRank(Decrements.octave);
System.out.println("octave");
}
} else {
if (this_interval == 1
&& (abs(myPC.getPitch() - CF_note.getPitch()) < 14 || large_dissonance_bad)) {
myPC.decrementRank(Decrements.minor_9th);
System.out.println("minor 9th");
}
if (CP_note.getAccent()
&& (abs(myPC.getPitch() - CF_note.getPitch()) < 36 || large_dissonance_bad)) {
// if (CP_note.getAccent() && CP_note.getStartTime()<= CF_note.getStartTime() ) {
myPC.decrementRank(Decrements.accented_dissonance);
System.out.println("dissonant accent");
}
}
// compute previous_interval consonant
boolean previous_interval_consonant = false;
for (Integer consonance : consonances) {
if (previous_interval == consonance) previous_interval_consonant = true;
}
if (previous_interval_consonant) System.out.println("previous interval consonant");
if (cp_start_time > cf_start_time) {
System.out.println("CP starts after CF");
if (melody_motion_to_cand == 0) {
myPC.decrementRank(Decrements.seq_of_same_cons);
}
if (previous_interval_consonant) {
if (!this_interval_consonant && abs(melody_motion_to_cand) > 2) {
myPC.decrementRank(Decrements.bad_diss_approach_from_cons);
}
} else if (this_interval_consonant) {
if (abs(melody_motion_to_cand) > 2) {
myPC.decrementRank(Decrements.bad_cons_approach_from_diss);
}
} else {
if (abs(melody_motion_to_cand) > 4) { // New_Interval is dissonant
myPC.decrementRank(Decrements.bad_diss_approach_from_diss);
}
}
} else if (cp_start_time < cf_start_time) {
System.out.println("CP starts before CF");
if (previous_interval_consonant) {
if (previous_interval == this_interval) {
myPC.decrementRank(Decrements.seq_same_type_cons);
}
} else { // ie Previous_Interval is dissonant
if (this_interval_consonant) {
if (abs(melodic_motion_to_) > 2)
myPC.decrementRank(Decrements.bad_cons_approach_from_diss);
} else // New_Interval is dissonant
if (abs(melodic_motion_to_) > 4)
myPC.decrementRank(Decrements.bad_diss_approach_from_diss);
}
} else {
System.out.println("CP and CF start at the same time");
if (previous_interval_consonant) {
if (this_interval_consonant) {
for (Integer consonance : consonances) {
if ((cand_pitch - previous_cf_pitch) % 12 == consonance) {
cand_prev_cf_diss = false;
}
}
if (cand_prev_cf_diss == true) myPC.decrementRank(Decrements.diss_cp_previous_cf);
if (previous_interval == this_interval) {
same_consonant_count++;
if (same_consonant_count > same_consonant_threshold)
myPC.decrementRank(Decrements.seq_of_same_cons);
}
// Too many of same type of interval
for (Integer perfect_consonance : perfect_consonances) {
if (this_interval == perfect_consonance) {
if (this_interval == previous_interval) {
myPC.decrementRank(Decrements.seq_same_type_cons);
if (melody_motion_to_cand > 0)
if (melodic_motion_to_ > 0)
myPC.decrementRank(Decrements.parallel_perf_consonance);
if (melody_motion_to_cand < 0)
if (melodic_motion_to_ < 0)
myPC.decrementRank(Decrements.parallel_perf_consonance);
}
} else {
if (melody_motion_to_cand > 0)
if (melodic_motion_to_ > 0)
myPC.decrementRank(Decrements.direct_motion_perf_cons);
if (melody_motion_to_cand < 0)
if (melodic_motion_to_ < 0)
myPC.decrementRank(Decrements.direct_motion_perf_cons);
}
}
// If dissonance between CP1 and CF2 is this resolved?
} else // New_Interval is dissonant
myPC.decrementRank(Decrements.motion_into_diss_both_voices_change);
} else // ie Previous_Interval is dissonant
if (this_interval_consonant) {
for (Integer consonance : consonances) {
if ((cand_pitch - previous_cp_pitch) % 12 == consonance) {
cand_prev_cf_diss = false;
}
}
if (cand_prev_cf_diss == true) myPC.decrementRank(Decrements.diss_cp_previous_cf);
if (melody_motion_to_cand > 0)
if (melodic_motion_to_ > 0) myPC.decrementRank(Decrements.direct_motion_perf_cons);
if (melody_motion_to_cand < 0)
if (melodic_motion_to_ < 0) myPC.decrementRank(Decrements.direct_motion_perf_cons);
} else { // this interval is dissonant
myPC.decrementRank(Decrements.motion_into_diss_both_voices_change);
myPC.decrementRank(Decrements.seq_of_diss);
if (this_interval == previous_interval) {
myPC.decrementRank(Decrements.seq_same_type_diss);
if (melody_motion_to_cand > 0)
if (melodic_motion_to_ > 0) myPC.decrementRank(Decrements.direct_motion_into_diss);
if (melody_motion_to_cand < 0)
if (melodic_motion_to_ < 0) myPC.decrementRank(Decrements.direct_motion_into_diss);
}
}
}
myPC.setLatestInterval(cf_pitch, cf_voice_index);
}
return pitch_candidates;
}
public static MelodicVoice buildVoicePitches(
MelodicVoice alter_me, int number_of_voices, ModeModule my_mode_module) {
MelodicVoice return_me = new MelodicVoice();
int previous_cp_pitch = -13;
int previous_melodic_interval = 0;
trough = 200;
trough_count = 0;
peak = 0;
peak_count = 0;
same_consonant_count = 0;
int voice_pitch_count = 0;
LinkedList<MelodicNote> chord_prog_stack = new LinkedList<>();
System.out.println(
"voiceRange min " + alter_me.getRangeMin() + " voicerange max " + alter_me.getRangeMax());
Integer pitch_center =
my_mode_module.getPitchCenter(alter_me.getRangeMin(), alter_me.getRangeMax());
System.out.println("pitchcenter = " + pitch_center);
if (harmonic_prog_built) {
ArrayList<MelodicNote> chord_prog_temp = harmonic_prog.getNoteArray();
for (MelodicNote b_voice_note : chord_prog_temp) {
chord_prog_stack.add(b_voice_note);
}
}
if (!built_voices.isEmpty())
for (MelodicVoice built_voice : built_voices) {
LinkedList<MelodicNote> cf_stack = new LinkedList<>();
ArrayList<MelodicNote> temp = built_voice.getNoteArray();
for (MelodicNote b_voice_note : temp) {
cf_stack.add(b_voice_note);
}
built_voice_queues.add(cf_stack);
System.out.println("created stack of melodic notes for each previously built voice ");
}
else {
System.out.println("built voices Empty - start first melody");
}
ArrayList<MelodicNote> current_cf = new ArrayList();
MelodicNote[] holdover_cf = new MelodicNote[built_voice_queues.size()];
Integer[] previous_cf_pitch = new Integer[built_voice_queues.size()];
for (int h = 0; h < built_voice_queues.size(); h++) previous_cf_pitch[h] = 1111;
ArrayList<MelodicNote> pending_rests = new ArrayList();
Integer current_cp_index = -13;
ArrayList<Integer> pitch_candidate_values = new ArrayList();
ArrayList<PitchCandidate> pitch_candidates = new ArrayList();
MelodicNote this_cf = null;
Integer melodic_prev_cp = 0;
for (int i = 0; i < alter_me.getVoiceLength(); i++) { // for each melodic note in the CP voice
System.out.println("assigning pitch to note " + i + " of " + alter_me.getVoiceLength());
MelodicNote CP_note = alter_me.getMelodicNote(i);
if (!CP_note.getRest()) {
if (current_cp_index >= 0) {
if (previous_cp_pitch == 9999) previous_cp_pitch = melodic_prev_cp;
System.out.println(
"starting melody check on current cp"
+ current_cp_index
+ " of "
+ alter_me.getVoiceLength());
Boolean got_accent = alter_me.getMelodicNote(current_cp_index).getAccent();
System.out.println("the current cp note's accent value is " + got_accent);
// MELODICALLY EVALUATE Pitch Candiates for Previous Note - Choose CP WinnerS - Previous
// CP = CP Winner
pitch_candidates =
melodicCheck(
pitch_candidates,
my_mode_module,
alter_me,
pitch_center,
voice_pitch_count,
previous_cp_pitch,
previous_melodic_interval,
got_accent);
Integer cp_winner = pickWinner(pitch_candidates);
// re-assign variables and move on to next CP note
pitch_candidates.clear();
System.out.println("CP winner" + cp_winner + " to note " + current_cp_index);
MelodicNote current_cp = alter_me.getMelodicNote(current_cp_index);
current_cp.setPitch(cp_winner);
return_me.addMelodicNote(current_cp);
if (!pending_rests.isEmpty())
for (MelodicNote my_rest : pending_rests) {
return_me.addMelodicNote(my_rest);
}
pending_rests.clear();
// Calculating Peaks and Troughs and note counts and save variables
if (previous_cp_pitch != -13) {
if (voice_pitch_count > 1) {
if (previous_melodic_interval < 0
&& cp_winner - previous_cp_pitch
> 0) { // will there be a change in direction from - to + ie trough?
if (previous_cp_pitch == trough) {
trough_count++;
} else if (previous_cp_pitch != trough) {
trough = previous_cp_pitch;
trough_count = 1;
System.out.println("setting new trough = " + previous_cp_pitch);
}
}
if (previous_melodic_interval > 0
&& cp_winner - previous_cp_pitch
< 0) { // will there be a change in direction from - to + ie trough?
if (previous_cp_pitch == peak) peak_count++;
else {
if (previous_cp_pitch > peak) {
peak = previous_cp_pitch;
peak_count = 1;
System.out.println("setting new peak = " + previous_cp_pitch);
}
}
}
}
previous_melodic_interval = cp_winner - previous_cp_pitch;
System.out.println("previous melodic interval = " + previous_melodic_interval);
boolean add_pitch = true;
for (int pc = 0; pc < pitch_counts.size(); pc++) {
if (pitch_counts.get(pc).getPitch() == previous_cp_pitch % 12) {
pitch_counts.get(pc).incrementCount();
add_pitch = false;
}
}
if (add_pitch == true) {
PitchCount my_pitch_count = new PitchCount(previous_cp_pitch % 12);
pitch_counts.add(my_pitch_count);
}
boolean add_motn = true;
for (int mc = 0; mc < motion_counts.size(); mc++) {
if (motion_counts.get(mc).getPreviousPitch() == previous_cp_pitch % 12
&& motion_counts.get(mc).getSucceedingPitch() == cp_winner % 12) {
motion_counts.get(mc).incrementCount();
add_motn = false;
}
}
if (add_motn == true) {
MotionCount my_motionCount = new MotionCount(previous_cp_pitch % 12, cp_winner % 12);
motion_counts.add(my_motionCount);
}
}
previous_cp_pitch = cp_winner;
melodic_prev_cp = cp_winner;
voice_pitch_count++;
}
// get pitch_candidate pitches for this note from mode_module
if (harmonic_prog_built) {
do {
MelodicNote prog_stack_note = (MelodicNote) chord_prog_stack.pop();
if (prog_stack_note.getPitch() != 0) this_key.setPitch(prog_stack_note.getPitch());
this_key.setTotalVoiceDuration(prog_stack_note.getPreviousDuration());
System.out.println("this key = " + this_key.getPitch());
System.out.println("this key prevduration = " + this_key.getPreviousDuration());
if (this_key.getPreviousDuration() >= CP_note.getStartTime()) {
key_transpose = this_key.getPitch() % 12;
}
} while (this_key.getPreviousDuration() < CP_note.getPreviousDuration());
}
if (voice_pitch_count == 0) { // If there is no previous pitch ie this is the first note
pitch_candidate_values =
my_mode_module.getFirstNotePitchCandidates(
alter_me.getRangeMin(), alter_me.getRangeMax(), key_transpose);
System.out.println("using first note pitch candidates");
} else {
System.out.println("getting pitch candidates from my modemodule");
pitch_candidate_values =
my_mode_module.getPitchCandidates(previous_cp_pitch, key_transpose);
if (pitch_candidate_values.isEmpty()) System.out.println("EMPTY ARRAY!!!!");
}
System.out.println("voice_pitch_count" + voice_pitch_count);
System.out.print("pitch candidates: ");
// build pitch_candidate object array with info from rhythm patterns and mode module
for (Integer pitch_candidate_value : pitch_candidate_values) {
System.out.print(pitch_candidate_value + " ");
PitchCandidate myPC = new PitchCandidate();
myPC.setPitch(pitch_candidate_value);
pitch_candidates.add(myPC);
}
System.out.println();
// Reset Current CP index
current_cp_index = i;
}
// If note is a Rest add it to the voice
else {
System.out.println(" is rest ");
if (current_cp_index == -13) {
return_me.addMelodicNote(CP_note);
System.out.println("adding rest to beginning of voice");
continue;
} else {
pending_rests.add(CP_note);
System.out.println("adding rest to pending rest array");
}
}
/*
Regardless if note or rest run HARMONIC CHECKS on the current cp
If a rest, then we are still deciding the counterpoint for the
immediately previous place in the melody.
If this is the very first voice, then there are no prebuilt voices
so skip this section
*/
if (!built_voice_queues.isEmpty()) {
for (int b = 0; b < built_voice_queues.size(); b++) {
do {
boolean CF_root = false;
if (b == 0) CF_root = true;
boolean skip_me = false;
if (!built_voice_queues.get(b).isEmpty()) {
if (holdover_cf[b] != null) this_cf = holdover_cf[b];
else
this_cf =
(MelodicNote) built_voice_queues.get(b).pop(); // pop from builtvoicequeues[b];
System.out.println(" pitch = " + this_cf.getPitch());
System.out.println(" rest = " + this_cf.getRest());
System.out.println(" duration up to = " + this_cf.getPreviousDuration());
} else {
System.out.println("cf voice is empty");
break;
}
if (this_cf.getRest()) {
if (this_cf.getDuration() > .5 || previous_cf_pitch[b] == -1 || CP_note.getRest())
skip_me = true;
}
if (!skip_me) {
// HARMONICALLY EVALUATE cp candidates against this_cf
if (previous_cf_pitch[b] != 1111)
pitch_candidates =
harmonicChecks(
pitch_candidates,
this_cf,
CF_root,
previous_cf_pitch[b],
previous_cp_pitch,
CP_note,
voice_pitch_count,
b);
else
pitch_candidates =
harmonicChecksSuperBasic(
pitch_candidates,
this_cf,
CF_root,
alter_me.getMelodicNote(current_cp_index));
previous_cp_pitch =
9999; // 9999 is assigned in case CP might hold over into next CF note
} // in which case the while loop repeats. When you break out
// of while loop previous_cp_pitch will be checked and re-assigned above
else {
System.out.println("current cf index" + b + "is null");
break;
}
if (this_cf.getPreviousDuration() > CP_note.getPreviousDuration())
holdover_cf[b] = this_cf;
else holdover_cf[b] = null;
if (!skip_me) previous_cf_pitch[b] = this_cf.getPitch();
} while (this_cf.getPreviousDuration() < CP_note.getPreviousDuration());
}
}
/*
If this is the last melodic placeholder, run some closing procedures
*/
if (i == alter_me.getVoiceLength() - 1) {
// MELODICALLY EVALUATE Current CP
System.out.println("Last note of voice");
Boolean last_accent = true;
if (!CP_note.getRest()) {
pitch_candidates =
melodicCheck(
pitch_candidates,
my_mode_module,
alter_me,
pitch_center,
voice_pitch_count,
previous_cp_pitch,
previous_melodic_interval,
last_accent);
Integer cp_winner = pickWinner(pitch_candidates);
System.out.println("CP winner" + cp_winner);
pitch_candidates.clear();
CP_note.setPitch(cp_winner);
return_me.addMelodicNote(CP_note);
} else {
Boolean got_accent = alter_me.getMelodicNote(current_cp_index).getAccent();
System.out.println("this note's accent value is " + got_accent);
// MELODICALLY EVALUATE Current CP - Choose CP WinnerS - Previous CP = CP Winner
pitch_candidates =
melodicCheck(
pitch_candidates,
my_mode_module,
alter_me,
pitch_center,
voice_pitch_count,
previous_cp_pitch,
previous_melodic_interval,
got_accent);
Integer cp_winner = pickWinner(pitch_candidates);
pitch_candidates.clear();
System.out.println("CP winner" + cp_winner + " to note " + current_cp_index);
MelodicNote current_cp = alter_me.getMelodicNote(current_cp_index);
current_cp.setPitch(cp_winner);
return_me.addMelodicNote(current_cp);
if (!pending_rests.isEmpty())
for (MelodicNote my_rest : pending_rests) {
return_me.addMelodicNote(my_rest);
}
pending_rests.clear();
}
}
} // loop through next CP note
return return_me;
} // end method