@SST01 kerokero9696
--track0:音分割数,1,1024,80,1
--track1:Buf補正,0.01,1024,100,0.01
--track2:図形ｻｲｽﾞ,1,1024,5,1
--track3:図形線幅,1,2048,100,1
--check0:Guid,1
--dialog:30fps/60fps/chk,chk1=0;ｶﾗﾌﾙ/chk,chk2=0;色/col,col1=0xff0000;seed,sd=100;図形選択/fig,fig="四角形";間隔X係数,dstxc=1.5;間隔Y係数,dstyc=1.0;
------------------------------------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,sh)
local fgs1=t2
local fgs2=t3
local dstx=fgs1*dstxc
local dsty=fgs1*dstyc
local fr=obj.frame

if(bvl==null)then
 bvl={}
end
bvl[fr]={}

for i=1,div do
 bv=buf[i]
 bvl[fr][i]=math.abs(bv)

if(chk1==0)then
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 end
else
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 elseif(obj.frame<=4)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 elseif(obj.frame<=5)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i])/5
 elseif(obj.frame<=6)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i])/6
 elseif(obj.frame<=7)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i])/7
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i]+bvl[fr-7][i])/8
 end
end

 if(chk2==1)then
  col1="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
 end
 bvlen=math.floor(bvlen)/bcor
 for j=0,bvlen do
  dx=i*dstx	-div*dstx/2-dstx/2
  dy=-j*dsty	+sh/2-dsty/2
  obj.load("figure",fig,col1,fgs1,fgs2)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy)
 end
end

if(obj.check0)then
 fs=sh/24
 obj.setfont("",fs)
 output="滑らかな動きをさせるために連続したフレームのデータを取得しています。\n\nその為、編集中やプレビュー中にフレームが跳ぶと、\n数フレーム正しく画面が表示されないことがありますが、\n\n動画出力に影響はないはずです。"
 obj.load("text",output)
 obj.setoption("blend","alpha_add")
 obj.draw()
end
------------------------------------
obj.load("tempbuffer")

@SST02 kerokero9696
--track0:音分割数,1,1024,20,1
--track1:Buf補正,0.01,1024,100,0.01
--track2:図形ｻｲｽﾞ,1,1024,5,1
--track3:描画密度,1,60,5,1
--check0:Guid,1
--dialog:30fps/60fps/chk,chk1=0;ｶﾗﾌﾙ/chk,chk2=0;色変化速度,spd=5;グラフ色/col,col1=0xff0000;seed,sd=100;図形選択/fig,fig="四角形";間隔係数,rdstc=1.35;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
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,sh)
local fgs1=t2
local fr=obj.frame

if(bvl==null)then
 bvl={}
end
bvl[fr]={}

for i=1,div do
 bv=buf[i]
 bvl[fr][i]=math.abs(bv)

if(chk1==0)then
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 end
else
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 elseif(obj.frame<=4)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 elseif(obj.frame<=5)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i])/5
 elseif(obj.frame<=6)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i])/6
 elseif(obj.frame<=7)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i])/7
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i]+bvl[fr-7][i])/8
 end
end

 rdst=(i+fgs1/2)*fgs1*rdstc
 bvlen=math.floor(bvlen)/bcor
 for j=0,bvlen,t3 do
  if(j>=359)then
   j=359
  end
  r=math.rad(j)
  cs=math.cos(r)
  sn=math.sin(r)

  dx=cs*rdst
  dy=sn*rdst
  rz=j

  if(chk2==1)then
   sd=math.floor(obj.time*spd)+1
   col1="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
  end
  if(bvlen>=1)then
   obj.load("figure",fig,col1,fgs1)
   obj.setoption("blend","alpha_add")
   obj.draw(dx,dy,0,1,1,0,0,rz)
  end
 end
end

if(obj.check0)then
 fs=sh/24
 obj.setfont("",fs)
 output="滑らかな動きをさせるために連続したフレームのデータを取得しています。\n\nその為、編集中やプレビュー中にフレームが跳ぶと、\n数フレーム正しく画面が表示されないことがありますが、\n\n動画出力に影響はないはずです。"
 obj.load("text",output)
 obj.setoption("blend","alpha_add")
 obj.draw()
end
------------------------------------
obj.load("tempbuffer")

@SST03 kerokero9696
--track0:音分割数,1,1024,20,1
--track1:Buf補正,0.1,1024,100,0.01
--track2:図形ｻｲｽﾞ,1,1024,5,1
--track3:描画密度,1,60,5,1
--check0:Guid,1
--dialog:30fps/60fps/chk,chk1=0;ｶﾗﾌﾙ/chk,chk2=0;グラフ色/col,col1=0xff0000;seed,sd=100;図形選択/fig,fig="四角形";間隔係数,rdstc=1.35;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
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,sh)
local fgs1=t2
local fr=obj.frame

if(bvl==null)then
 bvl={}
end
bvl[fr]={}
for i=1,div do
 bv=buf[i]
 bvl[fr][i]=math.abs(bv)

if(chk1==0)then
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 end
else
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 elseif(obj.frame<=4)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 elseif(obj.frame<=5)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i])/5
 elseif(obj.frame<=6)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i])/6
 elseif(obj.frame<=7)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i])/7
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i]+bvl[fr-7][i])/8
 end
end

 rdst=(i+fgs1/2)*fgs1*rdstc
 bvlen=math.floor(bvlen)/bcor
 for j=0,bvlen,t3 do
  if(j>=359)then
   j=359
  end

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

  dx=cs*rdst
  dy=sn*rdst

  if(chk2==1)then
   col1="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
  end
  obj.load("figure",fig,col1,fgs1)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
end

if(obj.check0)then
 fs=sh/24
 obj.setfont("",fs)
 output="滑らかな動きをさせるために連続したフレームのデータを取得しています。\n\nその為、編集中やプレビュー中にフレームが跳ぶと、\n数フレーム正しく画面が表示されないことがありますが、\n\n動画出力に影響はないはずです。"
 obj.load("text",output)
 obj.setoption("blend","alpha_add")
 obj.draw()
end
------------------------------------
obj.load("tempbuffer")


@SST04 kerokero9696
--track0:音分割数,1,1024,20,1
--track1:Buf補正,0.01,1024,100,0.01
--track2:図形ｻｲｽﾞ,1,1024,20,1
--track3:描画密度,1,60,20,1
--check0:Guid,1
--dialog:30fps/60fps/chk,chk1=0;ｶﾗﾌﾙ/chk,chk2=0;グラフ色/col,col1=0xff0000;seed,sd=100;図形選択/fig,fig="円";間隔係数,rdstc=1.35;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
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,sh)
local fgs1=t2
local fr=obj.frame

if(bvl==null)then
 bvl={}
end
bvl[fr]={}

for i=1,div do
 bv=buf[i]
 bvl[fr][i]=math.abs(bv)

if(chk1==0)then
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 end
else
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 elseif(obj.frame<=4)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 elseif(obj.frame<=5)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i])/5
 elseif(obj.frame<=6)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i])/6
 elseif(obj.frame<=7)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i])/7
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i]+bvl[fr-7][i])/8
 end
end

 ang=i*360/div
 bvlen=math.floor(bvlen)/bcor
 for j=0,bvlen,t3 do
  rdst=(j+fgs1)*rdstc
  r=math.rad(ang)
  cs=math.cos(r)
  sn=math.sin(r)

  dx=cs*rdst
  dy=sn*rdst
  rz=ang

  if(chk2==1)then
   col1="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
  end
  obj.load("figure",fig,col1,fgs1)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
end

if(obj.check0)then
 fs=sh/24
 obj.setfont("",fs)
 output="滑らかな動きをさせるために連続したフレームのデータを取得しています。\n\nその為、編集中やプレビュー中にフレームが跳ぶと、\n数フレーム正しく画面が表示されないことがありますが、\n\n動画出力に影響はないはずです。"
 obj.load("text",output)
 obj.setoption("blend","alpha_add")
 obj.draw()
end
------------------------------------
obj.load("tempbuffer")

@SST05 kerokero9696
--track0:音分割数,1,1024,20,1
--track1:Buf補正,0.01,1024,100,0.01
--track2:図形ｻｲｽﾞ,1,1024,25,1
--track3:描画密度,1,120,45,1
--check0:Guid,1
--dialog:30fps/60fps/chk,chk1=0;ｶﾗﾌﾙ/chk,chk2=1;色変化速度,spd=5;ﾗﾝﾀﾞﾑ動き/chk,chk3=0;色/col,col1=0xff0000;seed,sd=100;図形選択/fig,fig="円";図形幅,fgs2=2000;間隔係数,rdstc=1.35;中心半径,ocr=25.0;透明度,al=0.50;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
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,sh)
local fgs1=t2
local fr=obj.frame

if(bvl==null)then
 bvl={}
end
bvl[fr]={}

for j=0,359,t3 do
for i=1,div do
 bv=buf[i]
 bvl[fr][i]=math.abs(bv)

if(chk1==0)then
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 end
else
 if(obj.frame<=1)then
  bvlen=bvl[fr][i]
 elseif(obj.frame<=2)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i])/2
 elseif(obj.frame<=3)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i])/3
 elseif(obj.frame<=4)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i])/4
 elseif(obj.frame<=5)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i])/5
 elseif(obj.frame<=6)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i])/6
 elseif(obj.frame<=7)then
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i])/7
 else
  bvlen=(bvl[fr][i]+bvl[fr-1][i]+bvl[fr-2][i]+bvl[fr-3][i]+bvl[fr-4][i]+bvl[fr-5][i]+bvl[fr-6][i]+bvl[fr-7][i])/8
 end
end

  ang=j
  if(chk3==1)then
   rndl=obj.rand(div/2,div,sd,j)/div/2
  else
   rndl=0.25
  end
  bvlen=math.floor(bvlen)/bcor*rndl
  rdst=(ocr+bvlen)*rdstc
  r=math.rad(ang-90)
  cs=math.cos(r)
  sn=math.sin(r)

  dx=cs*rdst
  dy=sn*rdst
  rz=ang
  al=1-al

  if(chk2==1)then
   sd=math.floor(obj.time*spd)+1
   col1="0x"..string.format("%06x",obj.rand(0,16777215,sd,i))
  end

  if(i<=math.floor(div/2))then
   fgs=fgs1*i/div+2
  else
   fgs=fgs1*(div-1)/div+2
  end
  if(2<fgs and bvlen>0)then
  obj.load("figure",fig,col1,fgs,fgs2)
  obj.setoption("blend",1,"force")
  obj.draw(dx,dy,0,1,al,0,0,rz)
  end
 end
end

if(obj.check0)then
 fs=sh/24
 obj.setfont("",fs)
 output="滑らかな動きをさせるために連続したフレームのデータを取得しています。\n\nその為、編集中やプレビュー中にフレームが跳ぶと、\n数フレーム正しく画面が表示されないことがありますが、\n\n動画出力に影響はないはずです。"
 obj.load("text",output)
 obj.setoption("blend","alpha_add")
 obj.draw()
end
------------------------------------
obj.load("tempbuffer")


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