@SSTC01 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,70,1
--track1:Buf•β³,0.01,1024,100,0.01
--track2:—ρ”,1,1024,5,1
--track3:Šξ€’l,1,2048,100,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";»²½ή,local fgs1=40;ό•,local fgs2=1000;ŠΤŠuŒW”,dstc=1.20;X”ΝˆΝŒW”,local ww=1.00;Y”ΝˆΝŒW”,local hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local 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
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local dst=fgs1*dstc
local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 dx=math.floor((i-1)%t2)*dst	-dst*t2/2+dst/2
 dy=math.floor((i-1)/t2)*dst	-dst*math.ceil(div/t2)/2+dst/2
 rr,gg,bb=RGB(col1)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 obj.load("figure",fig,col,fgs1,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)

 if(obj.check0)then
  obj.setfont("",fgs1*0.5)
  obj.load("text",math.floor(bv))
  obj.setoption("blend","alpha_sub")
  obj.draw(dx,dy)
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1


@SSTC02 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,70,1
--track1:Buf•β³,0.01,1024,100,0.01
--track2:s”,1,1024,14,1
--track3:Šξ€’l,1,2048,100,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";»²½ή,local fgs1=40;ό•,local fgs2=1000;ŠΤŠuŒW”,local dstc=1.20;X”ΝˆΝŒW”,local ww=1.00;Y”ΝˆΝŒW”,local hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local 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
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local dst=fgs1*dstc
local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 dy=math.floor((i-1)%t2)*dst	-dst*t2/2+dst/2
 dx=math.floor((div-i)/t2)*dst	-dst*math.ceil(div/t2)/2
 rr,gg,bb=RGB(col1)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 obj.load("figure",fig,col,fgs1,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)

 if(obj.check0)then
  obj.setfont("",fgs1/2)
  obj.load("text",math.floor(bv))
  obj.setoption("blend","alpha_sub")
  obj.draw(dx,dy)
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1



@SSTC03 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,0.01,1024,50,0.01
--track2:ŠΤŠu,-1024,1024,0,0.01
--track3:Šξ€’l,1,2048,50,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;Œό‚«/chk,chk1=1;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="‰~";»²½ή,local fgs1=40;ό•,local fgs2=1000;»²½ήŒW”,local fgsc=5.00;•`‰ζ”ΝˆΝX,local ww=1.00;•`‰ζ”ΝˆΝY,local hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=obj.track2
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local 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
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 rr,gg,bb=RGB(col1)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 jidx=0
 ang=360*i/div
 jk=fgs1*1.1
 for j=0,bv,jk do
  if(chk1==1)then
   j=-j
  end
  if(chk1==0)then
   fgs=fgs1-j/jk*fgsc
  else
   fgs=fgs1+j/jk*fgsc
  end
  if(fgs<2)then
   break
  end

  r=math.rad(ang)
  cs=math.cos(r)
  sn=math.sin(r)
  dst=div*4-t2
  dx=cs*(j+dst)
  dy=sn*(j+dst)
  rz=ang
  obj.load("figure",fig,col,fgs,fgs2)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy,0,1,1,0,0,rz)

 if(obj.check0)then
  obj.setfont("",fgs/2)
  obj.load("text",math.floor(bv))
  obj.setoption("blend","alpha_sub")
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
 jidx=jidx+1
end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1



@SSTC04 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:»²½ή,0,1024,30,1
--track3:Šξ€’l,1,2048,100,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";ό•,local fgs2=1000;ŠΤŠuŒW”,local dstc=1.20;X”ΝˆΝŒW”,local ww=1.00;Y”ΝˆΝŒW”,local hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/2
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)/2
local sw=obj.screen_w
local 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
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local fgs1=t2
local dst=fgs1*dstc
local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 rr,gg,bb=RGB(col1)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 jk=dst
 for j=0,bv,jk do
  dx=dst*i	-dst*div/2-dst/2
  dy=-j		+sh/2-dst/2

  obj.load("figure",fig,col,fgs1,fgs2)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy)

  if(obj.check0)then
    obj.setfont("",fgs1/2)
    obj.load("text",math.floor(bv))
    obj.setoption("blend","alpha_sub")
    obj.draw(dx,dy)
  end
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1


@SSTC05 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,10,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:•`‰ζ–§“x,1,120,72,1
--track3:Šξ€’l,1,2048,100,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="‰~";»²½ή,local fgs1=30;ό•,local fgs2=1000;ŠΤŠuŒW”,local dstc=1.00;’†S”ΌŒaŒW”,local rc=1.00;‘S‘ΜŒ`σ/chk,chk1=1;X”ΝˆΝŒW”,local ww=1.00;Y”ΝˆΝŒW”,local hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1 * 0.5
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local 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
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local dst=fgs1*dstc
local fr0=fr_cnt%fnum+1 --***set
for i=1,div do
 bvl[fr0][i]=buf[i]
 bv=0
 if(fnum<=1)then fnum=1 end --***set
 if(fnum>=fr_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 rr,gg,bb=RGB(col1)
 colc=bv/t3
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 if(chk1==0)then
  jlen=359
 else
  jlen=bv
 end
 for j=0,jlen,t2 do
  r=math.rad(j - 90)
  cs=math.cos(r)
  sn=math.sin(r)
  dx=(i+rc)*dst*cs
  dy=(i+rc)*dst*sn
  rz=j

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

  if(obj.check0)then
   obj.setfont("",fgs1/2)
   obj.load("text",math.floor(bv))
   obj.setoption("blend","alpha_sub")
   obj.draw(dx,dy,0,1,1,0,0,rz)
  end
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1


@SSTC06iƒJƒƒ‰§Œδj kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,200,1
--track1:Buf•β³,1,1024,50,0.01
--track2:”ΌŒa,-4096,4096,400,0.01
--track3:‰ρ“],-3600,3600,0,0.01
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;»²½ήŒW”,local fgsc=5.00;Color/col,col1=0xff7b00;Color/col,col2=0x000000;Šξ€’l,local ref=100;
-------------------------------------set
local t0=obj.track0
local t1=obj.track1
local t2=obj.track2
local t3=obj.track3
local sw=obj.screen_w
local sh=obj.screen_h
-------------------------------------
local div=t0
local bcor=t1
local buf={}
local abm="fourier" --pcm,spectrum,fourier
local n=obj.getaudio(buf,"audiobuffer",abm,div)
-------------------------------------script
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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


local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor

 rr,gg,bb=RGB(col1)
 if(ref<=0)then ref=1 end
 colc=bv/ref
 if(colc>=1)then colc=1 end
 rr=rr*colc
 gg=gg*colc
 bb=bb*colc
 if(colc<0.1)then
  rr,gg,bb=RGB(col2)
 end
 col=RGB(rr,gg,bb)

 local dst=t2
 local fgs=math.abs(dst/div*fgsc)
 ang=360/div*i+t3
 r=math.rad(ang)
 sn=math.sin(r)
 cs=math.cos(r)

 blen=math.floor(bv/fgs)
 for j=0,blen do
  if(buf[i]<=0)then
   j=-j
  end
  dx=dst*cs
  dy=-j*fgs
  dz=dst*sn
  ry=-ang+90
  obj.load("figure","ŽlŠpŒ`",col,fgs)
  obj.setoption("blend","alpha_sub")
  obj.draw(dx,dy,dz,1,1,0,ry)
 end
end
-------------------------------------
fr_cnt = fr_cnt + 1


@SSTC07 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,128,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:—ρ”,1,1024,128,1
--track3:Šξ€’l,1,2048,50,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,local fnum=6;F/col,col1=0xff6f00;“§–Ύ“x,alp0=0.00;}Œ`‘I‘π/fig,fig="‰~";»²½ή,local fgs1=32;ό•,local fgs2=1000;ŠΤŠuŒW”,local dstc=1.20;X”ΝˆΝŒW”,local ww=1.00;Y”ΝˆΝŒW”,local hh=1.00;ΧέΐήΡˆΚ’u/chk,chk1=1;SEED,sd=100;ˆΚ’u‚Έ‚η‚΅,local zrnum=0;ABM/chk,chk2=0;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
local div=t0
local bcor=t1
local buf={}
if(chk2==0)then
 local abm="spectrum" 
 local n=obj.getaudio(buf,"audiobuffer",abm,div)
else
 local abm="fourier" 
 local n=obj.getaudio(buf,"audiobuffer",abm)
end
------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
if(bvl==null)then --***set
 bvl={}
end

if(obj.frame == 0 or fr_cnt == null)then
  fr_cnt = 0
end

if(fr_cnt == 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

local dst=fgs1*dstc
local fr0=fr_cnt%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_cnt+1)then fnum=fr_cnt+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
------------------------------------action start
 i=(i+zrnum)%div+1
 if(chk1==0)then
  dx=math.floor((i-1)%t2)*dst	-dst*t2/2+dst/2
  dy=math.floor((i-1)/t2)*dst	-dst*math.ceil(div/t2)/2+dst/2
 else
  dx=obj.rand(-sw*ww/2,sw*ww/2,sd+t2,i)
  dy=obj.rand(-sh*hh/2,sh*hh/2,sd+t2,i)
 end
 alp=bv/t3
 if(alp>=1)then alp=1 end
 if(alp<0.1)then alp=alp0 end
 fgs=obj.rand(fgs1/4,fgs1,sd,i)
 if(fgs<4)then fgs=4 end
 obj.load("figure",fig,col1,fgs,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,alp)

 if(obj.check0)then
  obj.setfont("",fgs1/2)
  obj.load("text",math.floor(bv))
  obj.setoption("blend","alpha_sub")
  obj.draw(dx,dy)
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")
fr_cnt = fr_cnt + 1

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