--track0:色移動,-9999,9999,0,1
--track1:色相長,1,3600,360,1
--track2:色精細%,0,1000,100,1
--track3:密度,1,1080,10,1
--check0:減衰あり⇔減衰なし,0
--dialog:彩度[0-100],local t1=100;輝度[0-100],local t2=100;幅補正,local ww=1.00;高さ補正,local hh=1.00;
-------------------------------------set
local t0=math.floor(obj.track0)
local clen=math.floor(obj.track1)
local t4=math.floor(obj.track2)/100
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
if(ogvzm==0)then ogvzm=0.1 end
local sw=obj.screen_w/ogvzm*ww
local sh=obj.screen_h/ogvzm*hh
local fs=sh/20/ogvzm
obj.setfont("MS Gothic",fs,3,0x000000,0xffffff)
if(t1<0)then t1=0 end
if(t2<0)then t2=0 end
if(t1>100)then t1=100 end
if(t2>100)then t2=100 end
------------------------------------
obj.setoption("drawtarget","tempbuffer",sw,sh)

local fgs=100
local ik,jk=t3,t3/2
local idx

if(obj.check0)then
 local idx2=0
 for j=0,100,jk do
  idx1=0
  for i=0,clen-1,ik do
   h=i-t0
   s=t1*(1-j/100)
   v=t2*(1-j/100)
   col=HSV(h*t4,s,v)

   dstx=math.ceil(sw*ik/clen)
   dsty=math.ceil(sh*jk/100)

   obj.load("figure","四角形",col,fgs)
   x0,y0,z0=dstx*idx1-sw/2        ,dsty*idx2-sh/2         ,0
   x1,y1,z1=dstx*(idx1+1)-sw/2    ,dsty*idx2-sh/2         ,0
   x2,y2,z2=dstx*(idx1+1)-sw/2    ,dsty*(idx2+1)-sh/2     ,0
   x3,y3,z3=dstx*idx1-sw/2        ,dsty*(idx2+1)-sh/2     ,0
   obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)

   idx1=idx1+1
  end
  idx2=idx2+1
 end


else
 idx1=0
 for i=0,clen-1,ik do
  h=i-t0
  s=t1
  v=t2
  col=HSV(h*t4,s,v)

  dstx=math.ceil(sw*ik/clen)

  obj.load("figure","四角形",col,fgs)
  x0,y0,z0=dstx*idx1-sw/2        ,-sh/2         ,0
  x1,y1,z1=dstx*(idx1+1)-sw/2    ,-sh/2         ,0
  x2,y2,z2=dstx*(idx1+1)-sw/2    ,sh/2     ,0
  x3,y3,z3=dstx*idx1-sw/2        ,sh/2     ,0
  obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)

  idx1=idx1+1
 end
end

obj.load("tempbuffer")

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