Combine 3 images into one

[monoceres]

Ehm so this is just me playing around with bitmaps, so don't expect anything too fancy here...

This script basically combines three images into one by saving the first image in the red channel, the second in the green and the third in the blue channel. This means that the output image will still work as any other image, just that the image seem to be a blend of all three with the colors f-d up.

However it's still possible to retrieve monochrome versions of the images (which is the point with the entire script), by using some tricks in photo editing software. For example, in photoshop you can use the following procedure:

• Open the image
• Go to Image->Adjustments->Channel mixer
• Check "monochrome" and then reset all values to 0 except for the channel you want to view, that one you set to 100.

Here's the script:

Combiner.au3

And here's an image I combined:

http://monoceres.se/Uploads/output.png

Ps.

It should work with most images, but if you have any problems convert your images into 24-bit uncompressed .bmp files and everything should work ok.

[GreenCan]

@monoceres

Nice effect.

Combiner.au3 (73) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

$aData[$col][$row] = BitXOR($aData[$col][$row], "0x0000" & $average)

It crashed at 2/3 of the process, 3 tests with different images.

Should the 3 images have exactly the same height and width maybe?

Greencan

[StrategicX]

ha, awesome lil script mate! I like creative projects like this, No matter what they are or do, atleast you learn something from them that you didnt know before! gj

[UEZ]

Nice work but how about a preview before saving the image?

• file name will be saved without extension (png)
• saved image is bmp although you can select jpg, png.

UEZ

PS: I sent you a message - did you get it?

Edited February 13, 2009 by UEZ

[monoceres]

Thanks everyone

@monoceres

Nice effect.

Combiner.au3 (73) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

$aData[$col][$row] = BitXOR($aData[$col][$row], "0x0000" & $average)

It crashed at 2/3 of the process, 3 tests with different images.

Should the 3 images have exactly the same height and width maybe?

Greencan

The first image need to be the largest, forgot to mention that.

Nice work but how about a preview before saving the image?

• file name will be saved without extension (png)
• saved image is bmp although you can select jpg, png.

UEZ

PS: I sent you a message - did you get it?

The preview is easy to implement, not sure if it's needed though..

The extension works if you actually type the the extension yourself in the dialog. Not sure how to fix it, since I cannot see a way to see what filter the user chose.

Oh right, I remember I got a message and then forgetting about it, I'll look again and post and answer real soon

[Josbe]

...that it was nice.

[Andreik]

Nice work monoceres. I have only a question. I used this code to split a bitmap on every channel and when I combine the bitmaps, results a bitmap like first but a little more dark. Have an idea why?

This is the code that I use to split channels:

expandcollapse popup

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <Color.au3>
#include <WinAPI.au3>

$PATH = FileOpenDialog("IMAGE",@DesktopDir,"Bitmaps (*.bmp)",1)
$CHOOSE = GUICreate("Choose",100,60,-1,-1,0x16C80000)
$COMBO = GUICtrlCreateCombo("",5,5,90,20)
GUICtrlSetData($COMBO,"RED|GREEN|BLUE","RED")
$SELECT = GUICtrlCreateButton("OK",5,30,90,20)
GUISetState(@SW_SHOW,$CHOOSE)
While 1
    $MSG = GUIGetMsg()
    If $MSG = $SELECT Then
        $CHANNEL = GUICtrlRead($COMBO)
        GUIDelete($CHOOSE)
        ExitLoop
    ElseIf $MSG = -3 Then
        Exit
    EndIf
    Sleep(15)
WEnd

$SAVE = FileSaveDialog("SAVE",@ScriptDir,"Bitmap (*.bmp)",16,"Bitmap_" & $CHANNEL)
If @error Then 
    $SAVE = @ScriptDir & "\Bitmap.bmp"
Else
    $SAVE = $SAVE & ".BMP"
EndIf

_GDIPlus_Startup()
$IMAGE = _GDIPlus_ImageLoadFromFile($PATH)
$X = _GDIPlus_ImageGetWidth($IMAGE)
$Y = _GDIPlus_ImageGetHeight($IMAGE)
_GDIPlus_ImageDispose($IMAGE)

$GUI = GUICreate("GDI+",$X,$Y,-1,-1,0x80000000)
GUISetBkColor(0xFFFFFF)
$PICTURE = GUICtrlCreatePic($PATH,0,0,$X,$Y)
GUISetState(@SW_SHOW,$GUI)

$DC = _WinAPI_GetDC($GUI)
$C_DC = _WinAPI_CreateCompatibleDC($DC)
$BITMAP = _WinAPI_CreateCompatibleBitmap($DC,$X,$Y)
_WinAPI_SelectObject($C_DC,$BITMAP)
_WinAPI_BitBlt ($C_DC,0,0,$X,$Y,$DC,0,0,$SRCCOPY)
$BITS = DllStructCreate ("dword[" & ($X * $Y) & "]")
DllCall ("gdi32", "int", "GetBitmapBits", "ptr", $BITMAP, "int", ($X * $Y * 4), "ptr", DllStructGetPtr ($BITS))
GUICtrlDelete($PICTURE)

For $CY = 0 To ($Y - 1)
    For $CX = 0 To ($X - 1)
        $INDEX = ($CY * $X) + $CX
        $COLOR = DllStructGetData ($BITS,1, $INDEX)
        $RED = Hex(_ColorGetRed($COLOR),2)
        $GREEN = Hex(_ColorGetGreen($COLOR),2)
        $BLUE = Hex(_ColorGetBlue($COLOR),2)
        If $CHANNEL = "RED" Then
            $COLOR = "0x" & $RED & "0000"
        ElseIf $CHANNEL = "GREEN" Then
            $COLOR = "0x00" & $GREEN & "00"
        ElseIf $CHANNEL = "BLUE" Then
            $COLOR = "0x0000" & $BLUE
        EndIf
        DllStructSetData ($BITS,1,$COLOR,$INDEX)
    Next
    DllCall ("gdi32", "int", "SetBitmapBits", "ptr", $BITMAP, "int", ($X * $Y * 4), "ptr", DllStructGetPtr ($BITS))
    _WinAPI_BitBlt ($DC,0,0,$X,$Y,$C_DC,0,0,$SRCCOPY)
Next
$HIMAGE = _GDIPlus_BitmapCreateFromHBITMAP($BITMAP)
_GDIPlus_ImageSaveToFile($HIMAGE,$SAVE)
_WinAPI_DeleteObject($HIMAGE)
_WinAPI_DeleteObject($BITMAP)
_GDIPlus_Shutdown()
_WinAPI_ReleaseDC($GUI,$DC)