Определение "среднего" цвета области

#Include <WinAPIEx.au3>
#Include <ScreenCapture.au3>
#Include <Array.au3>

$PicWidth = 197
$PicHeight = 107
$Cell = 15
$Percent = 60
$W = Floor($PicWidth/$Cell)
$H = Floor($PicHeight/$Cell)
Dim $Matrix[$W][$H]

$hGUI = GUICreate("test", $PicWidth, $PicHeight)
$Pic = GUICtrlCreatePic(@ScriptDir & "\labirint.jpg", 0, 0, $PicWidth, $PicHeight)
GUISetState()
WinWaitActive($hGUI)

$giBMPFormat = $GDIP_PXF04INDEXED
$hBmp = _ScreenCapture_CaptureWnd(@ScriptDir & "\test.bmp", ControlGetHandle($hGUI, "", $Pic), 0, 0, -1, -1, False)
GUICtrlDelete($Pic)
$Pic = GUICtrlCreatePic(@ScriptDir & "\test.bmp", 0, 0, $PicWidth, $PicHeight)
$hDC = _WinAPI_GetDC($hGUI)

For $i = 0 To $W-1
  For $j = 0 To $H-1
    $Matrix[$i][$j] = Count($i, $j)
  Next
Next

_ArrayDisplay($Matrix, "Matrix", -1, 1)

Func Count($k, $l)
  Local $Pix = 0
  For $i = 0 To $Cell-1
    For $j = 0 To $Cell-1
      If _WinAPI_GetPixel($hDC, $i+$k*$Cell, $j+$l*$Cell) = 8421504 Then $Pix += 1
    Next
  Next
  If $Pix/($Cell*$Cell)*100 >= $Percent Then
    Return 1 ; &" ("&Round($Pix/($Cell*$Cell)*100)&"%)"
  Else
    Return 0 ; &" ("&Round($Pix/($Cell*$Cell)*100)&"%)"
  EndIf
EndFunc

_ScreenCapture_CaptureWnd()

$giBMPFormat = $GDIP_PXF04INDEXED

#Include <WinAPIEx.au3>
#Include <Color.au3>
#Include <Array.au3>

$PicWidth = 197
$PicHeight = 107
$Cell = 15
$W = Floor($PicWidth/$Cell)
$H = Floor($PicHeight/$Cell)
Dim $Matrix[$W][$H]

$hGUI = GUICreate("test", $PicWidth, $PicHeight)
$Pic = GUICtrlCreatePic(@ScriptDir & "\labirint.jpg", 0, 0, $PicWidth, $PicHeight)
GUISetState()
WinWaitActive($hGUI)
$hDC = _WinAPI_GetDC($hGUI)

For $i = 0 To $W-1
  For $j = 0 To $H-1
    $Matrix[$i][$j] = Count($i, $j)
  Next
Next

_ArrayDisplay($Matrix, "Matrix", -1, 1)

Func Count($k, $l)
  Local $PixColor, $R=0, $G=0, $B=0
  For $i = 0 To $Cell-1
    For $j = 0 To $Cell-1
      $PixColor = _ColorGetRGB(_WinAPI_GetPixel($hDC, $i+$k*$Cell, $j+$l*$Cell))
      $R += $PixColor[0]
      $G += $PixColor[1]
      $B += $PixColor[2]
    Next
  Next
  Dim $aColor[3] = [$R/($Cell*$Cell), $G/($Cell*$Cell), $B/($Cell*$Cell)]
  Return Round(_ColorSetRGB($aColor)) ; & " (0x" & Hex(Round(_ColorSetRGB($aColor)), 6) & ")"
EndFunc

$giBMPFormat = $GDIP_PXF04INDEXED

#include <GDIP.au3>
#include <GDIPlus.au3>
#include <Array.au3>

$Cell = 12
$W = 50
$H = 50
Dim $Matrix[$H][$W]
 
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\test.JPG')
$iWidth = _GDIPlus_ImageGetWidth($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage)
$iBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($iBitmap)

For $k = 0 To $W-1
   For $l = 0 To $H-1
	  $iGreen = 0
	  For $i = 0 To $Cell-1
		 For $j = 0 To $Cell-1
			$iGreen += Dec(StringMid(Hex(_GDIPlus_BitmapGetPixel($hBitmap, $i+$k*$Cell, $j+$l*$Cell),6),3,2))
		 Next
	  Next
	  $Matrix[$k][$l] = Round($iGreen/($Cell*$Cell))
   Next
Next
   
_GDIPlus_ImageDispose($hImage)
_WinAPI_DeleteObject($iBitmap)
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_Shutdown()
  
_ArrayDisplay($Matrix, "Matrix",-1,1)

#Include <APIConstants.au3>
#Include <Array.au3>
#Include <GDIPlus.au3>
#Include <WinAPIEx.au3>

$W = 195
$H = 105
$C = 15

Dim $Matrix[$H / $C][$W / $C]
Dim $HLS[3]

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\195x105x15.jpg')
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

$hSrcDC = _WinAPI_CreateCompatibleDC(0)
$hSrcSv = _WinAPI_SelectObject($hSrcDC, $hBitmap)
$hDstDC = _WinAPI_CreateCompatibleDC(0)
$hDib = _WinAPI_CreateDIB(1, 1)
$hDstSv = _WinAPI_SelectObject($hDstDC, $hDib)
_WinAPI_SetStretchBltMode($hDstDC, $HALFTONE)

For $y = 0 To $H / $C - 1
	For $x = 0 To $W / $C - 1
		_WinAPI_StretchBlt($hDstDC, 0, 0, 1, 1, $hSrcDC, $x * $C, $y * $C, $C, $C, $SRCCOPY)
		$RGB = _WinAPI_GetPixel($hDstDC, 0, 0)
		_WinAPI_ColorRGBToHLS($RGB, $HLS[0], $HLS[1], $HLS[2])
		$Matrix[$y][$x] = $HLS[1]

		; Visual representation
		$hDC = _WinAPI_GetDC(0)
		$tRect = _WinAPI_CreateRectEx($x * $C, $y * $C, $C, $C)
		$hBrush = _WinAPI_CreateSolidBrush(_WinAPI_SwitchColor($RGB))
		_WinAPI_FillRect($hDC, DllStructGetPtr($tRect), $hBrush)
		_WinAPI_DeleteObject($hBrush)
		_WinAPI_ReleaseDC(0, $hDC)

	Next
Next

_WinAPI_SelectObject($hSrcDC, $hSrcSv)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hSrcDC)
_WinAPI_SelectObject($hDstDC, $hDstSv)
_WinAPI_DeleteObject($hDib)
_WinAPI_DeleteDC($hDstDC)

_ArrayDisplay($Matrix, 'Luminance')

$Min = 240
$Max = 0

For $y = 0 To $H / $C - 1
	For $x = 0 To $W / $C - 1
		If $Min > $Matrix[$y][$x] Then
			$Min = $Matrix[$y][$x]
		EndIf
		If $Max < $Matrix[$y][$x] Then
			$Max = $Matrix[$y][$x]
		EndIf
	Next
Next

$Q = Round(($Min + $Max) / 2)

For $y = 0 To $H / $C - 1
	For $x = 0 To $W / $C - 1
		$Matrix[$y][$x] = Number($Matrix[$y][$x] < $Q)
	Next
Next

_ArrayDisplay($Matrix, 'Matrix')

_WinAPI_InvalidateRect(ControlGetHandle('[CLASS:Progman;TITLE:Program Manager]', '', 'SysListView321'))