Skip to content

Commit

Permalink
some endeavour, pls
Browse files Browse the repository at this point in the history
  • Loading branch information
@qm210
qm210 committed Apr 20, 2019
1 parent 29f5f8a commit 452be4d
Show file tree
Hide file tree
Showing 3 changed files with 23 additions and 23 deletions.
22 changes: 11 additions & 11 deletions sequence.glsl
View file

Large diffs are not rendered by default.

4 changes: 2 additions & 2 deletions sequence.h
View file

Large diffs are not rendered by default.

20 changes: 10 additions & 10 deletions sfx.frag
View file
Original file line number Diff line number Diff line change
Expand Up @@ -292,7 +292,7 @@ float reverbsnrrev_IIR(float time, float f, float tL, float vel, float IIRgain,
for(int i=0; i<imax; i++)
{
float _TIME = time - float(i)*delay[d] * (.8 + .4*pseudorandom(sum));
sum += fac*.499*(.379*lpnoise(_TIME,3537.786)+.706*lpnoise(_TIME,3657.874)+.967*lpnoise(_TIME,3499.748))*(smoothstep(0.,.017,_TIME)-smoothstep(0.,.86,_TIME-.438)) + _sin(drop_phase(_TIME,.227,2058.049,349.675))*exp(-_TIME*49.438)*.849+ _sin(drop_phase(_TIME*540.09,.227,2058.049,349.675))*exp(-_TIME*18.495)*.873;
sum += fac*.372*(.953*lpnoise(_TIME,3367.638)+.285*lpnoise(_TIME,2129.763)+.104*lpnoise(_TIME,4877.656))*(smoothstep(0.,.089,_TIME)-smoothstep(0.,.726,_TIME-.353)) + _sin(drop_phase(_TIME,.138,2432.138,276.013))*exp(-_TIME*35.666)*.033+ _sin(drop_phase(_TIME*854.747,.138,2432.138,276.013))*exp(-_TIME*7.608)*.75;
fac *= -IIRgain;
}
}
Expand Down Expand Up @@ -402,7 +402,7 @@ float note_slide(int index) {return rfloat(index+2+5*NTRK+4*NMOD+NPTN+5*NNOT

vec2 mainSynth(float time)
{
float max_mod_off = 90.;
float max_mod_off = 94.;
int drum_index = 45;

float sL = 0.;
Expand Down Expand Up @@ -571,10 +571,10 @@ vec2 mainSynth(float time)
+_sq_(f*((_t-1.23e-01)-1.50e-02*(1.+1.*_sin(.239*(_t-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t-1.23e-01)-3.00e-02*(1.+1.*_sin(.239*(_t-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t-1.23e-01)-4.50e-02*(1.+1.*_sin(.239*(_t-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))))
+.2*(lpnoise((_t-0.00*(1.+.5*_sin(.127*_t))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-0.00*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-0.00*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-2.40e-02*(1.+.5*_sin(.127*_t))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-2.40e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-2.40e-02*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-4.80e-02*(1.+.5*_sin(.127*_t))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-4.80e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-4.80e-02*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-7.20e-02*(1.+.5*_sin(.127*_t))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-7.20e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-7.20e-02*(1.+.5*_sin(.127*_t)))-.1-0.)));
+.2*(lpnoise((_t-0.00*(1.+.5*_sin(.127*_t))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-0.00*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-0.00*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-2.40e-02*(1.+.5*_sin(.127*_t))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-2.40e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-2.40e-02*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-4.80e-02*(1.+.5*_sin(.127*_t))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-4.80e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-4.80e-02*(1.+.5*_sin(.127*_t)))-.1-0.))
+lpnoise((_t-7.20e-02*(1.+.5*_sin(.127*_t))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t-7.20e-02*(1.+.5*_sin(.127*_t))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t-7.20e-02*(1.+.5*_sin(.127*_t)))-.1-0.)));
amaysynR = .4*env_AHDSR(_t2,tL,.2,0.,.35,.05,0.)*(1.00*(_sq_(f*((_t2-0.00)-0.00*(1.+1.*_sin(.239*(_t2-0.00)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t2-0.00)-1.50e-02*(1.+1.*_sin(.239*(_t2-0.00)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t2-0.00)-3.00e-02*(1.+1.*_sin(.239*(_t2-0.00)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
Expand All @@ -583,10 +583,10 @@ vec2 mainSynth(float time)
+_sq_(f*((_t2-1.23e-01)-1.50e-02*(1.+1.*_sin(.239*(_t2-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t2-1.23e-01)-3.00e-02*(1.+1.*_sin(.239*(_t2-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))
+_sq_(f*((_t2-1.23e-01)-4.50e-02*(1.+1.*_sin(.239*(_t2-1.23e-01)))),.5+.09*(.5+(.5*(2.*fract(1533.*Bprog+0.)-1.))))))
+.2*(lpnoise((_t2-0.00*(1.+.5*_sin(.127*_t2))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-0.00*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-0.00*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-2.40e-02*(1.+.5*_sin(.127*_t2))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-2.40e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-2.40e-02*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-4.80e-02*(1.+.5*_sin(.127*_t2))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-4.80e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-4.80e-02*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-7.20e-02*(1.+.5*_sin(.127*_t2))),(19488.96+(8599.03*(2.*fract(1720.92*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-7.20e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-7.20e-02*(1.+.5*_sin(.127*_t2)))-.1-0.)));
+.2*(lpnoise((_t2-0.00*(1.+.5*_sin(.127*_t2))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-0.00*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-0.00*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-2.40e-02*(1.+.5*_sin(.127*_t2))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-2.40e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-2.40e-02*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-4.80e-02*(1.+.5*_sin(.127*_t2))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-4.80e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-4.80e-02*(1.+.5*_sin(.127*_t2)))-.1-0.))
+lpnoise((_t2-7.20e-02*(1.+.5*_sin(.127*_t2))),(5057.27+(7550.36*(2.*fract(19640.33*Bprog+0.)-1.))))*smoothstep(0.,.1,(_t2-7.20e-02*(1.+.5*_sin(.127*_t2))))*(1.-(1.-.05)*smoothstep(0.,.15,(_t2-7.20e-02*(1.+.5*_sin(.127*_t2)))-.1-0.)));
}
else if(syn == 42){
amaysynL = (vel*env_AHDSR(_t,tL,.013,0.,.1,1.,.01)*s_atan((1.00*s_atan(2.69*supershape(MADD((_t-0.00),f,0.,200,1,-.4,44.28,2.12,4.21,2.57,.01,.44,0),.09,0.,.8,.05,1.,.9)))+(1.00*s_atan(2.69*supershape(MADD((_t-0.00),f,0.,200,1,-.4,44.28,2.12,4.21,2.57,.01,.44,0),.09,0.,.8,.05,1.,.9)))+(1.00*s_atan(2.69*supershape(MADD((_t-0.00),f,0.,200,1,-.4,44.28,2.12,4.21,2.57,.01,.44,0),.09,0.,.8,.05,1.,.9))))+.4*env_AHDSR(_t,tL,.013,0.,.1,1.,.01)*s_atan(2.69*supershape(MADD(_t,f,0.,200,1,-.4,44.28,2.12,4.21,2.57,.01,.44,0),.09,0.,.8,.05,1.,.9)));
Expand Down

0 comments on commit 452be4d

Please sign in to comment.