(* variation, scale , inversion *) ScalesAndInversions : array[ 0 .. 2, 0 .. 19, 0 .. 3] of TTetrad = (( (* variation 0 - normal *) (* root 1st inversion 2nd inversion 3rd inversion *) (* maj *) (( 0, 4, 7, 12), ( 4, 7, 12, 19), ( 7, 12, 19, 16), ( 12, 19, 16, 24)), (* min *) (( 0, 3, 7, 12), ( 3, 7, 12, 19), ( 7, 12, 19, 15), ( 12, 19, 15, 24)), (* dim *) (( 0, 3, 6, 12), ( 3, 6, 12, 18), ( 6, 12, 18, 15), ( 12, 18, 15, 18)), (* aug *) (( 0, 4, 8, 12), ( 4, 8, 12, 20), ( 8, 12, 20, 16), ( 12, 20, 16, 20)), (* sus *) (( 0, 5, 7, 12), ( 5, 7, 12, 17), ( 7, 12, 17, 19), ( 12, 17, 19, 24)), (* maj6 *) (( 0, 4, 7, 9), ( 4, 7, 9, 12), ( 7, 9, 12, 16), ( 9, 12, 16, 19)), (* min6 *) (( 0, 3, 7, 9), ( 3, 7, 9, 12), ( 7, 9, 12, 15), ( 9, 12, 15, 19)), (* maj7 *) (( 0, 4, 7, 11), ( 4, 7, 11, 12), ( 7, 11, 12, 16), ( 11, 12, 16, 19)), (* maj9 *) (( 4, 7, 11, 14), ( 7, 11, 14, 16), ( 11, 14, 16, 19), ( 14, 16, 19, 25)), (* dom7 *) (( 0, 4, 7, 10), ( 4, 7, 10, 12), ( 7, 10, 12, 16), ( 10, 12, 16, 19)), (* min9 *) (( 3, 7, 10, 14), ( 7, 10, 14, 15), ( 10, 14, 15, 19), ( 14, 15, 19, 22)), (* dim7 *) (( 0, 3, 6, 9), ( 3, 6, 9, 12), ( 6, 9, 12, 15), ( 9, 12, 15, 18)), (* m7b5 *) (( 0, 3, 6, 10), ( 3, 6, 10, 12), ( 6, 10, 12, 15), ( 10, 12, 15, 18)), (* 7sus *) (( 0, 5, 7, 10), ( 5, 7, 10, 12), ( 7, 10, 12, 17), ( 10, 12, 17, 19)), (* maj9b7 *) (( 4, 7, 10, 14), ( 7, 10, 14, 16), ( 10, 14, 16, 19), ( 14, 16, 19, 22)), (* maj13_1 *) (( 10, 12, 16, 21), ( 12, 16, 21, 22), ( 16, 21, 22, 24), ( 21, 22, 24, 28)), (* maj13_2 *) (( 10, 14, 17, 21), ( 14, 17, 21, 22), ( 17, 21, 22, 26), ( 21, 22, 26, 29)), (* maj7b9 *) (( 4, 7, 10, 13), ( 7, 10, 13, 16), ( 10, 13, 16, 19), ( 13, 16, 19, 22)), (* maj13b9 *) (( 10, 13, 16, 21), ( 13, 16, 21, 22), ( 16, 21, 22, 25), ( 21, 22, 25, 28)), (* maj9b5 *) (( 4, 6, 10, 14), ( 6, 10, 14, 16), ( 10, 14, 16, 18), ( 14, 16, 18, 22)) ),( (* variation 1 - reduced *) (* root 1st inversion 2nd inversion 3rd inversion *) (* maj *) (( 0, 4, 7, 12), ( 4, 7, 0, 16), ( 7, 0, 12, 4), ( 0, 7, 4, 12)), (* min *) (( 0, 3, 7, 12), ( 3, 7, 0, 15), ( 7, 0, 12, 3), ( 0, 7, 3, 12)), (* dim *) (( 0, 3, 6, 12), ( 3, 6, 0, 15), ( 6, 0, 12, 3), ( 0, 6, 3, 15)), (* aug *) (( 0, 4, 8, 12), ( 4, 8, 0, 16), ( 8, 0, 12, 4), ( 0, 8, 4, 16)), (* sus *) (( 0, 5, 7, 12), ( 5, 7, 0, 17), ( 7, 0, 5, 12), ( 0, 5, 7, 12)), (* maj6 *) (( 0, 4, 7, 9), ( 4, 7, 9, 0), ( 7, 9, 0, 4), ( 9, 0, 4, 7)), (* min6 *) (( 0, 3, 7, 9), ( 3, 7, 9, 0), ( 7, 9, 0, 3), ( 9, 0, 3, 7)), (* maj7 *) (( 0, 4, 7, 11), ( 4, 7, 11, 0), ( 7, 11, 0, 4), ( 11, 0, 4, 7)), (* maj9 *) (( 4, 7, 11, 2), ( 7, 11, 2, 4), ( 11, 2, 4, 7), ( 2, 4, 7, 1)), (* dom7 *) (( 0, 4, 7, 10), ( 4, 7, 10, 0), ( 7, 10, 0, 4), ( 10, 0, 4, 7)), (* min9 *) (( 3, 7, 10, 2), ( 7, 10, 2, 3), ( 10, 2, 3, 7), ( 2, 3, 7, 10)), (* dim7 *) (( 0, 3, 6, 9), ( 3, 6, 9, 0), ( 6, 9, 0, 3), ( 9, 0, 3, 6)), (* m7b5 *) (( 0, 3, 6, 10), ( 3, 6, 10, 0), ( 6, 10, 0, 3), ( 10, 0, 3, 6)), (* 7sus *) (( 0, 5, 7, 10), ( 5, 7, 10, 0), ( 7, 10, 0, 5), ( 10, 0, 5, 7)), (* maj9b7 *) (( 4, 7, 10, 2), ( 7, 10, 2, 4), ( 10, 2, 4, 7), ( 2, 4, 7, 10)), (* maj13_1 *) (( 10, 0, 2, 9), ( 0, 4, 9, 10), ( 4, 9, 10, 0), ( 9, 10, 0, 4)), (* maj13_2 *) (( 10, 2, 5, 9), ( 2, 5, 9, 10), ( 5, 9, 10, 2), ( 9, 10, 2, 5)), (* maj7b9 *) (( 4, 7, 10, 1), ( 7, 10, 1, 4), ( 10, 1, 4, 7), ( 1, 4, 7, 10)), (* maj13b9 *) (( 10, 1, 4, 9), ( 1, 4, 9, 10), ( 4, 9, 10, 1), ( 9, 10, 1, 4)), (* maj9b5 *) (( 4, 6, 10, 2), ( 6, 10, 2, 4), ( 10, 2, 4, 6), ( 2, 4, 6, 10)) ),( (* variation 2 - lowered *) (* root 1st inversion 2nd inversion 3rd inversion *) (* maj *) (( 0, 4, 7, 12), ( 4, 7, 0, -5), ( 7, 0, -5, 4), ( 0, 7, 4, 12)), (* min *) (( 0, 3, 7, 12), ( 3, 7, 0, -5), ( 7, 0, -5, 3), ( 0, 7, 3, 12)), (* dim *) (( 0, 3, 6, 12), ( 3, 6, 0, -6), ( 6, 0, -6, 3), ( 0, 6, 3, -6)), (* aug *) (( 0, 4, 8, 12), ( 4, 8, 12, -4), ( 8, 12, -4, 4), ( 0, 8, 4, -4)), (* sus *) (( 0, 5, 7, 12), ( 5, 7, 12, -7), ( 7, 12, -7, -5), ( 0, 5, 7, 12)), (* maj6 *) (( 0, 4, 7, 9), ( 4, 7, 9, 0), ( 7, 9, 0, 4), ( 9, 0, 4, 7)), (* min6 *) (( 0, 3, 7, 9), ( 3, 7, 9, 0), ( 7, 9, 0, 3), ( 9, 0, 3, 7)), (* maj7 *) (( 0, 4, 7, 11), ( 4, 7, 11, 0), ( 7, 11, 0, 4), ( 11, 0, 4, 7)), (* maj9 *) (( 4, 7, 11, 2), ( 7, 11, 2, 4), ( 11, 2, 4, 7), ( 2, 4, 7, 1)), (* dom7 *) (( 0, 4, 7, 10), ( 4, 7, 10, 0), ( 7, 10, 0, 4), ( 10, 0, 4, 7)), (* min9 *) (( 3, 7, 10, 2), ( 7, 10, 2, 3), ( 10, 2, 3, 7), ( 2, 3, 7, 10)), (* dim7 *) (( 0, 3, 6, 9), ( 3, 6, 9, 0), ( 6, 9, 0, 3), ( 9, 0, 3, 6)), (* m7b5 *) (( 0, 3, 6, 10), ( 3, 6, 10, 0), ( 6, 10, 0, 3), ( 10, 0, 3, 6)), (* 7sus *) (( 0, 5, 7, 10), ( 5, 7, 10, 0), ( 7, 10, 12, 5), ( 10, 12, 5, 7)), (* maj9b7 *) (( 4, 7, 10, 2), ( 7, 10, 2, 4), ( 10, 2, 4, 7), ( 2, 4, 7, 10)), (* maj13_1 *) (( 10, 0, 4, 9), ( 0, 4, 9, 10), ( 4, 9, 10, 0), ( 9, 10, 0, 4)), (* maj13_2 *) (( 10, 2, 5, 9), ( 2, 5, 9, 10), ( 5, 9, 10, 2), ( 9, 10, 2, 5)), (* maj7b9 *) (( 4, 7, 10, 1), ( 7, 10, 1, 4), ( 10, 1, 4, 7), ( 1, 4, 7, 10)), (* maj13b9 *) (( 10, 1, 4, 9), ( 1, 4, 9, 10), ( 4, 9, 10, 1), ( 9, 10, 1, 4)), (* maj9b5 *) (( 4, 6, 10, 2), ( 6, 10, 2, 4), ( 10, 2, 4, 6), ( 2, 4, 6, 10)) ));