Skip to content

Instantly share code, notes, and snippets.

@tmplinshi
Last active January 21, 2022 18:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save tmplinshi/9929637 to your computer and use it in GitHub Desktop.
Save tmplinshi/9929637 to your computer and use it in GitHub Desktop.
CreateDIB
; http://8bitdecals.com/wp-content/uploads/2012/06/pixel-superheroes.jpeg
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064463|F3FFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|C9FBFF|0A88C5|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|F6FFFE|FEFEFE|FFFFFF|FFFFFF|FEFEFE|CDFDFF|0B89C6|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|044564|0D8CC9|E9FFFF|FEFEFD|FEFEFD|D9FEFF|0072A9|098BC5|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|0A6793|016995|016995|016B98|036998|006EA6|0A89C7|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|086695|016999|016999|016999|016999|006CA4|0A89C9|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|066E94|016999|016999|016999|026994|0071A8|078BC6|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|F2FEFD|14658B|016999|016999|216175|CDFDFF|0A8AC4|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|086891|016999|016999|016999|026899|0071A6|088AC6|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|044564|0C6691|08658F|046791|046791|076591|006FA3|088EC6|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|D79723|F08F04|EF9102|EF9103|F19003|A0A363|0C8BC8|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064464|E0B05D|F5A940|F4A943|F4A943|F5A940|B2BB96|0A87C8|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|064561|CFAF7D|E8A63D|F6A83D|F5A93E|DFA64E|A7BFA9|0C88C1|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FEFEFE|094862|08679A|A7BBA3|ABA062|BFB47E|8DB1AD|006FA7|007FB7|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FEFEFE|010101|064765|076695|016999|016999|016999|016999|0070A5|0C89CA|000000|FEFCFD|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|18607F|1C5F82|1A5D82|0C678E|056996|016999|016999|016999|016999|016A9C|0570B1|2082AF|2381AF|2785B1|FEFEFE|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|143D42|016999|016997|016997|016999|016999|016999|016999|016999|016999|016999|006599|0171A9|0070A8|0A78B3|2A7C92|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|014660|026A9A|00040A|05475E|006898|016995|00426C|004567|004567|014D77|016999|026994|1788C5|00080C|036B9B|0190CF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FEFFFF|02475F|036998|020002|034462|036A96|01496A|004464|014563|014563|05445E|004C77|01689B|0D8AC9|010207|006A97|008ED3|FEFEFE|FFFFFF
FFFFFF|FFFFFF|FEFEFE|03455E|026899|030103|034462|036B97|066896|004663|014563|014563|004A6D|096795|006898|0B8DCA|000102|046C9C|008ED1|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|313338|616966|020100|034462|036B97|016997|076496|066898|056797|046799|026899|006898|0B8DCA|020304|2F3136|61676D|FFFFFF|FFFFFF
333333|333333|333333|333333|666666|010101|034462|036B97|016999|016999|016999|016999|016999|016999|006896|0B8CCE|000000|343434|666666|666666|666666
FFFFFF|333333|333333|333333|666666|010101|034462|036B97|016999|016999|016999|016999|016999|016999|006896|0B8CCE|000000|343434|666666|666666|636363
FCFCFC|FEFEFE|333333|333333|666666|020202|034462|036B97|016999|016999|016999|016999|016999|016999|006898|0B8DCA|000000|343434|666666|666666|FBFBFB
FFFFFF|FEFEFE|FFFFFF|333333|000000|010101|03465F|056996|026C99|016999|016999|016999|02679C|01689B|026A98|0C8BC9|010101|000000|656565|FEFEFE|FFFFFF
FFFFFF|FFFFFF|FFFFFF|333333|676767|020100|E4BB09|066A94|E1E432|186671|DCE359|2A6745|3B6A30|C9E574|0B6789|F3EF0B|000000|353535|656565|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|333333|010101|010101|E3BE0B|E6BE06|FBE108|E6C203|FEDF0A|E4C200|E5C100|FEDE0F|E2BD01|F9EB10|020202|000000|656565|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|020202|DEC20E|086F89|E7E02F|1A676A|D4E35C|2C6C45|306828|CFE16B|08667A|F4ED10|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|010101|044563|036B9B|068ECB|00040B|010102|000000|000D15|004971|00689A|0C8CC6|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|010101|034462|036B97|068DCF|00040C|000000|000000|000D17|004971|00689A|0B8DCA|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|010101|034462|036B97|068DCF|00040C|000000|000000|000D17|00496E|00689A|0B8CCE|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|010101|06455F|036998|088BD2|000710|000000|000000|000D17|00496F|056A9F|0C8CC6|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|000000|333333|333333|656565|000000|000000|000000|000000|333333|323232|6A6A6A|000000|000000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|000000|FEFEFE|333333|333333|666666|000000|020202|000000|000000|333333|323232|676767|FFFFFF|010101|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|FFFFFF|FDFDFD|333333|333333|666666|FFFFFF|000000|FFFFFF|FFFFFF|333333|303030|646464|FFFFFF|FFFFFF|010101|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|313131|333333|333333|666666|FFFFFF|FFFFFF|FFFFFF|FFFFFF|333333|333333|363636|636363|FFFFFF|FFFFFF|FFFFFF|FFFFFF
)
hBM := CreateDIB( PixelData, 21, 35 )
Gui, Margin, 0, 0
Gui, Add, Picture, w263 h464 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show,, CreateDIB() Demo - batman.png
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
; http://xquatrox.deviantart.com/art/8-Bit-heart-stock-287592934
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
FFFFFF|FFFFFF|FFFFFF|000000|000000|000000|FFFFFF|FFFFFF|FFFFFF|FFFFFF|000000|000000|000000|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|000000|FF0000|FF0000|FF0000|000000|FFFFFF|FFFFFF|000000|FF0000|FF0000|E90000|000000|FFFFFF|FFFFFF
FFFFFF|000000|FF0000|FF5252|FFD1D1|FF5151|FF0000|000000|000000|FF0000|FF0000|FF0000|FF0000|E90000|000000|FFFFFF
000000|FF0000|FF5151|FFD0D0|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C40000|000000
000000|FF0000|FFD1D1|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000
000000|FF0000|FF5151|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000
000000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C40000|000000
FFFFFF|000000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000|FFFFFF
FFFFFF|000000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000|FFFFFF
FFFFFF|FFFFFF|000000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|000000|FF0000|FF0000|FF0000|FF0000|FF0000|FF0000|E90000|C50000|000000|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|000000|FF0000|FF0000|FF0000|FF0000|E80000|C50000|000000|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|000000|FF0000|FF0000|E90000|C40000|000000|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|000000|E90000|C50000|000000|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|000000|000000|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
)
hBM := CreateDIB( PixelData, 16, 15 )
Gui, Margin, 0, 0
Gui, Add, Picture, w759 h712 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show,, CreateDIB() Demo - heart.png
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
; http://www.highsnobiety.com/news/wp-content/uploads/2012/03/8-bit-movie-posters-0.jpg
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5AA0EE|5BA1EF|58A1EE|58A1EE|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|58A1EE|293F5F|19304B|1C2F4A|1B3E67|58A3F1|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|599FED|385580|335A84|3F0E17|3E0004|3C0003|490718|315786|335782|57A2EC|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|4678BD|342F09|3C2D0F|7A0400|860103|840002|810100|392B05|352E11|4079B7|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5FA0ED|64A1E2|000100|F9CE55|FFC443|8A1C0A|800100|82000A|8D1D00|FEC440|FCC949|000300|5DA3E9|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5CA2F0|020202|FFD951|FDC738|FFC443|FDC543|A53A13|A93617|FEC342|FFC443|FEC144|FFD65B|010203|5AA4EC|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5CA3EB|63B1FA|030409|8E0107|FFD64E|FECE49|FAC43D|FFC443|FFC443|F9C243|FFCB47|FDD750|8B0307|05040C|5DB1FF|59A3ED|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5DA1F5|010301|830100|810107|000000|010200|E4B542|FEC73D|FDC63F|E1B235|000103|040203|810401|850201|010301|5AA3F0|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA0F6|000200|830100|FCD146|DCEBFB|DBE7FD|DBE7FD|626670|5F6669|DBE7FD|DBE7FD|DEE8FC|FECE47|850201|000200|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|58A1EE|040700|8C0004|FFCB48|FAC346|FDC543|FDC543|FFC443|FDC543|FDC543|FDC543|F9C23B|F6CF47|8A0003|010203|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA1EF|59A2EF|58A4EA|54A2ED|57A6F3|020000|860205|FFCC45|FAC643|FFC443|FFC443|FFC443|FFC444|FFC541|FDCE41|860004|070102|56A4EB|57A3EA|5BA1EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA1EF|5CA1EF|58A2EA|020002|060100|030000|880003|860000|FCD646|FFC443|FEC644|FEC644|FCC544|FFD24A|810107|860103|04010A|030201|000103|5BA1EF|5BA0EE|5BA0EE|5BA0EE|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|58A1EE|59A2EF|59A4F0|59A4F0|59A4F0|58A2EC|010000|010403|000300|880001|8A0205|000106|8B0004|850003|FED244|29230B|020001|020001|251E0B|FFD94A|870005|8A0005|000307|850003|8B0004|000503|000201|000201|000204|50A0E8|58A1EE|5AA3F0|57A0ED|59A2EF|59A2EF
59A2EF|5CA9FA|020100|030000|030000|020100|040302|F1C33F|840005|88010C|F9C243|F6C641|85010C|000003|890000|030102|DFB137|FFC444|FEC345|ECB33F|080100|900004|00030A|820409|FCC44A|F8C53F|860207|860300|FEC345|FEC343|070002|020100|030000|020100|5FA8F7|59A2EF
59A2EF|5AAAFA|010101|850103|850103|840201|000403|FFC645|F8C442|890102|FEC342|FEC645|820303|810401|0A0005|900006|890007|850104|850104|830007|890104|000403|870000|880003|830000|FFC444|8B0001|FEC33B|FFC847|8C0304|070104|840000|840203|030102|5FA7F8|59A2EF
59A2EF|5FA3DD|57A1F1|040100|040101|040101|010101|030405|050506|010203|010404|880400|810300|860103|870306|010403|040102|040102|040102|040005|020004|7E030D|850000|850002|830000|820707|040204|060406|040204|020004|020001|040307|040102|D7E8FC|559BEB|59A2EF
59A2EF|59A2EF|5BA2FC|D8E8FF|D5E4FF|D9E5FB|519EED|5A9FEB|5A9FEB|5A9FEB|5AA1EC|020003|880003|850104|850002|020202|C7D6DC|D2E6F9|D3E6FD|C8D1DF|000305|870003|840001|8C0004|030103|030608|5CA1EF|5A9FEB|5A9FEB|5A9FEB|5A9FEB|D2E4F1|D4E5FF|58A4F8|59A2EF|59A2EF
59A2EF|59A2EF|57A0ED|589DEB|DDE5F8|579DED|59A2EF|59A2EF|59A2EF|59A2EF|58A3EF|58A7F2|040108|860205|850002|850103|1A0001|9AA3A9|9F9DA7|170304|8C0000|860103|880001|030000|57A8F2|5BA7ED|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|579EE7|D3EAFA|56A0EA|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|61A1F4|DAE7FF|599FE5|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A6F5|030002|8D0101|840203|850002|8A0205|380100|390000|870204|850002|840002|8A0300|000200|5BA4F3|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|51A2EE|59A4F0|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|53A7F6|55A0EA|57A3E9|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5D9FE4|58A2F4|080001|860109|850002|850002|8B0105|860302|850002|850002|7D0201|090008|58A6F1|58A2EC|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5AA0EE|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|58A1EE|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|58A1EE|5BA4F1|000100|870204|850002|850002|850002|850002|850002|850002|8D0005|010004|5BA1EF|5AA3F0|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|020001|C7762A|7F0200|850002|850002|850002|870002|830102|C67628|000003|5CA2F0|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|57A0ED|3A6FA3|584618|FFC743|8D2706|810300|850002|850002|8B000E|922607|FFCF48|534515|3B6C9F|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5EA1EE|5096D4|201C08|FDCC49|FFC443|FDC543|8A2604|820303|840503|8A2500|FFC544|FFC443|FFC741|1F1903|4B96D6|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A1F6|020300|FFCE4A|F5C63C|FFC443|FFC443|F8C853|73571F|70591B|F4C95A|FFC147|FFC443|FFC443|F9C542|010101|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA1EF|5BA1F1|5AAAFA|000108|92000B|FFD246|FDC744|FEC342|271D0B|375985|30577E|23240A|FFCA49|FDC043|FAC143|F7C645|04000D|56A6F6|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA1E7|56A3F1|60A0F3|000200|850002|850002|860103|FFCD4C|FEC345|2B1C0C|345A77|59A2EF|4E8FCF|030102|F1C842|FDD640|860205|8E0002|000805|59A4F2|5AA4EB|5A9FE9|58A2EC|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5EA4F4|030000|010008|7F0102|850002|850002|850002|860300|020203|518CCE|62A2F2|59A2EF|4F90D0|020001|860200|870000|850002|830000|890003|040203|060000|55A3EE|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|030206|860006|850003|880003|870002|870002|870002|860103|010205|518DCA|59A2EF|59A2EF|4F8ECC|030000|870202|870002|870002|870002|850103|860006|850201|000305|5BA1F2|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|030001|000000|000000|020202|010100|010100|020201|010100|040102|508ECA|59A2EF|58A1EE|4F8ECC|020100|010102|010102|010102|000000|000000|010100|000102|000003|5BA1F1|5BA1EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5CA2F2|55A4EF|5AA5E7|54A3E8|D8E8FF|D8E8FF|D8E8FF|4FA0EA|57A2EC|56A1EB|59A2EF|58A1EE|5BA1F2|4A98EB|DAE6FD|D8E8FF|D8E8FF|D8E8FF|D6EAFD|54A3EE|58A2F2|59A1F2|54A1EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A4F0|D8E9FD|DAE8FE|DAE8FE|DAE8FE|DAE8FD|4D9DEB|59A2EF|59A2EF|59A2EF|59A2EF|4E9CE7|DAE9F9|DBE9FF|DAE8FE|D7E9FF|D8E9FB|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5EA3ED|DCE6FC|DAE8FE|DAE8FE|DAE8FD|DAE6FC|4E9CE7|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|529CEE|DBEBFF|D8E5FF|DDEBFE|589FEA|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|57A2F0|DEE5FE|D7EBFC|D8E6FC|55A0EC|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|4FA0EA|D5E7FB|5BA1E7|D5EEF5|58A3EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5BA1F1|5DA4EF|DCE4F1|5199F8|5AA5E9|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5DA4EF|4A9DEA|D8E7F5|5AA3F0|59A2F1|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A3ED|5EA0E5|57A4F5|D3EEF0|549EEE|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|589ADF|D5ECED|51A0F5|59A2EF|59A3ED|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|56A3FC|DCE8F1|4BA0EB|59A5E9|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|5AA0F0|549EE6|5BA1EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|57A1E9|4AA1EF|56A5E8|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF|59A2EF
)
hBM := CreateDIB( PixelData, 36, 40 )
Gui, Margin, 0, 0
Gui, Add, Picture, w256 h283 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show,, CreateDIB() Demo - Iron Man.png
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
; http://ahkscript.org/boards/images/smilies/icon_e_smile.gif
#NoEnv
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
FFFFFF|FFFFFF|FFFFFF|F6F6F6|95907C|756845|695C3B|71633A|695C3B|6E6146|928C78|F6F6F6|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|D7D6D3|71633A|E6D439|F9EE22|FFF21C|FFED1B|FFE919|EDD51D|B59623|635740|D7D6D3|FFFFFF|FFFFFF
FFFFFF|9B988D|988343|F9EE22|FFF21C|FFF21C|FFF21C|FFE919|FFE919|FCE018|FED915|E8BF16|635633|9B988D|FFFFFF
EFEFEE|554B33|F9EE22|FFF21C|5C5748|5C5748|FFF21C|FFE919|FFE318|5C5748|5C5748|FECA10|EFBD12|463A27|EFEFEE
928C78|D6C630|FFED1B|5C5748|FFF21C|FFF21C|FFED1B|FFE919|FCE118|FED815|FECA10|5C5748|FEC510|9A701B|8A8473
5F543A|FCE118|FFE919|FFE919|FFED1B|FFED1B|FFE919|FFE418|FEDC16|FED213|FEC510|FEC20F|FEBD0F|EDB011|51442E
635633|FCE118|FFE418|FFE418|000000|000000|FFE418|FEDC16|FED213|000000|000000|FEBD0F|FEB90E|FEB90E|51442E
71633A|FED915|FEDC16|FEDC16|968736|968636|FED915|FED213|FECA10|967C33|967C33|FEB90E|FEB50E|FEB10E|5B482C
554B33|FED213|FED213|FED213|FED213|FED213|FECA10|FEC510|FEC20F|FEBD0F|FEB50E|FEB10E|FEB10E|FEB10E|463A27
554B33|EFBD12|FECA10|FBC812|FEC510|FEC510|FEC20F|FEBD0F|FEB10E|FEB10E|FEB10E|FEB10E|FEAC0D|EB9B0F|554B33
88806E|B59623|FEC410|333333|333333|333333|333333|333333|333333|333333|333333|333333|FEA40C|9A701B|88806E
D7D6D3|635633|FEB90E|FEBD0F|333333|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|333333|FEA80D|FEA40C|5B482C|D7D6D3
FFFFFF|7D725E|9A701B|FEB90E|FEB50E|333333|333333|333333|333333|333333|FEA40C|FEA40C|9A701B|7D725E|FFFFFF
FFFFFF|EFEFEE|463A27|EEAA10|FEB50E|FEB10E|FEAC0D|FEA80D|FEA80D|FEA40C|FEA40C|EB9B0F|463A27|EFEFEE|FFFFFF
FFFFFF|FFFFFF|EAE9E8|463A27|D99812|FEAC0D|FEA80D|FEA80D|FEA40C|FEA40C|D78C11|463A27|EAE9E8|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|EAE9E8|635740|805D26|C08112|D78C11|C27F12|805D26|5F543A|EAE9E8|FFFFFF|FFFFFF|FFFFFF
FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF|BAB8B2|7D725E|6E6146|796E59|BAB8B2|FFFFFF|FFFFFF|FFFFFF|FFFFFF|FFFFFF
)
hBM := CreateDIB( PixelData, 15, 17 )
Gui, Margin, 110, 110
Gui, Add, Picture, w15 h17 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
; http://jguan.imgd.ca/img260/wordpress/wp-content/uploads/2013/02/spiderman4.jpg
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|234099|243E9D|FCFFFE|133693|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|234099|233F9D|FEFFFF|153491|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|234099|234097|2345A7|2042A6|FEFFF8|14379B|2145A4|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|253E9B|030206|080006|FEFFFB|000003|000102|2442A1|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|234099|234099|234099|1F4098|2841A4|000202|F41B27|FDFFFC|E91219|010205|2444A1|234099|234099|234099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|234099|25419D|243F97|253F9C|29439A|0B0602|F22229|EE1A26|FDFFFC|E7121B|EC1D27|0A020D|20449B|253F9E|21409D|23429B|234099|214099|214099|214099|214099|214099|214099
214099|214099|214099|234099|234099|243F99|214397|050A19|020610|000209|ED2028|EB1C25|F01B27|FDFFFC|E51019|EC1B25|EC1D2E|030711|020610|00030C|233E95|1F4096|234099|214099|214099|214099|214099|214099
214099|214099|214099|214099|1F3A94|000815|060712|263F98|22419A|214099|1B4097|E41C1E|E81A28|FFFEFD|E3101A|E51B28|1C409D|234099|214099|2341A0|000810|020312|1E3B91|234096|214099|214099|214099|214099
214099|214099|214099|25429B|000109|2B459C|243F99|24419A|234099|214197|1F3C88|050A19|010A12|FCFDFF|000410|040716|234194|223F98|214099|223F98|223F98|223E9A|030400|234099|234099|214099|214099|214099
214099|214099|214099|23429B|000D28|1E3986|25419F|214099|234099|254298|050818|1F398C|24368B|FBFEFE|143082|1F3C89|030E1D|26429E|214099|234099|26469C|223A80|060918|233F9B|214099|214099|214099|214099
214099|214099|214099|234099|24409C|030F2E|1F347E|234396|234099|234099|233E9E|080F28|040F1C|FAFFFE|00081F|060E2B|26409D|24419A|214197|25409A|243782|0D102C|25429B|234099|214099|214099|214099|214099
214099|214099|214099|234099|234099|1E3E94|05122B|1D3379|22419A|234099|234099|2A40A0|6073B6|FEFFFC|153595|234099|234099|214099|22419E|22357A|0B1235|25419D|234099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|223F96|071332|1B2A6C|1C2B6F|1C2B6C|1B2A6E|FFFFFF|FEFCFD|6170B2|1A296A|1C2B6F|182D6F|162E67|091432|234099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|243F97|000007|62110F|5E0B0A|631210|9A9D9C|FDFDFD|9B8E98|620C0C|600D0C|680B15|030405|24409C|243F99|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|24409C|0E1F55|790714|ED2028|EB1C25|F01B27|020100|F69B9A|020202|EE1E25|EA1D25|ED1C27|720A18|10205A|234099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|23429D|0B1843|8D101B|EB1E26|EB1C25|EB1C25|F01B24|000204|F9202C|040003|F51D22|EB1C25|EB1C25|EB1B20|820D15|101A48|234099|234099|214099|214099|214099|214099|214099
214099|214099|214099|234099|234099|233E96|070007|FF1E33|EA1D25|ED1925|650B0E|62070C|921419|EF1B27|8E1219|630D10|620C0F|ED1D22|E91C24|F21A27|010004|243F9F|234099|214099|214099|214099|214099|214099
214099|214099|214099|214099|24419A|09163F|A5171D|EC2225|6A3267|590D07|172C6B|A7141E|EF1E29|EB1C25|EE1A28|A21218|132764|520D19|663468|F21B22|AB1120|0B1634|234099|214099|214099|214099|214099|214099
214099|214099|214099|214099|081139|B11225|EB2323|4F3779|070F2F|19336E|BD2740|47090B|460904|460904|470904|3F0C08|B6284D|13316E|08102F|523981|ED1D24|B71521|031428|243E9B|234099|214099|214099|214099
214099|214099|214099|22419C|000307|F81D32|473B79|000E25|BE1426|C72446|3A0808|C21923|BD1921|BC1820|BC1724|BA1A1B|330B0B|C92341|C3131F|080F2C|3E3982|EE1827|010200|23429B|234099|214099|214099|214099
214099|214099|214099|24419A|000108|F6212D|00131D|D01328|EA1F28|2D0600|CA1E2B|EE1D27|EA1D25|EA1D25|EB1C25|EC1D27|CF1927|2F0405|ED1A22|CA1E24|020D1C|EF1A25|02000A|234099|234099|214099|214099|214099
214099|214099|214099|234099|000301|F81F31|050001|FB2035|220000|D91D2B|EF2029|EB1C25|EB1C25|EB1C25|EB1C25|EB1C25|E81D26|CE1C23|240305|F11824|000703|ED1A24|030400|234099|234099|214099|214099|214099
214099|214099|214099|234099|1B388F|16050B|020000|170805|000401|FD1F2D|EB1C25|EA1D25|EA1D25|EB1C25|E91C24|EA1D25|EB1E26|EF1A26|000000|1E0301|060504|170606|213F88|234099|214099|214099|214099|214099
214099|214099|214099|214099|214099|1F3F9D|233E9E|243F8F|050006|FE202E|F01B26|0F0201|0D0200|F91E2B|120000|0F0201|F01D25|F41829|000001|27409D|233E9E|283D96|234099|234099|214099|214099|214099|214099
214099|214099|214099|214099|22419A|234099|234099|24409E|010005|FD2029|0B0000|FBF9FA|000401|F71C25|010101|FFFFFA|100100|F31B28|020306|22419E|234099|234099|234099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|234099|253F9F|010005|FD1C31|060000|FFFFFF|000200|F91E29|010101|FFFFFF|010100|F41A28|020306|23429F|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|24419A|253F9F|030006|FC1F28|060000|080607|000300|F81F29|030102|000000|010100|EC1E28|020306|23429F|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|234099|253F9F|030008|FB202B|010000|FD2430|FA1B25|E81A24|FE1C27|FC1C2C|030102|ED1F29|020306|22419E|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|24419A|234097|020005|F61E2A|FC1E2C|EB1C25|EB1C25|EB1C25|EB1C25|EB1B22|F9212D|EF1A26|040405|22419E|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|234099|223F98|29429D|020001|F1222B|EB1C25|EB1E26|EB1C25|EB1C25|E81E25|E4211F|000501|2244B0|234099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|24409C|1F499C|040206|010100|F41C28|E91C24|E81F27|020006|000202|2648A8|223F98|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|234099|254195|2847A4|2A45A9|000705|000402|000200|2347A6|2044A1|234097|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
214099|214099|214099|214099|214099|214099|214099|214099|214099|234099|234099|244198|2444A2|2846A5|2842A9|25409A|234099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099|214099
)
hBM := CreateDIB( PixelData, 28, 58 )
Gui, Margin, 0, 0
Gui, Add, Picture, w226 h471 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show,, CreateDIB() Demo - Spider-Man.bmp
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
; http://link-leob.deviantart.com/art/Super-Mario-8-Bits-127382532
#SingleInstance, Force
SetBatchLines -1
PixelData=
( LTrim Join|
000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000
000000|000000|000000|000000|FF0305|FF0305|FF0305|FF0305|FF0305|000000|000000|000000|000000|000000
000000|000000|000000|FF0305|FF0305|FF0305|FF0305|FF0305|FF0305|FF0305|FF0305|FF0305|000000|000000
000000|000000|000000|612210|612210|612210|E9A24A|E9A24A|000000|E9A24A|000000|000000|000000|000000
000000|000000|612210|E9A24A|612210|E9A24A|E9A24A|E9A24A|000000|E9A24A|E9A24A|E9A24A|000000|000000
000000|000000|612210|E9A24A|612210|612210|E9A24A|E9A24A|E9A24A|612210|E9A24A|E9A24A|E9A24A|000000
000000|000000|612210|612210|E9A24A|E9A24A|E9A24A|E9A24A|612210|612210|612210|612210|000000|000000
000000|000000|000000|000000|E9A24A|E9A24A|E9A24A|E9A24A|E9A24A|E9A24A|E9A24A|000000|000000|000000
000000|000000|000000|FF0305|FF0305|10447E|FF0305|FF0305|FF0305|000000|000000|000000|000000|000000
000000|000000|FF0305|FF0305|FF0305|10447E|FF0305|FF0305|10447E|FF0305|FF0305|FF0305|000000|000000
000000|FF0305|FF0305|FF0305|FF0305|10447E|10447E|10447E|10447E|FF0305|FF0305|FF0305|FF0305|000000
000000|E9A24A|E9A24A|FF0305|10447E|F7FD17|10447E|10447E|F7FD17|10447E|FF0305|E9A24A|E9A24A|000000
000000|E9A24A|E9A24A|EA9D48|10447E|17497B|10447E|10447E|17497B|10447E|EA9D48|E9A24A|E9A24A|000000
000000|E9A24A|E9A24A|E6A14B|10447E|10447E|10447E|10447E|10447E|10447E|E6A14B|E9A24A|E9A24A|000000
000000|E9A24A|E9A24A|10447E|10447E|10447E|10447E|10447E|10447E|10447E|10447E|E9A24A|E9A24A|000000
000000|000000|000000|10447E|10447E|10447E|000000|000000|10447E|10447E|10447E|000000|000000|000000
000000|000000|612210|612210|612210|000000|000000|000000|000000|612210|612210|612210|000000|000000
000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000|000000
)
hBM := CreateDIB( PixelData, 14, 18 )
Gui, Margin, 0, 0
Gui, Add, Picture, w480 h636 0x4E hwndcHwnd ; SS_REALSIZECONTROL = 0x40 | SS_BITMAP = 0xE
DllCall( "SendMessage", UInt,cHwnd, UInt,0x172, UInt,0, UInt,hBM ) ; STM_SETIMAGE = 0x172
Gui, Show,, CreateDIB() Demo - Mario_Pixeles_by_Link_LeoB.png
Return
GuiClose:
ExitApp
CreateDIB( PixelData, W, H, ResizeW=0, ResizeH=0, Gradient=1 ) { ; SKAN, 01-Apr-2014
WB := Ceil( ( W * 3 )/ 2 ) * 2, VarSetCapacity( BMBITS, WB * H + 1, 0 ), P := &BMBITS
Loop, Parse, PixelData, |
P := Numput( "0x" A_LoopField, P+0 ) - ( W & 1 && !Mod( A_Index * 3, W * 3 ) ? 0 : 1 )
hBM := DllCall( "CreateBitmap", Int,W, Int,H, UInt,1, UInt,24, UInt,0 )
hBM := DllCall( "CopyImage", UInt,hBM, Int,0, Int,0, Int,0, UInt,0x2008 )
DllCall( "SetBitmapBits", UInt,hBM, UInt,WB * H, UInt,&BMBITS )
hBM := ! Gradient ? DllCall( "CopyImage", UInt,hBM, UInt,0, Int,0, Int,0, Int,8 ) : hBM
Return DllCall( "CopyImage", UInt,hBM, Int,0, Int,ResizeW, Int,ResizeH, Int,0x200C, UInt )
} ; http://ahkscript.org/boards/viewtopic.php?t=3203
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment