--track0:•‘ŽG«,1,1000,100,1
--track1:Šξ–{‹——£,-1000,1000,100,0.01
--track2:‘¬“x,-1000,1000,25,0.01
--track3:•`‰ζ–§“x,1,120,30,1
--check0:ΧέΐήΡˆΚ’u,0
--dialog:Šξ–{ŒΒ”,inum=360;}Œ`‘I‘π/fig,fig="‰~";ΧέΐήΡΆΧ°/chk,chk1=0;Color/col,col=0xffffff;}Œ`ΧέΐήΡ»²½ή/chk,chk0=0;}Œ`»²½ή,fgs1=10;ό•,fgs2=1000;SEED,sd=100;X•`‰ζ”ΝˆΝ,ww=1.00;Y•`‰ζ”ΝˆΝ,hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
local t2=obj.track2
local t3=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
------------------------------------
rngx=sw*ww
rngy=sh*hh
obj.setoption("drawtarget","tempbuffer",rngx,rngy)
inum=inum-1
jnum=t0
dst=t1
spd=t2
ik=t3
for i=0,inum,ik do
 ang=i+obj.time*spd
 r=math.rad(ang)
 x0,y0=0,0
 x1,y1=0,0
 for j=1,jnum do
  rnd1=obj.rand(1,100,sd+i,j)/100
  rnd2=obj.rand(1,100,sd*2+i,j)/100
  rnd3=obj.rand(1,100,sd*3+i,j)/10
  rnd4=obj.rand(1,100,sd*4+i,j)/10
  if(obj.check0)then
   x1=obj.rand(-rngx/2,rngx/2,sd*4+i,j)
   y1=obj.rand(-rngy/2,rngy/2,sd*3+i,j)
  end
  cs=math.cos(r*rnd3)
  sn=math.sin(r*rnd4)
  x0=x0+sn*obj.rand(-rnd1,rnd1,sd*5+i,j)+cs*obj.rand(-rnd2,rnd2,sd+i+j,j)
  y0=y0+sn*obj.rand(-rnd1,rnd1,sd*5+i+j,j)+cs*obj.rand(-rnd2,rnd2,sd+i,j)
 end
 dx=x0*dst+x1
 dy=y0*dst+y1

 if(chk0==1)then
  fgs=obj.rand(4,fgs1,sd,i)
 else
  fgs=fgs1
 end
 if(chk1==1)then
  col0=obj.rand(0xaaaaaa,0xffffff,sd,i)
 else
  col0=col
 end
 obj.load("figure",fig,col0,fgs,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)
end
obj.load("tempbuffer")
--[[http://madeinpc.blog50.fc2.com/]]--