Chopper true 2 2 kgoto perform iDcsize = 256 iDcAtk = <Attack> iTable ftgentmp 0,0,iDcsize,-7,0 iDeclick ftgentmp 0,0,iDcsize,7,0, iDcAtk,1, iDcsize - 2*iDcAtk,1, iDcAtk, 0 iGate = <Pattern1> * 16 + <Pattern2> iMask = 128 iIdx = 0 iFill = iDcsize / 8 loop: iVal = iGate & iMask iVal = (iVal > 0) ? 1 : <Smooth> iIdx fillTableI iTable, iIdx, 32, iVal iMask = iMask / 2 if iIdx < iDcsize igoto loop perform: kTempo miditempo kTempo = 60 / kTempo * <Time> * 4 kDc = kTempo/8 kp phasor 1/kTempo kc phasor 1/kDc kAmp table kp,iTable,1 kenv table kc,iDeclick,1 aout1 = ain1 * kAmp * kenv aout2 = ain2 * kAmp * kenv uses the following opcode: opcode fillTableI,i,iiii iTable, iStart, iTimes, iVal xin loop: tableiw iVal, iStart, iTable iStart = iStart + 1 loop_gt iTimes, 1, 0, loop xout iStart endop fillTableI i iiii iTable, iStart, iTimes, iVal xin loop: tableiw iVal, iStart, iTable iStart = iStart + 1 loop_gt iTimes, 1, 0, loop xout iStart Pattern1 112 101 0000 0 0001 1 0010 2 0011 3 0100 4 0101 5 0110 6 0111 7 1000 8 1001 9 1010 10 1011 11 1100 12 1101 13 1110 14 1111 15 5 Time 30 77 0.0 4.0 0.25 0.5 150 Smooth 107 181 0.0 1.0 0.5042247 60 113 267 Minimum Attack 186 183 5.0 64.0 26.92003 60 196 268 Declick 115 68 Pattern1 187 68 Pattern2 132 19 <html><font size="+1">Chopper</font></html> 37 267 Nr Bars Pattern2 181 101 0000 0 0001 1 0010 2 0011 3 0100 4 0101 5 0110 6 0111 7 1000 8 1001 9 1010 10 1011 11 1100 12 1101 13 1110 14 1111 15 5