@放射状効果線(1/2)
--track0:X,-4096,4096,0,0.1
--track1:Y,-4096,4096,0,0.1
--track2:合成,0,1,0,01
--track3:回転,-3600,3600,0,0.01
--dialog:基本距離,housha_dst=320;
-------------------------------------set
housha_x = math.floor(obj.track0 * 10) * 0.1
housha_y = math.floor(obj.track1 * 10) * 0.1
housha_blend = math.floor(obj.track2)
housha_rad = obj.track3

@放射状効果線(2/2)
--track0:横%,0,200,10,1
--track1:縦%,75,400,100,1
--track2:密度,1,120,4,1
--track3:距離%,0,200,100,1
--check0:Random Dist,1
--dialog:color/col,col=0xff0000;Size,local fgs=400;SEED,sd=100;
-------------------------------------set
local t0=math.floor(obj.track0) * 0.01
local t1=math.floor(obj.track1) * 0.01
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3) * 0.01
local sw=obj.screen_w
local sh=obj.screen_h
local ogvzm=obj.getvalue("zoom")/100
local ow,oh=obj.getpixel()
------------------------------------

obj.setoption("drawtarget","tempbuffer",ow,oh)
obj.draw()
local blend
if(housha_blend == 0)then
	blend = "alpha_add2"
else
	blend = "alpha_sub"
end

obj.setoption("blend",blend)
obj.load("figure","三角形",col,fgs)
for i=0,359,t2 do
	local r = math.rad(i + housha_rad)
	local x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3
	local cs,sn = math.cos(r),math.sin(r)
	local wlen,hlen = oh * t0,ow * t1
	local cntDst
	if(obj.check0)then
		cntDst = obj.rand(housha_dst*0.5,housha_dst,sd,i+1) * t3
	else
		cntDst = housha_dst * t3
	end
	x0,y0,z0 = -wlen *0.5	,cntDst	,0
	x1,y1,z1 = wlen -wlen *0.5	,y0	,0
	x2,y2,z2 = x1	,hlen+cntDst,0
	x3,y3,z3 = x0	,y2	,0

	xx0 = x0*cs + y0*sn + housha_x
	yy0 = x0*sn - y0*cs + housha_y
	xx1 = x1*cs + y1*sn + housha_x
	yy1 = x1*sn - y1*cs + housha_y
	xx2 = x2*cs + y2*sn + housha_x
	yy2 = x2*sn - y2*cs + housha_y
	xx3 = x3*cs + y3*sn + housha_x
	yy3 = x3*sn - y3*cs + housha_y
	obj.drawpoly(xx0,yy0,z0,xx1,yy1,z1,xx2,yy2,z2,xx3,yy3,z3)
end
obj.load("tempbuffer")






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