@MOV→微速度撮影風 kerokero9696
--track0:再生速度,1,1000,100,1
--track1:間隔f,1,1000,6,1
--track2:増加ms,1,9999,200,1
--track3:Size,0,256,14,1
--check0:Guid,1
--dialog:File,file="R:\\Temp.mp4";StartTime,sttm=0.00;MaxTime,mxtm=120.00;Color/col,col=0xffffff;
-------------------------------------set
local t0=obj.track0/100
local t1=math.floor(obj.track1)
local t2=obj.track2/1000
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
obj.setfont("",t3,3,0x000000,col)
-------------------------------------script
if(obj.frame==0)then nidx=0 end

tm=sttm+nidx*t0
if(tm>=mxtm)then tm=mxtm end

fr=obj.frame%t1+1
if(fr==t1)then
 nidx=nidx+t2
end

 obj.load("movie",file,tm,0)
 dx=0
 dy=0
 dz=0
 zm=1
 al=1
 rx=0
 ry=0
 rz=0
 obj.effect()
 obj.draw(dx,dy,dz,zm,al,rx,ry,rz)


-------------------------------------set
if(obj.check0)then
 output="※オブジェクト先頭で要初期化\n\n"
 .."File : "..file.."\n開始 : オリジナルの"..sttm.."秒目  完了 : オリジナルの"..mxtm.."秒目\n\n■ステータス\n"
 ..t1.."frame毎に"..t2.."秒増加\n"..t0.."倍速  （増加量"..t1.."frame毎に"..(t0*t2).."秒)\nオリジナルの "..(math.floor(tm*100)/100).."秒目の映像"
 obj.load("text",output)
 obj.draw(-sw/5,-sh/4)
end

@MOV→『音』で微速度進行 kerokero9696
--track0:Buf番号,1,1024,20,1
--track1:Buf補正,1,2048,200,0.01
--track2:間隔f,1,1000,1,1
--track3:Size,0,256,14,1
--check0:Guid,1
--dialog:音分割数,div=40;File,file="R:\\Temp.mp4";StartTime[秒],sttm=0.00;MaxTime[秒]※,mxtm=120.00;Color/col,col=0xffffff;緩急顕著化/chk,chk1=0;基準値,kijun=100;緩急係数,mc=1.25;
-------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
obj.setfont("",t3,3,0x000000,col)
if(t0<=1)then t0=1 end
if(t0>=div)then t0=div end

bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
-------------------------------------script
if(obj.frame==0)then
 bvsum=0
end

tm=sttm+bvsum
if(tm>=mxtm)then tm=mxtm end
fr=obj.frame%t2+1
bv=buf[t0]/bcor/100
if(chk1==1)then
 output2="ON"
 if(bv*1000>=kijun)then
 else
  mc=1/mc
 end
else
 mc=1
 output2="OFF"
end
bv=bv*mc

if(fr==t2)then
 bvsum=bvsum+bv
end
obj.load("movie",file,tm,0)
-------------------------------------set
if(obj.check0)then
 obj.effect()
 obj.draw()

 for i=1,div do
  obj.load("text",i)
  dx=(i-div/2-1/2)*t3*1.15
  dy=-buf[i]/10000*sh+sh/2-t3/2
  obj.draw(dx,dy)
  
  if(i==t0)then
   obj.load("figure","円",0xff0000,t3*1.5,2)
   obj.draw(dx,dy)
  end
 end

 output="※オブジェクト先頭で要初期化\n\n"
 .."File : "..file.."\n開始 : オリジナルの"..sttm.."秒目  完了 : オリジナルの"..mxtm.."秒目\n\n■ステータス\n"
 .."緩急顕著化:"..output2.."\n基準値/Buf値 "..kijun.."/"..math.floor(bv*1000).."　緩急係数"..(math.floor(mc*100)/100).."倍"
 .."\n"..t2.."frame毎に"..(math.floor(bv*1000)/1000).."秒増加　総量:"..(math.floor(bvsum*1000)/1000).."\nオリジナルの "..(math.floor(tm*100)/100).."秒目の映像\n"
 .."\n■注意\n完了時間が音源によって異なるので\nプレビュー再生で最終停止位置を\n確認して調整してください。"
 obj.load("text",output)
 obj.draw(-sw/5,-sh/6)
end

@MOV→『平均音』で微速度進行 kerokero9696
--track0:Buf番号,1,1024,20,1
--track1:Buf補正,1,2048,200,0.01
--track2:間隔f,1,1000,1,1
--track3:Size,0,256,14,1
--check0:Guid,1
--dialog:音分割数,div=40;取得ﾌﾚｰﾑ,fnum=6;File,file="R:\\Temp.mp4";StartTime[秒],sttm=0.00;MaxTime[秒]※,mxtm=120.00;Color/col,col=0xffffff;緩急顕著化/chk,chk1=0;基準値,kijun=100;緩急係数,mc=1.25;
-------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
obj.setfont("",t3,3,0x000000,col)
if(t0<=1)then t0=1 end
if(t0>=div)then t0=div end

bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
-------------------------------------script
if(bvl==null)then bvl={} end
if(#bvl>fnum)then
 for i=fnum+1,#bvl do
  bvl[i]=null
 end
end
if(obj.frame==0)then
 bvsum=0
end

tm=sttm+bvsum
if(tm>=mxtm)then tm=mxtm end
fr1=obj.frame%t2+1

local fr=obj.frame
fr0=fr%fnum+1 --***set
bvl[fr0]=math.abs(buf[t0]/bcor/100)

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]
end
bv=bv/fnum

if(chk1==1)then
 output2="ON"
 if(bv*1000>=kijun)then
 else
  mc=1/mc
 end
else
 mc=1
 output2="OFF"
end
bv=bv*mc

if(fr1==t2)then
 bvsum=bvsum+bv
end
obj.load("movie",file,tm,0)
-------------------------------------set
if(obj.check0)then
 obj.effect()
 obj.draw()

 for i=1,div do
  obj.load("text",i)
  dx=(i-div/2-1/2)*t3*1.15
  if(i==t0)then
   dy=-bv*sh+sh/2-t3/2
  else
   dy=-buf[i]/bcor/100*sh+sh/2-t3/2
  end
  obj.draw(dx,dy)
  
  if(i==t0)then
   obj.load("figure","円",0xff0000,t3*1.5,2)
   obj.draw(dx,dy)
  end
 end

 output="※オブジェクト先頭で要初期化\n\n"
 .."File : "..file.."\n開始 : オリジナルの"..sttm.."秒目  完了 : オリジナルの"..mxtm.."秒目\n\n■ステータス\n"
 .."緩急顕著化:"..output2.."\n基準値/Buf値 "..kijun.."/"..math.floor(bv*1000).."　緩急係数"..(math.floor(mc*100)/100).."倍"
 .."\n"..t2.."frame毎に"..(math.floor(bv*1000)/1000).."秒増加　総量:"..(math.floor(bvsum*1000)/1000).."\nオリジナルの "..(math.floor(tm*100)/100).."秒目の映像\n"
 .."\n■注意\n完了時間が音源によって異なるので\nプレビュー再生で最終停止位置を\n確認して調整してください。\n\n選択音のみ平均値表示対応。"
 obj.load("text",output)
 obj.draw(-sw/5,-sh/8)
end



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