Assemling Large Image Doesn't Work

KhazWolf · August 6, 2014

Hi. I've spent all day today tearing my hair out trying to make AutoIT do one single thing right. I can't take any more of this.

All I want to do is take a set of standard square images (575x575) and assemble them into a giant block in a particular order, according to a tab-delimited text file I have.

Here's what I frankensteined together out of a dozen different examples.

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>

Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled

Global $GuiSizeX = 18400, $GuiSizeY = 575
Global $hImage, $SS[33][33]

$hGui = GUICreate("MAP", $GuiSizeX, $GuiSizeY)
GUISetOnEvent(-3, "_Quit")
GUISetState()

$mapfile = FileOpen('E:\Creations\MAPFORASSEMBLE.txt', 0)

For $i = 1 to 32
   $line = FileReadLine($mapfile)
   $temp = StringSplit($line, Chr (9))
   For $j = 1 to 32
      $SS[$i][$j] = $temp[$j]
   Next
Next

FileClose($mapfile)

_GDIPlus_Startup()
For $i = 1 to 32
   For $j = 1 to 1
      $hImage = _GDIPlus_ImageLoadFromFile('E:\Creations\TILETEST\' & $SS[$i][$j] & 'FIX.png')
; Create Double Buffer, so the doesn't need to be repainted on PAINT-Event
$hGraphicGUI = _GDIPlus_GraphicsCreateFromHWND($hGui) ;Draw to this graphics, $hGraphicGUI, to display on GUI
$hBMPBuff = _GDIPlus_BitmapCreateFromGraphics($GuiSizeX, $GuiSizeY, $hGraphicGUI); $hBMPBuff is a bitmap in memory
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hBMPBuff); Draw to this graphics, $hGraphic, being the graphics of $hBMPBuff
;End Double Buffer add-in 1 of 3

$x = ($i - 1) * 575
$y = ($j - 1) * 575

;====== Draw images to the $hBMPBuff bitmap's graphics, $hGraphic. ==============
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $x, $y, 575, 575)
Next
Next

GUIRegisterMsg(0xF, "MY_PAINT"); Register PAINT-Event 0x000F = $WM_PAINT (WindowsConstants.au3)
GUIRegisterMsg(0x85, "MY_PAINT") ; $WM_NCPAINT = 0x0085 (WindowsConstants.au3)Restore after Minimize.

Local $sNewName = "E:\Creations\ImageCombine.png"
_GDIPlus_ImageSaveToFile($hBMPBuff, $sNewName) ; $hBMPBuff the bitmap

_GDIPlus_GraphicsDrawImage($hGraphicGUI, $hBMPBuff, 0, 0); Draw bitmap, $hBMPBuff, to the GUI's graphics, $hGraphicGUI.

While 1
    Sleep(20)
WEnd

;Func to auto-redraw on Windows internal PAINT messages.
Func MY_PAINT($hWnd, $msg, $wParam, $lParam)
    _GDIPlus_GraphicsDrawImage($hGraphicGUI, $hBMPBuff, 0, 0)
    ;_WinAPI_RedrawWindow($hGui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW, $RDW_FRAME)) ; , $RDW_ALLCHILDREN
    Return $GUI_RUNDEFMSG
EndFunc   ;==>MY_PAINT

Func _Quit()
    ;_GDIPlus_BrushDispose($hBrush)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_GraphicsDispose($hGraphicGUI)
    _WinAPI_DeleteObject($hBMPBuff)
    _GDIPlus_Shutdown()
    Exit
 EndFunc   ;==>_Quit

And it's complete garbage. As it's written it will output a row of either the wrong images or a lack of images, I don't even really know but it's just plain not according to the map file. If I try to set the $j, number of rows to anything higher than 2 it simply doesn't output a file at all and doesn't do anything I can tell.

Are filenames case-sensitive for this? That could be a small part of one problem but it doesn't explain why nothing at all is working. It DOES seem to be reading in the array from the text file correctly but that's it.

If there is some alternative method other than doing it manually 1024 times then please just tell me and I will leave because I am so done with this it's not funny anymore.

careca · August 6, 2014

Hello, i'd like to have that assemble txt for test. and maybe some tiles too.

I could make some images with that size, but if you already have that...

What's the syntax of the txt? just the path for a tile in each line?

careca · August 6, 2014

For $i = 1 to 32
   $line = FileReadLine($mapfile)
   $temp = StringSplit($line, Chr (9))
   For $j = 1 to 32
      $SS[$i][$j] = $temp[$j]
   Next
Next

Why not something like this?

For $i = 1 To 32 Step 1
   $line = FileReadLine($mapfile, $i)
ConsoleWrite('$line '& $line &@CRLF)
Next

But then, i didn't see the txt, and maybe it has to be like that..

KhazWolf · August 6, 2014

Here's the contents of the text file:

00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  ED  FF  FF  FF  FF  FF  FF  FF  FF  FF
00  00  00  00  02  02  02  02  52  FC  FC  FC  F4  F4  F4  F4  FC  FC  FC  FC  FC  61  EE  FF  FF  FF  FF  FF  FF  FF  FF  FF
00  00  00  00  02  EF  5E  FB  EB  8A  FC  F4  F3  F3  00  F3  FC  FC  FC  FC  FC  21  E4  FF  FF  FF  FF  FF  FF  FF  FF  FF
00  00  00  02  02  73  5E  B6  B8  55  FC  F3  F3  FC  FC  FC  CB  F5  CC  F4  F4  21  3A  01  FF  FF  FF  FF  FF  FF  FF  FF
00  00  02  20  02  50  7A  B8  EF  40  FC  FC  F3  61  6A  6A  F7  B9  FA  F4  3C  0B  FC  1A  31  91  01  FF  FF  FF  FF  FF
00  00  98  A4  68  79  B8  FE  73  56  FC  F4  61  0B  F3  9D  BD  FF  BA  61  60  0C  6A  6A  88  12  39  91  01  01  01  E3
00  00  02  02  76  74  74  5B  41  59  FC  9D  23  0C  6A  C8  F3  F3  61  60  11  14  24  01  01  01  01  47  39  31  E2  00
00  7F  08  DB  77  FE  FE  73  56  FC  FC  F4  F3  F3  9D  1F  6A  6A  69  FC  C9  01  01  01  01  01  01  01  01  01  4A  00
00  43  73  73  FE  33  76  41  44  6A  6A  0D  F3  F3  61  60  F3  FC  97  5F  01  01  01  01  01  01  01  01  01  01  1D  00
00  43  73  EF  FE  DF  75  56  FC  FC  F4  0C  6A  A6  60  11  15  5F  01  01  01  01  01  A9  9C  E5  1B  22  01  01  29  00
F4  84  78  74  74  5B  41  59  FC  FC  F3  F3  F3  21  F3  17  01  01  01  01  01  01  94  FD  FD  5D  FD  FD  2B  1B  FD  00
18  81  58  42  FE  73  40  FC  61  6A  6A  A6  6A  60  FC  92  01  01  01  01  01  01  1D  FD  21  FD  FD  FD  FD  0E  FD  00
F4  21  B1  58  42  73  40  61  2C  14  E6  AD  03  2E  49  01  01  01  01  01  01  01  29  66  1C  C3  DA  A5  FD  21  FD  00
B1  0C  D9  0D  58  78  70  06  25  01  01  01  4C  06  25  1E  1B  8D  E7  01  01  01  C3  DA  DA  F2  FD  FD  A6  1C  FD  00
B1  F1  AE  C6  AC  A1  07  06  92  01  01  01  10  06  17  18  6A  57  6A  6A  D7  D2  DC  0D  FD  FD  FD  FD  21  FD  FD  00
AB  2D  01  01  01  06  54  21  2B  1B  A8  19  4B  0C  CA  26  13  FD  E1  01  01  01  4A  21  FD  FD  FD  3F  1F  66  FD  00
F0  01  01  1E  BF  2F  A6  1C  B1  B1  21  3A  01  4A  21  1A  31  46  01  01  01  01  47  AD  0D  FD  FD  F4  23  F4  FD  00
01  85  34  16  01  01  05  0D  B1  B1  21  B1  1A  2A  0A  B1  B1  C0  01  01  01  01  01  01  0A  6A  66  6A  C8  F4  FD  00
01  99  24  01  01  01  01  0A  0F  3F  27  6A  0D  B1  21  B1  B1  D8  01  01  01  1E  91  BE  1C  FD  21  FD  0C  0D  FD  00
D1  E5  91  A9  86  38  D5  D3  D4  D4  3B  F4  0C  5A  0C  6A  0F  CE  BF  BF  AA  9B  6A  1C  FD  FD  21  FD  FD  21  FD  00
B0  B0  B0  B0  81  B0  B0  21  01  01  26  28  23  0C  0D  B1  C3  C2  4E  04  A0  04  6F  7B  7E  96  1C  FD  F4  21  F4  00
F1  B0  B0  B0  21  B0  B0  21  01  01  01  47  13  F4  21  B1  C1  21  4D  F9  51  72  63  FF  02  7D  8F  4F  F4  23  F4  00
0E  89  3F  3F  27  6A  6A  0B  22  01  01  01  94  0E  0B  B1  C1  45  71  F9  33  75  64  FF  FF  02  6B  7C  7E  4F  F4  00
3B  F4  B0  B0  62  F1  F1  21  49  01  01  01  95  1C  D0  C7  C2  4D  F9  F9  F9  50  6C  FF  FF  FF  FF  FF  02  6D  9F  52
F0  01  26  E6  24  26  E6  87  C9  80  D1  82  F6  F8  F2  C4  C8  43  76  5C  74  77  63  FF  FF  FF  FF  FF  FF  02  02  02
01  01  01  01  01  01  01  01  01  00  00  00  00  00  F8  F2  21  43  73  6E  02  02  02  FF  FF  FF  FF  FF  FF  FF  FF  FF
01  01  01  01  01  01  01  01  01  00  00  00  00  00  00  CD  C8  58  78  72  65  64  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF
01  01  01  01  01  01  01  01  01  00  00  00  00  00  00  F6  0C  8B  A2  78  72  63  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF
01  01  01  01  01  01  01  01  01  00  00  00  00  00  00  00  00  E0  3D  58  37  02  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF
01  01  01  93  1B  B3  22  01  01  00  00  00  00  00  00  00  00  00  E0  6A  B7  67  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF
93  8C  E5  2A  B3  8E  49  01  01  00  00  00  00  00  00  00  00  00  00  00  00  00  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF
47  C6  C6  E6  E6  E6  C9  01  01  00  00  00  00  00  00  00  00  00  00  00  00  00  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF

That loop you mentioned was written awkwardly because I was having problems putting the stringsplit directly into the SS array.

A few sample tiles, provided mediafire didn't mangle them:

http://www.mediafire.com/view/9qd0i1crg47dhmk/00FIX.png#

http://www.mediafire.com/view/19ff4x1pnzvpqn5/3DFIX.png#

http://www.mediafire.com/view/5w7bq5k1k5658xg/FFFIX.png#

http://www.mediafire.com/view/h321uxe8l83eegf/EDFIX.png#

EDIT: Screw it here's the text file itself, since I'm pretty sure that "code" block replaced the tabs with spaces for no reason. http://www.mediafire.com/download/iwnnp4h8abfk4c6/MAPFORASSEMBLE2.txt

Edited August 6, 2014 by KhazWolf

careca · August 6, 2014

The final result is huge, had to reduce tile size, this should send you on your way..

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
_GDIPlus_Startup()
Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled

Global $GuiSizeX = 575, $GuiSizeY = 575
Global $hImage, $SS[33][33]
Local $Line
Local $TileW = 15
Local $TileH = 15

$hGui = GUICreate("MAP", $GuiSizeX, $GuiSizeY, 300, 300)
GUISetOnEvent(-3, "_Quit")
GUISetState()

$mapfile = FileOpen(@ScriptDir& '\MAPFORASSEMBLE2.txt', 0)

For $i = 1 to 32
   $line = FileReadLine($mapfile, $i)
   $temp = StringSplit($line, Chr (9), 1)
   For $j = 1 to $temp[0]
    $hGraphicGUI = _GDIPlus_ImageLoadFromFile(@ScriptDir &'\'& $temp[$j] & 'FIX.png')
    $hGfx = _GDIPlus_GraphicsCreateFromHWND($hGui)
    $hImage = _GDIPlus_ImageResize($hGraphicGUI, $TileW, $TileH, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
    $x = ($i -1) * $TileW
    $y = ($j -1) * $TileH
    _GDIPlus_GraphicsDrawImageRect($hGfx, $hImage, $x, $y, $TileW, $TileH)
   Next
Next

FileClose($mapfile)

GUIRegisterMsg(0xF, "MY_PAINT"); Register PAINT-Event 0x000F = $WM_PAINT (WindowsConstants.au3)
GUIRegisterMsg(0x85, "MY_PAINT") ; $WM_NCPAINT = 0x0085 (WindowsConstants.au3)Restore after Minimize.

Local $sNewName = "E:\Creations\ImageCombine.png"
;_GDIPlus_ImageSaveToFile($hBMPBuff, $sNewName) ; $hBMPBuff the bitmap

;_GDIPlus_GraphicsDrawImage($hGraphicGUI, $hBMPBuff, 0, 0); Draw bitmap, $hBMPBuff, to the GUI's graphics, $hGraphicGUI.

While 1
    Sleep(20)
WEnd

;Func to auto-redraw on Windows internal PAINT messages.
Func MY_PAINT($hWnd, $msg, $wParam, $lParam)
    ;_GDIPlus_GraphicsDrawImage($hGraphicGUI, $hBMPBuff, 0, 0)
    ;_WinAPI_RedrawWindow($hGui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW, $RDW_FRAME)) ; , $RDW_ALLCHILDREN
    Return $GUI_RUNDEFMSG
EndFunc   ;==>MY_PAINT

Func _Quit()
    ;_GDIPlus_BrushDispose($hBrush)
    _GDIPlus_ImageDispose($hImage)
    ;_GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_GraphicsDispose($hGraphicGUI)
    ;_WinAPI_DeleteObject($hBMPBuff)
    _GDIPlus_Shutdown()
    Exit
 EndFunc   ;==>_Quit

It's not the same as you have, because you are writing to memory and then you get from there,

this method puts the tiles directly, but serves to show the main concept.

BTW, you have to change the directory of the tiles and the txt file, as i had it in desktop/script dir.

Edited August 6, 2014 by careca

KhazWolf · August 6, 2014

Okay now we're getting somewhere. If I swap the X and Y coordinates it draws it fine. The problem is the size.

I'm very well aware that my original intended result was massive. I wanted to compile a gigantic image that I can later scale down once I'm ready to finalize things. A little smaller maybe I could deal with, but not nearly this much.

Can you explain why you needed to scale it down? Is there a workaround for a bigger output file you can think of?

Is this the wrong software to be using for my purpose here? ie/ I don't need a GUI I don't need to look at it, all I want is something to stitch the files together.

EDIT: Like, yeah, if I make the tiles 50x50 it draws about half the map and just quits on the spot. Doesn't even draw a full screen height. What it DOES do looks great though.... nnnghhh so close.

Edited August 6, 2014 by KhazWolf

KhazWolf · August 7, 2014

I'm sorry to bump so quickly but I still can't get this to save the completed image at all... This is the program as I'm running it:

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
_GDIPlus_Startup()
Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled

Global $GuiSizeX = 480, $GuiSizeY = 480
Global $hImage, $SS[33][33]
Local $Line
Local $TileW = 15
Local $TileH = 15

$hGui = GUICreate("MAP", $GuiSizeX, $GuiSizeY, 300, 0)
GUISetOnEvent(-3, "_Quit")
GUISetState()

$mapfile = FileOpen(@ScriptDir& '\MAPFORASSEMBLE2.txt', 0)

For $i = 1 to 32
   $line = FileReadLine($mapfile, $i)
   $temp = StringSplit($line, Chr (9), 1)
   For $j = 1 to $temp[0]
    $hGraphicGUI = _GDIPlus_ImageLoadFromFile(@ScriptDir &'\'& $temp[$j] & 'FIX.png')
    $hGfx = _GDIPlus_GraphicsCreateFromHWND($hGui)
    $hImage = _GDIPlus_ImageResize($hGraphicGUI, $TileW, $TileH, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC)
    $y = ($i -1) * $TileW
    $x = ($j -1) * $TileH
    _GDIPlus_GraphicsDrawImageRect($hGfx, $hImage, $x, $y, $TileW, $TileH)
   Next
Next

FileClose($mapfile)

GUIRegisterMsg(0xF, "MY_PAINT"); Register PAINT-Event 0x000F = $WM_PAINT (WindowsConstants.au3)
GUIRegisterMsg(0x85, "MY_PAINT") ; $WM_NCPAINT = 0x0085 (WindowsConstants.au3)Restore after Minimize.

Local $sNewName = "E:\Creations\Comb.png"
_GDIPlus_ImageSaveToFile($hGfx, $sNewName)

While 1
    Sleep(5)
WEnd

;Func to auto-redraw on Windows internal PAINT messages.
Func MY_PAINT($hWnd, $msg, $wParam, $lParam)
    ;_GDIPlus_GraphicsDrawImage($hGraphicGUI, $hBMPBuff, 0, 0)
    ;_WinAPI_RedrawWindow($hGui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW, $RDW_FRAME)) ; , $RDW_ALLCHILDREN
    Return $GUI_RUNDEFMSG
EndFunc   ;==>MY_PAINT

Func _Quit()
    ;_GDIPlus_BrushDispose($hBrush)
    _GDIPlus_ImageDispose($hImage)
    ;_GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_GraphicsDispose($hGraphicGUI)
    ;_WinAPI_DeleteObject($hBMPBuff)
    _GDIPlus_Shutdown()
    Exit
 EndFunc   ;==>_Quit

The ImageSaveToFile just refuses to work. As written it does nothing. If you replace $hGfx with $hGraphicGUI it'll save that one tile, if you replace it with $hGui it'll crash, but it will not save the resulting picture...

Again - I don't have any need to actually draw this on screen. Can this be done entirely in memory? And why won't it saaave?

Edited August 7, 2014 by KhazWolf

careca · August 7, 2014

It looks like it needs to be visible to draw, im not an expert on gdi, maybe others can step in and give some tips, but anyway, i think the best bet would be to draw it smaller, and save the result as screenshot, because when you save from memory, it'll save the tile itself, but as i said, maybe an expert can step in.

My help is more focused on the loops. :sweating:

KhazWolf · August 7, 2014

Well, I hope such an expert does show up.

I recall reading some things before about setting your resolution before. Can you set your screen resolution to something ridiculous so it all fits on a screen or something?

I just really want to make this work already...

KhazWolf · August 8, 2014

I found my workaround.

I made the tiles in excel so I reprogrammed my macro to draw the entire map there and just copy that. It took five hours but it worked. (To be clear - it took the computer five hours to execute)

The solution is unfortunately to not use AutoIt or GDI+ in the first place.

Edited August 8, 2014 by KhazWolf

careca · August 8, 2014

Well, whatever the tool, as long as it gets the job done..

Werty · August 8, 2014

Try reading this thread...

'?do=embed' frameborder='0' data-embedContent>>

ImageMagick is very easy to use with AutoIt, see the example, but UEZ has also a GDI solution in the thread.

Assemling Large Image Doesn't Work

Recommended Posts

Link to comment

Share on other sites

IUIAutomation - Topic with framework and examples

Link to comment

Share on other sites

IUIAutomation - Topic with framework and examples

Link to comment

Share on other sites

Link to comment

Share on other sites

IUIAutomation - Topic with framework and examples

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

IUIAutomation - Topic with framework and examples

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

IUIAutomation - Topic with framework and examples

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members