--track0:}Œ`”z’u,1,1024,10,1
--track1:Buf•β³,0.01,1024,100,0.01
--track2:‹——£,0,2048,25,1
--track3:Šξ€’l,1,2048,50,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,fnum=6;‰Ή•ͺŠ„”,div=100;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="‰~";»²½ή,fgs1=20;ό•,fgs2=1000;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,hh=1.00;SEED,sd=100;CΕ¬’l,cmin=128;‰ρ“]”S‚θ,nebari=4.00;‰ρ“]Œό‚«R/chk,chk1=0;»²½ήR/chk,chk2=0;‘¬“xŒW”,local bcor2=0.10;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
local bcor=t1
local buf={}
local abm="spectrum" --pcm,spectrum,fourier
local n=obj.getaudio(buf,"audiobuffer",abm,div)
------------------------------------script
if(obj.frame==0)then
 math.randomseed(os.time())
 sd=sd+math.random(0,1000)
 bsum=0
end
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

local fr=obj.frame
if(fr==0)then --***set
 for i=1,fnum do
  bvl[i]={}
 end

 if(fnum<#bvl)then --***set
  for i=fnum+1,#bvl do
   bvl[i]=null
  end
 end
end

fr0=fr%fnum+1 --***set
for i=1,div do
 bvl[fr0][i]=math.abs(buf[i])
 bv=0
 if(fnum<=1)then fnum=1 end --***set
 if(fnum>=fr+1)then fnum=fr+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
 
------------------------------------action start
 bunkatsu=t0
 retsu=math.floor(i/bunkatsu)+1
 retsuc=360/bunkatsu
 if(chk1==1)then
  if(retsu%2==0)then
   vr=1
  else
   vr=-1
  end
 else
  vr=1
 end
 ang=(360*i/div*retsuc+bsum/(retsu*nebari)^2)*vr-90
 
 r=math.rad(ang)
 cs=math.cos(r)*t2*retsu
 sn=math.sin(r)*t2*retsu

 dx=cs
 dy=sn
 rz=ang

 rr=obj.rand(cmin,255,sd,i)
 gg=obj.rand(cmin,255,sd+1,i)
 bb=obj.rand(cmin,255,sd+2,i)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 al=colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
  al=0
 end
 col=RGB(rr,gg,bb)

 if(chk2==1)then
  fgs0=fgs1*colc
  if(fgs0<=fgs1/2)then fgs0=fgs1/2 end
 else
  fgs0=fgs1
 end

 obj.load("figure",fig,col,fgs0,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,al,0,0,rz)

 if(obj.check0)then
  obj.setfont("",fgs1/2)
  obj.load("text",math.floor(bv))
  obj.draw(dx,dy)
 end
 bsum=bsum+bv*bcor2
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
--[[http://madeinpc.blog50.fc2.com/]]--