--track0:アンカー,3,15,3,1
--track1:太さ,0,800,25,1
--track2:進捗％,0,100,100,0.01
--track3:滑らかさ,1,9999,100,1
--check0:軌跡表示,1;
--dialog:pos,pos={};
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)*0.01
--local t2=math.floor(obj.track2)
local t2=obj.track2*0.01
local ik=math.floor(obj.track3)*0.01
local sw=obj.screen_w
local sh=obj.screen_h
local ow,oh=obj.getpixel()
local ogvzm=obj.getvalue("zoom")*0.01
------------------------------------
if(pos[1]==null)then
	local dstx=sw/(t0+2)
	local dsty=sh/(t0+2)
	for i=1,t0 do
		pos[i*2-1]=i*dstx-t0*dstx*0.5-dstx*0.5
		pos[i*2]=0
	end
end
obj.setanchor("pos",t0,"line")
------------------------------------
if(pos[1]~=null)then

	local len=t0-math.ceil(t0*0.5)
	local total=0
	local x0,y0=0,0
	for j=1,len do
		for i=0,100,ik do
			total=total+1
		end
	end

	if(obj.check0)then
		obj.setoption("drawtarget","tempbuffer",sw,sh)
	end

	local idx=0
	for j=1,len do
		for i=0,100,ik do
			n=2*j-1
			t=i*0.01
			x1,x2,x3=pos[2*n-1],pos[2*(n+1)-1],pos[2*(n+2)-1]
			y1,y2,y3=pos[2*n],pos[2*(n+1)],pos[2*(n+2)]
			dx=x1*(1-t)^2 + 2*t*(1-t)*x2 +x3*t^2
			dy=y1*(1-t)^2 + 2*t*(1-t)*y2 +y3*t^2

			if(idx<=total*t2)then
				if(obj.check0)then
					obj.draw(dx,dy,0,t1)
				end

				x0=dx
				y0=dy
			end
			idx=idx+1
		end
	end

	if(obj.check0)then
		obj.load("tempbuffer")
	else
		obj.ox=obj.ox+x0
		obj.oy=obj.oy+y0
	end
end

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