Paul true 2 2 if (<PaulON> == 1) then setksmps 1 itblsz = 131072*i(<Paul_fill table>) itbfrq = sr / itblsz ifnL ftgentmp 0, 0, itblsz, -7, 0, itblsz, 0 ; generate tables ifnR ftgentmp 0, 0, itblsz, -7, 0, itblsz, 0 idclip ftgentmp 0, 0, itblsz, 7, 0, 36*i(<Paul_fill table>), 1, itblsz-(72*i(<Paul_fill table>)), 1, 36*i(<Paul_fill table>), 0 awp phasor <Paul_pitch> * itbfrq ; write signal to tables, option to adjust pitch awin tablei awp, idclip, 1 tablew ain1*awin, awp, ifnL, 1 tablew ain2*awin, awp, ifnR, 1 isize = i(<Paul_window size>) kSwitch changed2 <Paul_stretch> if kSwitch = 1 then reinit STARTPAUL endif STARTPAUL: istretch = i(<Paul_stretch>) aout1 paulstretch istretch, isize, ifnL aout2 paulstretch istretch, isize, ifnR aout1 *= <Paul_effect> ; set gains for effect aout2 *= <Paul_effect> rireturn if (<Paul_EQ_on> == 1) then ; turn Equalizer on/off aout1 eqfil aout1, 150, 80, <Paul_gain bass> ; 3 band eq aout2 eqfil aout2, 150, 80, <Paul_gain bass> aout1 eqfil aout1, 1200, 500, <Paul_gain mid> aout2 eqfil aout2, 1200, 500, <Paul_gain mid> aout1 eqfil aout1, <Paul_freq high>, 3000, <Paul_gain high> aout2 eqfil aout2, <Paul_freq high>, 3000, <Paul_gain high> endif ain1 *= <Paul_direct> ; direct signal ain2 *= <Paul_direct> aout1 += ain1 aout2 += ain2 else aout1 = ain1 aout2 = ain2 endif Using extreme settings can be demanding for CPU load!! DESCRIPTION: The paulstretch opcode is a lightweight implementation of the PaulStretch time-stretching algorithm by Nasca Octavian Paul. It is ideal for timestretching a signal by very large amounts. Large settings for the table buffer results into the well know massive Paulstretch sound, that lasts well beyond the incoming signal's length. The stretch factor is a scaling factor of the Object, so if an Object = 5, the stretch factor = 5, the total of stretch and smear will have a total length of 25. CONTROLLERS: ON/OFF - bypass duration - Stretch factor in seconds. The value scales/stretches the incoming signal window size capture - take in humps of the incoming signal, in seconds fill table - choose table size pitch - multiplies the pitch, 1 = neutral pitch effect - gain of the effect direct - gain of direct signal equalizer on/off - switch for equalizer high - sets frequency high pass and boost for that frequency mid - amount of gain for mid range frequencies bass - amount of gain for low end range --- version 1.0, June 2020 - initial version by Menno Knevel 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 settings 0x4d8080ff 0x000000ff 0xffffffff false 20 20 225 10 System Regular 12.0 Paul_fill table 10 115 true 0.01 30.0 0.01 22.5 150 true true 115 130 System Regular 12.0 Paul_pitch 215 20 true 0.1 4.0 0.01 1.0 95 true true Paul_stretch 15 10 true 1.01 25.0 6.050552922590838 40 true true true System Regular 12.0 25 90 System Regular 12.0 Paul_window size 10 95 true 0.0 0.5 0.01 0.24 150 true true 85 50 System Regular 12.0 Paul_direct 120 45 true 0.0 1.0 0.01 0.0 95 true false Paul_effect 120 28 true 0.0 1.0 0.01 1.0 95 true false 15 130 System Regular 12.0 85 35 System Regular 12.0 285 10 timbre 0x4d8080ff 0x000000ff 0xffffffff false 20 155 180 45 System Regular 12.0 Paul_freq high 10 30 true 4000.0 10000.0 0.1 5415.1 120 true true Paul_gain high 10 50 true 0.0 15.0 0.1 2.0 120 true true Paul_EQ_on 10 10 true false true 180 96 System Regular 12.0 180 78 System Regular 12.0 Paul_gain mid 10 70 true 0.0 15.0 0.1 1.0 120 true true Paul_gain bass 10 90 true 0.0 15.0 0.1 5.1 120 true true PaulON 0 0 true