--track0:描画密度,1,1000,8,1
--track1:透明度,0,100,50,0.01
--track2:長さ%,0,100,50,0.01
--track3:角度,-360,360,45,0.01
--check0:解析点表示,1
--dialog:判定透明度,a0=0.25;指定色/chk,chk3=0;指定色/col,col0=0xff0000;元画像表示/chk,chk1=1;太さ,local fgs=2;基本長さ,local len0=400;R角度/chk,chk2=1;SEED,sd=100;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1 * 0.01
local t2=obj.track2
local t3=obj.track3
local sw=obj.screen_w
local sh=obj.screen_h
local ow,oh=obj.getpixel()
local ogvzm=obj.getvalue("zoom")*0.01
------------------------------------
if(obj.check0)then
else
	obj.setoption("drawtarget","tempbuffer",ow,oh)
end

local posxy={}
local idx=0
for j=0,oh-1,t0 do
	for i=0,ow-1,t0 do
		if(0<=i and i<=ow-1 and 0<=j and j<=oh-1)then
			col,a = obj.getpixel(i,j,"col")
			if(a > a0)then
				if(obj.check0)then
					obj.putpixel(i,j,0x00ff00,a)
				else
					idx=idx+1
					posxy[4*idx-3] = i
					posxy[4*idx-2] = j
					posxy[4*idx-1] = col
					posxy[4*idx] = a
				end
			end
		end
	end
end

if(obj.check0)then
	obj.draw()
else
	if(chk1==1)then
		obj.draw()
	end

	if(fgs<0.05)then fgs=0.05 end
	local u0,v0=0,0
	local u1,v1=100,0
	local u2,v2=100,100
	local u3,v3=0,100

	for i=1,#posxy*0.25 do
		if(chk3 == 0)then
			obj.load("figure","四角形",posxy[4*i-1],100)
	else
			obj.load("figure","四角形",col0,100)
		end
		px=posxy[4*i-3]
		py=posxy[4*i-2]
		len=obj.rand(len0*0.5,len0,sd,i)*t2*0.01
		px0,px1=0,len
		px2,px3=px1,px0
		py0,py1=-fgs*0.5,0
		py3,py2=fgs*0.5,0

		local r
		if(chk2 == 0)then
			r=math.atan2(py3-py0,px3-px0)+math.rad(t3-180)
		else
			r=math.rad(obj.rand(0,36000,sd,i)*0.01 + t3-180)
		end
		local cs=math.cos(r)
		local sn=math.sin(r)

		x0,y0,z0=px0*cs-py0*sn+px-ow*0.5,px0*sn+py0*cs+py-oh*0.5,0
		x1,y1,z1=px1*cs-py1*sn+px-ow*0.5,px1*sn+py1*cs+py-oh*0.5,0
		x2,y2,z2=px2*cs-py2*sn+px-ow*0.5,px2*sn+py2*cs+py-oh*0.5,0
		x3,y3,z3=px3*cs-py3*sn+px-ow*0.5,px3*sn+py3*cs+py-oh*0.5,0
		obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,t1)
	end
	obj.load("tempbuffer")
end










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