--track0:Buf番号,1,1024,20,1
--track1:Buf補正,1,1024,100,1
--track2:回転軸,0,6,2,1
--track3:閾値,0,2048,10,1
--check0:Guid,1
--dialog:回転向き/chk,chk1=0;取得ﾌﾚｰﾑ,local fnum=6;音分割数,local div=40;合計値係数,local sumc=1.00;回転X係数,local rxc=1.00;回転Y係数,local ryc=1.00;回転Z係数,local rzc=1.00;
-------------------------------------set
local t0=math.floor(obj.track0)
if(div<t0)then t0=div end
local t1=math.floor(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 ogvz=obj.getvalue("zoom")/100
------------------------------------
local oi=obj.index+1
local on=obj.num
if(oi==1)then
 if(moji==null)then
  moji={}
 end
end
moji[oi]={obj.ox,obj.oy,obj.oz,obj.zoom,obj.alpha,obj.rx,obj.ry,obj.rz,obj.aspect}
------------------------------------
buf={}
local bcor=t1
local abt="spectrum"
local n=obj.getaudio(buf,"audiobuffer",abt,div)
-------------------------------------script
if(bvll==null)then --***set
 bvll={}
end
if(bvll[obj.layer]==null)then --***set
 bvll[obj.layer]={}
end
local fr=obj.frame
local fr0=fr%fnum+1 --***set

 --音量平均化
if(fr==0)then --***set
 if(bvll[obj.layer][1]==null)then --***set
  bvll[obj.layer][1]={}
 end

 if(1 < #bvll[obj.layer])then --***set
  for j=1,#bvll[obj.layer] do
   bvll[obj.layer][j]=null
  end
 end

 for j=1,fnum do
  bvll[obj.layer][1][j]=0
 end

 if(fnum < #bvll[obj.layer][1])then --***set
  for j=fnum+1,#bvll[obj.layer][1] do
   bvll[obj.layer][1][j]=null
  end
 end

 bvsum=0
end

if(t3<buf[t0]/bcor)then
 bvll[obj.layer][1][fr0]=buf[t0]
else
 bvll[obj.layer][1][fr0]=0
end
local bv=0
if(fnum<=1)then fnum=1 end --***set
if(fnum>=fr+1)then fnum=fr+1 end --***set
for j=1,fnum do --***set
 bv=bv+bvll[obj.layer][1][j]
end
if(chk1==1)then bv=-bv end
bvsum=bvsum+math.floor(bv/fnum/bcor)*sumc

if(t2==0)then
 obj.rx=bvsum*rxc+moji[oi][5]
 jiku="X"
elseif(t2==1)then
 obj.ry=bvsum*ryc+moji[oi][6]
 jiku="Y"
elseif(t2==2)then
 obj.rz=bvsum*rzc+moji[oi][7]
 jiku="Z"
elseif(t2==3)then
 obj.rx=bvsum*rxc+moji[oi][5]
 obj.ry=bvsum*ryc+moji[oi][6]
 jiku="XY"
elseif(t2==4)then
 obj.rx=bvsum*rxc+moji[oi][5]
 obj.rz=bvsum*rzc+moji[oi][7]
 jiku="XZ"
elseif(t2==5)then
 obj.ry=bvsum*ryc+moji[oi][6]
 obj.rz=bvsum*rzc+moji[oi][7]
 jiku="YZ"
elseif(t2==6)then
 obj.rx=bvsum*rxc+moji[oi][5]
 obj.ry=bvsum*ryc+moji[oi][6]
 obj.rz=bvsum*rzc+moji[oi][7]
 jiku="XYZ"
end

if(obj.check0)then
 obj.draw()
 obj.setfont("",sh/24)
 output="Buf値:"..math.floor(bv/fnum/bcor).." / 閾値:"..t3.." / 回転軸:"..jiku
 .."\nBuf値が閾値を超えると、そのときのBuf値が回転角度に加算されます。\n動きが激しすぎるときは合計値係数を0〜1の値にするといいかもしれません。"
 obj.load("text",output)
 obj.draw(0,-sh/2+sh/12)
end

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