--track0:個数,1,4096,36,1
--track1:距離%,0,100,50,0.01
--track2:回転,-3600,3600,0,1
--track3:変化,0,9999,0,1
--check0:Guid,0
--dialog:最小距離,local dstmin=100.00;最大距離,local dstmax=1024.00;描画密度,local ik=1;個別ﾗﾝﾀﾞﾑ角度,local rndz=0;ﾗﾝﾀﾞﾑ拡大率/chk,chk1=1;ﾗﾝﾀﾞﾑ透明度/chk,chk2=1;ﾗﾝﾀﾞﾑC/chk,chk3=0;輝度保持/chk,local kido=1;色最小値[0-255],local cmin=0;色最大値[0-255],local cmax=255;SEED,sd=100;pos,pos={0,0};
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
if(ogvzm<=0.01)then ogvzm=0.01 end
local sw=obj.screen_w
local sh=obj.screen_h
------------------------------------
obj.setanchor("pos",1)
obj.setoption("drawtarget","tempbuffer",sw/ogvzm,sh/ogvzm)

local num=t0-1
local nidx=1
local fr=t3

if(obj.check0)then
 local fs=sh/24/ogvzm
 obj.setfont("",fs)
 local output="図形・円の縦横比(マイナス)を弄ったり、\n放射ブラー（Xに値）を上位に置いたりして使うと\nスピード線としても使えます。"
 obj.load("text",output)
 obj.draw()
else
 for i=0,num,ik do
  dst=obj.rand(dstmin*100,dstmax*100,sd,nidx+fr)/100*t1/100
--  if(dst<dstmin)then dst=dstmin end
  zure=obj.rand(1,360*100,sd,nidx)/100
  ang=zure*nidx+t2
  r=math.rad(ang)
  cs=math.cos(r)
  sn=math.sin(r)
  dx=dst*cs+pos[1]
  dy=dst*sn+pos[2]
  rz=ang+obj.rand(0,rndz,sd,nidx)*t1/100
  
  if(chk1==1)then
   zm=obj.rand(25,100,sd,nidx)/100
  else
   zm=1
  end

  if(chk2==1)then
   al=obj.rand(0,100,sd,nidx)/100
  else
   al=1
  end

  if(chk3==1)then
   r=obj.rand(cmin,cmax,sd,nidx)
   g=obj.rand(cmin,cmax,sd+1,nidx)
   b=obj.rand(cmin,cmax,sd+2,nidx)
   col=RGB(r,g,b)
   obj.effect("単色化","color",col,"輝度を保持する",kido)
  else
  end


  obj.draw(dx,dy,0,zm,al,0,0,rz)
  nidx=nidx+1
 end
end

obj.load("tempbuffer")


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