jsdoでshadertoy sandbox その4

#概要
jsdoでshadertoyのコードを実行したい。
サウンドの時間を使用したい。
#成果物
http://jsdo.it/ohisama1/ozjo
#写真

#サンプルコード

precision mediump float;
uniform vec2 iResolution;
uniform float iGlobalTime;
uniform float iChannelTime[4];
uniform sampler2D iChannel0;
    
float beat = 0.;
float mb(vec2 p1, vec2 p0) { 
    return (0.04 + beat) / (pow(p1.x - p0.x, 2.) + pow(p1.y - p0.y, 2.)); 
}
void mainImage(out vec4 fragColor, in vec2 fragCoord)
{
	float ct = iChannelTime[0];
	if ((ct > 8.0 && ct < 33.5)	|| (ct > 38.0 && ct < 88.5) || (ct > 93.0 && ct < 194.5)) beat = pow(sin(ct * 3.1416 * 3.78 + 1.9) * 0.5 + 0.5, 15.0) * 0.05;
	vec2 mbr, mbg, mbb;
	vec2 p = (2.0 * fragCoord.xy - iResolution.xy) / iResolution.y;
	vec2 o = vec2(pow(p.x, 2.), pow(p.y, 2.));
	vec3 col = vec3(pow(2. * abs(o.x + o.y) + abs(o.x - o.y), 5.));
	col = max(col, 1.);
	float t = iGlobalTime + beat * 2.;
	float t2 = t * 2.0, t3 = t * 3.0, s2 = sin(t2), s3 = sin(t3), s4 = sin(t * 4.0), c2 = cos(t2), c3 = cos(t3);
	mbr = mbg = mbb = vec2(0.);
	mbr += vec2(0.10 * s4 + 0.40 * c3, 0.40 * s2 + 0.20 * c3);
	mbg += vec2(0.15 * s3 + 0.30 * c2, 0.10 * -s4 + 0.30 * c3);
	mbb += vec2(0.10 * s3 + 0.50 * c3, 0.10 * -s4 + 0.50 * c2);
	col.r *= length(mbr.xy - p.xy);
	col.g *= length(mbg.xy - p.xy);
	col.b *= length(mbb.xy - p.xy);
	col *= pow(mb(mbr, p) + mb(mbg, p) + mb(mbb, p), 1.75);
    fragColor = vec4(col, 1.);
}



void main() 
{
    vec4 color = vec4(0.0, 0.0, 0.0, 1.0);
    mainImage(color, gl_FragCoord.xy);
    color.w = 1.0;
    gl_FragColor = color;
}   

#説明
iChannelTimeを実装した。
サウンドのカレントタイムを流し込む。