--track0:ŒΒ”,2,100,5,1
--track1:i’»%,0,100,50,0.01
--track2:X•β³,0,1000,100,1
--track3:Žζ“Ύs,0.01,1000,5,0.01
--check0:Guid,1
--dialog:File,local f="R:\\temp\\movie.mp4";±ΩΜ§Α¬έΘΩ/chk,chk1=0;Font,local fn="MS Gothic";FontS,local fs=14;FontType,local ft=3;Color1/col,col0=0xffffff;Color2/col,col1=0x000000;FontY•β³,local dy0=0;‘ŽžŠΤ•\Ž¦/chk,chk2=1;X•`‰ζ”ΝˆΝŒW”,ww=1.00;Y•`‰ζ”ΝˆΝŒW”,hh=1.00;
-------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/100
local t2=math.floor(obj.track2*100)/100
local t3=obj.track3
local ogvzm=obj.getvalue("zoom")/100
local sw=obj.screen_w
local sh=obj.screen_h
------------------------------------
local t=t3
local tmax=obj.load("movie",f)
local dstx=math.floor(sw/t0)*t2/100
local oh=obj.h
obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=1,t0 do
 ntmx=tmax*t1
 nt=t*(i-1)+ntmx
 if(nt>=tmax)then
  nt=tmax
 end

 obj.load("movie",f,nt,chk1)
 dx=dstx*(i-1)-dstx*t0/2+dstx/2
 dy=0
 zm=1/t0
 obj.draw(dx,dy,0,zm)


 if(obj.check0 and fs>0)then
  obj.setfont(fn,fs/zm,ft,col0,col1)
  m1,m2=math.modf(nt)
  output=m1.."."..math.floor(m2*100)
  obj.load("text",output)
  dy=dy-oh/2*zm-fs-dy0
  obj.draw(dx,dy,0,zm)
 end

 if(obj.check0 and fs>0 and chk2==1 and i==t0)then
  output="Total time : "..(math.ceil(tmax*100)/100)
  obj.load("text",output)
  dx=sw/2-fs*5
  dy=-sh/2+fs
  obj.draw(dx,dy,0,zm)
 end

end

obj.load("tempbuffer")

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