--track0:X分解*,1,2048,1,1 --track1:Y分解,1,2048,180,1 --track2:X乱れ*,0,2048,10,1 --track3:Y乱れ,0,2048,2,1 --check0:ObjectSize,0 --dialog:変化速度,local spd=15.0;エイリアス/chk,chk2=0;領域拡張上,local uv=10;領域拡張右,local rv=10;領域拡張下,local dv=10;領域拡張左,local lv=10;簡易操作*/chk,chk1=0;SEED,sd=100;閾値,local iki=0.00; ------------------------------------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 ogvzm=obj.getvalue("zoom")/100 if(ogvzm<=0.01)then ogvzm=0.01 end local sw=obj.screen_w local sh=obj.screen_h ------------------------------------ obj.effect("領域拡張","上",uv,"下",dv,"左",lv,"右",rv) local ow,oh=obj.w/ogvzm,obj.h/ogvzm obj.setoption("drawtarget","tempbuffer",ow,oh) if(chk1==1)then t1=t0 t3=t2 end if(chk2==1)then alias=1 else alias=0 end local dstx=math.floor(ow/t0*100)/100 local dsty=math.floor(oh/t1*100)/100 for i=1,t0 do for j=1,t1 do fr=(i*j+obj.time*spd)%99999+1 rndx0=obj.rand(-t2*100,t2*100,sd,fr)/100 rndx1=obj.rand(-t2*100,t2*100,sd+1,fr)/100 rndx2=obj.rand(-t2*100,t2*100,sd+2,fr)/100 rndx3=obj.rand(-t2*100,t2*100,sd+3,fr)/100 rndy0=obj.rand(-t3*100,t3*100,sd+4,fr)/100 rndy1=obj.rand(-t3*100,t3*100,sd+5,fr)/100 rndy2=obj.rand(-t3*100,t3*100,sd+6,fr)/100 rndy3=obj.rand(-t3*100,t3*100,sd+7,fr)/100 rnd=obj.rand(1,10000,sd+8,fr)/100 if(rnd>iki)then --dst x0,y0,z0=dstx*(i-1)-ow/2,dsty*(j-1)-oh/2,0 x1,y1,z1=dstx*i-ow/2,y0,0 x2,y2,z2=x1,dsty*j-oh/2,0 x3,y3,z3=x0,y2,0 --src u0,v0=dstx*(i-1)+rndx0,dsty*(j-1)+rndy0 u1,v1=dstx*i+rndx1,dsty*(j-1)+rndy1 u2,v2=dstx*i+rndx2,dsty*j+rndy2 u3,v3=dstx*(i-1)+rndx3,dsty*j+rndy3 alp=1 obj.setoption("antialias",alias) obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,alp) end end end if(obj.check0)then output=math.ceil(ow).."x"..math.ceil(oh) obj.setfont("",sh/24/ogvzm,3,0x000000,0xffffff) obj.load("text",output) obj.draw() end obj.load("tempbuffer") --[[http://madeinpc.blog50.fc2.com/]]--