Bitmap Library

[evilertoaster]

Nice one i will try it now..

AIT stands for AutoIt Image Texture

[edit]

#include <GUIConstants.au3>
#include <BMP.au3>

GUICreate("Woot", 400,400)
GUICtrlCreateGraphic(0,0)

    $bmp = _OpenBMP("206px-Angelina_Jolie_Tomb_Raider.bmp",0)
    If IsArray($bmp) Then
        For $x = 0 to UBound($bmp,1)-1
            For $y = 0 to UBound($bmp,2)-1
                GUICtrlSetGraphic(-1, $GUI_GR_COLOR,Dec(_PixelRead($bmp,$x,$y)));Dec($bmp[$x][$y]) gives the same..
                GUICtrlSetGraphic(-1, $GUI_GR_PIXEL,$x,$y)
            Next
        Next
    EndIf

GUISetState()

While 1
    If GUIGetMsg() = -3 Then
        Exit
    EndIf
WEnd

Gives this:

Tha code runs fine on my PC...i get a normal image... can you maybe attach the image file you are using?

[evilertoaster]

Yes you can use my code and example for the official release.

Thanks RazerM I kinda assumed you wouldn't mind and put your example in yesterday, plz don't hurt me

Much appreciated!

[RazerM]

When i opened a bmp and displayed it with graphic controls it was blue instead of yellow

This is the bmp:

Edited June 23, 2006 by RazerM

[NELyon]

isn't blue the opposite of yellow?

[evilertoaster]

Yes, looks like some problem with the GUISetGraphic function... the BMP shows up fine when i write it to a file... try this-

GUICreate("Woot", 400,400)
GUICtrlCreateGraphic(0,0)

$bmp = _OpenBMP("signature.bmp",1)
   
If IsArray($bmp) Then
    For $y = UBound($bmp,2)-1 to 0 step -1
        For $x = 0 to UBound($bmp,1)-1 step 1
            $temp=_PixelRead($bmp,$x,$y)
            GUICtrlSetGraphic(-1, $GUI_GR_COLOR,"0x"&StringMid($temp,5,2)&StringMid($temp,3,2)&StringMid($temp,1,2))
            GUICtrlSetGraphic(-1, $GUI_GR_PIXEL,$x,$y)
        Next
    Next
EndIf
GUISetState()

While 1
    If GUIGetMsg() = -3 Then
        Exit
    EndIf
WEnd

Looks like its BBRRGG instead of RRGGBB

Edited June 23, 2006 by evilertoaster

[RazerM]

Yes i noticed the bmp was written using BGR when writing the example. At least that workaround works.

Created a Function To help

expandcollapse popup

#include <GUIConstants.au3>
#include <BMP.au3>
GUICreate("BGR to RGB", 400,400)
GUICtrlCreateGraphic(0,0)

$bmp = _OpenBMP("signature.bmp",1)
$bmp_rgb = _BMPToRGB($bmp)
If IsArray($bmp) Then
    For $x = 0 to UBound($bmp_rgb,1)-1
        For $y = 0 to UBound($bmp_rgb,2)-1
            GUICtrlSetGraphic(-1, $GUI_GR_COLOR,Dec(_PixelRead($bmp_rgb,$x,$y)))
            GUICtrlSetGraphic(-1, $GUI_GR_PIXEL,$x,$y)
        Next
    Next
EndIf

GUISetState()

Do
Until GUIGetMsg() = -3

Func _BMPToRGB($BMP)
    Local $BMP2 = $BMP
    For $x = 0 to UBound($bmp,1)-1
        For $y = 0 to UBound($bmp,2)-1
            $temp = $BMP[$x][$y]
            If $temp <> "" Then $BMP2[$x][$y] = StringMid($temp, 5, 2) & StringMid($temp, 3, 2) & StringMid($temp, 1, 2)
        Next
    Next
    Return $BMP2
EndFuncoÝ÷ Ù.r¥u©l¡§]jz-êéj¶¦j׫¶âÅéQy§eG­+ºÚ"µÍ[ÈÔ^[XY
TY  ÌÍÐT[K   ÌÍÞ  ÌÍÞK ÌÍØÛÛÜHH  ][ÝÐÔ][ÝÊBSØØ[   ÌÍÕÚYUPÝ[
    ÌÍÐT[KJBSØØ[   ÌÍÒZYÚUPÝ[
    ÌÍÐT[KBRY    ÌÍÞ  ÝÉÌÍÕÚYLHÜ   ÌÍÞ  ÌÜ    ÌÍÞIÝÉÌÍÒZYÚLHÜ   ÌÍÞIÌ[]
LJBRY   ÌÍØÛÛÜH   ÉÝÈ  ][ÝÔÐ][ÝÈÜ    ÌÍØÛÛÜH   ÉÝÈ  ][ÝÔÐ][ÝÈ[]IÌÍØÛÛÜIÌÍÐT[VÉÌÍÞVÉÌÍÞWBRY    ÌÍØÛÛÜI][ÝÉ][ÝÈ[  ÌÍÐÛÛÜI][ÝÑ][ÝÂRY ÌÍØÛÛÜHH  ][ÝÐÔ][ÝÈ[]    ÌÍÐÛÛÜRY  ÌÍØÛÛÜHH  ][ÝÔÐ][ÝÈ[]Ý[ÓZY
    ÌÍÐÛÛÜ
KH  [ÈÝ[ÓZY
    ÌÍÐÛÛÜËH [ÈÝ[ÓZY
    ÌÍÐÛÛÜKB[[Â

It uses BGR as default so all current scripts will work fine

If the user wants it to return the colour in RGB they use "RGB" as the last parameter

Edited June 24, 2006 by RazerM

[evilertoaster]

OK cool. Will add the pixel read function but on thing first about the BMP converter...I work's from what I see but I'm thinking it will need to be converted back before BMPwrite works correctly... ill be working on it.

And also it says the defualt color is autoit should be in BGR? Is this an actual bug with the setgraphic function?

[RazerM]

The default colour in AutoIt is RGB, use

Opt("ColorMode", 1)oÝ÷ ÚÚ.±àFE.r¥v·§jg0ôèD`m 
h¬Êy,¥«­¢+ÙÕ¹} 5A
½±½É5½MÝÀ ÀÌØí   5@¤(1½°ÀÌØí  5@ÈôÀÌØí  5@(½ÈÀÌØíàôÀѼU  ½Õ¹ ÀÌØíµÀ°Ä¤´Ä(½ÈÀÌØíäôÀѼU   ½Õ¹ ÀÌØíµÀ°È¤´Ä(ÀÌØíѵÀôÀÌØí  5AlÀÌØíáulÀÌØíåt(%ÀÌØíѵÀ±ÐìÐìÅÕ½ÐìÅÕ½ÐìQ¡¸ÀÌØí   5@ÉlÀÌØíáulÀÌØíåtôMÑÉ¥¹5¥ ÀÌØíѵÀ°Ô°È¤µÀìMÑÉ¥¹5¥ ÀÌØíѵÀ°Ì°È¤µÀìMÑÉ¥¹5¥ ÀÌØíѵÀ°Ä°È¤(9áÐ(9áÐ(IÑÕɸÀÌØí 5@È)¹Õ¹

because it changes the order both ways. On the other hand it does'nt edit the original array, a copy is made. In the post i made earlier i use $bmp_rgb as the new array, $bmp is untouched.

Edited June 25, 2006 by RazerM

[evilertoaster]

Thanks for the ideas RazerM, I went about it a differnt way in the end (I think it's simpler this way).

The color will simply be whichever is defined by the AutoIt option "ColorMode". See the updated version.

[RazerM]

Looks really good, I'm not on a computer with AutoIt at the moment. I'll try it later.

[evilertoaster]

Updated to 1.6

[XxXFaNtA]

Great!

That was exactly what i was searching for! Thanks

[jvanegmond]

Tha code runs fine on my PC...i get a normal image... can you maybe attach the image file you are using?

I've tried working around this but i just can't get it sorted.. Here's the file:

[XxXFaNtA]

hm..i tested it but it somehow destroys the wholepicture

Edit:

Okay the Problem is only if i save the picture without renaming it...

Example:

$bmphandle = _BMPOpen($bmppath)
;stuff like...
_PixelWrite($bmphandle,0,0,$color)
;
_BMPWrite($BMPHandle,$bmppath)

Just change the _BMPWrite path to something like @Scriptdir &"\edited.bmp"

Edited June 30, 2006 by XxXFaNtA

[evilertoaster]

hm..i tested it but it somehow destroys the wholepicture

Edit:

Okay the Problem is only if i save the picture without renaming it...

Example:

$bmphandle = _BMPOpen($bmppath)
;stuff like...
_PixelWrite($bmphandle,0,0,$color)
;
_BMPWrite($BMPHandle,$bmppath)

Just change the _BMPWrite path to something like @Scriptdir &"\edited.bmp"

Hey, yes that would do it....the writing for the BMPWrite is done in 'add to end of file' write mode. For this reason it wouldn't really work to write to an already existing file. I've added a check for this which I'll put in the new version.

@Manadar- Humm, this looks like a problem that was occuring before...I will be looking at it agian. For now if you open it in mspaint and change the size to somthing like 200x160 it seems to work fine....Don't knw why yet...

[XxXFaNtA]

i really like the program..i'm already making something with it...is there also a way to get the image dimensions (width and height?).

Ah...and as i tested the Script with a bigger Image i had a nice bug that the progress bar change from 1 to 0 xD...and it loaded the bitmap veeeery slowly

But still great job on this!

[evilertoaster]

Yes, BMPs are stored in a pretty simple array. So width should be Ubound($BMPHandle,1), and height should be Ubound($BMPHandle,2).

Progress bar glictch may be resolved now, but don't worry to much about it, I have to offset the actual progress at the begining and end becuase the formula to get the %done requires a division by 0...and yes like mentioned on first post it is still pretty slow (is faster now than in 1.5 but still)...not to much i can do really (I'm open to any speed enhancement sugestions trust me^^)

Manadar- The problem should be fixed now... please let me know if it's not (bmp's seem to have alot of different format options ) and can send some example bmp's

Edit: It's updated to 1.7 BTW

Edited June 30, 2006 by evilertoaster

[evilertoaster]

Updated to 1.8.

[Jerund]

I've been trying to use this and I'm getting this error message now that I'm using AutIT 3.2.0.1

C:\AutoIt3\Projects\BMP.au3(304,29) : ERROR: Opt() [built-in] called with wrong number of args.

Local $type=Opt("ColorMode")

~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\AutoIt3\Projects\BMP.au3(325,29) : ERROR: Opt() [built-in] called with wrong number of args.

Local $type=Opt("ColorMode")

~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\AutoIt3\Projects\BMP.au3(29,36) : ERROR: BitRotate(): undefined function.

$s2 = BitAND(BitRotate($adler,16)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\AutoIt3\Projects\BMP.au3(135,42) : ERROR: Floor(): undefined function.

_PixelWrite($BMPHandle,Floor($x-$Width/2)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\AutoIt3\Projects\BMPDude.au3 - 4 error(s), 0 warning(s)

!>AU3Check ended.rc:2

Any idea what could be causing that?

[Jerund]

Cool that seemed to help, thanks.