--track0:複雑性,1,1000,100,1 --track1:基本距離,-1000,1000,100,0.01 --track2:速度,-1000,1000,25,0.01 --track3:描画密度,1,120,30,1 --check0:ランダム位置,0 --dialog:基本個数,inum=360;SEED,sd=100;ランダムX範囲,rngx=640;ランダムY範囲,rngy=360; ------------------------------------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 ------------------------------------ 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,z0=0,0,0 x1,y1,z1=0,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) z1=obj.rand(-rngy/2,rngy/2,sd*5+i,j) end cs=math.cos(r*rnd3) sn=math.sin(r*rnd4) x0=x0+sn*obj.rand(-rnd1,rnd1,sd*4+i,j)+cs*obj.rand(-rnd2,rnd2,sd+i+j,j) y0=y0+sn*obj.rand(-rnd1,rnd1,sd*2+i+j,j)+cs*obj.rand(-rnd2,rnd2,sd*3+i,j) z0=z0+sn*obj.rand(-rnd1,rnd1,sd*3+i+j,j)+cs*obj.rand(-rnd2,rnd2,sd*2+i,j) end dx=x0*dst+x1 dy=y0*dst+y1 dz=z0*dst+z1 obj.draw(dx,dy,dz) end --[[http://madeinpc.blog50.fc2.com/]]--