LÖVE

Code: Select all

--save your image as temp.png
--Read the image in the appdata folder
local r = love.filesystem.read("temp.png")
--Open the file where you want to save your image in write-binary mode
local f = io.open("yourimagename.png","wb")
--Write the image to this file
f:write(r)
--Delete the temporary image
love.filesystem.remove("temp.png")

Code: Select all

local size = love.filesystem.getSize("temp.png")
local chsize = 1024 --Chunk size
local iter, endch = math.ceil(size/chsize), size%chsize --Number of iterations and size of the last chunk

local f = io.open("yourimagename.png","w+b")
local temp = love.filesystem.newFile("temp.png","r")

for i = 1, iter do
    if i == iter then ch = endch else ch = 1024 end
    temp:seek(1024 * (i-1)) --Goto the position we want to read
    local data = temp:read(ch) --Read a chunk of data
    f:write(data) --Write it to the file
end
--Close all the files and delete the temporary file
temp:close()
f:close()
love.filesystem.remove("temp.png")

Code: Select all

local srcName = '"some image file name"
local srcImage = io.open( srcName, "rb" )
local dstName = "new name for image created"
local dstImage = io.open( dstName, "wb" )
local size = srcImage:seek( 'end' )
local chsize = 1024
local iter = math.floor(size/chsize)
local endch = size%chsize
for i = 1, iter do
   if i == iter then ch = endch else ch = 1024 end
   srcImage:seek( 'set', 1024 * ( i-1 ) )
   local data = srcImage:read( ch )
   dstImage:write( data )
   print( chsize * i..' bytes read')
end
srcImage:close()
dstImage:close()

Code: Select all

for i=1,1 do
    if i = 1 then ch = 0.5 else ch = 1 end
    --Copy the chunk
end