Chopper
true
2
2
if (<ChopperON> == 1) then
kgoto perform
iDcsize = 256
iDcAtk = i(<Chopper_Attack>)
iTable ftgentmp 0,0,iDcsize,-7,0
iDeclick ftgentmp 0,0,iDcsize,7,0, iDcAtk,1, iDcsize - 2*iDcAtk,1, iDcAtk, 0
iGate = <Chopper_Pattern1> * 16 + <Chopper_Pattern2>
iMask = 128
iIdx = 0
iFill = iDcsize / 8
loop:
iVal = iGate & iMask
iVal = (iVal > 0) ? 1 : i(<Chopper_Smooth>)
iIdx fillTableI iTable, iIdx, 32, iVal
iMask = iMask / 2
if iIdx < iDcsize igoto loop
perform:
kTempo miditempo
kTempo = 60 / kTempo * <Chopper_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
else
aout1 = ain1
aout2 = ain2
endif
EFFECT TO BE USED WITH COMMANDLINE -t x (where x = bpm)!!
DESCRIPTION:
chops up the incoming signal, creating a pulsating effect.
CONTROLLERS:
ON/OFF - bypass
Nr. Bars - length of bar
Pattern 1/2 - patterns in gates
Smooth -
Declick - change attack time
---
version 1.11, May 20202
- added comments on controllers
version 1.1, 2017
- new GUI and small code adaptations by Menno Knevel
version 1.0, ?
- initial version by ?
fillTableI
i
iiii
iTable, iStart, iTimes, iVal xin
loop:
tableiw iVal, iStart, iTable
iStart = iStart + 1
loop_gt iTimes, 1, 0, loop
xout iStart
2
5
LINE
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
10
10
0x4d8080ff
0x000000ff
0xffffffff
false
220
89
70
5
System Regular
12.0
Chopper_Smooth
220
10
true
0.0
1.0
0.5042247
40
true
true
true
System Regular
12.0
30
40
System Regular
12.0
100
40
System Regular
12.0
Chopper_Attack
285
10
true
5.0
64.0
26.92003
40
true
true
true
System Regular
12.0
Chopper_Pattern1
28
55
false
5
12
true
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
Chopper_Pattern2
99
55
false
2
12
true
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
Chopper_Time
10
10
true
0.0
4.0
0.125
0.75
150
true
true
ChopperON
0
0
true
true
true