--track0:長さ,1,2048,50,1
--track1:ｽﾞﾚ幅,0,1024,10,1
--track2:ﾌﾚｰﾑ,1,9999,1,1
--track3:密度,1,200,20,1
--check0:収束点,0
--dialog:先端描画閾値,local iki=0.00;X間隔係数,local dstx=0.25;Y間隔係数,local dsty=1.00;X描画範囲係数,local ww=1.00;Y描画範囲係数,local hh=2.00;pos,pos={0,0};SEED,sd=100;尖端Mode[0-2],local md=0;
-------------------------------------set
local t0=math.floor(obj.track0)-1
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
local ogvz=obj.getvalue("zoom")/100
------------------------------------
local ow,oh=obj.getpixel()
obj.setanchor("pos",1)
obj.setoption("drawtarget","tempbuffer",sw/ogvz,sh/ogvz)
local fgs=200
local zure=0
local len=t0
local ik=t3/100
local px,py=pos[1],pos[2]
if(obj.num>1)then
 sd=sd+obj.index
end
for i=0,len,ik do
 if(md==0)then
  owhc=0.5*(1-i/len)
 elseif(md==1)then
  owhc=0.5*i/len
 else
  owhc=0.5
 end

 if(obj.check0)then
  gv=9.8*(len-i)*dsty
 else
  gv=9.8*i*dsty
 end
 x0,y0,z0=-ow*owhc+zure+px,-oh*owhc+gv+py,0
 x1,y1,z1=ow*owhc+zure+px,-oh*owhc+gv+py,0
 x2,y2,z2=ow*owhc+zure+px,oh*owhc+gv+py,0
 x3,y3,z3=-ow*owhc+zure+px,oh*owhc+gv+py,0
 if(owhc>iki)then
  obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)
 end
 zure=zure+obj.rand(-t1,t1,sd,i+1+t2)*dstx
end
obj.load("tempbuffer")

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