Image to Tilemap Converter

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|724\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Image to Tilemap Converter
Sat, 05 Oct 2013, 05:00
spinal	I know for a fact that there are tools on the web to convert a single huge image into a tileset and map, while detecting unique tiles. However, the internet (or rather Google) doesn’t seem to have a clue what I’m talking about. Anyone here know? -=-=- Check out my excellent homepage!
Sat, 05 Oct 2013, 05:00
Jayenkai	How big is it. Could you possibly make use of the one that comes with PALib?! That one's surprisingly good, coping with mirrored tiles, too.. -=-=- ''Load, Next List!''
Sat, 05 Oct 2013, 05:38
spinal	currently about 1024x1024. would the palib one output the tiles also, didnt it just convert everything to code? -=-=- Check out my excellent homepage!
Sat, 05 Oct 2013, 06:35
Erebel55	I'm not sure exactly what features it has since I haven't used it in a while but might want to check out Reiner's Tilecutter. Here is the link to his apps www.reinerstilesets.de/programme/ -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Sat, 05 Oct 2013, 06:36
rockford	I posted exactly what you want here a while back (January 05 2012 according to the Uploads section) - socoder.net/uploads/214/maprecon.zip MapRecon turns any sized map into individual tiles (of your chosen size), creates the map data and gives a Blitz reconstruction program all in the space of about 1 second.
Sat, 05 Oct 2013, 06:56
spinal	That's the exact thing I was looking for. I'm sure I've asked on here or maybe a blitz site a looooooonnnnng time ago! thanks Rock! -=-=- Check out my excellent homepage!
Sat, 05 Oct 2013, 07:19
Jayenkai	phew thought I was going to have to start coding one!! -=-=- ''Load, Next List!''
Sat, 05 Oct 2013, 12:49
dna	If you had made one Jay it would have been a great one. Useful -=-=- DNA
Sat, 05 Oct 2013, 21:03
steve_ancell	I coded a very crude tool for ripping tiles from screen-grabs when I was coding Mutant Monty. Not sure if this source code will suit your needs, you may have to change a few variables. It loads an image such as "level1.png" (you may need to change the file names or modify the code to suit), then it grabs the first tile (width and height can be changed at lines 27 and 28). It then grabs the second tile and compares it with the first, the the third tile grab is compared with the previous two, and so on and so forth. It does this for the whole image and then loads the next image and compares them with all the previous tiles also. In Laymen's terms it finds unique tiles. Bear in mind that the program gets slower and slower because of having to keep comparing the current tile with all the previously stored ones, but hey!, it's a lot quicker than cutting them out by hand. The For/Next loop at line 46 will need to be changed if you only want to rip one screen, I hard coded it to search through all 40 screen-grabbed levels and discard any tiles that match any that are already in memory. ;Mutant Monty Project: Tile Ripper Tool. ;Stephen Ancell. ;7 February 2013. Graphics 1280, 1024 ;Graphics 0, 0 Type Tile Field width, height Field image End Type Global filename$ Global sourceImage Global destimage Global tileWidth = 40 Global tileHeight = 32 Global tileCount = 0 Dim tiles(tileCount) Global showGrid = False Global i Local t.Tile = New Tile t\image = CreateImage(tileWidth, tileHeight) Local time = MilliSecs() For i = 1 To 40 filename = "level" + i + ".png" SetBuffer BackBuffer() Cls Locate 0, 0 Print filename Load() RipTiles() Flip Next StoreTiles() DrawTiles() Save() DeleteTiles() FreeImage sourceImage FreeImage destimage ;WaitKey() End Function Load() If sourceImage FreeImage sourceImage EndIf sourceImage = LoadImage(filename) End Function Function RipTiles() Local t.Tile Local tilesMatched Local matchCount Local sourceX, sourceY Local column, row Local columnCount = (ImageWidth(sourceImage) / tileWidth) Local rowCount = (ImageHeight(sourceImage) / tileHeight) Local tempimage = CreateImage(tileWidth, tileHeight) SetBuffer ImageBuffer(tempimage) Cls SetBuffer ImageBuffer(sourceImage) For row = 0 To (rowCount - 1) For column = 0 To (columnCount - 1) sourceX = (tileWidth * column) sourceY = (tileHeight * row) matchCount = 0 GrabImage tempimage, sourceX, sourceY For t.Tile = Each Tile If t\image tilesMatched = CompareImages(tempimage, t\image) If tilesMatched = True matchCount = matchCount + 1 Exit EndIf EndIf If KeyHit(1) = True End EndIf Next If matchCount = 0 t.Tile = New Tile t\image = CopyImage(tempimage) EndIf ;If tilesMatched = False ; Color 0, 255, 0 ; Locate sourceX, sourceY + (tileHeight * 2) ; Print "" ;EndIf Next Next FreeImage tempimage End Function Function CompareImages(image1, image2) Local pixel1, pixel2 Local x, y If ImageWidth(image1) <> ImageWidth(image2) Return False EndIf If ImageHeight(image1) <> ImageHeight(image2) Return False EndIf For y = 0 To (ImageHeight(image1) - 1) For x = 0 To (ImageWidth(image1) - 1) LockBuffer ImageBuffer(image1) LockBuffer ImageBuffer(image2) pixel1 = ReadPixelFast(x, y, ImageBuffer(image1)) pixel2 = ReadPixelFast(x, y, ImageBuffer(image2)) UnlockBuffer ImageBuffer(image1) UnlockBuffer ImageBuffer(image2) If pixel1 <> pixel2 Return False EndIf Next Next Return True End Function Function DeleteTiles() Local t.Tile For t.Tile = Each Tile FreeImage t\image Delete t Next Dim tiles(0) End Function Function StoreTiles() Local t.Tile Local index = 0 tileCount = 0 For t.Tile = Each Tile tileCount = tileCount + 1 Next Dim tiles(tileCount) For t.Tile = Each Tile tiles(index) = CopyImage(t\image) MaskImage tiles(index), 0, 0, 0 index = index + 1 Next End Function Function DrawTiles() Local t.Tile Local column, row Local columnCount = (GraphicsWidth() / tileWidth) Local rowCount = (GraphicsHeight() / tileHeight) destimage = CreateImage(tileWidth columnCount, tileHeight * rowCount) Local index = 0 SetBuffer ImageBuffer(destimage) For row = 0 To (rowCount - 1) For column = 0 To (columnCount - 1) If index < tileCount If showGrid = True Color 255, 0, 255 Rect (tileWidth * column), (tileHeight * row), tileWidth, tileHeight, False EndIf DrawImage tiles(index), (tileWidth * column), (tileHeight * row) EndIf index = index + 1 Next Next End Function Function Save() SaveImage(destimage, "tiles\" + filename) End Function --v