--track0:個数,1,1024,16,1
--track1:拡大係数,1,1000,100,1
--track2:透過係数,1,1000,100,1
--track3:間隔,1,100,1,1
--check0:初期化,1
--dialog:ZOOM/chk,chk1=0;Alpha/chk,chk2=1;
-------------------------------------set
local fnum=math.floor(obj.track0)
local t1=obj.track1/100
local t2=obj.track2/100
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
-------------------------------------script
if(xpos==null)then --***set
 xpos={}
end
if(ypos==null)then --***set
 ypos={}
end
if(zpos==null)then --***set
 zpos={}
end


if(obj.frame==0 and obj.check0)then
 xpos[obj.layer]={}
 ypos[obj.layer]={}
 zpos[obj.layer]={}

 for i=1,#xpos[obj.layer] do
  xpos[obj.layer][i]=null
  ypos[obj.layer][i]=null
  zpos[obj.layer][i]=null
 end
end

fr=math.floor(obj.frame/t3)+1
if(fnum<=1)then fnum=1 end --***set
st=fr-fnum
idx=0
repeat
 idx=idx+1
until st+idx>=1

xpos[obj.layer][fr]=obj.getvalue("X")
ypos[obj.layer][fr]=obj.getvalue("Y")
zpos[obj.layer][fr]=obj.getvalue("Z")

st=st+idx
len=fr
idx=1
for i=st,len do
 dx=xpos[obj.layer][i]-obj.x
 dy=ypos[obj.layer][i]-obj.y
 dz=zpos[obj.layer][i]-obj.z
 if(chk1==0)then
  zm=1
 else
  zm=idx/fnum*t1
 end

 if(chk2==0)then
  alpha=1
 else
  alp=idx/fnum*t2
 end

 if(fr<=fnum)then
  for j=1,fr do
   if(chk1==1)then zm=i/fr*t1 end
   if(chk2==1)then alp=i/fr*t2 end
  end
 end

 if(zm<=0)then zm=0 end
 if(alp<=0)then alp=0 end
 if(alp>=1)then alp=1 end
 if(alp>0)then
  obj.draw(dx,dy,dz,zm,alp)
 end
 idx=idx+1
end
--[[http://madeinpc.blog50.fc2.com/]]--