AutoHotkey Community

#SingleInstance, Force
#NoEnv
SetBatchLines, -1

#Include, Gdip.ahk

; Specify the file we are going to use
InFile = test.jpg
OutFile = testgs.jpg
OutFile2 = testmc.jpg

; Start gdi+
If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}

; Get a bitmap from the image
pBitmap := Gdip_CreateBitmapFromFile(InFile)

; Check to ensure we actually got a bitmap from the file, in case the file was corrupt or some other error occured
If !pBitmap
{
   MsgBox, 48, File loading error!, Could not load the image specified
   ExitApp
}

; Get the width and height of the bitmap we have just created from the file
; This will be the dimensions that the file is
Width := Gdip_GetImageWidth(pBitmap), Height := Gdip_GetImageHeight(pBitmap)

; Create a gdi+ bitmap (this will be the entire drawing area we have to play with)
pBitmap1 := Gdip_CreateBitmap(Width, Height)

; Get a pointer to the graphics of the bitmap, for use with drawing functions
G := Gdip_GraphicsFromImage(pBitmap1)

; Draw the 1st bitmap (1st image) onto our "canvas" (the graphics of the original bitmap we created) with the same height and same width
; at coordinates (25,30).....We will be ignoring the matrix parameter for now. This can be used to change opacity and colours when drawing
Matrix =
(
0.299|0.299|0.299|0|0|0.587|0.587|0.587|0|0|0.114|0.114|0.114|0|0|0|0|0|1|0|0|0|0|0|1
)
Gdip_DrawImage(G, pBitmap, 0, 0, Width, Height, 0, 0, Width, Height, Matrix)

; Dispose of the bitmap from the image on disk, as they are now been used...They are on
; the graphics of the bitmap of our created "canvas"
Gdip_DisposeImage(pBitmap)

; Save the greyscale bitmap to file extension can be .png,.bmp,.jpg,.tiff,.gif)
Gdip_SaveBitmapToFile(pBitmap1, OutFile)

;Take grayscale image and copy it into a new bitmap which is monochrome (1bpp)
pBitmap2:=DllCall("CopyImage",UInt, pBitmap1,UInt,0,Int,Width,Int,Height, UInt,0x00000001)

; Dispose of the grayscale bitmap as it has been used
Gdip_DisposeImage(pBitmap1)

; Save the monochrome bitmap to file extension can be .png,.bmp,.jpg,.tiff,.gif)
Gdip_SaveBitmapToFile(pBitmap2, OutFile2)

; The bitmap can be deleted
Gdip_DisposeImage(pBitmap2)

; The graphics may now be deleted
Gdip_DeleteGraphics(G)

; ...and gdi+ may now be shutdown
Gdip_Shutdown(pToken)
ExitApp
Return

;Take grayscale image and copy it into a new bitmap which is monochrome (1bpp)
pBitmap2:=DllCall("CopyImage",UInt, pBitmap1,UInt,0,Int,Width,Int,Height, UInt,0x00000001)

Bitmap[o] = ARGB;

extern "C"
{
   __declspec(dllexport) int MonochromeBitmap(unsigned char * sBitmap, unsigned int * dBitmap, int w, int h, int Stride, int Factor)
   {
      int o, offset = Stride/4, A, R, G, B;
      for (int y = 0; y < h; ++y)
      {
         for (int x = 0; x < w; ++x)
         {
            o = (4*x)+(y*Stride);
            A = sBitmap[3+o];
            R = sBitmap[2+o];
            G = sBitmap[1+o];
            B = sBitmap[o];
            dBitmap[x+(y*offset)] = (A/255*(0.299*R + 0.587*G + 0.114*B) >= Factor) ? 0xffffffff : 0xff000000;
         }
      }
      return 1;
   }
}

|BRA!|1.01|20100102051136
000000002170|000000056086|000006826640

; gdi+ ahk tutorial 1 written by tic (Tariq Porter)
; Requires Gdip.ahk either in your Lib folder as standard library or using #Include
;
; Tutorial to draw a single ellipse and rectangle to the screen

#SingleInstance, Force
#NoEnv
SetBatchLines, -1

; Uncomment if Gdip.ahk is not in your standard library
;#Include, Gdip.ahk

; Start gdi+
If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}
OnExit, Exit

; Set the width and height we want as our drawing area, to draw everything in. This will be the dimensions of our bitmap
Width := A_ScreenWidth, Height := A_ScreenHeight

; Create a layered window (+E0x80000 : must be used for UpdateLayeredWindow to work!) that is always on top (+AlwaysOnTop), has no taskbar entry or caption
Gui, 1: -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs

; Show the window
Gui, 1: Show, NA

; Get a handle to this window we have created in order to update it later
hwnd1 := WinExist()

Start_Radius=0
Radius := 25
SetTimer,My_Timer,100

Return

My_Timer:
; Create a gdi bitmap with width and height of what we are going to draw into it. This is the entire drawing area for everything
hbm := CreateDIBSection(Width, Height)

; Get a device context compatible with the screen
hdc := CreateCompatibleDC()

; Select the bitmap into the device context
obm := SelectObject(hdc, hbm)

; Get a pointer to the graphics of the bitmap, for use with drawing functions
G := Gdip_GraphicsFromHDC(hdc)

; Set the smoothing mode to antialias = 4 to make shapes appear smother (only used for vector drawing and filling)
Gdip_SetSmoothingMode(G, 4)

; Create a fully opaque red brush (ARGB = Transparency, red, green, blue) to draw a circle
pBrush := Gdip_BrushCreateSolid(0xffff0000)

; Fill the graphics of the bitmap with an ellipse using the brush created
; Filling from coordinates (100,50) an ellipse of 200x300
MouseGetPos, Origin_X, Origin_Y
Start_Radius++
Loop,10
{
   Circle_Size := 1 * A_Index
   T := (Start_Radius + A_Index) / 0.01745329252 ; degrees->radians
   OX := Radius*Cos(T)
   OY := Radius*Sin(T)
   Gdip_FillEllipse(G, pBrush, Origin_X+OX, Origin_Y+OY, Circle_Size, Circle_Size)
}
; Delete the brush as it is no longer needed and wastes memory
Gdip_DeleteBrush(pBrush)

; Update the specified window we have created (hwnd1) with a handle to our bitmap (hdc), specifying the x,y,w,h we want it positioned on our screen
; So this will position our gui at (0,0) with the Width and Height specified earlier
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)

; Select the object back into the hdc
SelectObject(hdc, obm)

; Now the bitmap may be deleted
DeleteObject(hbm)

; Also the device context related to the bitmap may be deleted
DeleteDC(hdc)

; The graphics may now be deleted
Gdip_DeleteGraphics(G)
Return

;#######################################################################

Exit:
; gdi+ may now be shutdown on exiting the program
Gdip_Shutdown(pToken)
ExitApp
Return