@ブラインド
--track0:角度,-3600,3600,0
--track1:細かさ,0,500,10
--track2:ずれ,-180,180,0
--track3:裏に画像,0,1,0
--file:ファイルを選択してください

obj.setoption("culling",1)


Nw=obj.track1
Nh=1
sita=obj.track0*2*math.pi/360
W=obj.w/Nw
H=obj.h/Nh
R=W/2
z=obj.track2*2*math.pi/360/Nw

obj.effect()

for i=0,Nw-1 do
for j=0,Nh-1 do

sita2=sita+z*i

i0=i
i1=i+1
i2=i+1
i3=i

j0=j
j1=j
j2=j+1
j3=j+1

x0=(W*i+W/2)-R*math.cos(sita2)
x1=(W*i+W/2)+R*math.cos(sita2)
z0=-R*math.sin(sita2)
z1= R*math.sin(sita2)

x2=x1
x3=x0
z2=z1
z3=z0

obj.drawpoly(

x0-obj.w/2,(j0)*H-obj.h/2,z0,
x1-obj.w/2,(j1)*H-obj.h/2,z1,
x2-obj.w/2,(j2)*H-obj.h/2,z2,
x3-obj.w/2,(j3)*H-obj.h/2,z3,         
              
(i0)*W,(j0)*H,
(i1)*W,(j1)*H,
(i2)*W,(j2)*H,
(i3)*W,(j3)*H)

end
end

if(obj.track3>0)then

obj.load(file)
obj.ry=180

obj.effect()

for i=0,Nw-1 do
for j=0,Nh-1 do

sita2=sita+z*(Nw-(i+1))

i0=i+1
i1=i
i2=i
i3=i+1

j0=j
j1=j
j2=j+1
j3=j+1

x0=(W*i+W/2)-R*math.cos(sita2)
x1=(W*i+W/2)+R*math.cos(sita2)
z0=-R*math.sin(sita2)
z1= R*math.sin(sita2)

x2=x1
x3=x0
z2=z1
z3=z0


obj.drawpoly(

x0-obj.w/2,(j0)*H-obj.h/2,z0,
x1-obj.w/2,(j1)*H-obj.h/2,z1,
x2-obj.w/2,(j2)*H-obj.h/2,z2,
x3-obj.w/2,(j3)*H-obj.h/2,z3,         
              
(i0)*W,(j0)*H,
(i1)*W,(j1)*H,
(i2)*W,(j2)*H,
(i3)*W,(j3)*H)

end
end

end
