'instr id's - update MW/RG code to use this everywhere.. %cVibi = 0 %cKlung = 1 %cPiperola = 2 %cBourdon = %cPiperola %cThunderwood = 3 %cHarma = 4 %cTroms = 5 %cHumanola = 6 %cPiano = 7 %cBelly = 8 %cSpringers = 9 %cTubi = 10 %cSo = 11 %cFlex = 12 %cPuff = 13 %cSax = 14 %cTrump = 15 %cHurdy = 16 'tasknrs %machinewall = 32 %vibiwolk = %machinewall + 1 %VibW_Mov = %vibiwolk + 1 %HarmW_Mov = %VibW_Mov + 1 %PiPlay_Mov = %HarmW_Mov + 1 %belly_mov = %piplay_mov + 1 %Bour_Mov = %belly_mov + 1 '%Jazz_Mov = %Bour_Mov + 1 %PiBO_Lstn = %Bour_mov + 1 %mw_tw = %PiBo_Lstn + 2 %mw_storm = %mw_tw + 1 %Imit_Lstn = 48 %RG_TW = %imit_lstn + 1 %RG_Troms = %RG_TW + 1 %RG_Pi = %RG_Troms + 1 %Brecht = %RG_Pi + 1 %RG_Tubi = %brecht + 1 %RG_Drone = %RG_tubi + 1 %klanklagen2 = %RG_Drone + 1 %RG_Flex = %klanklagen2 + 1 %RG_Direct = %RG_Flex + 1 %ES_Spri = %RG_Direct + 1 %ES_Sax = %ES_Spri + 1 %BB = %ES_Sax + 1 %trumpy = %BB + 1 '==61.. %strispri = %trumpy + 1 '%gnettest = 62 %cqtlst = 16 %cqtctrl = %cqtlst + 1 %cqtmon = %cqtctrl + 1 %wrmov = 63 %QuadRadar_screen = 0 'conditional compilation: multiport / biport.. %multiport = 1 '%MW_LOG = 1 'debug metaconstant %MW_MODE_SONAR = 1 %MW_MODE_RADAR = &B10 GLOBAL mc() AS Musician GLOBAL MW_MODE AS LONG GLOBAL hWKey() AS LONG 'handeles to virutal keyboard windows GLOBAL Mw_MidiIn AS SoloPiType GLOBAL TesWeight() AS SINGLE GLOBAL sr AS SonarType PTR ' added gwr. 15.04.2003 GLOBAL pr() AS RadarType PTR GLOBAL idbg AS LONG GLOBAL cqt AS Pitch2MidiType 'initialisation DECLARE FUNCTION Init_Machinewall AS LONG DECLARE CALLBACK FUNCTION CB_MWSetup 'slave of above DECLARE SUB MW_InitInstruments(mc() AS Musician) 'fills in instrument types - numbers hardwired! DECLARE SUB MW_PrepareTasks 'tasks DECLARE SUB MachWall1 DECLARE SUB MW_VibiWolk DECLARE SUB MW_VibiWolk_Mov DECLARE SUB MW_HarmaWolk_Mov DECLARE SUB MW_PiPlay_Mov DECLARE SUB MW_BourPlay_Mov DECLARE SUB MW_Belly_Mov DECLARE SUB MW_Jazz_Mov DECLARE SUB MW_Imit_Lstn(OPT BYVAL hw AS LONG) DECLARE SUB MW_PiBo_Lstn(OPT BYVAL hw AS LONG) DECLARE SUB RobotGarden_thunderwood DECLARE SUB MW_Storm DECLARE SUB Write_Movement 'test task DECLARE CALLBACK FUNCTION CBWriteMov 'slave of above DECLARE SUB Write_mov_stop 'id DECLARE SUB RobotGarden_troms DECLARE SUB RobotGarden_piano DECLARE SUB Brecht DECLARE SUB RobotGarden_Tubi DECLARE SUB RG_Drone(OPT BYVAL hw AS LONG) DECLARE SUB RG_Klanklagen2(OPT BYVAL hw AS LONG) DECLARE SUB RG_Flex DECLARE SUB RG_Direkt(OPT BYVAL hw AS LONG) DECLARE SUB ES_Spri DECLARE SUB ES_Sax 'radar DECLARE SUB BB_overtones(OPT BYVAL hwin AS LONG) DECLARE SUB ZuperTrump DECLARE SUB StriSpri 'cqt related DECLARE SUB cqt2_ctrl DECLARE SUB Cqt_Listeb DECLARE SUB Cqt_mon DECLARE SUB Cqt_Init 'panicbutton subs DECLARE SUB Bourd_Silence DECLARE SUB Piper_Silence DECLARE SUB Huma_Silence DECLARE SUB TW_Silence DECLARE SUB Harma_Silence DECLARE SUB Piano_Silence DECLARE SUB Springers_Silence DECLARE SUB SO_Silence DECLARE SUB Flex_silence DECLARE SUB Trump_Silence DECLARE SUB Hurdy_Silence 'other subs DECLARE SUB ToggleImitLstn DECLARE CALLBACK FUNCTION CB_MW_IL_Instroff DECLARE SUB CheckDaqTask DECLARE FUNCTION BufferByte (arr() AS BYTE, first AS BYTE) AS BYTE DECLARE SUB ToggleDrone DECLARE SUB ToggleRgDirect DECLARE SUB Start_PiBo_Lstn DECLARE SUB Stop_PiBo_Lstn DECLARE FUNCTION Init_bbovertones AS LONG 'g_net dev tests DECLARE SUB Testgnet DECLARE SUB netintest(BYVAL b AS STRING) 'functions in MW_gui DECLARE CALLBACK FUNCTION ProcManageWindows DECLARE FUNCTION MW_Klung_Create_Window AS LONG 'virtual keyboard windows DECLARE FUNCTION MW_Piper_Create_Window AS LONG DECLARE FUNCTION MW_Bourdon_Create_Window AS LONG DECLARE FUNCTION MW_Humanola_Create_Window AS LONG DECLARE FUNCTION MW_Thunderwood_Troms_Create_Window AS LONG DECLARE FUNCTION MW_Belly_Create_Window AS LONG DECLARE FUNCTION MW_Tubi_Create_Window AS LONG DECLARE FUNCTION MW_So_Create_Window AS LONG DECLARE FUNCTION MW_Trump_Create_Window AS LONG DECLARE CALLBACK FUNCTION MW_KlungProc 'callback for c.s. windows DECLARE CALLBACK FUNCTION MW_PiperProc DECLARE CALLBACK FUNCTION MW_BourdProc DECLARE CALLBACK FUNCTION MW_HumaProc DECLARE CALLBACK FUNCTION MW_Tw_Troms_Proc DECLARE CALLBACK FUNCTION MW_BellyProc DECLARE CALLBACK FUNCTION MW_TubiProc DECLARE CALLBACK FUNCTION MW_SoProc DECLARE CALLBACK FUNCTION MW_TrumpProc DECLARE SUB Mw_Tw_WindRain DECLARE SUB ClearWindow (hw AS LONG, bgcolor AS DWORD) DECLARE SUB mw_klung_showhelp (hw AS LONG) 'fills in keyb windows DECLARE SUB mw_organ_showhelp (hw AS LONG) DECLARE SUB mw_tw_troms_showhelp (hw AS LONG) DECLARE SUB mw_belly_showhelp(hw AS LONG) DECLARE SUB mw_tubi_showhelp(hw AS LONG) DECLARE SUB mw_so_showhelp(hw AS LONG) DECLARE FUNCTION MW_Melo_VirtKey2Note(VK AS LONG, lowC AS BYTE) AS BYTE 'keyb cb helper DECLARE FUNCTION MW_Linear_VirtKey2Note(VK AS LONG, lowC AS BYTE) AS BYTE DECLARE FUNCTION MW_Tw_troms_VirtKey2Note(VK AS LONG) AS BYTE 'keyb cb helper DECLARE FUNCTION mw_tubi_Virtkey2note(VK AS LONG)AS BYTE DECLARE SUB MW_radar_Screen () DECLARE SUB MW_radar_ii_VU () ' replaces VU code in bom , now with log curve DECLARE SUB MW_radar_Mon () ' alternative for the above. 'EOF