| 0,0 → 1,112 |
|---|
| --Picture Tiler by Adrien Destugues |
| --Extract unique tiles from the spare page |
| --to the main one. Main page is erased. |
| -- |
| -- Copyright 2011 Adrien Destugues <pulkomandy@pulkomandy.ath.cx> |
| -- |
| -- This program is free software; you can redistribute it and/or |
| -- modify it under the terms of the GNU General Public License |
| -- as published by the Free Software Foundation; version 2 |
| -- of the License. See <http://www.gnu.org/licenses/> |
| |
| -- Copy palette from spare to main |
| -- TODO |
| |
| -- Grid size |
| -- TODO : get it from GrafX2 |
| xgrid = 16; |
| ygrid = 16; |
| |
| -- picture size |
| w, h = getpicturesize(); |
| |
| -- We may need less if there are duplicates |
| setsparepicturesize(xgrid, w*h/xgrid); |
| |
| tileid = 0; |
| |
| -- blit part of the spare to picture |
| function blitpicturetospare(srcx, srcy, dstx, dsty, width, height) |
| local x,y; |
| for y = 0, height - 1, 1 do |
| for x = 0, width - 1, 1 do |
| putsparepicturepixel(dstx+x, dsty+y, getpicturepixel(srcx + x, srcy + y)); |
| end |
| end |
| end |
| |
| function comparesparewithpicture(srcx, srcy, dstx, dsty, width, height) |
| local x,y,color |
| for y = 0, height - 1, 1 do |
| for x = 0, width - 1, 1 do |
| color = getsparepicturepixel(srcx + x, srcy + y); |
| if color ~= getpicturepixel(dstx+x, dsty+y) then |
| -- they are different |
| return false; |
| end |
| end |
| end |
| -- they are identical |
| return true; |
| end |
| |
| -- compute checksum of a picture area |
| -- it may not be unique, we use it as a key for an hashmap |
| function checksum(srcx, srcy, width, height) |
| local sum,x,y |
| sum = 0; |
| for y = 0, height - 1, 1 do |
| for x = 0, width - 1, 1 do |
| sum = sum + getpicturepixel(srcx+x, srcy+y); |
| end |
| end |
| |
| return sum; |
| end |
| |
| tilemap = {} |
| |
| -- foreach tile |
| for y = 0, h-1, ygrid do |
| for x = 0, w - 1, xgrid do |
| -- existing one ? |
| csum = checksum(x,y,xgrid,ygrid); |
| if tilemap[csum] ~= nil then |
| -- potential match |
| -- Find matching tileid |
| found = false; |
| for id in pairs(tilemap[csum]) do |
| -- is it a match ? |
| if comparesparewithpicture(x,y,0,id*ygrid, xgrid, ygrid) then |
| -- found it ! |
| tilemap[csum][id] = tilemap[csum][id] + 1; |
| found = true; |
| break; |
| end |
| end |
| -- Add tile anyway if needed |
| if not found then |
| desty = tileid * ygrid; |
| blitpicturetospare(x, y, 0, desty, xgrid, ygrid); |
| |
| -- add it to the tilemap |
| tilemap[csum][tileid] = 1; |
| -- give it a tile id |
| tileid = tileid + 1; |
| end |
| else |
| -- Copy to spare |
| desty = tileid * ygrid; |
| blitpicturetospare(x, y, 0, desty, xgrid, ygrid); |
| |
| -- add it to the tilemap |
| tilemap[csum] = {} |
| tilemap[csum][tileid] = 1; |
| -- give it a tile id |
| tileid = tileid + 1; |
| end |
| end |
| end |
| |
| setsparepicturesize(xgrid, (tileid-1)*ygrid) |
| --updatescreen(); |