--check0:Export,0
--dialog:File,file="R:\\kobetsu.txt";
-----------------------------------------
local oi=obj.index+1
local on=obj.num
obj.setfont("",obj.screen_h/20)
-----------------------------------------
if(oi==1)then
 if(kobetsu==null)then
  kobetsu={}
 end
end
kobetsu[oi]={obj.ox,obj.oy,obj.oz,obj.zoom,obj.alpha,obj.rx,obj.ry,obj.rz}

if(obj.check0)then
 if(file==null)then
  io.output(file)
 end
 local f=io.open(file,"w")

 for i=1,on do
  for j=1,#kobetsu[i] do
   output=kobetsu[i][j].."\n"
   f:write(output)
  end
 end

-- io.close(f)
 f:close()
end

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