@SH01 kerokero9696
--track0:太さ,1,100,8,1
--track1:大きさ,1,1000,50,0.1
--track2:Buf補正,0.01,1024,50,0.01
--track3:音分割数,1,1024,40,1
--check0:ｽﾃﾝﾄﾞｸﾞﾗｽ風,0
--dialog:描画密度,ik=1.00;X係数,xcoef=16;Y係数1,ycoef1=13;Y係数2,ycoef2=4;Y係数3,ycoef3=2;Color/col,col=0xff6a00;seed,sd=100;領域係数,ss=40;FrameSpd,spd=1.00;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
t2=obj.track2
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
------------------------------------
div=t3
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw,sh)
fr=math.floor(obj.time*spd)+1
for i=0,359,ik do
 r=math.rad(i)
 dx=xcoef*math.sin(r)^3
 dy=ycoef1*math.cos(r)-ycoef2*math.cos(r*2)-ycoef3*math.cos(3*r)-math.cos(4*r)

 if(obj.check0)then
  rnd=obj.rand(1,1000,i,sd)
  colR=obj.rand(0,255,sd+i,i*rnd)
  colB=obj.rand(0,255,sd+i*2,i*rnd)
  colG=obj.rand(0,255,sd+i*3,i*rnd)
  col=RGB(colR,colG,colB)
 end
 
 r1=math.rad(obj.rand(-360,360,sd*i,fr))
 cs1=math.cos(r1)
 sn1=math.sin(r1)
 num=obj.rand(1,div,sd,i)
 bv=buf[num]/t2+1

 dx=dx*t1+cs1*bv
 dy=dy*t1+sn1*bv
 obj.load("figure","円",col,t0)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)
end
------------------------------------
obj.load("tempbuffer")
obj.rz=obj.rz+180

@SH02 kerokero9696
--track0:太さ,1,100,8,1
--track1:大きさ,1,1000,50,0.1
--track2:Buf補正,0.01,1024,10,0.01
--track3:音分割数,1,1024,40,1
--check0:ｽﾃﾝﾄﾞｸﾞﾗｽ風,0
--dialog:初期位置,pp=1000;描画密度,ik=1.00;X係数,xcoef=16;Y係数1,ycoef1=13;Y係数2,ycoef2=4;Y係数3,ycoef3=2;Color/col,col=0xff6a00;seed,sd=100;領域係数,ss=40;FrameSpd,spd=1.00;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
t2=obj.track2
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
------------------------------------
div=t3
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw,sh)
fr=math.floor(obj.time*spd)+1
for i=0,359,ik do
 r=math.rad(i)
 dx=xcoef*math.sin(r)^3
 dy=ycoef1*math.cos(r)-ycoef2*math.cos(r*2)-ycoef3*math.cos(3*r)-math.cos(4*r)

 if(obj.check0)then
  rnd=obj.rand(1,1000,i,sd)
  colR=obj.rand(0,255,sd+i,i*rnd)
  colB=obj.rand(0,255,sd+i*2,i*rnd)
  colG=obj.rand(0,255,sd+i*3,i*rnd)
  col=RGB(colR,colG,colB)
 end
 
 r1=math.rad(obj.rand(-360,360,sd*i,fr))
 cs1=math.cos(r1)
 sn1=math.sin(r1)
 num=obj.rand(1,div,sd,i)
 bv=buf[num]/t2+1

 dx=dx*t1+cs1*pp/bv
 dy=dy*t1+sn1*pp/bv
 obj.load("figure","円",col,t0)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)
end
------------------------------------
obj.load("tempbuffer")
obj.rz=obj.rz+180


@SH03 kerokero9696
--track0:太さ,1,100,2,1
--track1:大きさ,1,1000,15,0.1
--track2:Buf補正,0.01,1024,50,0.01
--track3:音分割数,1,1024,24,1
--check0:ｶﾗﾌﾙ⇔単色,1
--dialog:Color/col,col=0xffffff;Seed,sd=100;FrameSpd,spd=5.00;HX係数,xcoef=16;HY係数1,ycoef1=13;HY係数2,ycoef2=4;HY係数3,ycoef3=2;領域係数X,ww=1.20;領域係数Y,hh=1.20;波高係数,wh=20;
----------------------------
fgs=math.floor(obj.track0)
t1=obj.track1/20
t2=obj.track2
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
-- "pcm"=PCMサンプリングデータ(16bitモノラル)
-- "spectrum"=周波数毎の音量データ
-- "fourier"=音声を離散フーリエ変換したデータ(sizeの指定は不要)

buf={}
div=t3
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------script
rng=(t1*20+fgs)*2
obj.setoption("drawtarget","tempbuffer",rng,rng)
obj.load("figure","円",col,fgs)
for i=0,359 do
 r=math.rad(i)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=xcoef*math.sin(r)^3
 dy=ycoef1*math.cos(r)-ycoef2*math.cos(r*2)-ycoef3*math.cos(3*r)-math.cos(4*r)
 obj.setoption("blend","alpha_add")
 obj.draw(dx*t1,-dy*t1)
end
obj.load("tempbuffer")

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
dst=t1*wh
spd=obj.frame*spd
for i=0,sw,rng/1.25 do
 r=math.rad(i+spd)
 cs=math.cos(r)
 sn=math.sin(r)

 num=math.floor((div-1)*i/sw)+1
 bv=buf[num]/t2

 dx=-sw/2+i
 dy=sn*(bv+dst)
 rz=i+spd+bv

 if(obj.check0)then
  rnd=obj.rand(1,1000,i,sd)
  colR=obj.rand(0,255,sd+i,i*rnd)
  colB=obj.rand(0,255,sd+i*2,i*rnd)
  colG=obj.rand(0,255,sd+i*3,i*rnd)
  col=RGB(colR,colG,colB)
  obj.effect("単色化","color",col)
 end

 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,1,0,0,rz)
end
obj.load("tempbuffer")


@SH04 kerokero9696
--track0:太さ,1,100,2,1
--track1:大きさ,1,1000,30,0.1
--track2:Buf補正,0.01,1024,50,0.01
--track3:音分割数,1,1024,36,1
--check0:ｶﾗﾌﾙ⇔単色,1
--dialog:Color/col,col=0xffffff;Seed,sd=100;FrameSpd,spd=2.50;HX係数,xcoef=16;HY係数1,ycoef1=13;HY係数2,ycoef2=4;HY係数3,ycoef3=2;領域係数X,ww=1.20;領域係数Y,hh=1.20;中心係数,wh=35;
----------------------------
fgs=math.floor(obj.track0)
t1=obj.track1/20
t2=obj.track2
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
-- "pcm"=PCMサンプリングデータ(16bitモノラル)
-- "spectrum"=周波数毎の音量データ
-- "fourier"=音声を離散フーリエ変換したデータ(sizeの指定は不要)

buf={}
div=t3
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------script
rng=(t1*20+fgs)*2
obj.setoption("drawtarget","tempbuffer",rng,rng)
obj.load("figure","円",col,fgs)
for i=0,359 do
 r=math.rad(i)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=xcoef*math.sin(r)^3
 dy=ycoef1*math.cos(r)-ycoef2*math.cos(r*2)-ycoef3*math.cos(3*r)-math.cos(4*r)
 obj.setoption("blend","alpha_add")
 obj.draw(dx*t1,-dy*t1)
end
obj.load("tempbuffer")

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
dst=t1*wh
spd=obj.frame*spd
num=1
for i=0,359,360/div do
 r=math.rad(i-90+spd)
 cs=math.cos(r)
 sn=math.sin(r)

 bv=buf[num]/t2

 dx=cs*(bv+dst)
 dy=sn*(bv+dst)
 rz=i-spd
 
 if(obj.check0)then
  rnd=obj.rand(1,1000,i,sd)
  colR=obj.rand(0,255,sd+i,i*rnd)
  colB=obj.rand(0,255,sd+i*2,i*rnd)
  colG=obj.rand(0,255,sd+i*3,i*rnd)
  col=RGB(colR,colG,colB)
  obj.effect("単色化","color",col)
 end

 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,1,0,0,rz)
 num=num+1
end
obj.load("tempbuffer")


@SH05 kerokero9696
--track0:太さ,1,100,1,1
--track1:大きさ,1,1000,10,0.1
--track2:Buf補正,0.1,1024,100,0.01
--track3:音分割数,1,1024,30,1
--check0:展開ﾊﾟﾀｰﾝ,1
--dialog:Color/col,col=0xffffff;Seed,sd=100;FrameSpd,spd=2.50;HX係数,xcoef=16;HY係数1,ycoef1=13;HY係数2,ycoef2=4;HY係数3,ycoef3=2;領域係数X,ww=1.20;領域係数Y,hh=1.20;中心係数,wh=35;
----------------------------
fgs=math.floor(obj.track0)
t1=obj.track1/20
t2=obj.track2/10
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
-- "pcm"=PCMサンプリングデータ(16bitモノラル)
-- "spectrum"=周波数毎の音量データ
-- "fourier"=音声を離散フーリエ変換したデータ(sizeの指定は不要)

buf={}
div=t3
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------script
rng=(t1*20+fgs)*2
obj.setoption("drawtarget","tempbuffer",rng,rng)
obj.load("figure","円",col,fgs)
for i=0,359 do
 r=math.rad(i)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=xcoef*math.sin(r)^3
 dy=ycoef1*math.cos(r)-ycoef2*math.cos(r*2)-ycoef3*math.cos(3*r)-math.cos(4*r)
 obj.setoption("blend","alpha_add")
 obj.draw(dx*t1,-dy*t1)
end
obj.load("tempbuffer")
w=obj.w

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
dst=t1*wh
spd=obj.frame*spd

num=1
for i=0,359,360/div do
 bv=buf[num]/t2
 len=math.floor(bv/w)+1
 for j=0,len do
 r=math.rad(i-90+spd)
 cs=math.cos(r)
 sn=math.sin(r)

  rz=i-spd+j

 if(j%2==0)then
  dx=cs*(j*w+dst)
  dy=sn*(j*w+dst)
 else
  if(obj.check0)then
   dx=cs*(j*w+dst)
   dy=sn*(j*w+dst)
  else
   dx=-cs*(j*w+dst)
   dy=-sn*(j*w+dst)
  end
 end
 
  rnd=obj.rand(1,1000,i,sd)
  colR=obj.rand(0,255,sd+i,i*rnd)
  colB=obj.rand(0,255,sd+i*2,i*rnd)
  colG=obj.rand(0,255,sd+i*3,i*rnd)
  col=RGB(colR,colG,colB)
  obj.effect("単色化","color",col)

 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,1,0,0,rz)

 end
 num=num+1
end
obj.load("tempbuffer")



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