--track0:速度,0,1000,75,0.1
--track1:個数,1,3000,50,1
--track2:周期,0,1024,100,1
--track3:幅,0,1000,25,1
--check0:浮力⇔重力,1
--dialog:Figure/fig,fig="円";Color/col,col=0xffffff;ｻｲｽﾞ,local fgs=25;線幅,local fgs1=200;SEED,sd=100;ﾗﾝﾀﾞﾑSZ/chk,chk1=1;ﾗﾝﾀﾞﾑCOL/chk,chk2=1;ﾗﾝﾀﾞﾑRNG/chk,chk3=1;ﾗﾝﾀﾞﾑSpd/chk,chk4=1;平面化[0-1],chk5=1;X回転速度,local rxspd=100;Y回転速度,local ryspd=100;Z回転速度,local rzspd=-100;X描画範囲係数,local ww=1.00;Y描画範囲係数,local hh=1.00;
-------------------------------------set
local t0=math.floor(obj.track0*10)/10
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
------------------------------------script
if(chk5==1)then
 obj.setoption("drawtarget","tempbuffer",sw,sh)
end
local len=t1

for i=1,len do
 if(chk1==1)then
  fgs0=obj.rand(6,fgs,sd,i)
 end
 
 if(chk2==1)then
  cmin=128
  cmax=255
  r=obj.rand(cmin,cmax,sd+10,i)
  g=obj.rand(cmin,cmax,sd+20,i)
  b=obj.rand(cmin,cmax,sd+30,i)
  col=RGB(r,g,b)
 end
 obj.load("figure",fig,col,fgs0,fgs1)

 if(chk3==0)then
  rng=t3
 else
  rng=obj.rand(5,t3,sd+40,i)
 end
 if(chk4==0)then
  acs=t0
 else
  acs=obj.rand(t0*10/3,t0*10,sd+50,i)/10
 end
 if(chk4==0)then
  spd=t2
 else
  spd=obj.rand(t2/3,t2,sd+60,i)
 end
 dx=obj.rand(-sw*50,sw*50,sd+1,i)/100	+math.sin(math.rad(obj.time*spd+i*15))*rng
 yrnd=obj.rand(fgs0,sh,sd+2,i)
 dst=sh+yrnd+fgs0*2
 if(obj.check0)then
  dy=sh/2+fgs0+yrnd	-(acs*obj.time)%dst
 else
  dy=-sh/2-fgs0-yrnd	+(acs*obj.time)%dst
 end
 dz=obj.rand(-fgs,fgs,sd+3,i)
 
 rx=obj.time*obj.rand(rxspd,rxspd*10,sd+100,i)/10
 ry=obj.time*obj.rand(ryspd,ryspd*10,sd+200,i)/10
 rz=obj.time*obj.rand(rzspd,rzspd*10,sd+300,i)/10
 
 
 obj.draw(dx,dy,dz,1,1,rx,ry,rz)
end
if(chk5==1)then
 obj.load("tempbuffer")
end


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