@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:Žζ“ΎΜڰѐ”,fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";»²½ή,fgs1=20;ό•,fgs2=1000;ŠΤŠuŒW”,dstc=1.20;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,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)
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
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

dst=fgs1*dstc
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
 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/2)
  obj.load("text",math.floor(bv))
  obj.draw(dx,dy)
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")

@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:Žζ“ΎΜڰѐ”,fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";»²½ή,fgs1=20;ό•,fgs2=1000;ŠΤŠuŒW”,dstc=1.20;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,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)
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
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

dst=fgs1*dstc
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
 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.draw(dx,dy)
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")

@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:Žζ“ΎΜڰѐ”,fnum=6;Œό‚«/chk,chk1=1;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="‰~";»²½ή,fgs1=20;ό•,fgs2=1000;»²½ήŒW”,fgsc=1.50;•`‰ζ”ΝˆΝX,ww=1.00;•`‰ζ”ΝˆΝY,hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=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
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
 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<1)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.draw(dx,dy,0,1,1,0,0,rz)
 end
 jidx=jidx+1
end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")

@SSTC04 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,0.01,1024,100,0.01
--track2:»²½ή,0,1024,10,1
--track3:Šξ€’l,1,2048,100,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";ό•,fgs2=1000;ŠΤŠuŒW”,dstc=1.20;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,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
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
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

fgs1=t2
dst=fgs1*dstc
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
 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.draw(dx,dy)
  end
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")


@SSTC05 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,20,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:•`‰ζ–§“x,1,120,6,1
--track3:Šξ€’l,1,2048,300,1
--check0:Guid,0
--dialog:Žζ“ΎΜڰѐ”,fnum=6;Ε‚F/col,col1=0xff6f00;”wŒiF/col,col2=0x111111;}Œ`‘I‘π/fig,fig="‰~";»²½ή,fgs1=10;ό•,fgs2=1000;ŠΤŠuŒW”,dstc=1.20;’†S”ΌŒaŒW”,rc=1.00;‘S‘ΜŒ`σ/chk,chk1=0;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,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)
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
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

dst=fgs1*dstc
fr0=fr%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+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
 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)
  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.draw(dx,dy,0,1,1,0,0,rz)
  end
 end
------------------------------------action end
end
------------------------------------
obj.load("tempbuffer")


@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:Žζ“ΎΜڰѐ”,fnum=6;»²½ήŒW”,fgsc=5.00;Color/col,col1=0xff7b00;Color/col,col2=0x000000;Šξ€’l,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

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

 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.draw(dx,dy,dz,1,1,0,ry)
 end
end
-------------------------------------



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