' ******************************************** ' * * ' * * ' * function declarations and constants file * ' ******************************************** ' midi version of Troms, april 2004: ' tasks (since april 2004, midification of troms) ' updated 25.10.2006 %Troms_Test = 29 'tmp %Troms_lights = 30 %Troms_Damper = 31 ' roffelkode: %Troms_Bas = 48 %Troms_Ten = 49 %Troms_Med = 50 %Troms_LBongo = 51 %Troms_HBongo = 52 %Troms_LminiBongo = 53 %TRoms_HminiBongo = 54 %TRoms_Cymbal = 55 %Troms_Soft = 56 %Snar_Test = 32 %Snar_Rims = 33 %Snar_Lites = 34 %Snar_snares = 35 DECLARE FUNCTION InitTroms () AS LONG DECLARE SUB Troms_Test () ' 10.04.2004 DECLARE SUB Troms_Lights () DECLARE SUB Troms_Lights_Stop () DECLARE SUB Troms_Damper () DECLARE SUB Troms_Damper_Stop () DECLARE SUB Troms_Damper_UD1 () ' 12.04.2004 ' roffeltests: ' 25.10.2006 DECLARE SUB Troms_Bas () DECLARE SUB Troms_Ten () DECLARE SUB Troms_Med () DECLARE SUB Troms_LBongo () DECLARE SUB Troms_HBongo () DECLARE SUB Troms_LMiniBongo () DECLARE SUB Troms_HMiniBongo () DECLARE SUB Troms_Cymbal () DECLARE SUB Troms_Soft () ' demostukjes: DECLARE SUB AfroTroms () ' x-lat 12.04.2004 DECLARE SUB TromsEtroms () ' x-lat 12.04.2004 DECLARE SUB Snar_Test () ' 32 - 10.04.2006 DECLARE SUB Snar_Lites () ' 34 DECLARE SUB Snar_Rims () ' 33 DECLARE SUB Snar_snares () ' 35