Laughing Man

Post your working scripts, libraries and tools
User avatar
Capn Odin
Posts: 1290
Joined: 23 Feb 2016, 19:45
Location: Denmark

Laughing Man

18 Apr 2017, 16:34

Shows an animated gif of the logo of the fictional hacker in the anime Ghost in the Shell.
The script uses an ActiveX control to render the gif.

Code: Select all

vPath := A_ScriptDir "\laughing_man.gif"
Gui, New, +Disabled +AlwaysOnTop -Caption +ToolWindow -SysMenu +LastFound
Gui, Color, 0xE6E6FA
Gui, Add, ActiveX, x0 y0 w650 h650 voWB, shell explorer
oWB.Navigate("about:blank")
vHtml := "<html>`n<title>name</title>`n<body bgcolor=""#E6E6FA"">`n<center>`n<img src=""" vPath """ >`n</center>`n</body>`n</html>"
oWB.document.write(vHtml)
Gui, Show, AutoSize Center
WinSet, TransColor, 0xE6E6FA
You will need to place this gif in the same folder as the script.
Please excuse my spelling I am dyslexic.
User avatar
Capn Odin
Posts: 1290
Joined: 23 Feb 2016, 19:45
Location: Denmark

Re: Laughing Man

28 May 2017, 19:29

An alternate version using Gdi+ or at least Gdi

Code: Select all

#SingleInstance, Force
#NoEnv
SetBatchLines, -1

#Include, *i Gdip.ahk

InputBox, Size, Diameter of the Laughing Man, Input the desired diameter in pixels, , 250, 130, , , , , 400

if(ErrorLevel) {
	ExitApp
}

Colour := 0xff111b62
Angle := 0
Font := "Impact"

fSize := 49 / 6

Init()

Options := "x" Width / 2 " y" Height * (fSize + 17) / 550 " h" Height * 57 / 550 " w10 Centre c" SubStr(Colour, 3) " r4 s" Height * fSize * 4 / 550 " Bold"
Str := "I thought what I'd do was, I'd pretend I was one of those deaf-mutes. "

pBackground := GetBackground(Colour, Width, Height)
pForground := GetForground(Colour, Width2, Height)
pText := CircularText(Angle, Str, Width, Height, Font, Options)

SetTimer, Render, 25
Return

Render:
	Angle -= 1.5
	Gdip_GraphicsClear(G)
	Gdip_GraphicsClear(pBG)
	Gdip_DrawImage(pBG, pBackground)
	RotateAroundCenter(pBG, Angle, Width, Height)
	Gdip_DrawImage(pBG, pText)
	Gdip_DrawImage(G, pB)
	Gdip_DrawImage(G, pForground)
	UpdateLayeredWindow(hwnd1, hdc)
	Gdip_ResetWorldTransform(pBG)
Return

CircularText(Angle, Str, Width, Height, Font, Options){
	pBitmap := Gdip_CreateBitmap(Width, Height)
	
	G := Gdip_GraphicsFromImage(pBitmap)
	
	Gdip_SetSmoothingMode(G, 4)
	
	if(!Angle) {
		Angle := 360 / StrLen(Str)
	}
	
	for i, chr in StrSplit(Str) {
		Gdip_TextToGraphics(G, chr, Options, Font, Width, Height)
		RotateAroundCenter(G, Angle, Width, Height)
	}
	
	Gdip_DeleteGraphics(G)
	Return pBitmap
}

RotateAroundCenter(G, Angle, Width, Height) {
	Gdip_TranslateWorldTransform(G, Width / 2, Height / 2)
	Gdip_RotateWorldTransform(G, Angle)
	Gdip_TranslateWorldTransform(G, - Width / 2, - Height / 2)
}

GetForground(Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	G := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(G, 4)
	
	EH := 550 ; ExampleHight
	
	pSize  := Height * 32 / EH ; Head Border Width
	cSize  := Height * 114 / EH ; Head Border Width
	cY := Height * 215 / EH ; Start of Head Hole
	
	capOH := Height * 50 / EH ; Cap Opening Height
	capOY := Height * 247 / EH ; Start of Cap Opening
	capOX := Width - cSize + pSize / 2 ; Start of Cap Opening
	
	hStart := Height * (49 + 17) / EH ; Start of Head Border
	
	pBrush := Gdip_BrushCreateSolid(0xffffffff)
	Gdip_FillEllipse(G, pBrush, Width - cSize + pSize / 2 - 1, cY + pSize / 2, cSize - pSize, cSize - pSize)
	
	pPen := Gdip_CreatePen(Colour, pSize)
	Gdip_DrawEllipse(G, pPen, Width - cSize + pSize / 2 - 1, cY + pSize / 2, cSize - pSize, cSize - pSize)
	
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	Gdip_FillRectangle(G, pBrush2, capOX - cSize / 3, cY, hStart, pSize)
	
	Gdip_FillRectangle(G, pBrush2, capOX - cSize / 3, cY + capOH + pSize, hStart, pSize)
	
	Gdip_FillRectangle(G, pBrush, capOX - cSize / 2, capOY, cSize - pSize / 2 + 0.5, capOH + 0.5)
	
	Gdip_DeletePen(pPen)
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(G)
	return pBitmap
}

GetBackground(Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	G := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(G, 4)
	
	EH := 550 ; ExampleHight
	
	bSize  := Height * 17 / EH ; Border Width
	hSize  := Height * 32 / EH ; Head Border Width
	hStart := Height * (49 + 17) / EH ; Start of Head Border
	hWidth := hStart * 2 + hSize
	
	holeH := Height * 14 / EH ; Head Hole Height
	holeY := Height * 247 / EH ; Start of Head Hole
	
	capH := Height * 32 / EH ; Cap Height
	capY := Height * 215 / EH ; Start of Head Hole
	
	capTopTW := Height * 19 / EH ; Cap Top Top Width
	capTopBW := Height * 27 / EH ; Cap Top Bottum Width
	capTopH := Height * 12 / EH ; Cap Top Height
	capTopY := Height * 58 / EH ; Start of Cap Top
	
	capOH := Height * 50 / EH ; Cap Opening Height
	capOY := Height * 248 / EH ; Start of Cap Opening
	capOX := Width - hWidth + hStart ; Start of Cap Opening
	
	mS := Height * 30 / EH ; Mouth Height
	mY := Height * 132 / EH ; Start of Mouth
	
	pBrush := Gdip_BrushCreateSolid(0xffffffff)
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	
	; White Background
	Gdip_FillEllipse(G, pBrush, bSize / 2, bSize / 2, Width - bSize, Height - bSize)
	
	; Flat part of Mouth
	Gdip_FillRectangle(G, pBrush2, mY + mS / 2, capOY + capOH - 1, Width - (mY + mS / 2) * 2, mS)
	
	; Curved part of Mouth
	pPen := Gdip_CreatePen(Colour, mS)
	Gdip_DrawEllipse(G, pPen, mY + mS / 2, mY + mS / 2, Width - (mY + mS / 2) * 2, Width - (mY + mS / 2) * 2)
	Gdip_DeletePen(pPen)
	Gdip_FillRectangle(G, pBrush, mY * 0.8, mY * 0.8, Width - mY * 1.5, capOY + capOH - mY * 0.8)
	
	; Eyes
	DrawEyes(G, Colour, Width, Height)
	
	; Thin Blue Border
	pPen := Gdip_CreatePen(Colour, bSize)
	Gdip_DrawEllipse(G, pPen, bSize / 2, bSize / 2, Width - bSize, Height - bSize)
	Gdip_DeletePen(pPen)
	
	; Thick Blue Border
	pPen := Gdip_CreatePen(Colour, hSize)
	Gdip_DrawEllipse(G, pPen, hStart + hSize / 2, hStart + hSize / 2, Width - hWidth, Height - hWidth)
	Gdip_DeletePen(pPen)
	
	; White Hole in the Left Part of the Face
	Gdip_FillRectangle(G, pBrush, hStart, holeY, hSize * 1.2, holeH)
	
	; Thick Blue Line Over the Eyes
	Gdip_FillRectangle(G, pBrush2, hStart + hSize, capY, Width - hWidth - hSize, capH)
	
	; Blue Shape On Top the Cap
	xt := Width / 2 - capTopTW / 2, yt := capTopY, xb := Width / 2 - capTopBW / 2, yb := capTopY + capTopH
	points := xt "," yt "|" xt + capTopTW "," yt "|" xb + capTopBW "," yb "|" xb "," yb
	Gdip_FillPolygon(G, pBrush2, points)
	
	;Gdip_FillRectangle(G, pBrush, capOX - hSize / 2, capOY, hSize * 2, capOH)
	
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(G)
	return pBitmap
}

DrawEyes(G, Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	eyesG := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(eyesG, 4)
	
	EH := 550 ; ExampleHight
	
	eyeD  := Height * 70 / EH ; Eye Diameter
	eyeY  := Height * 254 / EH ; Start of Eye
	eyeX1 := Height * 166 / EH ; Start of Eye
	eyeX2 := Height * 313 / EH ; Start of Eye
	pupilH := Height * 14 * 2 / EH
	
	pBrush := Gdip_BrushCreateSolid(0xfffffffff)
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	
	Gdip_FillEllipse(eyesG, pBrush2, eyeX1, eyeY, eyeD, eyeD)
	Gdip_FillEllipse(eyesG, pBrush2, eyeX2, eyeY, eyeD, eyeD)
	
	Gdip_FillEllipse(eyesG, pBrush, eyeX1 - 1, eyeY + eyeD / 2 - pupilH / 2, eyeD + 2, pupilH)
	Gdip_FillEllipse(eyesG, pBrush, eyeX2 - 1, eyeY + eyeD / 2 - pupilH / 2, eyeD + 2, pupilH)
	
	ClearRect(eyesG, eyeX1 * 0.95, eyeY + eyeD / 2, eyeD * 1.3, eyeD / 2)
	ClearRect(eyesG, eyeX2 * 0.95, eyeY + eyeD / 2, eyeD * 1.3, eyeD / 2)
	
	Gdip_DrawImage(G, pBitmap)
	
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(eyesG)
	Gdip_DisposeImage(pBitmap)
}

ClearRect(G, x, y, w, h) {
	Gdip_SetClipRect(G, x, y, w, h)
	Gdip_GraphicsClear(G)
	Gdip_ResetClip(eyesG)
}

Init() {
	Global
	; 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
	
	Gui, 1: -Caption +E0x80000 +LastFound +OwnDialogs +Owner +AlwaysOnTop
	Gui, 1: Show, NA w1000 h1000

	hwnd1 := WinExist()
	
	Width := Size
	Height := Size
	
	Width2 := Width * 601 / 552
	
	hbm := CreateDIBSection(Width2, Height)
	hdc := CreateCompatibleDC()
	obm := SelectObject(hdc, hbm)
	G := Gdip_GraphicsFromHDC(hdc)
	Gdip_SetSmoothingMode(G, 4)
	
	pB := Gdip_CreateBitmap(Width, Height)
	pBG := Gdip_GraphicsFromImage(pB)
	Gdip_SetSmoothingMode(pBG, 4)
	
	UpdateLayeredWindow(hwnd1, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width2, Height)
	
	if(!hFamily := Gdip_FontFamilyCreate(Font)) {
		Font := "Arial"
	}
	Gdip_DeleteFontFamily(hFamily)
	
	OnMessage(0x201, "WM_LBUTTONDOWN")
}

WM_LBUTTONDOWN() {
	PostMessage, 0xA1, 2
}

Exit:
	; 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)
	
	Gdip_DisposeImage(pBackground)
	Gdip_DisposeImage(pForground)
	Gdip_DisposeImage(pText)
	
	; gdi+ may now be shutdown on exiting the program
	Gdip_Shutdown(pToken)
	ExitApp
Return
You will need the script Gdip.ahk in your Lib folder or in the same folder as the script.
Please excuse my spelling I am dyslexic.
Helgef
Posts: 3221
Joined: 17 Jul 2016, 01:02
Contact:

Re: Laughing Man

09 Jun 2017, 07:56

Nice example. There is less cpu and memory usage compared to the the gif. I wonder, how much space would it take to store all bitmaps, and then loop through them, you know, after one turn you are redoing the same work all over again.

Cheers.
User avatar
Capn Odin
Posts: 1290
Joined: 23 Feb 2016, 19:45
Location: Denmark

Re: Laughing Man

09 Jun 2017, 12:37

Nice example. There is less cpu and memory usage compared to the the gif. I wonder, how much space would it take to store all bitmaps, and then loop through them, you know, after one turn you are redoing the same work all over again.

Cheers.
Image

Code: Select all

#SingleInstance, Force
#NoEnv
SetBatchLines, -1

#Include, *i Gdip.ahk

InputBox, Size, Diameter of the Laughing Man, Input the desired diameter in pixels, , 250, 130, , , , , 400

if(ErrorLevel) {
	ExitApp
}

Colour := 0xff111b62
Angle := 0
Font := "Impact"

fSize := 49 / 6

Init()

Options := "x" Width / 2 " y" Height * (fSize + 17) / 550 " h" Height * 57 / 550 " w10 Centre c" SubStr(Colour, 3) " r4 s" Height * fSize * 4 / 550 " Bold"
Str := "I thought what I'd do was, I'd pretend I was one of those deaf-mutes. "

pBackground := GetBackground(Colour, Width, Height)
pForground := GetForground(Colour, Width2, Height)
pText := CircularText(Angle, Str, Width, Height, Font, Options)

Images := []
Angle := 1.5

loop % 360 / Angle {
	Angle -= 1.5
	Images.Push(GetRotatedImage(Angle, pText))
}

i := 0

SetTimer, Render, 25
Return

Render:
	i := i + 1 < Images.Length() ? i + 1 : 1
	;Gdip_GraphicsClear(G)
	Gdip_DrawImage(G, pBackground)
	Gdip_DrawImage(G, Images[i])
	Gdip_DrawImage(G, pForground)
	UpdateLayeredWindow(hwnd1, hdc)
Return

CircularText(Angle, Str, Width, Height, Font, Options){
	pBitmap := Gdip_CreateBitmap(Width, Height)
	
	G := Gdip_GraphicsFromImage(pBitmap)
	
	Gdip_SetSmoothingMode(G, 4)
	
	if(!Angle) {
		Angle := 360 / StrLen(Str)
	}
	
	for i, chr in StrSplit(Str) {
		Gdip_TextToGraphics(G, chr, Options, Font, Width, Height)
		RotateAroundCenter(G, Angle, Width, Height)
	}
	
	Gdip_DeleteGraphics(G)
	Return pBitmap
}

GetRotatedImage(Angle, pBitmap) {
	Gdip_GetImageDimensions(pBitmap, Width, Height)
	
	resBitmap := Gdip_CreateBitmap(Width, Height)
	
	G := Gdip_GraphicsFromImage(resBitmap)
	
	Gdip_SetSmoothingMode(G, 4)
	
	RotateAroundCenter(G, Angle, Width, Height)
	Gdip_DrawImage(G, pBitmap)
	
	Gdip_DeleteGraphics(G)
	Return resBitmap
}

RotateAroundCenter(G, Angle, Width, Height) {
	Gdip_TranslateWorldTransform(G, Width / 2, Height / 2)
	Gdip_RotateWorldTransform(G, Angle)
	Gdip_TranslateWorldTransform(G, - Width / 2, - Height / 2)
}

GetForground(Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	G := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(G, 4)
	
	EH := 550 ; ExampleHight
	
	pSize  := Height * 32 / EH ; Head Border Width
	cSize  := Height * 114 / EH ; Head Border Width
	cY := Height * 215 / EH ; Start of Head Hole
	
	capOH := Height * 50 / EH ; Cap Opening Height
	capOY := Height * 247 / EH ; Start of Cap Opening
	capOX := Width - cSize + pSize / 2 ; Start of Cap Opening
	
	hStart := Height * (49 + 17) / EH ; Start of Head Border
	
	pBrush := Gdip_BrushCreateSolid(0xffffffff)
	Gdip_FillEllipse(G, pBrush, Width - cSize + pSize / 2 - 1, cY + pSize / 2, cSize - pSize, cSize - pSize)
	
	pPen := Gdip_CreatePen(Colour, pSize)
	Gdip_DrawEllipse(G, pPen, Width - cSize + pSize / 2 - 1, cY + pSize / 2, cSize - pSize, cSize - pSize)
	
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	Gdip_FillRectangle(G, pBrush2, capOX - cSize / 3, cY, hStart, pSize)
	
	Gdip_FillRectangle(G, pBrush2, capOX - cSize / 3, cY + capOH + pSize, hStart, pSize)
	
	Gdip_FillRectangle(G, pBrush, capOX - cSize / 2, capOY, cSize - pSize / 2 + 0.5, capOH + 0.5)
	
	Gdip_DeletePen(pPen)
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(G)
	return pBitmap
}

GetBackground(Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	G := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(G, 4)
	
	EH := 550 ; ExampleHight
	
	bSize  := Height * 17 / EH ; Border Width
	hSize  := Height * 32 / EH ; Head Border Width
	hStart := Height * (49 + 17) / EH ; Start of Head Border
	hWidth := hStart * 2 + hSize
	
	holeH := Height * 14 / EH ; Head Hole Height
	holeY := Height * 247 / EH ; Start of Head Hole
	
	capH := Height * 32 / EH ; Cap Height
	capY := Height * 215 / EH ; Start of Head Hole
	
	capTopTW := Height * 19 / EH ; Cap Top Top Width
	capTopBW := Height * 27 / EH ; Cap Top Bottum Width
	capTopH := Height * 12 / EH ; Cap Top Height
	capTopY := Height * 58 / EH ; Start of Cap Top
	
	capOH := Height * 50 / EH ; Cap Opening Height
	capOY := Height * 248 / EH ; Start of Cap Opening
	capOX := Width - hWidth + hStart ; Start of Cap Opening
	
	mS := Height * 30 / EH ; Mouth Height
	mY := Height * 132 / EH ; Start of Mouth
	
	pBrush := Gdip_BrushCreateSolid(0xffffffff)
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	
	; White Background
	Gdip_FillEllipse(G, pBrush, bSize / 2, bSize / 2, Width - bSize, Height - bSize)
	
	; Flat part of Mouth
	Gdip_FillRectangle(G, pBrush2, mY + mS / 2, capOY + capOH - 1, Width - (mY + mS / 2) * 2, mS)
	
	; Curved part of Mouth
	pPen := Gdip_CreatePen(Colour, mS)
	Gdip_DrawEllipse(G, pPen, mY + mS / 2, mY + mS / 2, Width - (mY + mS / 2) * 2, Width - (mY + mS / 2) * 2)
	Gdip_DeletePen(pPen)
	Gdip_FillRectangle(G, pBrush, mY * 0.8, mY * 0.8, Width - mY * 1.5, capOY + capOH - mY * 0.8)
	
	; Eyes
	DrawEyes(G, Colour, Width, Height)
	
	; Thin Blue Border
	pPen := Gdip_CreatePen(Colour, bSize)
	Gdip_DrawEllipse(G, pPen, bSize / 2, bSize / 2, Width - bSize, Height - bSize)
	Gdip_DeletePen(pPen)
	
	; Thick Blue Border
	pPen := Gdip_CreatePen(Colour, hSize)
	Gdip_DrawEllipse(G, pPen, hStart + hSize / 2, hStart + hSize / 2, Width - hWidth, Height - hWidth)
	Gdip_DeletePen(pPen)
	
	; White Hole in the Left Part of the Face
	Gdip_FillRectangle(G, pBrush, hStart, holeY, hSize * 1.2, holeH)
	
	; Thick Blue Line Over the Eyes
	Gdip_FillRectangle(G, pBrush2, hStart + hSize, capY, Width - hWidth - hSize, capH)
	
	; Blue Shape On Top the Cap
	xt := Width / 2 - capTopTW / 2, yt := capTopY, xb := Width / 2 - capTopBW / 2, yb := capTopY + capTopH
	points := xt "," yt "|" xt + capTopTW "," yt "|" xb + capTopBW "," yb "|" xb "," yb
	Gdip_FillPolygon(G, pBrush2, points)
	
	;Gdip_FillRectangle(G, pBrush, capOX - hSize / 2, capOY, hSize * 2, capOH)
	
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(G)
	return pBitmap
}

DrawEyes(G, Colour, Width, Height) {
	pBitmap := Gdip_CreateBitmap(Width, Height)
	eyesG := Gdip_GraphicsFromImage(pBitmap)
	Gdip_SetSmoothingMode(eyesG, 4)
	
	EH := 550 ; ExampleHight
	
	eyeD  := Height * 70 / EH ; Eye Diameter
	eyeY  := Height * 254 / EH ; Start of Eye
	eyeX1 := Height * 166 / EH ; Start of Eye
	eyeX2 := Height * 313 / EH ; Start of Eye
	pupilH := Height * 14 * 2 / EH
	
	pBrush := Gdip_BrushCreateSolid(0xfffffffff)
	pBrush2 := Gdip_BrushCreateSolid(Colour)
	
	Gdip_FillEllipse(eyesG, pBrush2, eyeX1, eyeY, eyeD, eyeD)
	Gdip_FillEllipse(eyesG, pBrush2, eyeX2, eyeY, eyeD, eyeD)
	
	Gdip_FillEllipse(eyesG, pBrush, eyeX1 - 1, eyeY + eyeD / 2 - pupilH / 2, eyeD + 2, pupilH)
	Gdip_FillEllipse(eyesG, pBrush, eyeX2 - 1, eyeY + eyeD / 2 - pupilH / 2, eyeD + 2, pupilH)
	
	ClearRect(eyesG, eyeX1 * 0.95, eyeY + eyeD / 2, eyeD * 1.3, eyeD / 2)
	ClearRect(eyesG, eyeX2 * 0.95, eyeY + eyeD / 2, eyeD * 1.3, eyeD / 2)
	
	Gdip_DrawImage(G, pBitmap)
	
	Gdip_DeleteBrush(pBrush)
	Gdip_DeleteBrush(pBrush2)
	Gdip_DeleteGraphics(eyesG)
	Gdip_DisposeImage(pBitmap)
}

ClearRect(G, x, y, w, h) {
	Gdip_SetClipRect(G, x, y, w, h)
	Gdip_GraphicsClear(G)
	Gdip_ResetClip(eyesG)
}

Init() {
	Global
	; 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
	
	Gui, 1: -Caption +E0x80000 +LastFound +OwnDialogs +Owner +AlwaysOnTop
	Gui, 1: Show, NA w1000 h1000

	hwnd1 := WinExist()
	
	Width := Size
	Height := Size
	
	Width2 := Width * 601 / 552
	
	hbm := CreateDIBSection(Width2, Height)
	hdc := CreateCompatibleDC()
	obm := SelectObject(hdc, hbm)
	G := Gdip_GraphicsFromHDC(hdc)
	Gdip_SetSmoothingMode(G, 4)
	
	pB := Gdip_CreateBitmap(Width, Height)
	pBG := Gdip_GraphicsFromImage(pB)
	Gdip_SetSmoothingMode(pBG, 4)
	
	UpdateLayeredWindow(hwnd1, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width2, Height)
	
	if(!hFamily := Gdip_FontFamilyCreate(Font)) {
		Font := "Arial"
	}
	Gdip_DeleteFontFamily(hFamily)
	
	OnMessage(0x201, "WM_LBUTTONDOWN")
}

WM_LBUTTONDOWN() {
	PostMessage, 0xA1, 2
}

Exit:
	; 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)
	
	Gdip_DisposeImage(pBackground)
	Gdip_DisposeImage(pForground)
	Gdip_DisposeImage(pText)
	
	; gdi+ may now be shutdown on exiting the program
	Gdip_Shutdown(pToken)
	ExitApp
Return
Please excuse my spelling I am dyslexic.
Helgef
Posts: 3221
Joined: 17 Jul 2016, 01:02
Contact:

Re: Laughing Man

09 Jun 2017, 14:49

:thumbup: Cool! It is an improvment over the gif in both cases.

Return to “Scripts and Functions”

Who is online

Users browsing this forum: Gh0sTG0, jesusarell, Terka and 50 guests