unit notesarr;

{$LONGSTRINGS ON}
{$CODEPAGE UTF8}
{$RANGECHECKS ON}

interface

const
MAX_NOTES = 97;

notes_names : array[0..MAX_NOTES] of utf8string = (
'Тишина',
'Ми пятой октавы',
'Ре-диез пятой октавы',
'Ре пятой октавы',
'До-диез пятой октавы',
'До пятой октавы',
'Си четвёртой октавы',
'Ля-диез четвёртой октавы',
'Ля четвёртой октавы',
'Соль-диез четвёртой октавы',
'Соль четвёртой октавы',
'Фа-диез четвёртой октавы',
'Фа четвёртой октавы',
'Ми четвёртой октавы',
'Ре-диез четвёртой октавы',
'Ре четвёртой октавы',
'До-диез четвёртой октавы',
'До четвёртой октавы',
'Си третьей октавы',
'Ля-диез третьей октавы',
'Ля третьей октавы',
'Соль-диез третьей октавы',
'Соль третьей октавы',
'Фа-диез третьей октавы',
'Фа третьей октавы',
'Ми третьей октавы',
'Ре-диез третьей октавы',
'Ре третьей октавы',
'До-диез третьей октавы',
'До третьей октавы',
'Си второй октавы',
'Ля-диез второй октавы',
'Ля второй октавы',
'Соль-диез второй октавы',
'Соль второй октавы',
'Фа-диез второй октавы',
'Фа второй октавы',
'Ми второй октавы',
'Ре-диез второй октавы',
'Ре второй октавы',
'До-диез второй октавы',
'До второй октавы',
'Си первой октавы',
'Ля-диез первой октавы',
'Ля первой октавы',
'Соль-диез первой октавы',
'Соль первой октавы',
'Фа-диез первой октавы',
'Фа первой октавы',
'Ми первой октавы',
'Ре-диез первой октавы',
'Ре первой октавы',
'До-диез первой октавы',
'До первой октавы',
'Си малой октавы',
'Ля-диез малой октавы',
'Ля малой октавы',
'Соль-диез малой октавы',
'Соль малой октавы',
'Фа-диез малой октавы',
'Фа малой октавы',
'Ми малой октавы',
'Ре-диез малой октавы',
'Ре малой октавы',
'До-диез малой октавы',
'До малой октавы',
'Си большой октавы',
'Ля-диез большой октавы',
'Ля большой октавы',
'Соль-диез большой октавы',
'Соль большой октавы',
'Фа-диез большой октавы',
'Фа большой октавы',
'Ми большой октавы',
'Ре-диез большой октавы',
'Ре большой октавы',
'До-диез большой октавы',
'До большой октавы',
'Си контроктавы',
'Ля-диез контроктавы',
'Ля контроктавы',
'Соль-диез контроктавы',
'Соль контроктавы',
'Фа-диез контроктавы',
'Фа контроктавы',
'Ми контроктавы',
'Ре-диез контроктавы',
'Ре контроктавы',
'До-диез контроктавы',
'До контроктавы',
'Си субконтроктавы',
'Ля-диез субконтроктавы',
'Ля субконтроктавы',
'Соль-диез субконтроктавы',
'Соль субконтроктавы',
'Фа-диез субконтроктавы',
'Фа субконтроктавы',
'Ми субконтроктавы');

notes_values : array[0..MAX_NOTES] of word = (
0,
226,
240,
254,
269,
285,
302,
320,
347,
358,
381,
403,
427,
453,
479,
508,
538,
570,
604,
640,
694,
718,
761,
806,
854,
905,
959,
1016,
1076,
1140,
1208,
1280,
1356,
1437,
1522,
1613,
1708,
1810,
1918,
2032,
2153,
2281,
2416,
2560,
2712,
2873,
3044,
3225,
3417,
3620,
3835,
4063,
4305,
4561,
4832,
5120,
5424,
5765,
6088,
6450,
6834,
7240,
7671,
8072,
8610,
9122,
9664,
10239,
10848,
11496,
12176,
12900,
13667,
14480,
15342,
16145,
17219,
18243,
19328,
20482,
21696,
22992,
24353,
25801,
27337,
28956,
30691,
32294,
34438,
36492,
38655,
40964,
43392,
45984,
48705,
51612,
54687,
57898);

implementation

end.