'**************************************************************** '* Name : BONO Valve Lookup 3 * '* Author : Godfried-Willem RAES * '* 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_Valves3: ' fourth lookup table with the valves to use for each possible note ' to be edited. ' noot vingerzetting ' bit 0 = halve toonsventiel, 1 = hele toon, 2 = anderhalve toon, 3 = kwart ventiel Oldprog = 3 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] = %0000 ' suboktaaf tonen Valves[23] = %1111 ' -5-3-2-1 teoretisch laagste noot (B) Valves[24] = %1110 ' -5-3-2 Valves[25] = %1101 ' -5-3-1 Valves[26] = %1100 ' -5-3 Valves[27] = %1010 ' -5-2 Valves[28] = %1001 ' -5-1 Valves[29] = %1000 ' -5 Valves[30] = %0101 ' -3-1 Valves[31] = %0100 ' -3 Valves[32] = %0010 ' -2 Valves[33] = %0001 ' -1 Valves[34] = %0000 ' grondtoon zonder ventielen - Bes Valves[35] = %1111 ' eerste oktaaftoon Valves[36] = %1110 ' Valves[37] = %1101 Valves[38] = %1100 Valves[39] = %1010 Valves[40] = %1001 Valves[41] = %1000 Valves[42] = %0101 Valves[43] = %0100 Valves[44] = %0010 Valves[45] = %0001 Valves[46] = %0000 ' oktaaf op de open buis grondtoon Valves[47] = %1001 ' eerste kwint Valves[48] = %1000 Valves[49] = %0101 Valves[50] = %0100 Valves[51] = %0010 Valves[52] = %0001 Valves[53] = %0000 ' kwint op de open buis grondtoon Valves[54] = %0101 ' dubbeloktaaf Valves[55] = %0100 Valves[56] = %0010 Valves[57] = %0001 Valves[58] = %0000 ' dubbeloktaaf op de open buis grondtoon Valves[59] = %1001 ' 2e kwint Valves[60] = %1000 Valves[61] = %0101 Valves[62] = %0100 Valves[63] = %0010 Valves[64] = %0001 Valves[65] = %0000 ' 2e kwint op grondtoon Valves[66] = %0101 Valves[67] = %0100 Valves[68] = %0010 Valves[69] = %0001 Valves[70] = %0000 ' derde oktaaf boven grondtoon Valves[71] = %1001 ' 3e kwint Valves[72] = %1000 Valves[73] = %0101 Valves[74] = %0100 Valves[75] = %0010 Valves[76] = %0001 Valves[77] = %0000 ' 3e kwint op grondtoon 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