TonleiterArray: Table[0..63] of Integer = ( 654, //C2
693,
734,
778,
824,
873,
925,
980,
1038,
1100, //A2
1165,
1235,
1308, //C3
1386,
1468,
1556,
1648,
1746,
1850,
1960,
2077,
2200,
2331,
2469,
2616, //C4
2772,
2937,
3111,
3296,
3492,
3700,
3920,
4153,
4400,
4662,
4939,
5233,
5544,
5873,
6223,
6593,
6985,
7400,
7840,
8306,
8800,
9323,
9878,
10465, //C6
11087,
11747,
12445,
13185,
13969,
14800,
15680,
16612,
17600,
18647,
19755,
20930, //C7
22175,
23493,
24890 );