279 lines
6.8 KiB
Plaintext
279 lines
6.8 KiB
Plaintext
{**************************************
|
||
ⵙᗱᗴᗯᗩ✤ꖴᴥ✤ⵙꗳⓄⵙᔓᔕИNⓄꖴᗝꖴᗯꖴᗝⵙᙁᗩᑎ¤ᗱᗴⵙ△꞉ⵙ◯ⵙ◯ⵙ꞉△ⵙᗱᗴ¤ᑎᗩᙁⵙᗝꖴᗯꖴᗝꖴⓄИNᔓᔕⵙⓄꗳⵙ✤ᴥꖴ✤ᗩᗯᗱᗴⵙ
|
||
MIDI note 69 (A5) = 233.1942602676632 Hz
|
||
Created using Scale Workshop 1.4.2
|
||
|
||
https://sevish.com/scaleworkshop/?name=%E2%B5%99%E1%97%B1%E1%97%B4%E1%97%AF%E1%97%A9%E2%9C%A4%EA%96%B4%E1%B4%A5%E2%9C%A4%E2%B5%99%EA%97%B3%E2%93%84%E2%B5%99%E1%94%93%E1%94%95%D0%98N%E2%93%84%EA%96%B4%E1%97%9D%EA%96%B4%E1%97%AF%EA%96%B4%E1%97%9D%E2%B5%99%E1%99%81%E1%97%A9%E1%91%8E%C2%A4%E1%97%B1%E1%97%B4%E2%B5%99%E2%96%B3%EA%9E%89%E2%B5%99%E2%97%AF%E2%B5%99%E2%97%AF%E2%B5%99%EA%9E%89%E2%96%B3%E2%B5%99%E1%97%B1%E1%97%B4%C2%A4%E1%91%8E%E1%97%A9%E1%99%81%E2%B5%99%E1%97%9D%EA%96%B4%E1%97%AF%EA%96%B4%E1%97%9D%EA%96%B4%E2%93%84%D0%98N%E1%94%93%E1%94%95%E2%B5%99%E2%93%84%EA%97%B3%E2%B5%99%E2%9C%A4%E1%B4%A5%EA%96%B4%E2%9C%A4%E1%97%A9%E1%97%AF%E1%97%B1%E1%97%B4%E2%B5%99&data=70.44277780982917%0A140.88555561965833%0A211.3283334294875%0A281.77111123931667%0A352.21388904914585%0A422.656666858975%0A493.09944466880415%0A563.5422224786333%0A633.9850002884625%0A704.4277780982917%0A774.8705559081209%0A845.31333371795%0A915.7561115277791%0A986.1988893376083%0A1056.6416671474376%0A1127.0844449572667%0A1197.5272227670957%0A1267.970000576925%0A1338.412778386754%0A1408.8555561965834%0A1479.2983340064125%0A1549.7411118162418%0A1620.1838896260708%0A1690.6266674359%0A1761.0694452457292%0A1831.5122230555583%0A1901.9550008653875&freq=233.1942602676632&midi=69&vert=1&horiz=3&colors=white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black%20white%20black%20black&waveform=sine&env=pad
|
||
****************************************}
|
||
|
||
on init
|
||
declare %keynum[128]
|
||
declare %tune[128]
|
||
declare $bend
|
||
declare $key
|
||
|
||
%keynum[0] := 9
|
||
%tune[0] := 40282
|
||
%keynum[1] := 10
|
||
%tune[1] := 10725
|
||
%keynum[2] := 11
|
||
%tune[2] := -18831
|
||
%keynum[3] := 12
|
||
%tune[3] := -48388
|
||
%keynum[4] := 12
|
||
%tune[4] := 22053
|
||
%keynum[5] := 13
|
||
%tune[5] := -7503
|
||
%keynum[6] := 14
|
||
%tune[6] := -37060
|
||
%keynum[7] := 14
|
||
%tune[7] := 33382
|
||
%keynum[8] := 15
|
||
%tune[8] := 3825
|
||
%keynum[9] := 16
|
||
%tune[9] := -25732
|
||
%keynum[10] := 16
|
||
%tune[10] := 44710
|
||
%keynum[11] := 17
|
||
%tune[11] := 15153
|
||
%keynum[12] := 18
|
||
%tune[12] := -14403
|
||
%keynum[13] := 19
|
||
%tune[13] := -43961
|
||
%keynum[14] := 19
|
||
%tune[14] := 26481
|
||
%keynum[15] := 20
|
||
%tune[15] := -3075
|
||
%keynum[16] := 21
|
||
%tune[16] := -32632
|
||
%keynum[17] := 21
|
||
%tune[17] := 37810
|
||
%keynum[18] := 22
|
||
%tune[18] := 8252
|
||
%keynum[19] := 23
|
||
%tune[19] := -21304
|
||
%keynum[20] := 23
|
||
%tune[20] := 49138
|
||
%keynum[21] := 24
|
||
%tune[21] := 19581
|
||
%keynum[22] := 25
|
||
%tune[22] := -9976
|
||
%keynum[23] := 26
|
||
%tune[23] := -39533
|
||
%keynum[24] := 26
|
||
%tune[24] := 30909
|
||
%keynum[25] := 27
|
||
%tune[25] := 1352
|
||
%keynum[26] := 28
|
||
%tune[26] := -28204
|
||
%keynum[27] := 28
|
||
%tune[27] := 42237
|
||
%keynum[28] := 29
|
||
%tune[28] := 12680
|
||
%keynum[29] := 30
|
||
%tune[29] := -16876
|
||
%keynum[30] := 31
|
||
%tune[30] := -46433
|
||
%keynum[31] := 31
|
||
%tune[31] := 24008
|
||
%keynum[32] := 32
|
||
%tune[32] := -5548
|
||
%keynum[33] := 33
|
||
%tune[33] := -35105
|
||
%keynum[34] := 33
|
||
%tune[34] := 35337
|
||
%keynum[35] := 34
|
||
%tune[35] := 5780
|
||
%keynum[36] := 35
|
||
%tune[36] := -23777
|
||
%keynum[37] := 35
|
||
%tune[37] := 46665
|
||
%keynum[38] := 36
|
||
%tune[38] := 17108
|
||
%keynum[39] := 37
|
||
%tune[39] := -12448
|
||
%keynum[40] := 38
|
||
%tune[40] := -42006
|
||
%keynum[41] := 38
|
||
%tune[41] := 28436
|
||
%keynum[42] := 39
|
||
%tune[42] := -1120
|
||
%keynum[43] := 40
|
||
%tune[43] := -30677
|
||
%keynum[44] := 40
|
||
%tune[44] := 39765
|
||
%keynum[45] := 41
|
||
%tune[45] := 10207
|
||
%keynum[46] := 42
|
||
%tune[46] := -19349
|
||
%keynum[47] := 43
|
||
%tune[47] := -48906
|
||
%keynum[48] := 43
|
||
%tune[48] := 21536
|
||
%keynum[49] := 44
|
||
%tune[49] := -8021
|
||
%keynum[50] := 45
|
||
%tune[50] := -37578
|
||
%keynum[51] := 45
|
||
%tune[51] := 32864
|
||
%keynum[52] := 46
|
||
%tune[52] := 3307
|
||
%keynum[53] := 47
|
||
%tune[53] := -26249
|
||
%keynum[54] := 47
|
||
%tune[54] := 44192
|
||
%keynum[55] := 48
|
||
%tune[55] := 14635
|
||
%keynum[56] := 49
|
||
%tune[56] := -14921
|
||
%keynum[57] := 50
|
||
%tune[57] := -44478
|
||
%keynum[58] := 50
|
||
%tune[58] := 25963
|
||
%keynum[59] := 51
|
||
%tune[59] := -3593
|
||
%keynum[60] := 52
|
||
%tune[60] := -33150
|
||
%keynum[61] := 52
|
||
%tune[61] := 37292
|
||
%keynum[62] := 53
|
||
%tune[62] := 7735
|
||
%keynum[63] := 54
|
||
%tune[63] := -21822
|
||
%keynum[64] := 54
|
||
%tune[64] := 48620
|
||
%keynum[65] := 55
|
||
%tune[65] := 19063
|
||
%keynum[66] := 56
|
||
%tune[66] := -10493
|
||
%keynum[67] := 57
|
||
%tune[67] := -40051
|
||
%keynum[68] := 57
|
||
%tune[68] := 30391
|
||
%keynum[69] := 58
|
||
%tune[69] := 834
|
||
%keynum[70] := 59
|
||
%tune[70] := -28722
|
||
%keynum[71] := 59
|
||
%tune[71] := 41720
|
||
%keynum[72] := 60
|
||
%tune[72] := 12162
|
||
%keynum[73] := 61
|
||
%tune[73] := -17394
|
||
%keynum[74] := 62
|
||
%tune[74] := -46951
|
||
%keynum[75] := 62
|
||
%tune[75] := 23491
|
||
%keynum[76] := 63
|
||
%tune[76] := -6066
|
||
%keynum[77] := 64
|
||
%tune[77] := -35623
|
||
%keynum[78] := 64
|
||
%tune[78] := 34819
|
||
%keynum[79] := 65
|
||
%tune[79] := 5262
|
||
%keynum[80] := 66
|
||
%tune[80] := -24294
|
||
%keynum[81] := 66
|
||
%tune[81] := 46147
|
||
%keynum[82] := 67
|
||
%tune[82] := 16590
|
||
%keynum[83] := 68
|
||
%tune[83] := -12966
|
||
%keynum[84] := 69
|
||
%tune[84] := -42523
|
||
%keynum[85] := 69
|
||
%tune[85] := 27918
|
||
%keynum[86] := 70
|
||
%tune[86] := -1638
|
||
%keynum[87] := 71
|
||
%tune[87] := -31195
|
||
%keynum[88] := 71
|
||
%tune[88] := 39247
|
||
%keynum[89] := 72
|
||
%tune[89] := 9690
|
||
%keynum[90] := 73
|
||
%tune[90] := -19867
|
||
%keynum[91] := 74
|
||
%tune[91] := -49424
|
||
%keynum[92] := 74
|
||
%tune[92] := 21018
|
||
%keynum[93] := 75
|
||
%tune[93] := -8538
|
||
%keynum[94] := 76
|
||
%tune[94] := -38096
|
||
%keynum[95] := 76
|
||
%tune[95] := 32346
|
||
%keynum[96] := 77
|
||
%tune[96] := 2789
|
||
%keynum[97] := 78
|
||
%tune[97] := -26767
|
||
%keynum[98] := 78
|
||
%tune[98] := 43675
|
||
%keynum[99] := 79
|
||
%tune[99] := 14117
|
||
%keynum[100] := 80
|
||
%tune[100] := -15439
|
||
%keynum[101] := 81
|
||
%tune[101] := -44996
|
||
%keynum[102] := 81
|
||
%tune[102] := 25446
|
||
%keynum[103] := 82
|
||
%tune[103] := -4111
|
||
%keynum[104] := 83
|
||
%tune[104] := -33668
|
||
%keynum[105] := 83
|
||
%tune[105] := 36774
|
||
%keynum[106] := 84
|
||
%tune[106] := 7217
|
||
%keynum[107] := 85
|
||
%tune[107] := -22339
|
||
%keynum[108] := 85
|
||
%tune[108] := 48102
|
||
%keynum[109] := 86
|
||
%tune[109] := 18545
|
||
%keynum[110] := 87
|
||
%tune[110] := -11011
|
||
%keynum[111] := 88
|
||
%tune[111] := -40568
|
||
%keynum[112] := 88
|
||
%tune[112] := 29873
|
||
%keynum[113] := 89
|
||
%tune[113] := 316
|
||
%keynum[114] := 90
|
||
%tune[114] := -29240
|
||
%keynum[115] := 90
|
||
%tune[115] := 41202
|
||
%keynum[116] := 91
|
||
%tune[116] := 11645
|
||
%keynum[117] := 92
|
||
%tune[117] := -17912
|
||
%keynum[118] := 93
|
||
%tune[118] := -47469
|
||
%keynum[119] := 93
|
||
%tune[119] := 22973
|
||
%keynum[120] := 94
|
||
%tune[120] := -6583
|
||
%keynum[121] := 95
|
||
%tune[121] := -36141
|
||
%keynum[122] := 95
|
||
%tune[122] := 34301
|
||
%keynum[123] := 96
|
||
%tune[123] := 4744
|
||
%keynum[124] := 97
|
||
%tune[124] := -24812
|
||
%keynum[125] := 97
|
||
%tune[125] := 45630
|
||
%keynum[126] := 98
|
||
%tune[126] := 16072
|
||
%keynum[127] := 99
|
||
%tune[127] := -13484
|
||
end on
|
||
|
||
on note
|
||
$key := %keynum[$EVENT_NOTE]
|
||
$bend := %tune[$EVENT_NOTE]
|
||
change_note ($EVENT_ID, $key)
|
||
change_tune ($EVENT_ID, $bend, 0)
|
||
end on
|