Invisible AU3 Logo

[Werty]

It's been a long time since anyone posted an AutoIt Logo related script, so here's my take...

Behold, The Invisible AU3 Logo

expandcollapse popup

#include <GDIPlus.au3>
HotKeySet("{ESC}", "_exit")

_GDIPlus_Startup()
Local $SColor = 0x00000000FF000000
Local $Red = "00", $Green1 = "00", $Green2 = "00", $Blue = "00"
Local $Source = _GDIPlus_BitmapCreateFromFile("au3logo.png")
Local $Width  = _GDIPlus_ImageGetWidth($Source), $Height = _GDIPlus_ImageGetHeight($Source)
Local $Target = _GDIPlus_BitmapCreateFromScan0($Width, $Height, $GDIP_PXF32ARGB)
$Gui = GUICreate("Invisible Logo", $Width, $Height, -1, -1)
GUISetState()
$G=_GDIPlus_GraphicsCreateFromHWND($Gui)

For $x = 0 To $Width Step 2
   For $y = 0 To $Height Step 2
      If _GDIPlus_BitmapGetPixel($Source,  $x,   $y+1) > $SColor Then $Red   = "FF"
      If _GDIPlus_BitmapGetPixel($Source,  $x,   $y)   > $SColor Then $Green1 = "FF"
      If _GDIPlus_BitmapGetPixel($Source,  $x+1, $y)   > $SColor Then $Green2 = "FF"
      If _GDIPlus_BitmapGetPixel($Source,  $x+1, $y+1) > $SColor Then $Blue  = "FF"
         _GDIPlus_BitmapSetPixel($Target,  $x,   $y,   "0xFF" & $Red & $Green1 & $Blue)
         _GDIPlus_BitmapSetPixel($Target,  $x+1, $y,   "0xFF" & $Red & $Green2 & $Blue)
         _GDIPlus_BitmapSetPixel($Target,  $x,   $y+1, "0xFF" & $Red & $Green1 & $Blue)
         _GDIPlus_BitmapSetPixel($Target,  $x+1, $y+1, "0xFF" & $Red & $Green2 & $Blue)
Local    $Red = "00", $Green1 = "00", $Green2 = "00", $Blue = "00"
   Next
Next

Local $Blur    = _GDIPlus_EffectCreateBlur(4)
Local $Sharpen = _GDIPlus_EffectCreateSharpen(50, 25)

     For $Loop = 0 To 3
                _GDIPlus_ImageRotateFlip($Target, 1)
                _GDIPlus_BitmapApplyEffect($Target, $Blur)
     Next
                _GDIPlus_BitmapApplyEffect($Target, $Sharpen)
                _GDIPlus_GraphicsDrawImageRect($G,$Target, 0, 0, $Width, $Height)

WHILE 1
   Sleep(10)
WEND

Func _exit()
    Exit
EndFunc

 

InvisibleLogo.zip

Edited May 30, 2022 by Werty
Added zip for convenience sake