'**************************************************************** '* Name : BONO Valve Lookup 1 * '* Author : Godfried-Willem RAES / Kristof Lauwers * '* Notice : 2010 Logosoft Public Domain * '* Date : 28-Sep-10 * '* Version : 1.0 * '* Notes : 4 lookup tables (0-3) * '* : Include this in Bono_Valves.bas * '**************************************************************** Init_Valves1: ' second lookup table with the valves to use for each possible note ' empirische mapping. xof 2010.09.30 ' noot vingerzetting ' bit 0 = halve toonsventiel, 1 = hele toon, 2 = anderhalve toon, 3 = kwart ventiel Oldprog = 1 Valves[00] = %1110 'illegal notes for bono... Valves[01] = %1101 Valves[02] = %1100 Valves[03] = %1010 Valves[04] = %1001 Valves[05] = %1000 Valves[06] = %0101 Valves[07] = %0100 Valves[08] = %0010 Valves[09] = %0001 Valves[10] = %0000 Valves[11] = %1111 Valves[12] = %1110 Valves[13] = %1101 Valves[14] = %1100 Valves[15] = %1010 Valves[16] = %1001 Valves[17] = %1000 Valves[18] = %0101 Valves[19] = %0100 Valves[20] = %0010 Valves[21] = %0001 Valves[22] = %1000 ' suboktaaf tonen Valves[23] = %1111 ' teoretisch laagste noot (B) Valves[24] = %1101 ' -5-3-2 Valves[25] = %1101 ' -5-3-1 Valves[26] = %1100 ' -5-3 Valves[27] = %1010 ' -5-2 Valves[28] = %1110 ' -5-1 Valves[29] = %1100 ' -5 Valves[30] = %0100 '-3-1 Valves[31] = %0110 ' -3 Valves[32] = %1100 ' -2 Valves[33] = %1101 ' -1 Valves[34] = %1001 ' grondtoon zonder ventielen - Bes Valves[35] = %1110 ' eerste oktaaftoon Valves[36] = %1000 ' Valves[37] = %1100 ' Valves[38] = %1110 Valves[39] = %1101 Valves[40] = %1110 Valves[41] = %1010 Valves[42] = %0110 Valves[43] = %1101 Valves[44] = %1101 Valves[45] = %0001 Valves[46] = %1100 ' oktaaf op de open buis grondtoon Valves[47] = %1110 ' eerste kwint Valves[48] = %1010 Valves[49] = %1100 Valves[50] = %1010 Valves[51] = %1110 Valves[52] = %0110 Valves[53] = %0000 ' kwint op de open buis grondtoon Valves[54] = %0100 ' dubbeloktaaf Valves[55] = %1100 Valves[56] = %1100 Valves[57] = %0000 ' tot hier gedaan Valves[58] = %1000 ' dubbeloktaaf op de open buis grondtoon Valves[59] = %1110 ' 2e kwint Valves[60] = %1101 Valves[61] = %0111 ' tot hier gedaan Valves[62] = %0110 Valves[63] = %0100 Valves[64] = %0110 ' - verschil in klank tss grepen wordt merkbaar kleiner. Valves[65] = %0000 ' 2e kwint op grondtoon Valves[66] = %0010 Valves[67] = %0101 Valves[68] = %1100 Valves[69] = %1101 ' Valves[70] = %0110 ' - derde oktaaf boven grondtoon Valves[71] = %0100 ' 3e kwint Valves[72] = %1001 Valves[73] = %0000 'heel weinig verschil tss de grepen Valves[74] = %0100 ' Valves[75] = %1100 Valves[76] = %1010 Valves[77] = %0000 ' 3e kwint op grondtoon. verschil tss grepen maakt niets meer uit, dus vanaf hier huden we de defaults Valves[78] = %0101 Valves[79] = %0100 Valves[80] = %0010 Valves[81] = %0001 Valves[82] = %0000 ' vierde oktaaf boven grondtoon Valves[83] = %1001 ' 4e kwint Valves[84] = %1000 Valves[85] = %0101 Valves[86] = %0100 Valves[87] = %0010 Valves[88] = %0001 Valves[89] = %0000 ' 4e kwint op grondtoon Valves[90] = %0101 Valves[91] = %0100 Valves[92] = %0010 Valves[93] = %0001 Valves[94] = %0000 ' vijfde oktaaf boven grondtoon Valves[95] = %1001 ' 5e kwint Valves[96] = %1000 Valves[97] = %0101 Valves[98] = %0100 Valves[99] = %0010 ' this be the last one... Return