--track0:ﾀｰｹﾞｯﾄ,1,100,1,0.01
--track1:ｶﾒﾗ距離,0,20000,1024
--track2:イーズ,0,100,20
--track3:なめらか,0,1,1
--dialog:ターゲット1,tar1=nil;ターゲット2,tar2=nil;ターゲット3,tar3=nil;ターゲット4,tar4=nil;ターゲット5,tar5=nil;ターゲット6,tar6=nil;ターゲット7,tar7=nil;ターゲット8,tar8=nil;ターゲット9,tar9=nil;ターゲット10,tar10=nil;指定方法,setM=0;

local type = function(v)
  local v = v
  local s = tostring(v)
  if(s == v)then return "string" end
  if(s == "nil")then return "nil" end
  if(s == "true" or s == "false")then return "boolean" end
  if(string.find(s, "table:"))then return "table" end
  if(string.find(s, "function:"))then return "function" end
  if(string.find(s, "userdata:"))then return "userdata" end
  return "number"
end

  setM=math.floor(setM)
 
  local target={}
  local tarN
  if type(tar1)=="table" then
    target=tar1
    tarN=#target
  else
    target={tar1,tar2,tar3,tar4,tar5,tar6,tar7,tar8,tar9,tar10}
    tarN=10;
    for i=1,10 do
      if type(target[i])~="number" then
        tarN=i-1
        break
      end
    end
  end

  local tn=obj.track0
  local CL=obj.track1
  local ez=obj.track2/10
  if tn>tarN then tn=tarN end

  if setM==1 then
    for i=1,tarN do
      target[i]=target[i]+obj.layer
    end
  elseif setM==2 then
    local sum=obj.layer
    for i=1,tarN do
      sum=sum+target[i]
      target[i]=sum
    end
  end

  local tarData={}
  for i=1,tarN do
    target[i]=math.floor(target[i])
    if target[i]<1 then target[i]=1 end
    tarData[i]={
      x =obj.getvalue("layer" .. target[i] .. ".x" ),
      y =obj.getvalue("layer" .. target[i] .. ".y" ),
      z =obj.getvalue("layer" .. target[i] .. ".z" ),
      rx=obj.getvalue("layer" .. target[i] .. ".rx"),
      ry=obj.getvalue("layer" .. target[i] .. ".ry"),
      rz=obj.getvalue("layer" .. target[i] .. ".rz")
    }
  end

  local tn1=math.floor(tn)
  local tn2=tn1+1
        tn=tn-tn1

  if ez~=0 then
    tn=math.exp(ez*(2*tn-1))
    local keisu=(math.exp(ez)+1)/(math.exp(ez)-1)
    tn=(1+keisu*(tn-1)/(tn+1))/2
  end
  local tni=1-tn
  if tn2>tarN then tn2=tarN end

  local cam = obj.getoption("camera_param")

  local crxd,cryd,crzd

  if obj.track3==0 then
    cam.tx=tni*tarData[tn1].x+tn*tarData[tn2].x
    cam.ty=tni*tarData[tn1].y+tn*tarData[tn2].y
    cam.tz=tni*tarData[tn1].z+tn*tarData[tn2].z

    crxd=tni*tarData[tn1].rx+tn*tarData[tn2].rx
    cryd=tni*tarData[tn1].ry+tn*tarData[tn2].ry
    crzd=tni*tarData[tn1].rz+tn*tarData[tn2].rz
  else

  tn0=tn1-1
  if tn0<1 then tn0=1 end
  tn3=tn2+1
  if tn3>tarN then tn3=tarN end

    local x0,y0,z0=tarData[tn0].x,tarData[tn0].y,tarData[tn0].z
    local x1,y1,z1=tarData[tn1].x,tarData[tn1].y,tarData[tn1].z
    local x2,y2,z2=tarData[tn2].x,tarData[tn2].y,tarData[tn2].z
    local x3,y3,z3=tarData[tn3].x,tarData[tn3].y,tarData[tn3].z
    cam.tx,cam.ty,cam.tz = obj.interpolation(tn,x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)

    x0,y0,z0=tarData[tn0].rx,tarData[tn0].ry,tarData[tn0].rz
    x1,y1,z1=tarData[tn1].rx,tarData[tn1].ry,tarData[tn1].rz
    x2,y2,z2=tarData[tn2].rx,tarData[tn2].ry,tarData[tn2].rz
    x3,y3,z3=tarData[tn3].rx,tarData[tn3].ry,tarData[tn3].rz
    crxd,cryd,crzd = obj.interpolation(tn,x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)
  end

  local sx = math.sin(crxd*math.pi/180)
  local cx = math.cos(crxd*math.pi/180)
  local sy = math.sin(cryd*math.pi/180)
  local cy = math.cos(cryd*math.pi/180)
  local sz = math.sin(crzd*math.pi/180)
  local cz = math.cos(crzd*math.pi/180)
               
  local cax =-sy
  local cay = sx*cy
  local caz =-cx*cy 

  local ux = cy*sz 
  local uy =-cx*cz+(sx*sz)*sy 
  local uz =-sx*cz-(cx*sz)*sy

  cam.x = cam.tx+cax*CL
  cam.y = cam.ty+cay*CL
  cam.z = cam.tz+caz*CL
  cam.ux = ux
  cam.uy = uy
  cam.uz = uz


  obj.setoption("camera_param",cam)