(there is a bug in the board posting software. If you want to replicate the error,
make the replacement and try to post the modified code.)
Waveshape (but should also work as Particle):
Code: Select all
/* Ripple (jrm) (dead'icated to Robert Hunter ;0)
16May2012 - jrm reWrite
*/
Aspc=1, ConB=1
Num="choice({4,3,5,2,3,4})"
Stps="NUM_FFT_BINS*4"
Pdur=40
A0="(end_time > 1e30)" // (IsWaveShape?) - O'Mearagic
PART=0, WS=1
SAvg=4, BAvg=29, Prd=9
A1="vectorLR(Num, 0, Num-1)"
A2="Prd/(Num-1)"
A3=""
A4="Pi * (2*s -1)"
A5="sign(1-rnd(2))"
A6="choice({7,9,11})
* vectorLR(NUM_S_STEPS, 1/(NUM_S_STEPS-1), (NUM_S_STEPS-1)/NUM_S_STEPS)"
B0="(Num-1)-Id" // 0 to Front
B1="col(B11, B0)"
B2="sssss(Id, B2, (sin(atan(Bass))/8 + B2*BAvg)/(BAvg+1))"
B3="sssss(Id, B3, (B2 + atan(fft(A6)+fft(-A6))/3 + B3*SAvg)/(SAvg+1))"
B4="row(B1, 1)" // Previous B7
B5="sssss(B4, row(B1, 0), choice({.00375,.0075,.015}))"
B6="pos(t-A2*(B0-1))" // time shift
B7="sssss((B4!=0) && ((row(B1, 2) <= Prd)), B4, B6)"
B8="B6-B7"
B9="clamp((33*(t-B12)) * atan(B8)/90)"
C0="sssss((B8!=0)*B0, transpose(col(C1,B0)), B3)
* (1+B9) + B5*B9"
A7="sin(choice({Pi/2, sssss((A0==WS), Pi/6, Pi/2)}))"
B10="A4 + (A5 * (t/4))"
X0="C0 * cos(B10) * sssss((A0==WS), (X_EXTENTS/Y_EXTENTS), 1)"
Y0="C0 * sin(B10) * A7"
C1="sssss((A1 != B0), C1, transpose(C0))"
B11="sssss((A1 != B0), B11, transpose({B5, B7, B8}))" // WRITE!, B11, trait, Start Time, Delta
B12="sssss(B0, B12, t)"
A8="choice({0,1/16})"
B13=" 1 - sssss((A0==PART), (B0==0)/128, A8*B0)"
Pen="B13"
Lwdt="1 - ((B0!=0) * (B8/15))"
Meta="reactive=3 detail=3 density=3 morphable=4"
Vers=400
[\code]