--track0:個数,1,256,10,1
--track1:色相,-360,360,0,1
--track2:距離,0,9999,200,0.1
--track3:角度,-3600,3600,0,0.01
--check0:開始位置切替,1
--dialog:単色化強度,local ocst=100;明度段階化/chk,chk2=1;明度[0-100],local meido=100;彩度段階化/chk,chk1=1;彩度[0-100],local saido=100;輝度保持/chk,kido=0;拡大段階化/chk,chk3=0;拡大率補正,local zmc=0.5;X描画範囲,local ww=2.00;Y描画範囲,local hh=2.00;
-----------------------------------set
local t0=math.floor(obj.track0)-1
local t1=math.floor(obj.track1)
local t2=obj.track2
local t3=obj.track3
local ogvzm=obj.getvalue("zoom")*0.01
if(ogvzm<0.025)then ogvzm=0.025 end
local sw,sh=obj.screen_w/ogvzm,obj.screen_h/ogvzm
local ow,oh=obj.getpixel()
ow,oh=ow/ogvzm,oh/ogvzm
t2=t2/ogvzm
obj.copybuffer("cache:kerocopygrade","obj")
-----------------------------------set2
local r=math.rad(t3)
local cs=math.cos(r)*t2
local sn=math.sin(r)*t2

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
for i=0,t0 do
	obj.copybuffer("obj","cache:kerocopygrade")

	if(obj.check0)then
		dx=cs*(1-i/t0)
		dy=sn*(1-i/t0)
		if(i~=t0)then
			if(chk1==0)then
				saido0=saido
			else
				saido0=saido*(1-i/t0)
			end
			if(chk2==0)then
				meido0=meido
			else
				if(kido==1)then
					meido0=meido*(1-i/t0)
				else
					meido0=meido*i/t0
				end
			end


			col=HSV(t1,saido0,meido0)
			obj.effect("単色化","強さ",ocst,"color",col,"輝度を保持する",kido)
		end
	else
		dx=cs*i/t0
		dy=sn*i/t0
		if(i~=t0)then
			if(chk1==0)then
				saido0=saido
			else
				saido0=saido*(1-i/t0)
			end
			if(chk2==0)then
				meido0=meido
			else
				if(kido==1)then
					meido0=meido*(1-i/t0)
				else
					meido0=meido*i/t0
				end
			end
			col=HSV(t1,saido0,meido0)
			obj.effect("単色化","強さ",ocst,"color",col,"輝度を保持する",kido)
		end
	end

	if(chk3==1)then
		zm=i/t0+zmc
	else
		zm=1
	end

	obj.draw(dx,dy,0,zm)
end

obj.load("tempbuffer")








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