VCVRack
/
Rack
mirror of https://github.com/VCVRack/Rack.git
1
0
Fork 0
Code Issues 0 Releases 43 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1311 Commits
4 Branches
541MB
Tree: 24360e9d0e
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '24360e9d0e'
${ noResults }
Rack/plugins/community/repos/AmalgamatedHarmonics/src/Core.hpp

528 lines
19KB
Raw Blame History 

  1. #pragma once

  2. 

  3. #include <iostream>

  4. 

  5. #include "dsp/digital.hpp"

  6. 

  7. #include "AH.hpp"

  8. 

  9. namespace rack_plugin_AmalgamatedHarmonics {

  10. 

  11. struct AHPulseGenerator {

  12. 	float time = 0.f;

  13. 	float pulseTime = 0.f;

  14. 	

  15. 	bool ishigh() {

  16. 			return time < pulseTime;

  17. 	}

  18. 	

  19. 	bool process(float deltaTime) {

  20. 		time += deltaTime;

  21. 		return time < pulseTime;

  22. 	}

  23. 

  24. 	bool trigger(float pulseTime) {

  25. 		// Keep the previous pulseTime if the existing pulse would be held longer than the currently requested one.

  26. 		if (time + pulseTime >= this->pulseTime) {

  27. 			time = 0.f;

  28. 			this->pulseTime = pulseTime;

  29. 			return true;

  30. 		} else {

  31. 			return false;

  32. 		}

  33. 	}

  34. };

  35. 

  36. struct BpmCalculator {

  37. 	

  38. 	float timer = 0.0f;

  39. 	int misses = 0;

  40. 	float seconds = 0;

  41. 	SchmittTrigger gateTrigger;

  42. 	

  43. 	inline bool checkBeat(int mult) {

  44. 		return ( ((timer - mult * seconds) * (timer - mult * seconds) / (seconds * seconds) < 0.2f ) && misses < 4);

  45. 	}

  46. 

  47. 	float calculateBPM(float delta, float input) {

  48. 

  49. 		if (gateTrigger.process(input) ) {

  50. 

  51. 			if (timer > 0) {

  52. 

  53. 				float new_seconds;

  54. 				bool found = false;

  55. 

  56. 				for(int mult = 1; !found && mult < 20; mult++ )  {

  57. 

  58. 					if (checkBeat(mult)) {

  59. 						new_seconds = timer / mult;

  60. 						if (mult == 1) {

  61. 							misses = 0;

  62. 						} else {

  63. 							misses++;

  64. 						}

  65. 					

  66. 						found = true;

  67. 					};

  68. 				

  69. 				};

  70. 

  71. 				if (!found) {

  72. 					// std::cerr << "default. misses = " << misses << "\n";

  73. 					new_seconds = timer;

  74. 					misses = 0;

  75. 				}

  76. 

  77. 				float a = 0.5f; // params[SMOOTH_PARAM].value;

  78. 				seconds = ((1.0f - a) * seconds + a * new_seconds);

  79. 				timer -= seconds;

  80. 

  81. 			}

  82. 

  83. 		};

  84. 

  85. 		timer += delta;

  86. 		if (seconds < 2.0e-05) {

  87. 			return 0.0f;

  88. 		} else {

  89. 			return 60.0f / seconds;

  90. 		}

  91. 	};

  92. 

  93. };

  94. 

  95. 

  96. struct ChordDef {

  97. 	int number;

  98. 	std::string quality;

  99. 	int	root[6];

  100. 	int	first[6];

  101. 	int	second[6];

  102. };

  103. 

  104. struct Core {

  105. 

  106. 	static constexpr float TRIGGER = 1e-3f;

  107. 

  108.  	static constexpr float SEMITONE = 1.0f / 12.0f;

  109. 

  110. 	// Reference, midi note to scale

  111. 	// 0	1

  112. 	// 1	b2 (#1)

  113. 	// 2	2

  114. 	// 3	b3 (#2)

  115. 	// 4	3

  116. 	// 5	4

  117. 	// 6	b5 (#4)

  118. 	// 7	5

  119. 	// 8	b6 (#5)

  120. 	// 9 	6

  121. 	// 10	b7 (#6)

  122. 	// 11	7

  123. 

  124. 	// http://www.grantmuller.com/MidiReference/doc/midiReference/ScaleReference.html

  125. 	// Although their definition of the Blues scale is wrong

  126. 	// Added the octave note to ensure that the last note is correctly processed

  127. 	int ASCALE_CHROMATIC      [13]= {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}; 	// All of the notes

  128. 	int ASCALE_IONIAN         [8] = {0, 2, 4, 5, 7, 9, 11, 12};			// 1,2,3,4,5,6,7

  129. 	int ASCALE_DORIAN         [8] = {0, 2, 3, 5, 7, 9, 10, 12};			// 1,2,b3,4,5,6,b7

  130. 	int ASCALE_PHRYGIAN       [8] = {0, 1, 3, 5, 7, 8, 10, 12};			// 1,b2,b3,4,5,b6,b7

  131. 	int ASCALE_LYDIAN         [8] = {0, 2, 4, 6, 7, 9, 10, 12};			// 1,2,3,#4,5,6,7

  132. 	int ASCALE_MIXOLYDIAN     [8] = {0, 2, 4, 5, 7, 9, 10, 12};			// 1,2,3,4,5,6,b7 

  133. 	int ASCALE_AEOLIAN        [8] = {0, 2, 3, 5, 7, 8, 10, 12};			// 1,2,b3,4,5,b6,b7

  134. 	int ASCALE_LOCRIAN        [8] = {0, 1, 3, 5, 6, 8, 10, 12};			// 1,b2,b3,4,b5,b6,b7

  135. 	int ASCALE_MAJOR_PENTA    [6] = {0, 2, 4, 7, 9, 12};				// 1,2,3,5,6

  136. 	int ASCALE_MINOR_PENTA    [6] = {0, 3, 5, 7, 10, 12};				// 1,b3,4,5,b7

  137. 	int ASCALE_HARMONIC_MINOR [8] = {0, 2, 3, 5, 7, 8, 11, 12};			// 1,2,b3,4,5,b6,7

  138. 	int ASCALE_BLUES          [7] = {0, 3, 5, 6, 7, 10, 12};			// 1,b3,4,b5,5,b7

  139. 

  140. 	enum Notes {

  141. 		NOTE_C = 0,

  142. 		NOTE_D_FLAT, // C Sharp

  143. 		NOTE_D,

  144. 		NOTE_E_FLAT, // D Sharp

  145. 		NOTE_E,

  146. 		NOTE_F,

  147. 		NOTE_G_FLAT, //F Sharp

  148. 		NOTE_G,

  149. 		NOTE_A_FLAT, // G Sharp

  150. 		NOTE_A,

  151. 		NOTE_B_FLAT, // A Sharp

  152. 		NOTE_B,

  153. 		NUM_NOTES

  154. 	};

  155. 

  156. 	int CIRCLE_FIFTHS [12] = {

  157. 		NOTE_C,

  158. 		NOTE_G,

  159. 		NOTE_D,

  160. 		NOTE_A,

  161. 		NOTE_E, 

  162. 		NOTE_B,

  163. 		NOTE_G_FLAT,

  164. 		NOTE_D_FLAT,

  165. 		NOTE_A_FLAT,

  166. 		NOTE_E_FLAT,

  167. 		NOTE_B_FLAT,

  168. 		NOTE_F

  169. 	};

  170. 	

  171. 	std::string noteNames[12] = {

  172. 		"C",

  173. 		"C#/Db",

  174. 		"D",

  175. 		"D#/Eb",

  176. 		"E",

  177. 		"F",

  178. 		"F#/Gb",

  179. 		"G",

  180. 		"G#/Ab",

  181. 		"A",

  182. 		"A#/Bb",

  183. 		"B",

  184. 	};

  185. 

  186. 	enum Scales {

  187. 		SCALE_CHROMATIC = 0,

  188.  		SCALE_IONIAN,

  189. 		SCALE_DORIAN,

  190. 		SCALE_PHRYGIAN,

  191. 		SCALE_LYDIAN,

  192. 		SCALE_MIXOLYDIAN,

  193. 		SCALE_AEOLIAN,

  194. 		SCALE_LOCRIAN,

  195. 		SCALE_MAJOR_PENTA,

  196. 		SCALE_MINOR_PENTA,

  197. 		SCALE_HARMONIC_MINOR,

  198. 		SCALE_BLUES,

  199. 		NUM_SCALES

  200. 	};

  201. 

  202. 	std::string scaleNames[12] = {

  203. 		"Chromatic",

  204. 		"Ionian (Major)",

  205. 		"Dorian",

  206. 		"Phrygian",

  207. 		"Lydian",

  208. 		"Mixolydian",

  209. 		"Aeolian (Natural Minor)",

  210. 		"Locrian",

  211. 		"Major Pentatonic",

  212. 		"Minor Pentatonic",

  213. 		"Harmonic Minor",

  214. 		"Blues"

  215. 	};

  216. 

  217. 	std::string intervalNames[13] {

  218. 		"1",

  219. 		"b2",

  220. 		"2",

  221. 		"b3",

  222. 		"3",

  223. 		"4",

  224. 		"b5",

  225. 		"5",

  226. 		"b6",

  227. 		"6",

  228. 		"b7",

  229. 		"7",

  230. 		"O"

  231. 	};

  232. 	

  233. 	enum Modes {

  234.  		MODE_IONIAN = 0,

  235. 		MODE_DORIAN,

  236. 		MODE_PHRYGIAN,

  237. 		MODE_LYDIAN,

  238. 		MODE_MIXOLYDIAN,

  239. 		MODE_AEOLIAN,

  240. 		MODE_LOCRIAN,

  241. 		NUM_MODES

  242. 	};

  243. 	

  244. 	std::string modeNames[7] {

  245. 		"Ionian (M)",

  246. 		"Dorian",

  247. 		"Phrygian",

  248. 		"Lydian",

  249. 		"Mixolydian",

  250. 		"Aeolian (m)",

  251. 		"Locrian"

  252. 	};

  253. 

  254. 	enum DEGREES {

  255.  		DEGREE_I = 0,

  256. 		DEGREE_II,

  257. 		DEGREE_III,

  258. 		DEGREE_IV,

  259. 		DEGREE_V,

  260. 		DEGREE_VI,

  261. 		DEGREE_VII,

  262. 		NUM_DEGREES

  263. 	};		

  264. 	

  265. 	std::string degreeNames[21] { // Degree * 3 + Quality

  266. 		"I",

  267. 		"i",

  268. 		"i°",

  269. 		"II",

  270. 		"ii",

  271. 		"ii°",

  272. 		"III",

  273. 		"iii",

  274. 		"iii°",

  275. 		"IV",

  276. 		"iv",

  277. 		"iv°",

  278. 		"V",

  279. 		"v",

  280. 		"v°",

  281. 		"VI",

  282. 		"vi",

  283. 		"vi°",

  284. 		"VII",

  285. 		"vii",

  286. 		"vii°"

  287. 	};

  288. 		

  289. 	enum Inversion {

  290. 		ROOT,

  291. 		FIRST_INV,

  292. 		SECOND_INV,

  293. 		NUM_INV

  294. 	};

  295. 	

  296. 	std::string inversionNames[3] {

  297. 		"",

  298. 		"(1)",

  299. 		"(2)"

  300. 	};

  301. 	

  302. 	enum Quality {

  303. 		MAJ = 0,

  304. 		MIN,

  305. 		DIM,

  306. 		NUM_QUALITY

  307. 	};

  308. 

  309. 	std::string qualityNames[3] {

  310. 		"Maj",

  311. 		"Min",

  312. 		"Dim"

  313. 	};

  314. 		

  315. 		

  316. 	double gaussrand();

  317. 	

  318. 	int ipow(int base, int exp);

  319. 		

  320. 	bool debug = false;

  321. 	int poll = 100000;

  322. 	int stepX = 0;

  323. 	

  324. 	/*

  325. 	* Convert a V/OCT voltage to a quantized pitch, key and scale, and calculate various information about the quantised note.

  326. 	*/

  327. 	

  328. 	float getPitchFromVolts(float inVolts, int inRoot, int inScale, int *outNote, int *outDegree);

  329. 

  330. 	float getPitchFromVolts(float inVolts, float inRoot, float inScale, int *outRoot, int *outScale, int *outNote, int *outDegree);

  331. 	

  332. 	/*

  333.  	 * Convert a root note (relative to C, C=0) and positive semi-tone offset from that root to a voltage (1V/OCT, 0V = C4 (or 3??))

  334. 	 */

  335. 	float getVoltsFromPitch(int inRoot, int inNote){	

  336. 		return (inRoot + inNote) * SEMITONE;

  337. 	}

  338. 	

  339. 	float getVoltsFromScale(int scale) {

  340. 		return rescale(scale, 0.0f, NUM_SCALES - 1, 0.0f, 10.0f);

  341. 	}

  342. 	

  343. 	int getScaleFromVolts(float volts) {

  344. 		return round(rescale(fabs(volts), 0.0f, 10.0f, 0.0f, NUM_SCALES - 1));

  345. 	}

  346. 	

  347. 	int getModeFromVolts(float volts) {

  348. 		int mode = round(rescale(fabs(volts), 0.0f, 10.0f, 0.0f, NUM_SCALES - 1));

  349. 		return clamp(mode - 1, 0, 6);

  350. 	}

  351. 	

  352. 	float getVoltsFromMode(int mode) {

  353. 		// Mode 0 = IONIAN, MODE 6 = LOCRIAN -> Scale 1 - 7

  354. 		return rescale(mode + 1, 0.0f, NUM_SCALES - 1, 0.0f, 10.0f);

  355. 	}

  356. 	

  357. 	float getVoltsFromKey(int key) {

  358. 		return rescale(key, 0.0f, NUM_NOTES - 1, 0.0f, 10.0f);

  359. 	}

  360. 	

  361. 	int getKeyFromVolts(float volts) {

  362. 		return round(rescale(fabs(volts), 0.0f, 10.0f, 0.0f, NUM_NOTES - 1));

  363. 	}

  364. 	

  365. 	void getRootFromMode(int inMode, int inRoot, int inTonic, int *currRoot, int *quality);

  366. 	

  367. 	const static int NUM_CHORDS = 99;

  368. 

  369. 	ChordDef ChordTable[NUM_CHORDS] {

  370. 		{	0	,"None",{	-24	,	-24	,	-24	,	-24	,	-24	,	-24	},{	-24	,	-24	,	-24	,	-24	,	-24	,	-24	},{	-24	,	-24	,	-24	,	-24	,	-24	,	-24	}},

  371. 		{	1	,"",{	0	,	4	,	7	,	-24	,	-20	,	-17	},{	12	,	4	,	7	,	-12	,	-20	,	-17	},{	12	,	16	,	7	,	-12	,	-8	,	-17	}},

  372. 		{	2	,"M#5",{	0	,	4	,	8	,	-24	,	-20	,	-16	},{	12	,	4	,	8	,	-12	,	-20	,	-16	},{	12	,	16	,	8	,	-12	,	-8	,	-16	}},

  373. 		{	3	,"M#5add9",{	0	,	4	,	8	,	14	,	-24	,	-20	},{	12	,	4	,	8	,	14	,	-24	,	-20	},{	12	,	16	,	8	,	14	,	-12	,	-20	}},

  374. 		{	4	,"M13",{	0	,	4	,	7	,	11	,	14	,	21	},{	12	,	4	,	7	,	11	,	14	,	21	},{	12	,	16	,	7	,	11	,	14	,	21	}},

  375. 		{	5	,"M6",{	0	,	4	,	7	,	21	,	-24	,	-20	},{	12	,	4	,	7	,	21	,	-24	,	-20	},{	12	,	16	,	7	,	21	,	-12	,	-20	}},

  376. 		{	6	,"M6#11",{	0	,	4	,	7	,	9	,	18	,	-24	},{	12	,	4	,	7	,	9	,	18	,	-24	},{	12	,	16	,	7	,	9	,	18	,	-24	}},

  377. 		{	7	,"M6/9",{	0	,	4	,	7	,	9	,	14	,	-24	},{	12	,	4	,	7	,	9	,	14	,	-24	},{	12	,	16	,	7	,	9	,	14	,	-24	}},

  378. 		{	8	,"M6/9#11",{	0	,	4	,	7	,	9	,	14	,	18	},{	12	,	4	,	7	,	9	,	14	,	18	},{	12	,	16	,	7	,	9	,	14	,	18	}},

  379. 		{	9	,"M7#11",{	0	,	4	,	7	,	11	,	18	,	-24	},{	12	,	4	,	7	,	11	,	18	,	-24	},{	12	,	16	,	7	,	11	,	18	,	-24	}},

  380. 		{	10	,"M7#5",{	0	,	4	,	8	,	11	,	-24	,	-20	},{	12	,	4	,	8	,	11	,	-24	,	-20	},{	12	,	16	,	8	,	11	,	-12	,	-20	}},

  381. 		{	11	,"M7#5sus4",{	0	,	5	,	8	,	11	,	-24	,	-19	},{	12	,	5	,	8	,	11	,	-24	,	-19	},{	12	,	17	,	8	,	11	,	-12	,	-19	}},

  382. 		{	12	,"M7#9#11",{	0	,	4	,	7	,	11	,	15	,	18	},{	12	,	4	,	7	,	11	,	15	,	18	},{	12	,	16	,	7	,	11	,	15	,	18	}},

  383. 		{	13	,"M7add13",{	0	,	4	,	7	,	9	,	11	,	14	},{	12	,	4	,	7	,	9	,	11	,	14	},{	12	,	16	,	7	,	9	,	11	,	14	}},

  384. 		{	14	,"M7b5",{	0	,	4	,	6	,	11	,	-24	,	-20	},{	12	,	4	,	6	,	11	,	-24	,	-20	},{	12	,	16	,	6	,	11	,	-12	,	-20	}},

  385. 		{	15	,"M7b6",{	0	,	4	,	8	,	11	,	-24	,	-20	},{	12	,	4	,	8	,	11	,	-24	,	-20	},{	12	,	16	,	8	,	11	,	-12	,	-20	}},

  386. 		{	16	,"M7b9",{	0	,	4	,	7	,	11	,	13	,	-20	},{	12	,	4	,	7	,	11	,	13	,	-20	},{	12	,	16	,	7	,	11	,	13	,	-20	}},

  387. 		{	17	,"M7sus4",{	0	,	5	,	7	,	11	,	-24	,	-19	},{	12	,	5	,	7	,	11	,	-24	,	-19	},{	12	,	17	,	7	,	11	,	-12	,	-19	}},

  388. 		{	18	,"M9",{	0	,	4	,	7	,	11	,	14	,	-24	},{	12	,	4	,	7	,	11	,	14	,	-24	},{	12	,	16	,	7	,	11	,	14	,	-24	}},

  389. 		{	19	,"M9#11",{	0	,	4	,	7	,	11	,	14	,	18	},{	12	,	4	,	7	,	11	,	14	,	18	},{	12	,	16	,	7	,	11	,	14	,	18	}},

  390. 		{	20	,"M9#5",{	0	,	4	,	8	,	11	,	14	,	-24	},{	12	,	4	,	8	,	11	,	14	,	-24	},{	12	,	16	,	8	,	11	,	14	,	-24	}},

  391. 		{	21	,"M9#5sus4",{	0	,	5	,	8	,	11	,	14	,	-24	},{	12	,	5	,	8	,	11	,	14	,	-24	},{	12	,	17	,	8	,	11	,	14	,	-24	}},

  392. 		{	22	,"M9b5",{	0	,	4	,	6	,	11	,	14	,	-24	},{	12	,	4	,	6	,	11	,	14	,	-24	},{	12	,	16	,	6	,	11	,	14	,	-24	}},

  393. 		{	23	,"M9sus4",{	0	,	5	,	7	,	11	,	14	,	-24	},{	12	,	5	,	7	,	11	,	14	,	-24	},{	12	,	17	,	7	,	11	,	14	,	-24	}},

  394. 		{	24	,"Madd9",{	0	,	4	,	7	,	14	,	-24	,	-20	},{	12	,	4	,	7	,	14	,	-24	,	-20	},{	12	,	16	,	7	,	14	,	-12	,	-20	}},

  395. 		{	25	,"Maj7",{	0	,	4	,	7	,	11	,	-24	,	-20	},{	12	,	4	,	7	,	11	,	-24	,	-20	},{	12	,	16	,	7	,	11	,	-12	,	-20	}},

  396. 		{	26	,"Mb5",{	0	,	4	,	6	,	-24	,	-20	,	-18	},{	12	,	4	,	6	,	-12	,	-20	,	-18	},{	12	,	16	,	6	,	-12	,	-8	,	-18	}},

  397. 		{	27	,"Mb6",{	0	,	4	,	20	,	-24	,	-20	,	-4	},{	12	,	4	,	20	,	-12	,	-20	,	-4	},{	12	,	16	,	20	,	-12	,	-8	,	-4	}},

  398. 		{	28	,"Msus2",{	0	,	2	,	7	,	-24	,	-22	,	-17	},{	12	,	2	,	7	,	-12	,	-22	,	-17	},{	12	,	14	,	7	,	-12	,	-10	,	-17	}},

  399. 		{	29	,"Msus4",{	0	,	5	,	7	,	-24	,	-19	,	-17	},{	12	,	5	,	7	,	-12	,	-19	,	-17	},{	12	,	17	,	7	,	-12	,	-7	,	-17	}},

  400. 		{	30	,"Maddb9",{	0	,	4	,	7	,	13	,	-24	,	-20	},{	12	,	4	,	7	,	13	,	-24	,	-20	},{	12	,	16	,	7	,	13	,	-12	,	-20	}},

  401. 		{	31	,"7",{	0	,	4	,	7	,	10	,	-24	,	-20	},{	12	,	4	,	7	,	10	,	-24	,	-20	},{	12	,	16	,	7	,	10	,	-12	,	-20	}},

  402. 		{	32	,"9",{	0	,	4	,	7	,	10	,	14	,	-24	},{	12	,	4	,	7	,	10	,	14	,	-24	},{	12	,	16	,	7	,	10	,	14	,	-24	}},

  403. 		{	33	,"11",{	0	,	7	,	10	,	14	,	17	,	-24	},{	12	,	7	,	10	,	14	,	17	,	-24	},{	12	,	19	,	10	,	14	,	17	,	-24	}},

  404. 		{	34	,"13",{	0	,	4	,	7	,	10	,	14	,	21	},{	12	,	4	,	7	,	10	,	14	,	21	},{	12	,	16	,	7	,	10	,	14	,	21	}},

  405. 		{	35	,"11b9",{	0	,	7	,	10	,	13	,	17	,	-24	},{	12	,	7	,	10	,	13	,	17	,	-24	},{	12	,	19	,	10	,	13	,	17	,	-24	}},

  406. 		{	36	,"13#9",{	0	,	4	,	7	,	10	,	15	,	21	},{	12	,	4	,	7	,	10	,	15	,	21	},{	12	,	16	,	7	,	10	,	15	,	21	}},

  407. 		{	37	,"13b5",{	0	,	4	,	6	,	9	,	10	,	14	},{	12	,	4	,	6	,	9	,	10	,	14	},{	12	,	16	,	6	,	9	,	10	,	14	}},

  408. 		{	38	,"13b9",{	0	,	4	,	7	,	10	,	13	,	21	},{	12	,	4	,	7	,	10	,	13	,	21	},{	12	,	16	,	7	,	10	,	13	,	21	}},

  409. 		{	39	,"13no5",{	0	,	4	,	10	,	14	,	21	,	-24	},{	12	,	4	,	10	,	14	,	21	,	-24	},{	12	,	16	,	10	,	14	,	21	,	-24	}},

  410. 		{	40	,"13sus4",{	0	,	5	,	7	,	10	,	14	,	21	},{	12	,	5	,	7	,	10	,	14	,	21	},{	12	,	17	,	7	,	10	,	14	,	21	}},

  411. 		{	41	,"69#11",{	0	,	4	,	7	,	9	,	14	,	18	},{	12	,	4	,	7	,	9	,	14	,	18	},{	12	,	16	,	7	,	9	,	14	,	18	}},

  412. 		{	42	,"7#11",{	0	,	4	,	7	,	10	,	18	,	-24	},{	12	,	4	,	7	,	10	,	18	,	-24	},{	12	,	16	,	7	,	10	,	18	,	-24	}},

  413. 		{	43	,"7#11b13",{	0	,	4	,	7	,	10	,	18	,	20	},{	12	,	4	,	7	,	10	,	18	,	20	},{	12	,	16	,	7	,	10	,	18	,	20	}},

  414. 		{	44	,"7#5",{	0	,	4	,	8	,	10	,	-24	,	-20	},{	12	,	4	,	8	,	10	,	-24	,	-20	},{	12	,	16	,	8	,	10	,	-12	,	-20	}},

  415. 		{	45	,"7#5#9",{	0	,	4	,	8	,	10	,	15	,	-24	},{	12	,	4	,	8	,	10	,	15	,	-24	},{	12	,	16	,	8	,	10	,	15	,	-24	}},

  416. 		{	46	,"7#5b9",{	0	,	4	,	8	,	10	,	13	,	-24	},{	12	,	4	,	8	,	10	,	13	,	-24	},{	12	,	16	,	8	,	10	,	13	,	-24	}},

  417. 		{	47	,"7#5b9#11",{	0	,	4	,	8	,	10	,	13	,	18	},{	12	,	4	,	8	,	10	,	13	,	18	},{	12	,	16	,	8	,	10	,	13	,	18	}},

  418. 		{	48	,"7#5sus4",{	0	,	5	,	8	,	10	,	-24	,	-19	},{	12	,	5	,	8	,	10	,	-24	,	-19	},{	12	,	17	,	8	,	10	,	-12	,	-19	}},

  419. 		{	49	,"7#9",{	0	,	4	,	7	,	10	,	15	,	-24	},{	12	,	4	,	7	,	10	,	15	,	-24	},{	12	,	16	,	7	,	10	,	15	,	-24	}},

  420. 		{	50	,"7#9#11",{	0	,	4	,	7	,	10	,	15	,	18	},{	12	,	4	,	7	,	10	,	15	,	18	},{	12	,	16	,	7	,	10	,	15	,	18	}},

  421. 		{	51	,"7#9b13",{	0	,	4	,	7	,	10	,	15	,	20	},{	12	,	4	,	7	,	10	,	15	,	20	},{	12	,	16	,	7	,	10	,	15	,	20	}},

  422. 		{	52	,"7add6",{	0	,	4	,	7	,	10	,	21	,	-24	},{	12	,	4	,	7	,	10	,	21	,	-24	},{	12	,	16	,	7	,	10	,	21	,	-24	}},

  423. 		{	53	,"7b13",{	0	,	4	,	10	,	20	,	-24	,	-20	},{	12	,	4	,	10	,	20	,	-24	,	-20	},{	12	,	16	,	10	,	20	,	-12	,	-20	}},

  424. 		{	54	,"7b5",{	0	,	4	,	6	,	10	,	-24	,	-20	},{	12	,	4	,	6	,	10	,	-24	,	-20	},{	12	,	16	,	6	,	10	,	-12	,	-20	}},

  425. 		{	55	,"7b6",{	0	,	4	,	7	,	8	,	10	,	-24	},{	12	,	4	,	7	,	8	,	10	,	-24	},{	12	,	16	,	7	,	8	,	10	,	-24	}},

  426. 		{	56	,"7b9",{	0	,	4	,	7	,	10	,	13	,	-24	},{	12	,	4	,	7	,	10	,	13	,	-24	},{	12	,	16	,	7	,	10	,	13	,	-24	}},

  427. 		{	57	,"7b9#11",{	0	,	4	,	7	,	10	,	13	,	18	},{	12	,	4	,	7	,	10	,	13	,	18	},{	12	,	16	,	7	,	10	,	13	,	18	}},

  428. 		{	58	,"7b9#9",{	0	,	4	,	7	,	10	,	13	,	15	},{	12	,	4	,	7	,	10	,	13	,	15	},{	12	,	16	,	7	,	10	,	13	,	15	}},

  429. 		{	59	,"7b9b13",{	0	,	4	,	7	,	10	,	13	,	20	},{	12	,	4	,	7	,	10	,	13	,	20	},{	12	,	16	,	7	,	10	,	13	,	20	}},

  430. 		{	60	,"7no5",{	0	,	4	,	10	,	-24	,	-20	,	-14	},{	12	,	4	,	10	,	-12	,	-20	,	-14	},{	12	,	16	,	10	,	-12	,	-8	,	-14	}},

  431. 		{	61	,"7sus4",{	0	,	5	,	7	,	10	,	-24	,	-19	},{	12	,	5	,	7	,	10	,	-24	,	-19	},{	12	,	17	,	7	,	10	,	-12	,	-19	}},

  432. 		{	62	,"7sus4b9",{	0	,	5	,	7	,	10	,	13	,	-24	},{	12	,	5	,	7	,	10	,	13	,	-24	},{	12	,	17	,	7	,	10	,	13	,	-24	}},

  433. 		{	63	,"7sus4b9b13",{	0	,	5	,	7	,	10	,	13	,	20	},{	12	,	5	,	7	,	10	,	13	,	20	},{	12	,	17	,	7	,	10	,	13	,	20	}},

  434. 		{	64	,"9#11",{	0	,	4	,	7	,	10	,	14	,	18	},{	12	,	4	,	7	,	10	,	14	,	18	},{	12	,	16	,	7	,	10	,	14	,	18	}},

  435. 		{	65	,"9#5",{	0	,	4	,	8	,	10	,	14	,	-24	},{	12	,	4	,	8	,	10	,	14	,	-24	},{	12	,	16	,	8	,	10	,	14	,	-24	}},

  436. 		{	66	,"9#5#11",{	0	,	4	,	8	,	10	,	14	,	18	},{	12	,	4	,	8	,	10	,	14	,	18	},{	12	,	16	,	8	,	10	,	14	,	18	}},

  437. 		{	67	,"9b13",{	0	,	4	,	10	,	14	,	20	,	-24	},{	12	,	4	,	10	,	14	,	20	,	-24	},{	12	,	16	,	10	,	14	,	20	,	-24	}},

  438. 		{	68	,"9b5",{	0	,	4	,	6	,	10	,	14	,	-24	},{	12	,	4	,	6	,	10	,	14	,	-24	},{	12	,	16	,	6	,	10	,	14	,	-24	}},

  439. 		{	69	,"9no5",{	0	,	4	,	10	,	14	,	-24	,	-20	},{	12	,	4	,	10	,	14	,	-24	,	-20	},{	12	,	16	,	10	,	14	,	-12	,	-20	}},

  440. 		{	70	,"9sus4",{	0	,	5	,	7	,	10	,	14	,	-24	},{	12	,	5	,	7	,	10	,	14	,	-24	},{	12	,	17	,	7	,	10	,	14	,	-24	}},

  441. 		{	71	,"m",{	0	,	3	,	7	,	-24	,	-21	,	-17	},{	12	,	3	,	7	,	-12	,	-21	,	-17	},{	12	,	15	,	7	,	-12	,	-9	,	-17	}},

  442. 		{	72	,"m#5",{	0	,	3	,	8	,	-24	,	-21	,	-16	},{	12	,	3	,	8	,	-12	,	-21	,	-16	},{	12	,	15	,	8	,	-12	,	-9	,	-16	}},

  443. 		{	73	,"m11",{	0	,	3	,	7	,	10	,	14	,	17	},{	12	,	3	,	7	,	10	,	14	,	17	},{	12	,	15	,	7	,	10	,	14	,	17	}},

  444. 		{	74	,"m11A5",{	0	,	3	,	8	,	10	,	14	,	17	},{	12	,	3	,	8	,	10	,	14	,	17	},{	12	,	15	,	8	,	10	,	14	,	17	}},

  445. 		{	75	,"m11b5",{	0	,	3	,	10	,	14	,	17	,	18	},{	12	,	3	,	10	,	14	,	17	,	18	},{	12	,	15	,	10	,	14	,	17	,	18	}},

  446. 		{	76	,"m6",{	0	,	3	,	5	,	7	,	21	,	-24	},{	12	,	3	,	5	,	7	,	21	,	-24	},{	12	,	15	,	5	,	7	,	21	,	-24	}},

  447. 		{	77	,"m69",{	0	,	3	,	7	,	9	,	14	,	-24	},{	12	,	3	,	7	,	9	,	14	,	-24	},{	12	,	15	,	7	,	9	,	14	,	-24	}},

  448. 		{	78	,"m7",{	0	,	3	,	7	,	10	,	-24	,	-21	},{	12	,	3	,	7	,	10	,	-24	,	-21	},{	12	,	15	,	7	,	10	,	-12	,	-21	}},

  449. 		{	79	,"m7#5",{	0	,	3	,	8	,	10	,	-24	,	-21	},{	12	,	3	,	8	,	10	,	-24	,	-21	},{	12	,	15	,	8	,	10	,	-12	,	-21	}},

  450. 		{	80	,"m7add11",{	0	,	3	,	7	,	10	,	17	,	-24	},{	12	,	3	,	7	,	10	,	17	,	-24	},{	12	,	15	,	7	,	10	,	17	,	-24	}},

  451. 		{	81	,"m7b5",{	0	,	3	,	6	,	10	,	-24	,	-21	},{	12	,	3	,	6	,	10	,	-24	,	-21	},{	12	,	15	,	6	,	10	,	-12	,	-21	}},

  452. 		{	82	,"m9",{	0	,	3	,	7	,	10	,	14	,	-24	},{	12	,	3	,	7	,	10	,	14	,	-24	},{	12	,	15	,	7	,	10	,	14	,	-24	}},

  453. 		{	83	,"#5",{	0	,	3	,	8	,	10	,	14	,	-24	},{	12	,	3	,	8	,	10	,	14	,	-24	},{	12	,	15	,	8	,	10	,	14	,	-24	}},

  454. 		{	84	,"m9b5",{	0	,	3	,	10	,	14	,	18	,	-24	},{	12	,	3	,	10	,	14	,	18	,	-24	},{	12	,	15	,	10	,	14	,	18	,	-24	}},

  455. 		{	85	,"mMaj7",{	0	,	3	,	7	,	11	,	-24	,	-21	},{	12	,	3	,	7	,	11	,	-24	,	-21	},{	12	,	15	,	7	,	11	,	-12	,	-21	}},

  456. 		{	86	,"mMaj7b6",{	0	,	3	,	7	,	8	,	11	,	-24	},{	12	,	3	,	7	,	8	,	11	,	-24	},{	12	,	15	,	7	,	8	,	11	,	-24	}},

  457. 		{	87	,"mM9",{	0	,	3	,	7	,	11	,	14	,	-24	},{	12	,	3	,	7	,	11	,	14	,	-24	},{	12	,	15	,	7	,	11	,	14	,	-24	}},

  458. 		{	88	,"mM9b6",{	0	,	3	,	7	,	8	,	11	,	14	},{	12	,	3	,	7	,	8	,	11	,	14	},{	12	,	15	,	7	,	8	,	11	,	14	}},

  459. 		{	89	,"mb6M7",{	0	,	3	,	8	,	11	,	-24	,	-21	},{	12	,	3	,	8	,	11	,	-24	,	-21	},{	12	,	15	,	8	,	11	,	-12	,	-21	}},

  460. 		{	90	,"mb6b9",{	0	,	3	,	8	,	13	,	-24	,	-21	},{	12	,	3	,	8	,	13	,	-24	,	-21	},{	12	,	15	,	8	,	13	,	-12	,	-21	}},

  461. 		{	91	,"dim",{	0	,	3	,	6	,	-24	,	-21	,	-18	},{	12	,	3	,	6	,	-12	,	-21	,	-18	},{	12	,	15	,	6	,	-12	,	-9	,	-18	}},

  462. 		{	92	,"dim7",{	0	,	3	,	6	,	21	,	-24	,	-21	},{	12	,	3	,	6	,	21	,	-24	,	-21	},{	12	,	15	,	6	,	21	,	-12	,	-21	}},

  463. 		{	93	,"dim7M7",{	0	,	3	,	6	,	9	,	11	,	-24	},{	12	,	3	,	6	,	9	,	11	,	-24	},{	12	,	15	,	6	,	9	,	11	,	-24	}},

  464. 		{	94	,"dimM7",{	0	,	3	,	6	,	11	,	-24	,	-21	},{	12	,	3	,	6	,	11	,	-24	,	-21	},{	12	,	15	,	6	,	11	,	-12	,	-21	}},

  465. 		{	95	,"sus24",{	0	,	2	,	5	,	7	,	-24	,	-22	},{	12	,	2	,	5	,	7	,	-24	,	-22	},{	12	,	14	,	5	,	7	,	-12	,	-22	}},

  466. 		{	96	,"augadd#9",{	0	,	4	,	8	,	15	,	-24	,	-20	},{	12	,	4	,	8	,	15	,	-24	,	-20	},{	12	,	16	,	8	,	15	,	-12	,	-20	}},

  467. 		{	97	,"madd4",{	0	,	3	,	5	,	7	,	-24	,	-21	},{	12	,	3	,	5	,	7	,	-24	,	-21	},{	12	,	15	,	5	,	7	,	-12	,	-21	}},

  468. 		{	98	,"madd9",{	0	,	3	,	7	,	14	,	-24	,	-21	},{	12	,	3	,	7	,	14	,	-24	,	-21	},{	12	,	15	,	7	,	14	,	-12	,	-21	}},		

  469. 	};

  470. 		

  471. 	int ModeQuality[7][7] {

  472. 		{MAJ,MIN,MIN,MAJ,MAJ,MIN,DIM}, // Ionian

  473. 		{MIN,MIN,MAJ,MAJ,MIN,DIM,MAJ}, // Dorian

  474. 		{MIN,MAJ,MAJ,MIN,DIM,MAJ,MIN}, // Phrygian

  475. 		{MAJ,MAJ,MIN,DIM,MAJ,MIN,MIN}, // Lydian

  476. 		{MAJ,MIN,DIM,MAJ,MIN,MIN,MAJ}, // Mixolydian

  477. 		{MIN,DIM,MAJ,MIN,MIN,MAJ,MAJ}, // Aeolian

  478. 		{DIM,MAJ,MIN,MIN,MAJ,MAJ,MIN}  // Locrian

  479. 	};

  480. 

  481. 	int ModeOffset[7][7] {

  482. 		{0,0,0,0,0,0,0},     // Ionian

  483. 		{0,0,-1,-1,0,0,-1},  // Dorian

  484. 		{0,-1,-1,0,0,-1,-1}, // Phrygian

  485. 		{0,0,0,1,0,0,0},     // Lydian

  486. 		{0,0,0,0,0,0,-1},    // Mixolydian

  487. 		{0,0,-1,0,0,-1,-1},  // Aeolian

  488. 		{0,-1,-1,0,-1,-1,-1} // Locrian

  489. 	};

  490. 

  491. 	// NOTE_C = 0,

  492. 	// NOTE_D_FLAT, // C Sharp

  493. 	// NOTE_D,

  494. 	// NOTE_E_FLAT, // D Sharp

  495. 	// NOTE_E,

  496. 	// NOTE_F,

  497. 	// NOTE_G_FLAT, //F Sharp

  498. 	// NOTE_G,

  499. 	// NOTE_A_FLAT, // G Sharp

  500. 	// NOTE_A,

  501. 	// NOTE_B_FLAT, // A Sharp

  502. 	// NOTE_B,

  503. 

  504. 	//0	1	2	3	4	5	6	7	8	9	10	11	12

  505. 	int tonicIndex[13] {1, 3, 5, 0, 2, 4, 6, 1, 3, 5, 0, 2, 4};

  506. 	int scaleIndex[7] {5, 3, 1, 6, 4, 2, 0};

  507. 	int noteIndex[13] { 

  508. 		NOTE_G_FLAT,

  509. 		NOTE_D_FLAT,

  510. 		NOTE_A_FLAT,

  511. 		NOTE_E_FLAT,

  512. 		NOTE_B_FLAT,

  513. 		NOTE_F,

  514. 		NOTE_C,

  515. 		NOTE_G,

  516. 		NOTE_D,

  517. 		NOTE_A,

  518. 		NOTE_E,		

  519. 		NOTE_B,

  520. 		NOTE_G_FLAT};	

  521. 			

  522. 		

  523. };

  524. 

  525. Core & CoreUtil();

  526. 

  527. } // namespace rack_plugin_AmalgamatedHarmonics