/************************************************************************* /* initialize /************************************************************************* #ifdef _CP15_INI # include "comp15.h" #endif /*------------------------------------------------------------------------ CTRL(1) = t240 r1 r1 System(1) = @INSTNAME("System") $exGs_reset() #$A $exGS_reverbMacro(4) r64 $exGS_reverbPara(5, 3, 100, 98, 10, 10 ) r64 #$B $exGS_chorusMacro(3) r64 $exGS_chorusPara(0,101, 10, 76, 2, 12, 2) r64 /*------------------------------------------------------------------------ System(2) = $(r64)1 $A() $B() $_PR_0() System(3) = $(r64)2 $DRUM_SYSEX()r64 /*------------------------------------------------------------------------ Rym(1) = @INSTNAME("Rhythm") $(r64)10 $T_Rym() /*------------------------------------------------------------------------ BassA( 1) = @INSTNAME("Bass (A)") $(r64)11 $T_BassA() BassA(11) = $(r64)12 $BassA() BassA(21) = $(r64)12 $BassA() BassB( 1) = @INSTNAME("Bass (B)") $(r64)13 $T_BassB() BassB(11) = $(r64)14 $BassB() BassB(21) = $(r64)14 $BassB() /*------------------------------------------------------------------------ MelodyA( 1) = @INSTNAME("Melody (A)") $(r64)21 $T_MelodyA() MelodyA(11) = $(r64)22 $MelodyA() MelodyA(21) = $(r64)22 $MelodyA() MelodyA(22) = $(r64)22 $MelodyA() MelodyB( 1) = @INSTNAME("Melody (B)") $(r64)23 $T_MelodyB() MelodyB(11) = $(r64)24 $MelodyB() MelodyB(21) = $(r64)24 $MelodyB() MelodyB(22) = $(r64)24 $MelodyB() MelodyC( 1) = @INSTNAME("Melody (C)") $(r64)25 $T_MelodyC() MelodyC(11) = $(r64)26 $MelodyC() MelodyC(21) = $(r64)26 $MelodyC() MelodyC(22) = $(r64)26 $MelodyC() /*------------------------------------------------------------------------ RGuitarA( 1)= @INSTNAME("Reed guitar (A)") RGuitarB( 1)= @INSTNAME("Reed guitar (B)") Synth1A( 1) = @INSTNAME("Synth #1 (A)") Synth1B( 1) = @INSTNAME("Synth #1 (B)") Synth2A( 1) = @INSTNAME("Synth #2 (A)") Synth2B( 1) = @INSTNAME("Synth #2 (B)") /*------------------------------------------------------------------------ BGuitarA( 1)= @INSTNAME("Back guitar (A)") $(r64)41 $T_BGuitarA() BGuitarA(11)= $(r64)42 $BGuitarA() BGuitarA(21)= $(r64)43 $BGuitarA() BGuitarA(22)= $(r64)44 $BGuitarA() BGuitarB( 1)= @INSTNAME("Back guitar (B)") $(r64)45 $T_BGuitarB() BGuitarB(11)= $(r64)46 $BGuitarB() BGuitarB(21)= $(r64)47 $BGuitarB() BGuitarB(22)= $(r64)48 $BGuitarB() /*------------------------------------------------------------------------ CodeA( 1) = @INSTNAME("Code (A)") $(r64)51 $T_CodeA() CodeA(11) = $(r64)52 $CodeA() CodeA(21) = $(r64)53 $CodeA() CodeA(22) = $(r64)54 $CodeA() CodeA(23) = $(r64)55 $CodeA() /*------------------------------------------------------------------------ PianoA( 1) = @INSTNAME("Piano (A)") $(r64)61 $T_PianoA() PianoA(11) = $(r64)62 $PianoA() PianoA(21) = $(r64)63 $PianoA() PianoA(22) = $(r64)64 $PianoA() PianoA(23) = $(r64)65 $PianoA() PianoA(24) = $(r64)66 $PianoA() PianoB( 1) = @INSTNAME("Piano (B)") $(r64)67 $T_PianoB() PianoB(11) = $(r64)68 $PianoB() PianoB(21) = $(r64)69 $PianoB() PianoB(22) = $(r64)70 $PianoB() /*------------------------------------------------------------------------ PianoC( 1) = @INSTNAME("Piano (C)") /*------------------------------------------------------------------------ /*------------------------------------------------------------------------ .meas .meas /*------------------------------------------------------------------------ #ifdef _CP15_INI . end #endif