#つぶやきProcessing
function draw(){for(z||createCanvas(w=400,w,WEBGL),background(W=200),circle(0,0,X),rotateX(.5),i=9*-w;i<w;i+=W)push(x=-x),noFill(translate(x,90,i+z%w)),cone(50,-W,5,5),line(30,X,-30,X),C(20),pop(C(-20));z++}z=0,x=X=-80,C=a=>curve(x,-w,0,a,X,0,a-2*x,X,W,x,-w,w)