@SLA01 kerokero9696
--track0:•‘ŽG«,100,4000,100,1
--track1:Buf•β³,1,1000,100,0.01
--track2:Buf”ԍ†,1,1024,20,1
--track3:’·‚³,1,1000,50,1
--check0:Žc‘œŠ΄,0;
--dialog:Žζ“ΎΜΪ°Ρ,fnum=3;‰Ή•ͺŠ„”,local div=40;–§“x,local t3=100;}Œ`‘I‘π/fig,fig="‰~";ΧέΐήѐF/chk,chk1=1;Color/col,col=0xffffff;»²½ή•Ο‰»/chk,chk2=1;»²½ή,fgs1=20;ό•,fgs2=2;SEED,sd=100;X•`‰ζ”ΝˆΝŒW”,ww=1.00;Y•`‰ζ”ΝˆΝŒW”,hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local bcor=obj.track1
local bnum=math.floor(obj.track2)
if(div<=bnum)then bnum=div end
local t2=math.floor(obj.track3)
if(t2>=t3)then t2=t3 end
local sw=obj.screen_w
local sh=obj.screen_h
local buf={}
local abm="spectrum" --pcm,spectrum,fourier
local n=obj.getaudio(buf,"audiobuffer",abm,div)
------------------------------------script
if(bvl==null)then bvl={} end --***set
if(bvs==null)then bvs={} end

if(obj.frame==0)then
 bvs[obj.layer]=0
 bvl[obj.layer]={}
end

local fr=obj.frame
fr0=fr%fnum+1 --***set
bvl[obj.layer][fr0]=math.abs(buf[bnum])
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[obj.layer][k]
end
bv=bv/fnum/bcor
if(bv<=0)then bv=0.01 end
bvs[obj.layer]=bvs[obj.layer]+bv
------------------------------------
sw=sw*ww
sh=sh*hh
obj.setoption("drawtarget","tempbuffer",sw,sh)

if(xxx==null)then xxx={} end
if(yyy==null)then yyy={} end
if(zzz==null)then zzz={} end

for i=1,t0 do
 xxx[i]=obj.rand(-sw/2,sw/2,sd,i)
 yyy[i]=obj.rand(-sh/2,sh/2,sd,i)
 zzz[i]=obj.rand(-t3/2,t3/2,sd,i)
end

if(t0<#xxx)then
 for i=t0+1,#xxx do
  xxx[i]=null
  yyy[i]=null
  zzz[i]=null
 end
end

if(obj.frame==0)then
 xx,yy,zz=null,null,null
end

anc=#xxx
nidx=0
nidx2=0

n=t3-1
ik=1
for j=1,anc do
 for i=0,n,ik do
  tm=i/n
  cp=anc*(n-1)

  if((bvs[obj.layer])%cp<=nidx and nidx<=(bvs[obj.layer])%cp+t2)then
   xx,yy,zz=obj.interpolation(tm,xxx[j],yyy[j],zzz[j],xxx[j+1],yyy[j+1],zzz[j+1],xxx[j+2],yyy[j+2],zzz[j+2],xxx[j+3],yyy[j+3],zzz[j+3])

   if(chk1==1)then
    r=obj.rand(128,255,sd,j)
    g=obj.rand(128,255,sd*2,j)
    b=obj.rand(128,255,sd*3,j)
    col0=RGB(r,g,b)
   else
    col0=col
   end

   if(chk2==1)then
    fgs0=fgs1*nidx2/t2
   else
    fgs0=fgs1
   end


   if(obj.check0)then
    al=nidx2/t2
   else
    al=1
   end

   obj.load("figure",fig,col0,fgs0,fgs2)
   obj.draw(xx,yy,zz,1,al)
   nidx2=nidx2+1
  end
  nidx=nidx+1
 end
end
obj.load("tempbuffer")

@SAveBuf-GUID kerokero9696
--track0:‰Ή•ͺŠ„”,1,4096,40,1
--track1:Buf•β³,1,4096,25,0.01
--track2:Šξ€ό1,0,4096,100,1
--track3:Šξ€ό2,0,4096,250,1
--dialog:Žζ“ΎΜڰѐ”,fnum=6;•ΆŽš»²½ή,fs=12;•ΆŽšŠΤŠu,dst=1.30;Color1/col,col1=0x000000;Color2/col,col2=0xffffff;
------------------------------------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 div=t0
local bcor=t1
local buf={}
local abm="spectrum" --pcm,spectrum,fourier
local n=obj.getaudio(buf,"audiobuffer",abm,div)
------------------------------------script
if(bvle==null)then
 bvle={}
end

if(obj.frame==0)then
 for i=1,fnum do
  bvle[i]={}
 end

 if(fnum<#bvle)then
  for i=fnum+1,#bvle do
   bvle[i]=null
  end
 end
end

for i=0,1 do
 dx=0
 if(i==0)then
  col0=0xffd600
  dy=sh/2-t2
 else
  col0=0xff0000
  dy=sh/2-t3
 end
 obj.load("figure","ŽlŠpŒ`",col0,sw)
 obj.aspect=-0.995
 obj.draw(dx,dy)

 dx=-sw/2+fs*2
 output=""..math.abs(dy-sh/2)
 obj.setfont("",fs,3,col0,col1)
 obj.load("text",output)
 obj.draw(dx,dy)
end

local fr=obj.frame
fr0=fr%fnum+1
for i=1,div do
 bvle[fr0][i]=math.abs(buf[i])
 if(fnum<=1)then fnum=1 end
 if(fnum>=fr+1)then fnum=fr+1 end --***set
 bv=0
 for k=1,fnum do
  bv=bv+bvle[k][i]
 end
 bv=math.floor(bv/fnum/bcor*1000)/1000

 dx=(i-div/2-1/2)*fs*dst
 dy=sh/2-fs*3/2	-bv
 
 if(bv>=t3)then
  col0=0xff0000
 elseif(bv>=t2)then
  col0=0xffd600
 else
  col0=col2
 end
 
 obj.setfont("",fs,3,col1,col0)
 obj.load("text",i)
 obj.draw(dx,dy)

 dy=sh/2-fs/2	-bv
 obj.setfont("",fs,0,col0)
 obj.load("text",math.floor(bv))
 obj.draw(dx,dy)
end

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