--track0:ZM Max,0,800,150,1 --track1:ZM Min,0,800,75,1 --track2:回転Z,0,360,20,1 --track3:Frame,0,9999,0,1 --check0:RandomColor,1 --dialog:ランダム透明度/chk,chk1=1;透明度Max,local almax=100;透明度Min,local almin=25;SEED,sd=100;pos,pos={}; -------------------------------------set local t0=math.floor(obj.track0) local t1=math.floor(obj.track1) local t2=math.floor(obj.track2) local t3=math.floor(obj.track3) local sw,sh=obj.screen_w,obj.screen_h local ogvzm=obj.getvalue("zoom")*0.01 local on=obj.num local oi=obj.index+1 ------------------------------------- if(on>16)then on=16 end if(moji==null)then moji={} end moji[oi]={obj.ox,obj.oy,obj.oz,obj.zoom,obj.alpha,obj.cx,obj.cy,obj.cz,obj.rx,obj.ry,obj.rz,obj.aspect} if(pos[1]==null)then for i=1,on do dst=sh/10 pos[2*i-1]=(i-1)*dst-on*dst/2+dst/2 pos[2*i]=0 end end obj.setanchor("pos",on,"line") local fr=oi+t3 local dx,dy=pos[2*oi-1],pos[2*oi] obj.ox=dx*ogvzm obj.oy=dy*ogvzm obj.oz=moji[oi][3]*ogvzm local zm=moji[oi][4]+(obj.rand(t1*100,t0*100,sd+oi,fr)/10000-1) if(zm<0)then zm=0 end obj.zoom=zm if(chk1==1)then local al=moji[oi][5]+(obj.rand(almin*100,almax*100,sd+oi,fr)/10000-1) if(al<0)then al=0 end if(al>1)then al=1 end obj.alpha=al end obj.cx=moji[oi][6] obj.cy=moji[oi][7] obj.cz=moji[oi][8] obj.rx=moji[oi][9] obj.ry=moji[oi][10] obj.rz=moji[oi][11] +obj.rand(-t2*100,t2*100,sd+oi,fr)/100 obj.aspect=moji[oi][12] if(obj.check0)then local r=obj.rand(0,255,sd+oi,1+fr) local g=obj.rand(0,255,sd+oi,2+fr) local b=obj.rand(0,255,sd+oi,3+fr) obj.effect("単色化","color",RGB(r,g,b)) obj.effect() obj.draw() end --[[http://madeinpc.blog50.fc2.com/]]--