import copy
import pathlib
import unittest

import generator.arrange.generate
import generator.guitar
import generator.harmony
import generator.model
import generator.musicxml
import tests.rhythm_fixtures
import tests.test_musicxml
import tests.test_parts

def grip(frets, strings=(4, 3, 2, 1)):
  tuning = dict(generator.guitar.STANDARD_TUNING)
  return tuple(generator.guitar.TabPosition(s, f, tuning[s] + f) for s, f in zip(strings, frets))

def ranked(symbol, melody=(), profile='electric', prune=False):
  definition = generator.harmony.parse_symbol(symbol)
  required, allowed, bass = generator.guitar.chord_requirements(definition, profile)
  root = int((generator.model.NATURAL[definition['root']['letter']] + generator.model.alteration(definition['root']['alter'])) % 12)
  candidates = generator.guitar.chord_positions(required, allowed, bass, prune=prune, profile=profile, melody=melody, root=root)
  return sorted(candidates, key=lambda shape: (generator.guitar.voicing_cost(shape, profile, allowed, root, melody), shape))

class VoicingTests(unittest.TestCase):
  def test_requested_shapes_win_without_a_shape_dictionary(self):
    for symbol, melody, expected in (('FM7', 69, (3, 5, 5, 5)), ('Gm7', 67, (3, 3, 3, 3))):
      with self.subTest(symbol=symbol):
        self.assertEqual(ranked(symbol, (melody,))[0], grip(expected))
  def test_four_strings_precede_melody_height_and_root_presence(self):
    candidates = ranked('CM7', (64,))
    four = next(c for c in candidates if len(c) == 4 and max(p.midi for p in c) > 64)
    three = next(c for c in candidates if len(c) == 3 and max(p.midi for p in c) == 64)
    self.assertLess(candidates.index(four), candidates.index(three))
    candidates = ranked('FM7', (69,))
    rootless = next(c for c in candidates if len(c) == 4 and 5 not in {p.midi % 12 for p in c})
    rooted = next(c for c in candidates if len(c) == 3 and 5 in {p.midi % 12 for p in c})
    self.assertLess(candidates.index(rootless), candidates.index(rooted))
  def test_melody_on_top_precedes_root_among_four_string_shapes(self):
    candidates = ranked('C7b9', (64,))
    best = candidates[0]
    self.assertEqual(len(best), 4)
    self.assertEqual(max(p.midi for p in best), 64)
    self.assertNotIn(0, {p.midi % 12 for p in best})
    self.assertTrue(any(0 in {p.midi % 12 for p in c} and max(p.midi for p in c) > 64 for c in candidates))
  def test_root_precedes_physical_cost_without_covering_the_melody(self):
    self.assertEqual(ranked('CM7', (67,))[0], grip((2, 4, 1, 3)))
    rooted = generator.guitar.voicing_cost(grip((2, 4, 1, 3)), 'electric', (0, 4, 7, 11), 0, (67,))
    rootless = generator.guitar.voicing_cost(grip((2, 0, 0, 3)), 'electric', (0, 4, 7, 11), 0, (67,))
    self.assertGreater(rooted.effort, rootless.effort)
    self.assertLess(rooted, rootless)
  def test_essential_extensions_are_never_relaxed_to_add_the_root(self):
    for symbol in ('C7b9', 'FM7#11', 'C13', 'Cdim7'):
      definition = generator.harmony.parse_symbol(symbol)
      required, allowed, _ = generator.guitar.chord_requirements(definition, 'electric')
      for candidate in ranked(symbol):
        classes = {p.midi % 12 for p in candidate}
        self.assertTrue(set(required) <= classes <= set(allowed))
  def test_explicitly_removed_root_is_not_restored_or_penalized(self):
    document = tests.test_musicxml.parse(tests.test_musicxml.xml_score(tests.test_parts.xml_harmony(kind='major-seventh') + tests.test_musicxml.xml_note('E', octave=5)))
    measure = document['staves'][0]['measures'][0]
    chord = measure['harmonies'][0]
    chord['degrees'].append({'value': 1, 'alter': 0, 'type': 'subtract'})
    note = measure['voices'][0]['notes'][0]
    measure['transpose']['octave_change'] = -1
    note.update(_harmony=chord, _guitar_profile='electric', _harmonize=True)
    _, tones = generator.guitar.guitar_events(document)
    candidates = list(generator.guitar.attack_candidates([note], tones, {}, {}, False))
    self.assertTrue(candidates)
    self.assertTrue(all(c.cost.missing_root == 0 and all(p.midi % 12 != 0 for p in c.shape) for c in candidates))
  def test_lower_frets_and_small_spans_have_explicit_costs(self):
    for profile in ('', 'electric', 'acoustic'):
      low = generator.guitar.voicing_cost(grip((3, 3, 3, 3)), profile)
      high = generator.guitar.voicing_cost(grip((15, 15, 15, 15)), profile)
      self.assertLess(low, high)
      self.assertEqual(high.effort - low.effort, 24)
    shape = grip((0, 2, 3, 4))
    self.assertEqual(generator.guitar.voicing_cost(shape).effort, 12)
    self.assertEqual(generator.guitar.voicing_cost(shape, 'acoustic').effort, 26)
  def test_acoustic_simpler_three_note_shape_can_beat_four_notes(self):
    candidates = ranked('C7', profile='acoustic')
    best = candidates[0]
    self.assertEqual(len(best), 3)
    self.assertTrue(any(len(c) == 4 for c in candidates))
    required, _, _ = generator.guitar.chord_requirements(generator.harmony.parse_symbol('C7'), 'acoustic')
    self.assertTrue(set(required) <= {p.midi % 12 for p in best})
  def test_nearby_position_can_balance_lower_fret_preference(self):
    low, nearby, previous = (grip((f,), (1,)) for f in (3, 4, 5))
    self.assertEqual(generator.guitar.voicing_cost(low).moved(generator.guitar.movement(previous, low)), generator.guitar.voicing_cost(nearby).moved(generator.guitar.movement(previous, nearby)))
  def test_candidate_pruning_uses_full_cost_and_preserves_each_center(self):
    for symbol, profile, melody in (('FM7', 'electric', (69,)), ('C7', 'acoustic', ()), ('Gm7', 'electric', (67,))):
      best = {}
      for shape in ranked(symbol, melody, profile):
        best.setdefault(generator.guitar.position_center(shape), shape)
      self.assertEqual(set(ranked(symbol, melody, profile, prune=True)), set(best.values()))
  def test_tie_continuations_do_not_charge_a_second_voicing_cost(self):
    note = tests.test_musicxml.xml_note('E', 2, 'half', octave=5, extra='<tie type="start"/>') + tests.test_musicxml.xml_note('E', 2, 'half', octave=5, extra='<tie type="stop"/>')
    document = tests.test_musicxml.parse(tests.test_musicxml.xml_score(note))
    events, tones = generator.guitar.guitar_events(document)
    states = {(): generator.guitar.Placement(generator.guitar.VoicingCost(), (), None, ())}
    first = generator.guitar.advance_positions([events[0][3]], events[0][0], tones, states, False)
    second = generator.guitar.advance_positions([events[1][3]], events[1][0], tones, first, False)
    self.assertEqual(sorted(p.cost for p in first.values()), sorted(p.cost for p in second.values()))
  def test_empty_and_positioned_states_are_compared_by_the_same_grid_cost(self):
    empty = generator.guitar.Placement(generator.guitar.VoicingCost(effort=20), (), None, ())
    placed = generator.guitar.Placement(generator.guitar.VoicingCost(), (('tone', grip((3,), (1,))[0]),), None, ())
    grid = generator.guitar.nearest_positions({(): empty, 1: placed})
    self.assertIs(grid[6][0][2], placed)
    self.assertIs(grid[40][10][2], empty)
  def test_optimized_passage_search_matches_exhaustive_candidate_ranking(self):
    contents = ''.join(tests.test_musicxml.xml_note('E', 1, 'quarter', octave=5) for _ in range(4))
    document = tests.test_musicxml.parse(tests.test_musicxml.xml_score(contents))
    measure = document['staves'][0]['measures'][0]
    for note, symbol in zip(measure['voices'][0]['notes'], ('FM7', 'Gm7', 'C7b9', 'FM7')):
      note.update(pitches=[], _harmony=generator.harmony.parse_symbol(symbol), _guitar_profile='electric')
    events, tones = generator.guitar.guitar_events(document)
    states = {(): generator.guitar.Placement(generator.guitar.VoicingCost(), (), None, ())}
    for onset, _, _, note in events:
      expected = {}
      for candidate in generator.guitar.attack_candidates([note], tones, {}, {}, False):
        choices = []
        for index, previous in enumerate(states.values()):
          distance = generator.guitar.movement(tuple(p for _, p in previous.active), candidate.shape)
          choices.append((previous.cost.moved(distance).plus(candidate.cost), index))
        expected[candidate.active] = min(choices)
      actual = generator.guitar.advance_positions([note], onset, tones, states, False)
      predecessors = {id(p): i for i, p in enumerate(states.values())}
      self.assertEqual({key: (p.cost, predecessors[id(p.previous)]) for key, p in actual.items()}, expected)
      states = actual
  def test_real_autumn_leaves_melody_has_expected_shapes_and_unchanged_notes(self):
    source = generator.musicxml.load_musicxml(pathlib.Path('data/songs/autumn-leaves.xml'))
    before = copy.deepcopy(source)
    result = generator.arrange.generate.arrange_document(source, 'electric', rhythms=tests.rhythm_fixtures.library())
    generator.model.validate_document(result)
    section, checked = '', set()
    for measure in result['staves'][0]['measures']:
      section = measure.get('section_label') or section
      if section != 'Guitar Melody':
        continue
      original = next(m for m in source['staves'][0]['measures'] if m['number'] == measure['number'])
      for note in measure['voices'][0]['notes']:
        if not note['pitches']:
          continue
        onset = generator.model.fraction(note['onset'])
        authored = next(n for n in original['voices'][0]['notes'] if generator.model.fraction(n['onset']) <= onset < generator.model.fraction(n['onset']) + generator.model.fraction(n['duration']))
        self.assertEqual(generator.model.pitch_number(note['pitches'][0]), generator.model.pitch_number(authored['pitches'][0]) + 12)
        if measure['number'] not in ('4', '12', '22', '24') or len(note['pitches']) == 1:
          continue
        expected = (3, 3, 3, 3) if measure['number'] == '22' else (3, 5, 5, 5)
        frets = tuple(p['tablature']['fret'] for p in sorted(note['pitches'], key=lambda p: -p['tablature']['string']))
        self.assertEqual(frets, expected)
        self.assertEqual(generator.model.pitch_number(note['pitches'][0]), max(generator.model.pitch_number(p) for p in note['pitches']))
        checked.add(measure['number'])
    self.assertEqual(checked, {'4', '12', '22', '24'})
    self.assertEqual(source, before)