' ************************************************************************** ' declarations only file for * ' ************************************************************************** %Klung_HW = 18 ' for test and measurement %KlungelThomas = 54 'for thomas' piece, serves as conditional compilation constant as well as tasknumber %Klung_lites = 63 ' added 25.08.2006 gwr 'constants that don't affect compilation are moved to gmt_kons 'GLOBAL Klung AS Klungtype 'new 22.06.2000 - pKlung in g_n*h.dll 'GLOBAL pKlungHw AS KlungType PTR 'klung is now just a musician - the data in the hardware type are used in some pieces 'should be replaced whereever it occurs 22.11.2015 GLOBAL Meta_AME_Klung AS SINGLE 'meta amount of energy DECLARE FUNCTION KlungInit () AS DWORD DECLARE SUB Klung_HW () DECLARE SUB KlungTest () DECLARE SUB Klung_testaftertouch DECLARE SUB Klungels () DECLARE SUB KlungTango () ' by Godfried-Willem Raes DECLARE SUB KlungTangoEnd () ' ending for the above Tango. DECLARE SUB Stochlung() ' by Kristof Lauwers DECLARE FUNCTION StochlungEnd() AS LONG DECLARE SUB Klung_Gray () ' by Godfried-Willem Raes DECLARE SUB KlungelHarm () ' by Godfried-Willem Raes DECLARE SUB KlungButnSWHandler () DECLARE SUB KlungButnOSHandler () DECLARE SUB KlungSetValues DECLARE SUB KlungMessageHandler () ' was: (msg AS WORD) DECLARE SUB KlungOff ' stoptask callback for klung pieces DECLARE SUB Klung_Lites () DECLARE SUB Klung_Lites_Off () DECLARE SUB KlungTango_NoteData (Notes() AS BYTE) ' only for Tango DECLARE SUB KlungTango_RitmeData (Patterns() AS BYTE, Tango AS TangoType) ' only for Tango DECLARE SUB Klung_Seq_UpdateSpeed DECLARE SUB Klung_Seq_UpdateVelo 'DECLARE SUB Klung_PlayHarShaking (H AS HarmType) ' no longer required. ' 'DECLARE SUB Klung49 'DECLARE SUB Klung50 'DECLARE SUB Klung51 'DECLARE SUB Klung52 'DECLARE SUB Klung53 'DECLARE SUB Klung54 'DECLARE SUB Klung55 'DECLARE SUB Klung56 'DECLARE SUB Klung57 'DECLARE SUB Klung58 'DECLARE SUB Klung59 'DECLARE SUB Klung60 'DECLARE SUB Klung61 'DECLARE SUB Klung62 'DECLARE SUB Klung63 'DECLARE SUB Klung64 'DECLARE SUB Klung65 'DECLARE SUB Klung66 'DECLARE SUB Klung67 'DECLARE SUB Klung68 'DECLARE SUB Klung69 #IF %DEF(%Klungsim) GLOBAL ScaleSpeed AS SINGLE 'aftertouch value / ScaleSpeed = klungx.freq 'can be dependent of simulatormode DECLARE SUB StartThomasPiece () 'DECLARE SUB Klung49_sim () 'DECLARE SUB Klung50_sim () 'DECLARE SUB Klung51_sim () 'DECLARE SUB Klung52_sim () 'DECLARE SUB Klung53_sim () 'DECLARE SUB Klung54_sim () 'DECLARE SUB Klung55_sim () 'DECLARE SUB Klung56_sim () 'DECLARE SUB Klung57_sim () 'DECLARE SUB Klung58_sim () 'DECLARE SUB Klung59_sim () 'DECLARE SUB Klung60_sim () 'DECLARE SUB Klung61_sim () 'DECLARE SUB Klung62_sim () 'DECLARE SUB Klung63_sim () 'DECLARE SUB Klung64_sim () 'DECLARE SUB Klung65_sim () 'DECLARE SUB Klung66_sim () 'DECLARE SUB Klung67_sim () 'DECLARE SUB Klung69_sim () 'DECLARE SUB KlungSimSkin() 'DECLARE SUB KlungSetDefaulText 'DECLARE SUB KlungInitSim() 'DECLARE SUB Sim_klungels() 'DECLARE SUB Sim_Stochlung() 'DECLARE SUB Sim_Klungtango() 'DECLARE SUB Sim_KlungTangoEnd() 'DECLARE SUB Sim_Thomas() 'DECLARE SUB Sim_Klung_Gray () 'declare sub Sim_KlungelHarm () ' to be done D'CLARE FUNCTION MakeKlungSamples AS LONG ' only for simulator DECLARE CALLBACK FUNCTION SBC1 AS LONG 'stochlungbuttoncallback1 #ENDIF