@ｱﾝｶｰ順次図形拡大 kerokero9696
--track0:ｱﾝｶｰ数,1,16,5,1
--track1:消失速度,1,4096,300,0.01
--track2:ｽﾞﾚ係数,1,1000,300,0.01
--track3:拡大速度,1,1000,400,0.01
--check0:Guid,1
--dialog:MODE/chk,chk1=0;消失基準ｻｲｽﾞ,mfgs=100;透明度最小値,al1=0.10;図形選択/fig,fig="円";図形幅,fgs2=4000;Color/col,col=0xffffff;座標,pos={-50,-50,50,-50,50,50,-50,50,0,0};
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=obj.track2
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.setanchor("pos",t0)
spd=obj.time*t3
clr=obj.time*t1
cfs=t2
fgs1=100
for i=1,t0 do
 dx=pos[2*i-1]
 dy=pos[2*i]
 
 fgs=spd-i*cfs/t0
 if(fgs>=mfgs)then
  if(chk1==0)then
   fgs=mfgs
   al=al1
  else
   al=1-(clr-i/t0*cfs)/1000 --*** 要再考
   if(al<=al1)then
    al=al1
    fgs=0
   end
   if(al>=1)then al=1 end
  end
 else
  al=1
 end


 obj.load("figure",fig,col,fgs,fgs2)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy,0,1,al)

 if(obj.check0)then
  obj.setfont("MS Gothic",24,3,0x000000,col)
  output=i
  obj.load("text",output)
  obj.setoption("blend","alpha_add")
  obj.draw(dx,dy)
 end

end
------------------------------------
obj.load("tempbuffer")



@地点巡回(保存可) kerokero9696
--track0:ｱﾝｶｰ数,1,16,2,1
--track1:表示密度,1,100,10,1
--track2:ｻｲｽﾞ,0,100,10,1
--track3:速度,0,10000,50,1
--check0:Info,1
--dialog:開閉/chk,chk1=0;AnchorPos,pos_b={-100,0,100,0};Color/col,col=0xffffff;seed,sd=100;消去/chk,chk=0;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=obj.track2
t3=obj.track3/10000
sw=obj.screen_w
sh=obj.screen_h
count1=math.floor(obj.time/t3*100)/100--指定値分の1倍速
count2=math.floor(obj.time%t3*100)/100--指定値秒ごとに0
ogvz=obj.getvalue("zoom")/100
------------------------------------script
obj.setanchor("pos_b",t0)
if(pos2==null)then
 pos2={}
end

for i=1,t0 do
 pos2[i]={pos_b[2*i-1],pos_b[2*i]}
end
------------------------------------guid
if(obj.check0)then
 for i=1,t0 do
  obj.load("figure","円",0xdddddd,24,24)
  dx=pos2[i][1]
  dy=pos2[i][2]
  obj.draw(dx*ogvz,dy*ogvz)

  obj.setfont("しねきゃぷしょん",18,3,0x000000,0xffffff)
  obj.load("text",i)
  dx=pos_b[2*i-1]
  dy=pos_b[2*i]
  obj.draw(dx*ogvz,dy*ogvz)
 end
end
------------------------------------move
nidx=0
 for j=1,t0 do
  if(j~=t0)then
   x,y=pos_b[2*(j+1)-1]-pos_b[2*j-1],pos_b[2*(j+1)]-pos_b[2*j]
   al=1
  else
   x,y=pos_b[1]-pos_b[2*j-1],pos_b[2]-pos_b[2*j]
   if(chk1==0)then
    al=0
   else
    al=1
   end
  end
  ln=math.floor(math.sqrt(x^2+y^2))
  r=math.atan2(y,x)
  cs=math.cos(r)
  sn=math.sin(r)

  obj.load("figure","円",0xddaa55,t2/ogvz,t2/ogvz)
  ik=t1
  for i=0,ln,ik do
   dx=i*cs+pos_b[2*j-1]
   dy=i*sn+pos_b[2*j]
   obj.load("figure","円",0xddaa55,t2/ogvz,t2/ogvz)
   
   if(t3==0)then
     obj.draw(dx*ogvz,dy*ogvz,0,1,al)
   else
    if(nidx<obj.time/t3+1)then
     obj.draw(dx*ogvz,dy*ogvz,0,1,al)
    end
   end
   nidx=nidx+1
  end
 end
------------------------------------


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