You are not recognized as the original poster of this topic.
c=(x,a,b=Infinity)=>min(x*b,a===0?1:1-x**(a<.5?1/(2*a):2-2*a));
s=(t,p=220)=>{
let o=0;
for(let i=0;i<30;i++)
o+=c(t*(p+(sin(i*68.63)*.01)+(i-15)*.2)%1,(sin((t*2.2)+i*6.5)+1)*.5,4+(sin(t*.4)+1)*57)-.5;
return o*.1;
};
return t=>{
b=[180,140,135][((t*.3)%3)|0];
return s(t,b*.5)+s(t,b)+s(t,271)*.8+s(t,402)*.6;
};