Pre-rendered for better experience.
N=200
q={x:.01,y:0,z:0}
setup=_=>createCanvas(W=400,W)
draw=_=>{
noStroke()
background(0)
let{x,y,z}=q
for(i=1;i<N;i+=6)for(j=0;j<N;j+=2)d=.02/i,[x,y,z]=[x+15*(y-x)*d,y+(x*(28-z)-y)*d,z+(x*y-2*z)*d],fill(i,j,N-z*2),circle(x*8+N,y*8+N,z/9),j+i<7&&(q={x,y,z})}//#つぶやきProcessing