--track0:ズレ,-9999,9999,0,1
--track1:透明度,0,100,50,1
--track2:MIN,0,4096,0,1
--track3:MAX,0,4096,50,1
--check0:横⇔縦,0
--dialog:透明度2,local alp1=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)/100
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
if(ogvzm<=0.1)then ogvzm=0.1 end
local sw=obj.screen_w
local sh=obj.screen_h
------------------------------------
local ow,oh=obj.getpixel()
obj.setoption("drawtarget","tempbuffer",ow,oh)

local len
if(obj.check0)then
 len=math.floor(oh)-1
else
 len=math.floor(ow)-1
end

for i=0,len do
  if(t2<=i and i<=t3)then
   alp=alp1
  else
   alp=t1
  end

  if(alp>0)then
   st=i
   ed=(i+1)
   stdst=i+t0
   eddst=(i+1)+t0

   if(obj.check0)then
   --src
     u0,v0=0,st
     u1,v1=ow,st
     u2,v2=ow,ed
     u3,v3=0,ed
   --dst
     dst1=math.abs(stdst%(len+1))-oh/2
     dst2=math.abs(eddst%(len+1))-oh/2
     if(dst1>dst2)then dst2=math.abs(dst2) end
     
     x0,y0,z0=-ow/2,dst1,0
     x1,y1,z1=ow/2,dst1,0
     x2,y2,z2=ow/2,dst2,0
     x3,y3,z3=-ow/2,dst2,0

   else
   --src
     u0,v0=st,0
     u1,v1=ed,0
     u2,v2=ed,oh
     u3,v3=st,oh
   --dst
     dst1=math.abs(stdst%(len+1))-ow/2
     dst2=math.abs(eddst%(len+1))-ow/2
     if(dst1>dst2)then dst2=math.abs(dst2) end
     
     x0,y0,z0=dst1,-oh/2,0
     x1,y1,z1=dst2,-oh/2,0
     x2,y2,z2=dst2,oh/2,0
     x3,y3,z3=dst1,oh/2,0

   end

   obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,alp)
  end
end

obj.load("tempbuffer")

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