@SR01 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,1,1024,20,0.01
--track2:—”,1,1000,100,1
--track3:Šξ€’l,0,4096,120,0.1
--check0:Info,1
--dialog:}Œ`‘I‘π/fig,fig="‰~";Šξ–{}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=2;seed,sd=500;F•Ο‰»/chk,chk1=1;•`‰ζ—ΜˆζX,ww=1.50;•`‰ζ—ΜˆζY,hh=1.50;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
if(chk1==1)then sd=sd+obj.time end
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(obj.check0)then
 for i=1,div do
  bv=buf[i]/bcor
  len=math.floor(bv/fgs1)
  for j=0,len do
   dx=sw*(i-1)/(div-1)-sw/2
   dy=sh/2-fgs1*(j+1/2)
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
   obj.load("figure",fig,col,fgs1,fgs2)
   obj.draw(dx,dy)
  end
 end

 obj.load("figure","ŽlŠpŒ`",0xffb300,sw)
 obj.aspect=-0.998
 dx=0
 lmx=sh/2-fgs1/2-t3
 dy=lmx
 obj.draw(dx,dy)

 obj.setfont("",24)
 obj.load("text","Šξ€’l:"..t3)
 dx=-sw/2.5
 dy=dy+24
 obj.draw(dx,dy)
end

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=1,div do
 bv=buf[i]/bcor
 len=math.floor(bv/fgs1)
 for j=0,len-1 do

--  dx=sw*(i-1)/(div-1)-sw/2
  dy=sh/2-fgs1*j

  lmx=sh/2-fgs1/2-t3
   if(lmx>=dy)then
    fgs=fgs1*j*obj.rand(1,t2,sd*i,j)/100
    if(fgs>sh)then fgs=sh end
    if(fgs<fgs1)then fgs=fgs1 end

    col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
    obj.load("figure",fig,col,fgs,fgs2)
    px=obj.rand(-sw/2,sw/2,sd,i*(j+1))
    py=obj.rand(-sh/2,sh/2,sd*2,i*(j+1))
    rz=obj.rand(-360,360,sd*i,i*(j+1))
    obj.setoption("blend","alpha_add")
--    obj.setoption("blend",1)
    obj.draw(px,py,0,1,1,0,0,rz)
   end
 end
end
obj.load("tempbuffer")
------------------------------------

@SR02 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,1,1024,20,0.01
--track2:—”,1,1000,500,1
--track3:Šξ€’l,0,4096,0,0.1
--check0:Info,0
--dialog:}Œ`‘I‘π/fig,fig="‰~";Šξ–{}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=2;seed,sd=500;F•Ο‰»/chk,chk1=1;•`‰ζ—ΜˆζX,ww=1.50;•`‰ζ—ΜˆζY,hh=1.50;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
if(chk1==1)then sd=sd+obj.time end
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(obj.check0)then
 for i=1,div do
  bv=buf[i]/bcor
  len=math.floor(bv/fgs1)
  for j=0,len do
   dx=sw*(i-1)/(div-1)-sw/2
   dy=sh/2-fgs1*(j+1/2)
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
   obj.load("figure",fig,col,fgs1,fgs2)
   obj.draw(dx,dy)
  end
 end

 obj.load("figure","ŽlŠpŒ`",0xffb300,sw)
 obj.aspect=-0.998
 dx=0
 lmx=sh/2-fgs1/2-t3
 dy=lmx
 obj.draw(dx,dy)

 obj.setfont("",24)
 obj.load("text","Šξ€’l:"..t3)
 dx=-sw/2.5
 dy=dy+24
 obj.draw(dx,dy)
end

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=1,div do
 bv=buf[i]/bcor
 len=math.floor(bv/fgs1)
 for j=0,len-1 do

  dx=sw*(i-1)/(div-1)-sw/2
  dy=sh/2-fgs1*j

  lmx=sh/2-fgs1/2-t3
   if(lmx>=dy)then
    fgs=fgs1*j*obj.rand(1,t2,sd*i,j)/t2
    if(fgs>sh)then fgs=sh end
    if(fgs<fgs1)then fgs=fgs1 end

    ang=obj.rand(-360,360,sd*j,i)
    r=math.rad(ang)
    cs=math.cos(r)
    sn=math.sin(r)
    dx=dx+cs*fgs1*j
    dy=dy+sn*fgs1*j

    col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
    obj.load("figure",fig,col,fgs,fgs2)
-- obj.setoption("blend","alpha_add")
    obj.setoption("blend",1)
    obj.draw(dx,dy)
   end

 end
end
obj.load("tempbuffer")
------------------------------------

@SR03 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,120,1
--track1:Buf•β³,1,1024,20,0.01
--track2:—”,1,1000,500,1
--track3:»²½ή•β³,1,4096,10,0.01
--check0:Info,1
--dialog:•`‰ζ–§“x,jk=4;}Œ`‘I‘π/fig,fig="‰~";Šξ–{}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=2;seed,sd=500;F•Ο‰»/chk,chk1=1;»²½ή•Ο‰»/chk,chk2=1;ˆΚ’u•Ο‰»‘¬“x,spd=5;•`‰ζ—ΜˆζX,ww=1.50;•`‰ζ—ΜˆζY,hh=1.50;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3/10
sw=obj.screen_w
sh=obj.screen_h
if(chk1==1)then sd=sd+obj.time end
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(obj.check0)then
 sw=sw*1.2
 sh=sh*1.2
end

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)

for i=1,div do
 num=(i+math.floor(obj.time*spd))%div+1
 bv=buf[num]/bcor
 len=math.floor(bv/fgs1)

 for j=0,len,jk do
 if(i<=div/4)then
  dx=sw*(i-1)/(div/4-1)-sw/2
  dy=sh/2-fgs1*(j+1/2)
 elseif(i<=div/2)then
  dx=-sw/2+fgs1*(j+1/2)
  dy=sh*(i-1)/(div/4-1/2)-sh*3/2
 elseif(i<=div*3/4)then
  dx=sw*(i-1)/(div/4-0.125)-sw*5/2
  dy=-sh/2+fgs1*(j+1/2)
 elseif(i<=div)then
  dx=sw/2-fgs1*(j+1/2)
  dy=sh*(i-1)/(div/4-0.125)-sh*7/2
 end

 if(chk2==1)then
  fgs=fgs1*j*obj.rand(1,t2,sd*i,j)/t2/t3
 else
  fgs=fgs1*j/t3
 end
 if(fgs>sh)then fgs=sh end
 if(fgs<fgs1)then fgs=fgs1 end

 col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
 obj.load("figure",fig,col,fgs,fgs2)
-- obj.setoption("blend","alpha_add")
 obj.setoption("blend",1)
 obj.draw(dx,dy)
 
 end
end
obj.load("tempbuffer")
------------------------------------



@SR04 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,1,1024,20,0.01
--track2:—”,1,1000,180,1
--track3:»²½ή•β³,1,4096,100,0.1
--check0:Info,0
--dialog:•`‰ζ–§“x,jk0=45;}Œ`‘I‘π/fig,fig="‰~";Šξ–{}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=2;seed,sd=500;F•Ο‰»/chk,chk1=1;»²½ή•Ο‰»/chk,chk2=1;•`‰ζ—ΜˆζX,ww=1.50;•`‰ζ—ΜˆζY,hh=1.50;Šξ€ό,rl=100;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
if(chk1==1)then sd=sd+obj.time end
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(obj.check0)then
 for i=1,div do
  bv=buf[i]/bcor
  len=math.floor(bv/fgs1)
  for j=0,len do
   dx=sw*(i-1)/(div-1)-sw/2
   dy=sh/2-fgs1*(j+1/2)
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
   obj.load("figure",fig,col,fgs1,fgs2)
   obj.draw(dx,dy)
  end
 end

 obj.load("figure","ŽlŠpŒ`",0xffb300,sw)
 obj.aspect=-0.998
 dx=0
 lmx=sh/2-fgs1/2-rl
 dy=lmx
 obj.draw(dx,dy)

 obj.setfont("",24)
 obj.load("text","Šξ€’l:"..rl)
 dx=-sw/2.5
 dy=dy+24
 obj.draw(dx,dy)
end

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=1,div do
 bv=buf[i]/bcor
 len=math.floor(bv)
 if(len>=179)then len=179 end
 jk=math.floor(jk0/fgs1)
 if(jk<=1)then jk=1 end
 for j=0,len-1,jk do
  lmx=sh/2-fgs1/2-rl
  if(lmx<=bv)then
   rndr=obj.rand(1,t2,sd*j,i)
  else
   rndr=0
  end

  r=math.rad(j+90+rndr)
  if(i%2==1)then r=-r end
  cs=math.cos(r)
  sn=math.sin(r)

  
  
  dst=i/div*sw/2
  dx=dst*sn
--  dy=dst*cs+sh/2-fgs1/2
  dy=dst*cs

  fgs=fgs1*(math.sqrt(i^3)+j)/t3
  if(fgs>sh/8)then fgs=sh/8 end
  if(fgs<fgs1)then fgs=fgs1 end

  col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
  obj.load("figure",fig,col,fgs,fgs2)
  obj.setoption("blend",1)
  obj.draw(dx,dy)

 end
end
obj.load("tempbuffer")
------------------------------------

@SR05 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf•β³,1,1024,20,0.01
--track2:—”,1,1000,500,1
--track3:Šξ€’l,1,4096,30,0.01
--check0:Info,1
--dialog:•`‰ζ–§“x,jk=4;}Œ`‘I‘π/fig,fig="‰~";Šξ–{}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=2;seed,sd=500;F•Ο‰»/chk,chk1=1;»²½ή•Ο‰»/chk,chk2=1;ˆΚ’u•Ο‰»‘¬“x,spd=5;•`‰ζ—ΜˆζX,ww=1.50;•`‰ζ—ΜˆζY,hh=1.50;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
if(chk1==1)then sd=sd+obj.time end
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(obj.check0)then
 for i=1,div do
  bv=buf[i]/bcor
  len=math.floor(bv/fgs1)
  for j=0,len do
   dx=sw*(i-1)/(div-1)-sw/2
   dy=sh/2-fgs1*(j+1/2)
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
   obj.load("figure",fig,col,fgs1,fgs2)
   obj.draw(dx,dy)
  end
 end

 obj.load("figure","ŽlŠpŒ`",0xffb300,sw)
 obj.aspect=-0.998
 dx=0
 lmx=sh/2-fgs1/2-t3
 dy=lmx
 obj.draw(dx,dy)

 obj.setfont("",24)
 output="Šξ€’l:"..t3
 obj.load("text",output)
 dx=-sw/2.5
 dy=dy+24
 obj.draw(dx,dy)
end


obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=1,div do
 num=(i+math.floor(obj.time*spd))%div+1
 bv=buf[num]/bcor+1
 len=math.floor(bv/fgs1)

 for j=1,len,jk do
  fgs=fgs1*j*obj.rand(1,t2,sd*i,j)/t2
  if(fgs>sh)then fgs=sh end
  if(fgs<fgs1)then fgs=fgs1 end


  lmx=sh/2-fgs1/2-t3
  dy=sh/2-fgs1*j
  if(lmx>=dy)then
   iki=obj.rand(0,99,sd,i)
   ang=90*obj.rand(0,3,sd*4,i)
   r=math.rad(ang)
   if(iki<=50)then
    sn=math.sin(r)
    dx=obj.rand(-sw/2,sw/2,sd,i)
    dy=obj.rand(-sh/2,sh/2,sd,i)-(j-1)*fgs1*sn
   else
    cs=math.cos(r)
    dx=obj.rand(-sw/2,sw/2,sd,i)+(j-1)*fgs1*cs
    dy=obj.rand(-sh/2,sh/2,sd,i)
   end
   
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
   obj.load("figure",fig,col,fgs,fgs2)
  -- obj.setoption("blend","alpha_add")
   obj.setoption("blend",1)
   obj.draw(dx,dy)
  end
 end
end
obj.load("tempbuffer")
------------------------------------

@SR06 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,100,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:d—Ν,-1024,2048,50,0.01
--track3:Šξ€’l,0,4096,50,1
--check0:ΧέΐήΡ•ϊŽΛ,1
--dialog:Œp‘±ŽžŠΤ,etime=3.00;Color/col,col=0xffffff;seed,sd=100;}Œ`‘I‘π/fig,fig="‰~";}Œ`»²½ή,fgs1=20;}Œ`•,fgs2=1000;‰‘¬,spd=100;•Ο‘¬/chk,chk1=1;’†SŒa,rdst=0.0;•ϊŽΛ”ΝˆΝ,ang0=360;”­ΆˆΚ’uΧέΐήΡ‰»/chk,chk2=0;FΧέΐήΡ‰»/chk,chk3=0;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,hh=1.00;
------------------------------------set
t0=obj.track0
t1=obj.track1
gg=obj.track2
ref=obj.track3
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
div=t0
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(etime<=0)then etime=0.01 end
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
obj.setoption("blend","alpha_add")

if(timel1==null)then timel1={} end
if(timel2==null)then timel2={} end
if(dtl==null)then dtl={} end
if(idxl==null)then idxl={} end
if(flagl==null)then flagl={} end
if(bvl==null)then bvl={} end
if(spdl==null)then spdl={} end
local fr=obj.time
for i=1,div do
 if(obj.frame==0)then
  timel1[i]=fr
  timel2[i]=fr
  dtl[i]=0
  idxl[i]=1
  flagl[i]=false
  bvl[i]=0
  spdl[i]=0
 end

bvl[i]=buf[i]/bcor
if(bvl[i]>=ref and flagl[i]==false)then
 timel1[i]=fr
 flagl[i]=true
 if(chk1==0)then
  spdl[i]=spd
 else
  spdl[i]=obj.rand(spd/10,spd*2,sd,i)
 end
end

if(flagl[i]==true)then
 timel2[i]=fr
 dtl[i]=math.floor((timel2[i]-timel1[i])*1000)/1000
---*** Start main
 if(obj.check0)then
  ang=obj.rand(-ang0,ang0,sd,i)-90
 else
  ang=ang0*i/div-90
 end
 r=math.rad(ang)
 cs=math.cos(r)
 sn=math.sin(r)
 if(sn>=0)then sn=-sn end
 
 if(chk2==0)then
  rndx=0
  rndy=0
 else
  rndx=obj.rand(-sw/4*ww,sw/4*ww,sd,i)
  rndy=obj.rand(-sh/4*hh,sh/4*hh,sd,i)
 end
 dx=cs*(spdl[i]*dtl[i]+rdst)	+rndx
 dy=sn*(spdl[i]*dtl[i]+rdst)	+gg/2*dtl[i]^2	+rndy
 al=1-dtl[i]/etime
 rz=-ang
 
 if(chk3==1)then
  col="0x"..string.format("%06x",obj.rand(0,16777215,sd+idxl[i],i))
 end
 fgs=fgs1*(1-dtl[i]/etime/2)
 obj.load("figure",fig,col,fgs,fgs2)
 if(dtl[i]<=etime)then
  obj.draw(dx,dy,0,1,al,0,0,rz)
 end


---*** End main
  if(dtl[i]>=etime)then
   timel1[i]=fr
   flagl[i]=false
   idxl[i]=idxl[i]+1
  end
 end
end
-------------------------------------
obj.load("tempbuffer")



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