using namespace Music;
void main()
{
//  Music::Chord chord=ChordParser::parse("Gb-7");
//  Music::Chord chord=ChordParser::parse("G-7");
//  Music::Chord chord=ChordParser::parse("G-");
//  Music::Chord chord=ChordParser::parse("G^");
//  Music::Chord chord=ChordParser::parse("G7");

  Music::Chord chord=ChordParser::parse("Gb7");


	::OutputDebugString(chord.toString()+String("\n"));

/*
  Music::Progression progression;

  MIDIOutputDevice midiOut;
	Music::Chord chord;

  Note key(Note::A);
	progression.createProgression(Progression::PIII_VI_II_V,key);
	progression.play(midiOut);
  progression.createProgression(Progression::PV_V,key);
	progression.play(midiOut);
*/



/*
  Music::ProgressionManager::createProgression(ProgressionManager::PV_V,progression,key);
	key=key.getParentSecond();
  Music::ProgressionManager::createProgression(ProgressionManager::PV_V,progression2,key);
	progression+=progression2;
	key=key.getParentSecond();
  Music::ProgressionManager::createProgression(ProgressionManager::PV_V,progression2,key);
	progression+=progression2;
*/

	::Sleep(750);

//	AeolianScale aeolianScale;
//	aeolianScale.play(midiOut);
//	aeolianScale.playBack(midiOut);

/*
	MelodicMinorScale melodicMinorScale;
	Music::Chord melodicMinorChord=melodicMinorScale.getI7Chord();
	melodicMinorChord.play(midiOut);
	::Sleep(750);
	melodicMinorScale.play(midiOut);
  melodicMinorScale.playBack(midiOut);
  ::Sleep(750);
	melodicMinorChord.play(midiOut);
	::Sleep(500);
  ::OutputDebugString(melodicMinorScale.toString());
*/

//	SusFlat9Scale susFlat9Scale(Note::D);
//	susFlat9Scale.play(midiOut);
//	susFlat9Scale.playBack(midiOut);
//	::OutputDebugString(susFlat9Scale.toString());

//  LydianAugmentedScale lydianAugmentedScale(Note::DSh);
//	lydianAugmentedScale.play(midiOut);
//	lydianAugmentedScale.playBack(midiOut);
//	::OutputDebugString(lydianAugmentedScale.toString()+String("\n"));

//  LydianDominantScale lydianDominantScale;
//	lydianDominantScale.play(midiOut);
//	lydianDominantScale.playBack(midiOut);
//	::OutputDebugString(lydianDominantScale.toString()+String("\n"));

/*
  Locrian2Scale locrian2Scale;
  Music::Chord locrian2Chord=locrian2Scale.getI7Chord();
	::OutputDebugString(locrian2Chord.toString()+String("\n"));
	locrian2Chord.play(midiOut);
	::Sleep(750);
	locrian2Scale.play(midiOut);
	locrian2Scale.playBack(midiOut);
	::Sleep(500);
	locrian2Chord.play(midiOut);
	::Sleep(750);
	::OutputDebugString(locrian2Scale.toString()+String("\n"));

  AlteredScale alteredScale;
	Music::Chord alteredChord=alteredScale.getI7Chord();
	::OutputDebugString(alteredChord.toString()+String("\n"));
	alteredChord.play(midiOut);
	::Sleep(750);
	alteredScale.play(midiOut);
	alteredScale.playBack(midiOut);
	::OutputDebugString(alteredScale.toString()+String("\n"));
  ::Sleep(500);
	alteredChord.play(midiOut);
	::Sleep(750);
*/


}