--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,0.01,1024,100,0.01
--track2:“§‰ίθ‡’l,0,100,25,0.01
--track3:•`‰ζ–§“x,1,100,3,1
--check0:Tempbuffer,0
--dialog:Fθ‡’l/col,col1=0x808080;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";ΧέΐήΡ»²½ή/chk,chk3=0;»²½ή,fgs=2;’…F/chk,chk2=0;’…F/col,col2=0xffa000;Buf”ԍ†Žw’θ/chk,chk1=0;Buf”ԍ†,bn=20;seed,sd=100;NoiseType[0-8],ns=4;•`‰ζ—ΜˆζX,ww=1.00;•`‰ζ—ΜˆζY,hh=1.00;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=obj.track2/100
ik=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
if(bn>=t0)then bn=t0 end
------------------------------------
bcor=t1
div=t0
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
ow,oh=obj.w/ogvz,obj.h/ogvz
wk,hk=ik,ik
ca={}
v1=t2
for i=0,ow,wk do
 ca[i+1]={}
 for j=0,oh,hk do
  aa,bb=obj.getpixel(i,j,"col")
  if(bb>=v1)then
   ca[i+1][j+1]={aa,bb}
  else
   ca[i+1][j+1]={0,bb}
  end
 end
end

if(obj.check0)then
 obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
end
v2=t2
nidx=1
for i=0,ow,wk do
 for j=0,oh,hk do
if(ns==0)then --*** noisetype Δl
 fr1=10
 fr2=10
elseif(ns==1)then
 fr1=i
 fr2=i
elseif(ns==2)then
 fr1=j
 fr2=j
elseif(ns==3)then
 fr1=i
 fr2=j
elseif(ns==4)then
 fr1=j
 fr2=i
elseif(ns==5)then
 fr1=i+j
 fr2=i
elseif(ns==6)then
 fr1=i+j
 fr2=j
elseif(ns==7)then
 fr1=i+j
 fr2=i+j
elseif(ns==8)then
 fr1=i
 fr2=i+j
end

  rnd=obj.rand(-360,360,sd+fr1,fr2)

  col=ca[i+1][j+1][1]
  if(col>col1)then
   if(chk1==0)then
    num=(nidx+rnd)%div+1
   else
    num=bn
   end
   bv=buf[num]/bcor+0.01

   if(chk2==0)then
    col=ca[i+1][j+1][1]
   else
    col=col2
   end

   if(chk3==0)then
    fgs1=fgs
   else
    fgs1=obj.rand(1,fgs,sd+fr1,fr2)
   end

   obj.load("figure",fig,col,fgs1)
   r=math.rad(i*j+rnd)
   cs=math.cos(r)
   sn=math.sin(r)
   dx=-ow/2+i+bv*cs
   dy=-oh/2+j+bv*sn
   if(obj.check0)then
    obj.setoption("blend","alpha_add")
   end
   obj.draw(dx,dy)
  end
  nidx=nidx+1
 end
end
if(obj.check0)then
 obj.load("tempbuffer")
end

--[[http://madeinpc.blog50.fc2.com/]]--