#ifndef _COMP15_H #define _COMP15_H /*------------------------------------------------------------------------ #include "defs.h" /*------------------------------------------------------------------------ #define _TEMPO 122 #define TEMPO t$_TEMPO() /*------------------------------------------------------------------------ .division 960 .tempo $_TEMPO() .signature 4/4 /*------------------------------------------------------------------------ /* MML command setup .mmlcmd I ccv:$10 /* 'I' assign cc1 controller */ .mmlcmd J ccv:$11 /* 'J' assign cc2 controller */ #define TRKOPT @OPT(cc:$10,on) @OPT(cc:$11,on) /*------------------------------------------------------------------------ /* Track setting .track 1 port:A ch:1 macro:System .track 11 port:A ch:10 macro:Rym .track 21 port:A ch:11 macro:BassA .track 22 port:A ch:12 macro:BassB .track 31 port:A ch:3 macro:MelodyA .track 32 port:A ch:4 macro:MelodyB .track 33 port:A ch:5 macro:MelodyC .track 41 port:A ch:3 macro:RGuitarA .track 42 port:A ch:4 macro:RGuitarB .track 43 port:A ch:6 macro:Synth1A .track 44 port:A ch:7 macro:Synth1B .track 45 port:A ch:3 macro:Synth2A .track 46 port:A ch:4 macro:Synth2B .track 47 port:A ch:8 macro:BGuitarA .track 48 port:A ch:9 macro:BGuitarB .track 51 port:A ch:13 macro:CodeA .track 52 port:A ch:14 macro:PianoA .track 53 port:A ch:15 macro:PianoB .track 54 port:A ch:5 macro:PianoC /*------------------------------------------------------------------------ #define PART PianoB #include "piano.def" /*------------------------------------------------------------------------ /* D 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 */ #$_PR_0 $exGs_partialReserve(2,2,1,1,1,1,0,0,0,0,2,1,3,3,2,0) r64 #$_PR_A $exGs_partialReserve(2,2,1,1,1,1,0,0,0,2,2,1,3,3,2,0) r64 #$_PR_B $exGs_partialReserve(2,2,1,1,1,1,0,0,2,2,2,1,3,3,2,0) r64 #$_PR_C $exGs_partialReserve(2,2,1,0,0,1,2,2,0,1,2,1,3,3,2,0) r64 #$_PR_D $exGs_partialReserve(2,2,1,2,2,0,1,1,2,2,2,1,3,0,0,0) r64 #$_PR_F1 $exGs_partialReserve(2,2,1,2,2,0,1,1,2,2,2,1,3,0,2,0) r64 #$_PR_F2 $exGs_partialReserve(2,2,1,0,0,4,1,1,2,2,2,1,3,0,0,0) r64 /*------------------------------------------------------------------------ #define VIB_RATE @CC($63,1)r:1 @CC($62,$08)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define VIB_DEPTH @CC($63,1)r:1 @CC($62,$09)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define VIB_DELAY @CC($63,1)r:1 @CC($62,$0A)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define CUTOFF_FREQ @CC($63,1)r:1 @CC($62,$20)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define RESONANCE @CC($63,1)r:1 @CC($62,$21)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define ENV_ATTACK @CC($63,1)r:1 @CC($62,$63)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define ENV_DECAY @CC($63,1)r:1 @CC($62,$64)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define ENV_RELEASE @CC($63,1)r:1 @CC($62,$66)r:1 @CC($06,$1)r:1 @CC($26,0)r:1 #define TONE_MODIFY $VIB_RATE($1)$VIB_DEPTH($2)$VIB_DELAY($3)$CUTOFF_FREQ($4)$RESONANCE($5)$ENV_ATTACK($6)$ENV_DECAY($7)$ENV_RELEASE($8) /*------------------------------------------------------------------------ /* pitch, panpot, vel #define INSTFILTER @FILTER(pitch,$1)@FILTER(cc:$0A,$2)@FILTER(vel,$3) /* INSTMAC bank,prog,reverb,chorus,level,bnd,pan,pitchbend range #define INSTMAC @CC(0,$1)r:1 @CC(32,0)r:1 @PROG($2)r:1 @CC($5B,$3)r:1 @CC($5D,$4)r:1 @CC($07,$5)r:1 @PITCH($6)r:1 @CC($0A,$7)r:1 $PBND_RANGE($8)r:1 /*------------------------------------------------------------------------ #define GenPin1 !11(v:'+2)!12(v:'+4)!13(v:'+6)!14(v:'+8)!15(v:'+10)!16(v:'+12)!17(v:'+14)!18(v:'+16)!19(v:'+18) #define GenPin2 !21(v:'-2)!22(v:'-4)!23(v:'-6)!24(v:'-8)!25(v:'-10)!26(v:'-12)!27(v:'-14)!28(v:'-16)!29(v:'-18) #define GenPin $GenPin1() $GenPin2() /*------------------------------------------------------------------------ /* Instrument macro setup /*------------------------------------------------------------------------ /*------------------------------------------------------------------------ /* Bass #define E_BassA $exGs_cc1control(11, 0,0,52, 0,0,0,0, 0,0,0,0 ) #define A_BassA $TONE_MODIFY(64,64,64, 64,71, 64,71,64) $POLY(0) #define F_BassA $INSTFILTER(off:0,off:+20,rnd:-1/2) #define T_BassA $F_BassA() $INSTMAC( 0, 38, 50, 60,118, 0, 0,12) $A_BassA() #define D_BassA ?(delay:*0..8) #define O_BassA o1 #define G_BassA q94 ?#(gate:*-16..0) #define C_BassA $TRKOPT() v106 x127 i0 m0 p0 #define BassA $D_BassA() $O_BassA() $C_BassA() $G_BassA() $GenPin() #define E_BassB $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_BassB $TONE_MODIFY(64,68,64, 64,66, 64,80,64) $MONO(1) #define F_BassB $INSTFILTER(off:0,off:+24,rnd:-2/1) #define T_BassB $F_BassB() $INSTMAC( 0, 37, 72, 13,102, 0, 0,12) $A_BassB() #define D_BassB ?(delay:*0..8) #define O_BassB o1 #define G_BassB q95 ?#(gate:*-16..0) #define C_BassB $TRKOPT() v100 x127 i0 m0 p0 #define BassB $D_BassB() $O_BassB() $C_BassB() $G_BassB() $GenPin() /*----------------------------------------------------------------------*/ /* Melody #define A_MelodyA $TONE_MODIFY(64,68,70, 60,64, 63,68,66) #define F_MelodyA $INSTFILTER(off:-16,off:8,rnd:-2/2) $POLY(0) #define T_MelodyA $F_MelodyA() $INSTMAC( 0, 41, 60, 12,106, 0, 0,12) $A_MelodyA() #define D_MelodyA ?(delay:*16..24) #define O_MelodyA o4 #define G_MelodyA q97 ?#(gate:*4..24) #define C_MelodyA $TRKOPT() v110 x127 i0 m0 p0 #define MelodyA $D_MelodyA() $O_MelodyA() $C_MelodyA() $G_MelodyA() $GenPin() #define A_MelodyB $TONE_MODIFY(64,67,65, 64,68, 62,70,68) #define F_MelodyB $INSTFILTER(off:0,off:-24,rnd:-2/2) $POLY(0) #define T_MelodyB $F_MelodyB() $INSTMAC( 0, 76, 68, 12, 104, 0, 0,12) $A_MelodyB() #define D_MelodyB ?(delay:*32..40) #define O_MelodyB o4 #define G_MelodyB q97 ?#(gate:*4..24) #define C_MelodyB $TRKOPT() v110 x127 i0 m0 p0 #define MelodyB $D_MelodyB() $O_MelodyB() $C_MelodyB() $G_MelodyB() $GenPin() #define A_MelodyC $TONE_MODIFY(64,67,65, 68,60, 63,70,68) #define F_MelodyC $INSTFILTER(off:+16,off:-48,rnd:-2/2) $POLY(0) #define T_MelodyC $F_MelodyC() $INSTMAC( 0, 41, 68, 12, 89, 0, 0,12) $A_MelodyC() #define D_MelodyC $D_MelodyB() ?#(delay:240) #define O_MelodyC o4 #define G_MelodyC q97 ?#(gate:*4..34) #define C_MelodyC $TRKOPT() v110 x127 i0 m#10m0 p0 #define MelodyC $D_MelodyC() $O_MelodyC() $C_MelodyC() $G_MelodyC() $GenPin() #define MelodyC2 $D_MelodyA() ?#(delay:0) $O_MelodyA() $C_MelodyB() $G_MelodyA() $GenPin() /*----------------------------------------------------------------------*/ /* guitar #define E_RGuitarA $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_RGuitarA $TONE_MODIFY(64,60,67, 62,68, 63,72,64) $POLY(0) #define F_RGuitarA $INSTFILTER(off:-4,off:12,rnd:-2/2) #define T_RGuitarA $F_RGuitarA() $INSTMAC( 0, 30, 99, 99,112, 0, 0,12) $A_RGuitarA() #define D_RGuitarA ?(delay:*-4..4) #define O_RGuitarA o4 #define G_RGuitarA q99 ?#(gate:*-16..0) #define C_RGuitarA $TRKOPT() v112 x127 i0 m0 p0 #define RGuitarA $D_RGuitarA() $O_RGuitarA() $C_RGuitarA() $G_RGuitarA() $GenPin() #define E_RGuitarB $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_RGuitarB $TONE_MODIFY(64,60,72, 60,70, 64,64,70) $MONO(1) #define F_RGuitarB $INSTFILTER(off:4,off:4,rnd:-2/2) #define T_RGuitarB $F_RGuitarB() $INSTMAC( 0, 81, 80, 44, 95, 0, 0,12) $A_RGuitarB() #define D_RGuitarB ?(delay:*120..128) #define O_RGuitarB o4 #define G_RGuitarB q99 ?#(gate:*-8..2) #define C_RGuitarB $TRKOPT() v102 x127 i0 m0 p0 #define RGuitarB $D_RGuitarB() $O_RGuitarB() $C_RGuitarB() $G_RGuitarB() $GenPin() /*----------------------------------------------------------------------*/ /* Synthe #define E_Synth1A $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_Synth1A $TONE_MODIFY(64,64,67, 63,64, 64,63,69) $POLY(0) #define F_Synth1A $INSTFILTER(off:-4,off:14,rnd:-2/2) #define T_Synth1A $F_Synth1A() $INSTMAC( 0, 55, 70, 44,122, 0, 0,12) $A_Synth1A() #define D_Synth1A ?(delay:*0..8) #define O_Synth1A o4 #define G_Synth1A q90 ?#(gate:*-16..0) #define C_Synth1A $TRKOPT() v112 x127 i0 m0 p0 #define Synth1A $D_Synth1A() $O_Synth1A() $C_Synth1A() $G_Synth1A() $GenPin() #define E_Synth1B $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_Synth1B $TONE_MODIFY(64,64,70, 64,66, 64,63,68) $POLY(0) #define F_Synth1B $INSTFILTER(off:4,off:0,rnd:-2/2) #define T_Synth1B $F_Synth1B() $INSTMAC( 0, 54, 70, 52,114, 0, 0,12) $A_Synth1B() #define D_Synth1B ?(delay:*80..88) #define O_Synth1B o4 #define G_Synth1B q92 ?#(gate:*-16..0) #define C_Synth1B $TRKOPT() v112 x127 i0 m0 p0 #define Synth1B $D_Synth1B() $O_Synth1B() $C_Synth1B() $G_Synth1B() $GenPin() /*----------------------------------------------------------------------*/ /* Synthe 2 [F] part #define A_Synth2A $TONE_MODIFY(64,68,64, 60,64, 62,80,66) #define F_Synth2A $INSTFILTER(off:-32,off:8,rnd:-2/2) $POLY(0) #define T_Synth2A $F_Synth2A() $INSTMAC( 0, 51, 87, 62,106, 0, 0,12) $A_Synth2A() #define D_Synth2A ?(delay:*4..14) #define O_Synth2A o4 #define G_Synth2A q95 ?#(gate:*-4..4) #define C_Synth2A $TRKOPT() v110 x127 i0 m0 p0 #define Synth2A $D_Synth2A() $O_Synth2A() $C_Synth2A() $G_Synth2A() $GenPin() #define A_Synth2B $TONE_MODIFY(64,68,80, 64,68, 62,64,68) #define F_Synth2B $INSTFILTER(off:+32,off:-2,rnd:-2/2) $POLY(0) #define T_Synth2B $F_Synth2B() $INSTMAC( 0, 80,118, 62, 110, 0, 0,12) $A_Synth2B() #define D_Synth2B ?(delay:*24..34) #define O_Synth2B o4 #define G_Synth2B q97 ?#(gate:*-4..4) #define C_Synth2B $TRKOPT() v110 x127 i0 m0 p0 #define Synth2B $D_Synth2B() $O_Synth2B() $C_Synth2B() $G_Synth2B() $GenPin() /*----------------------------------------------------------------------*/ /* guitar #define E_BGuitarA $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_BGuitarA $TONE_MODIFY(64,68,68, 60,65, 64,64,64) $POLY(0) #define F_BGuitarA $INSTFILTER(off:0,off:0,rnd:-1/1) #define T_BGuitarA $F_BGuitarA() $INSTMAC( 0, 31,100, 14,101, 0, 0,12) $A_BGuitarA() #define D_BGuitarA ?(delay:*8..16) #define O_BGuitarA o3 #define G_BGuitarA q92 ?#(gate:*-16..0) #define C_BGuitarA $TRKOPT() v110 x127 i0 m0 p0 #define BGuitarA $D_BGuitarA() $O_BGuitarA() $C_BGuitarA() $G_BGuitarA() $GenPin() #define E_BGuitarB $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_BGuitarB $TONE_MODIFY(64,64,81, 62,70, 64,64,65) $POLY(0) #define F_BGuitarB $INSTFILTER(off:0,off:0,rnd:-1/1) #define T_BGuitarB $F_BGuitarB() $INSTMAC( 0, 30, 97, 99,102, 0, 0,12) $A_BGuitarB() #define D_BGuitarB ?(delay:*16..24) #define O_BGuitarB o3 #define G_BGuitarB q96 ?#(gate:*-16..0) #define C_BGuitarB $TRKOPT() v100 x127 i0 m0 p0 #define BGuitarB $D_BGuitarB() $O_BGuitarB() $C_BGuitarB() $G_BGuitarB() $GenPin() #define BGuitarB2 ?(delay:-1..2) o4 q99 ?#(gate:*-7..0) $TRKOPT() v108 x127 i0 m18 p0 $GenPin() /*----------------------------------------------------------------------*/ /* Code organ #define E_CodeA $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_CodeA $TONE_MODIFY(64,64,64, 64,64, 64,64,64) $POLY(0) #define F_CodeA $INSTFILTER(off:0,off:40,rnd:-2/2) #define T_CodeA $F_CodeA() $INSTMAC( 0, 17,103, 24,100, 0, 0,12) $A_CodeA() #define D_CodeA ?(delay:*0..8) #define O_CodeA o4 #define G_CodeA q98 ?#(gate:*-16..0) #define C_CodeA $TRKOPT() v100 x127 i0 m0 p0 #define CodeA $D_CodeA() $O_CodeA() $C_CodeA() $G_CodeA() $GenPin() /*----------------------------------------------------------------------*/ /* Piano #define E_PianoA $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_PianoA $TONE_MODIFY(64,64,64, 64,64, 64,64,64) $POLY(0) #define F_PianoA $INSTFILTER(off:0,off:-30,rnd:-1/1) #define T_PianoA $F_PianoA() $INSTMAC( 0, 1,120, 74,106, 0, 0,12) $A_PianoA() #define D_PianoA ?(delay:*0..8) #define O_PianoA o4 #define G_PianoA q94 ?#(gate:*-16..0) #define C_PianoA $TRKOPT() v98 x127 i0 m0 p0 #define PianoA $D_PianoA() $O_PianoA() $C_PianoA() $G_PianoA() $GenPin() #define E_PianoB $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_PianoB $TONE_MODIFY(64,64,64, 64,64, 64,64,64) $POLY(0) #define F_PianoB $INSTFILTER(off:0,off:-20,rnd:-1/1) #define T_PianoB $F_PianoB() $INSTMAC( 0, 2, 80, 34,100, 0, 0,12) $A_PianoB() #define D_PianoB ?(delay:*0..8) #define O_PianoB o4 #define G_PianoB q92 ?#(gate:*-16..0) #define C_PianoB $TRKOPT() v100 x127 i0 m0 p0 #define PianoB $D_PianoB() $O_PianoB() $C_PianoB() $G_PianoB() $GenPin() #define E_PianoC $exGs_cc1control(12, 0,0,63, 0,0,0,0, 0,0,0,0 ) #define A_PianoC $TONE_MODIFY(64,64,64, 64,64, 64,64,64) $POLY(0) #define F_PianoC $INSTFILTER(off:0,off:-20,rnd:-1/1) #define T_PianoC $F_PianoC() $INSTMAC( 0, 2, 60, 74,112, 0, 0,12) $A_PianoC() #define D_PianoC ?(delay:*0..8) #define O_PianoC o4 #define G_PianoC q92 ?#(gate:*-16..0) #define C_PianoC $TRKOPT() v112 x127 i0 m0 p0 #define PianoC $D_PianoC() $O_PianoC() $C_PianoC() $G_PianoC() $GenPin() /*------------------------------------------------------------------------ /*------------------------------------------------------------------------ /************************************************************************* /* Drums setup /*------------------------------------------------------------------------ #define _MAP2_SETUP $exGs_rymMap( 1,2)r64 $exGs_assignMode(1,0) #define _MAP3_SETUP $exGs_assignMode(2,1) #define DRUM_SYSEX $_MAP2_SETUP() $_MAP3_SETUP() #define RYM_PITCH ?(cc:$63/$18,cc:$62/$1,cc:$06/$2,cc:$26/0) #define RYM_LEVEL ?(cc:$63/$1A,cc:$62/$1,cc:$06/$2,cc:$26/0) #define RYM_PAN ?(cc:$63/$1C,cc:$62/$1,cc:$06/$2,cc:$26/0) #define RYM_REVERB ?(cc:$63/$1D,cc:$62/$1,cc:$06/$2,cc:$26/0) /*------------------------------------------------------------------------ #define MAP1 ?(ch:10) /* Power */ #define MAP2 ?(ch: 1) /* Electronic */ #define MAP3 ?(ch: 2) /* Synthe drum */ #define A_Rym1 l64 $MAP1() @PROG( 17) r @CC($07,100)r $REVERB(120)r $CHORUS( 48) #define A_Rym2 l64 $MAP2() @PROG( 25) r @CC($07,100)r $REVERB(100)r $CHORUS( 20) #define A_Rym3 l64 $MAP3() @PROG(119) r @CC($07,110)r $REVERB(120)r $CHORUS(120) #define T_Map1 $MAP1_TOM_SET() $MAP1_SNR_SET() r $MAP1_HH_SET() r #define T_Map2 $MAP2_TOM_SET() $MAP2_SNR_SET() r #define T_Map3 $MAP3_STom_SET() r #define T_Rym $A_Rym1() r64 $T_Map1() r64 $A_Rym2() $T_Map2() r64 $A_Rym3() r64 $T_Map3() /*------------------------------------------------------------------------ /* Synth Tom Tom #define MAP3_STom_SET /* $MAP3() $PORTIME(10) */ #define STom4 $MAP3() ?(delay:0) p8o4 v99 q100 $slide( e128, u, 32, &, x^2, 0, -8100 ) /*------------------------------------------------------------------------ #define MAP1_SNR_SET $RYM_PITCH(38,65) /* Power */ #define MAP2_SNR_SET $RYM_PITCH(40,62) /* Electronic */ #table V_SNR 85, 50, 65, 75, 85, 93, 101, 109, 117 #define _SNR1 $MAP2() o2 !(v:'*0..10)e:0,119 #define _SNR2 $MAP1() o2 ?(v:80%,delay:*2..6) d:0,119 #define SNR ?(delay:*-2..2) v$V_SNR($2) $_SNR1() $_SNR2() r$1 #table V_BSD 84, 42, 52, 72, 82, 92, 102, 112, 122 #define _BSD1 $MAP2() o2 c:0,119 #define BSD ?(delay:*-2..4) v$V_BSD($2) !(v:'*-4..4)$_BSD1() r$1 #define MAP1_HH_SET $RYM_LEVEL(42,127) $RYM_PAN(42,96) $RYM_PAN(44,96) $RYM_PAN(46,96) #table V_CHH 82, 50, 60, 70, 82, 92, 102, 110, 124 #define CHH ?(delay:*-2..2)q50$MAP1() o2 v$V_CHH($2)!(v:'*0..8) f+ $1 #table V_OHH 86, 50, 60, 70, 86, 94, 102, 110, 124 #define OHH ?(delay:*-2..2)q50$MAP1() o2 v$V_OHH($2)!(v:'*-4..4) a+ $1 #table V_PHH 96, 60, 70, 80, 96, 104, 112, 120, 127 #define PHH ?(delay:*-2..2)q50$MAP1() o2 v$V_PHH($2)!(v:'*-8..0) f+ $1 #define MAP1_TOM_SET $MAP1() $RYM_PITCH(47,65) $RYM_PAN(47,82) $RYM_PAN(45,58) $RYM_PAN(43,34) $RYM_PAN(41,25) #define MAP2_TOM_SET $MAP2() $RYM_PITCH(47,65) $RYM_PAN(47,84) $RYM_PAN(45,60) $RYM_PAN(43,36) $RYM_PAN(41,27) #table V_TT 90, 60, 70, 80, 90, 98, 106, 112, 127 #define TT1 ?(delay:0) $MAP1() o2 v$V_TT($2) b:0,119 $MAP3()u0p18 o4 v60% g:0,119 r$1 #define TT2 ?(delay:0) $MAP1() o2 v$V_TT($2) a:0,119 $MAP3()u0p-6 o4 v60% e:0,119 r$1 #define TT3 ?(delay:0) $MAP1() o2 v$V_TT($2) g:0,119 $MAP3()u0p-30 o4 v60% c:0,119 r$1 #define TT4 ?(delay:0) $MAP1() o2 v$V_TT($2) f:0,119 $MAP3()u0p-39 o3 v60% a:0,119 r$1 #table V_Cy1 100, 50, 80, 90, 100, 108, 116, 121, 127 #define Cy1 ?(delay:0) $MAP1() o3 v$V_Cy1($2) c+:0,119 r$1 #table V_Cy2 100, 50, 80, 90, 100, 108, 116, 121, 127 #define Cy2 ?(delay:0) $MAP1() o3 v$V_Cy1($2) a:0,119 r$1 #table V_RID 90, 40, 65, 75, 90, 98, 105, 114, 121 #define RID ?(delay:0) $MAP1() o3 v$V_RID($2) v'*-4..4 d+:0,119 r$1 #table V_RBL 50, 26, 34, 42, 50, 58, 64, 92, 100 #define RBL ?(delay:0) $MAP1() o3 v$V_RBL($2) f:0,119 r$1 #table V_SLP 100, 40, 70, 90, 100, 108, 116, 124, 127 #define SLP ?(delay:0) $MAP1() o1 v$V_SLP($2) e:0,119 r$1 #table V_CLP 100, 40, 70, 90, 100, 108, 116, 124, 127 #define CLP ?(delay:0) $MAP1() o2 v$V_CLP($2) d+:0,119 r$1 #table V_TMB 100, 40, 70, 90, 100, 108, 116, 124, 127 #define TMB ?(delay:0) $MAP1() o3 v$V_TMB($2) f+:0,119 r$1 #table V_CBL 100, 40, 70, 90, 100, 108, 116, 124, 127 #define CBL ?(delay:0) $MAP1() o3 v$V_CBL($2) g+:0,119 r$1 #table V_MRS 40, 10, 20, 30, 40, 48, 56, 66, 76 #define MRS ?(delay:0) $MAP1() o4 v$V_MRS($2) v'*0..-8 a+:0,119 r$1 #table V_HWB 80, 50, 60, 70, 80, 90, 100, 110, 120 #define HWB ?(delay:0) $MAP1() o5 v$V_HWB($2)v'*0..6 e:0,119 r$1 #table V_MSU 100, 40, 70, 90, 100, 108, 116, 124, 127 #define MSU ?(delay:0) $MAP1() o6 v$V_MSU($2) d:0,119 r$1 #table V_OTr 50, 32, 38, 44, 50, 56, 62, 68, 74 #define OTr ?(delay:0) $MAP1() o5 v$V_OTr($2) v'*0..6 a :0,119 r$1 #define MTr ?(delay:0) $MAP1() o5 v$V_OTr($2) a-:0,119 r$1 /*------------------------------------------------------------------------ #include "rymptn.h" /*------------------------------------------------------------------------ #endif