--track0:X方向,-4096,4096,0,0.1
--track1:Y方向,-4096,4096,0,0.1
--track2:Z方向,-4096,4096,0,0.1
--track3:乱値,-4096,4096,0,1
--dialog:Z方向向き/chk,chk1=1;Random/chk,chk2=0;seed,sd=math.floor(obj.frame/3);左上係数,p0=1;右上係数,p1=1;右下係数,p2=1;左下係数,p3=1;

t0=obj.track0
t1=obj.track1
t2=obj.track2
t3=math.floor(obj.track3)
ogz=obj.getvalue("zoom")/100
if(ogz>=1)then
 tw,th=(obj.w)*ogz,(obj.h)*ogz
elseif(ogz<1)then
 tw,th=(obj.w)/ogz,(obj.h)/ogz
end

obj.zoom=ogz/2
alpha=obj.getvalue("alpha")
rm={}
if(chk2==1)then
 for i=0,11 do
  rm[i]=obj.rand(-t3,t3,sd,i)
 end
else
 for i=0,11 do
  rm[i]=0
 end
end

u0,v0=-tw,-th
u1,v1=tw,-th
u2,v2=tw,th
u3,v3=-tw,th
x0,y0=(u0+t0+rm[0]*p0),(v0-t1+rm[1]*p0)
x1,y1=(u1+t0+rm[2]*p1),(v1+t1+rm[3]*p1)
x2,y2=(u2-t0+rm[4]*p2),(v2+t1+rm[5]*p2)
x3,y3=(u3-t0+rm[6]*p3),(v3-t1+rm[7]*p3)

if(chk1==0)then
 z0,z1,z2,z3=(t2+rm[8]*p0),(t2+rm[9]*p1),(-t2+rm[10]*p2),(-t2+rm[11]*p3)
else
 z0,z1,z2,z3=(t2+rm[8]*p0),(-t2+rm[9]*p1),(-t2+rm[10]*p2),(t2+rm[11]*p3)
end

obj.effect()
obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,u0,v0,u1,v1,u2,v2,u3,v3,alpha)





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