AutoHotkey Community

myColMat = ("0|0|0|-1|1|3|209|47|0|0|3|209|47|0|0|3|209|47|0|0|3|209|47|0|0")

Gui, 1: Add, Slider, x10 y+20 w300 Tooltip vTransparency Range1-100, 50

Gdip_DrawImage(G, pBitmap, 0, 0, Width, Height, 0, 0, OriginalWidth, OriginalHeight, Transparency/100)

Transparency := 255
Loop, % Transparency/5
{
   Gdip_GraphicsClear(G)
   Gdip_DrawImage(G, pBitmap, 0, 0, dWidth, dHeight, 0, 0, sWidth, sHeight, Transparency)
   Transparency -= 5
   Sleep, 10
}

TotalTime := 250
StartTime := A_TickCount
Loop
{
   Transparency := ((TimeElapsed := A_TickCount-StartTime) < TotalTime) ? 255*(1-(TimeElapsed/TotalTime)) : 0
   If (Transparency = 0)
   Break
   Gdip_GraphicsClear(G)
   Gdip_DrawImage(G, pBitmap, 0, 0, dWidth, dHeight, 0, 0, sWidth, sHeight, Transparency)
}

TotalTime := 5000
StartTime := A_TickCount
Loop
{
   Transparency := ((TimeElapsed := A_TickCount-StartTime) < TotalTime) ? 100*(1-(TimeElapsed/TotalTime)) : 0
   If (Transparency = 0)
      Break
   Gdip_GraphicsClear(G)
   Gdip_DrawImage(G, pBitmap, 0, 0, Width, Height, 0, 0, OriginalWidth, OriginalHeight, Transparency/100)
   UpdateLayeredWindow(hwnd2, hdc, (A_ScreenWidth-RWidth)//2, (A_ScreenHeight-RHeight)//2, RWidth, RHeight)
}

; 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
Gdip_FillEllipse(G, pBrush, 100, 50, 200, 300)

; Delete the brush as it is no longer needed and wastes memory
Gdip_DeleteBrush(pBrush)

; Create a slightly transparent (66) blue brush (ARGB = Transparency, red, green, blue) to draw a rectangle
pBrush := Gdip_BrushCreateSolid(0x660000ff)

; Fill the graphics of the bitmap with a rectangle using the brush created
; Filling from coordinates (250,80) a rectangle of 300x200
Gdip_FillRectangle(G, pBrush, 250, 80, 300, 200)

; Delete the brush as it is no longer needed and wastes memory
Gdip_DeleteBrush(pBrush)

; Create a fully opaque red pen (ARGB = Transparency, red, green, blue)
pPen1 := Gdip_CreatePen(0xffff0000,3)

; Create a fully opaque green pen (ARGB = Transparency, red, green, blue)
pPen2 := Gdip_CreatePen(0xff00ff00,3)

; The length of the wavy line
WavyLen := 200

; The number of the waves (smaller=more, larger=less)
WavyX := 20

; The depth of the waves (smaller=flatter, larger=curved)
WavyY := 10

; The starting position
StartX := 10
StartY := 10
PrevX := StartX
PrevY := StartY

; Paint the Sine Wave
WavyIdx=0
Loop,%WavyLen%
{
   NewX := StartX + WavyIdx
   NewY := StartY + (Sin(WavyIdx/WavyX)*WavyY)
   Gdip_DrawLine(G, pPen1, PrevX, PrevY, NewX, NewY)
   PrevX := NewX
   PrevY := NewY
   WavyIdx++
}
Gdip_DrawLine(G, pPen2, StartX, StartY+(WavyY*2), StartX+WavyLen, StartY+(WavyY*2))

; Delete the pens as they are no longer needed and wastes memory
Gdip_DeletePen(pPen1)
Gdip_DeletePen(pPen2)

; Pen Thickness
PenThickness := 50

; Create a fully opaque red pen (ARGB = Transparency, red, green, blue)
pPen1 := Gdip_CreatePen(0xffff0000,PenThickness)

; Create a fully opaque green pen (ARGB = Transparency, red, green, blue)
pPen2 := Gdip_CreatePen(0xff00ff00,1)

; The length of the wavy line
WavyLen := 1000

; The number of the waves (smaller=more, larger=less)
WavyX := 50

; The depth of the waves (smaller=flatter, larger=curved)
WavyY := 20

; The starting position
StartX := 10
StartY := 10
PrevX := StartX
PrevY := StartY

; Paint the Sine Wave
WavyIdx=0
Loop,%WavyLen%
{
   NewX := StartX + WavyIdx
   NewY := StartY + (Sin(WavyIdx/WavyX)*WavyY)
   Gdip_DrawLine(G, pPen1, PrevX, PrevY, NewX, NewY)
   PrevX := NewX
   PrevY := NewY
   WavyIdx++
}

; The starting position
StartX := 10
StartY := StartY + PenThickness

; Paint the Sine Wave
WavyIdx=0
Loop,%WavyLen%
{
   NewX := StartX + WavyIdx
   NewY := StartY + (Sin(WavyIdx/WavyX)*WavyY)
   Gdip_DrawLine(G, pPen2, NewX, NewY, NewX, NewY+PenThickness)
   WavyIdx++
}

; Delete the pens as they are no longer needed and wastes memory
Gdip_DeletePen(pPen1)
Gdip_DeletePen(pPen2)

; Paint the Sine Wave
WavyIdx=0
Loop,%WavyLen%
{
   NewX := StartX + (Sin(WavyIdx/WavyX)*WavyY)
   NewY := StartY + WavyIdx
   Gdip_DrawLine(G, pPen2, NewX, NewY, NewX+PenThickness, NewY)
   WavyIdx++
}