Beiträge von eukalyptus

**eukalyptus** · 4. April 2023

Hallo!

Ich bin mit XMLDOM immer besser gefahren, als mit selber erstellten XML-Strings.

Und auch mit WinHTTP hatte ich immer weniger Probleme, als TCP-Send

Probiers mal auf diese Weise:

AutoIt

#include <Date.au3>


Global $oERR = ObjEvent("AutoIt.Error", "_ErrFunc")
Func _ErrFunc($oERR)
    ConsoleWrite("! We intercepted a COM Error !" & @CRLF & _
            "Number: 0x" & Hex($oERR.number, 8) & @CRLF & _
            "Description: " & $oERR.description & _
            "At line: " & $oERR.scriptline & @CRLF)
    SetError(1)
EndFunc   ;==>_ErrFunc



Global $oWHttp = ObjCreate("Winhttp.winhttprequest.5.1")


Global $oXML = _CreateMSG()
_SendMSG($oXML)



Func _SendMSG($oXML)
    If Not IsObj($oXML) Then Return
    $oWHttp.Open("POST", "http://" & $LisaIP & ":" & $LisaPORT, 0)

    $oWHttp.setRequestHeader("Content-Type", "text/xml")
    $oWHttp.setRequestHeader("Connection", "Keep-Alive")

    $oWHttp.Send($oXML.xml)
    If @error Then Return SetError(1, 1, False)

    Switch $oWHttp.WaitForResponse(2)
        Case True
            Switch $oWHttp.Status()
                Case 200 ;OK
                    ConsoleWrite("+ $oWHttp.Status OK " & @CRLF)
                    Return $oWHttp.Responsetext()

                Case Else
                    ConsoleWrite("! HTTP Status: " & $oWHttp.Status() & @CRLF)

            EndSwitch

        Case Else
            ConsoleWrite("! $oWHttp.TimeOut " & @CRLF)

    EndSwitch
EndFunc   ;==>_SendMSG







Func _CreateMSG()
    Local $oXML = ObjCreate("Microsoft.XMLDOM")
    If Not IsObj($oXML) Then Return SetError(1, 1, False)

    Local $oPI = $oXML.createProcessingInstruction("xml", "version=""1.0""")
    $oXML.appendChild($oPI)



    Local $oLISA = $oXML.createElement("LISA")
    $oXML.documentElement = $oLISA

    Local $oChild = $oXML.createElement("VERSION")
    $oChild.Text = "5.8"
    $oLISA.appendChild($oChild)

    $oChild = $oXML.createElement("MEDIUM")
    $oChild.Text = "12"
    $oLISA.appendChild($oChild)

    $oChild = $oXML.createElement("KANAL")
    $oChild.Text = "610"
    $oLISA.appendChild($oChild)

    $oChild = $oXML.createElement("SENDER")
    $oChild.Text = "192.168.1.73"
    $oLISA.appendChild($oChild)

    $oChild = $oXML.createElement("ENTSTEHUNG")
    $oChild.Text = _NowDate() & " " & _NowTime(3) & "Uhr"
    $oLISA.appendChild($oChild)



    Local $oVERBINDUNGSMELDUNG = $oXML.createElement("VERBINDUNGSMELDUNG")
    $oLISA.appendChild($oVERBINDUNGSMELDUNG)

    $oChild = $oXML.createElement("Identnummer")
    $oChild.Text = "1111"
    $oVERBINDUNGSMELDUNG.appendChild($oChild)

    $oChild = $oXML.createElement("Ereignis")
    $oChild.Text = "ROUTINE"
    $oVERBINDUNGSMELDUNG.appendChild($oChild)



    $oVERBINDUNGSMELDUNG = $oXML.createElement("VERBINDUNGSMELDUNG")
    $oLISA.appendChild($oVERBINDUNGSMELDUNG)

    $oChild = $oXML.createElement("Identnummer")
    $oChild.Text = "1111"
    $oVERBINDUNGSMELDUNG.appendChild($oChild)

    $oChild = $oXML.createElement("Ereignis")
    $oChild.Text = "ROUTINE"
    $oVERBINDUNGSMELDUNG.appendChild($oChild)


    ;$oXML.save(@ScriptDir & "\test.xml")

    Return $oXML
EndFunc   ;==>_CreateMSG

Alles anzeigen

Etwas übersichtlicher wirds natürlich, wenn du dir eine Helperfunktion bastelst, welche die XML-Elemente in einer Zeile erstellt...

EDIT: Zum betrachten $oXML-save und mit einem XML-Editor (Internet Explorer reicht ;)) öffnen (XML-String ist SingleLine)

lgE

**eukalyptus** · 25. März 2023

Vielen Dank für die Antworten!

Array als Map`s abzubilden muss ich mir definitiv mal ansehen!

Für ein paar Fälle kann ich das Array als Struct anlegen und schreibe dann via DllStructSetData.

Für den Rest eine Helperfunktion wie in JSON, aber glücklicherweise hab ich nur 2 dimensionale Arrays!

**eukalyptus** · 24. März 2023

Hallo!

Kennt jemand hierfür eine halbwegs "elegante" Möglichkeit?

AutoIt

;#AutoIt3Wrapper_Run_Au3Check=N

Global $aA[1], $mM[]

$aA[0] = 1111
$mM[1] = $aA
$aA = Null

ConsoleWrite("> " & ($mM[1])[0] & @CRLF)

($mM[1])[0] = 2222 ;geht nicht

;$aA = $mM[1]
;$aA[0] = 2222
;$mM[1] = $aA

ConsoleWrite("> " & ($mM[1])[0] & @CRLF)

Alles anzeigen

Vielen Dank!

E

**eukalyptus** · 18. März 2023

Noch ein Versuch:

AutoIt

;Coded by UEZ build 2023-03-16
#include <Array.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
_GDIPlus_Startup()

Global $hGUI = GUICreate("GDI+ Color Sorting / Grouping Test", 800, 120); 520)
GUISetState()
Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hPen = _GDIPlus_PenCreate(0)
_GDIPlus_GraphicsClear($hGraphic)
SRandom(80)

Global $aColortable[511], $i, $y = 0
For $i = 0 To UBound($aColortable) - 1
  $aColortable[$i] = Int(Random() * 0x1000000)
Next

; For $i = 0 To UBound($aColortable) - 1
;   Do
;     $iColor = Int(Random() * 0xFFFFFF)
;     $a = RGB2HSV($iColor)
;   Until $a[2] > 0.98 And $a[1] > 0.98
;   $aColortable[$i] = $iColor
; Next

DrawColors($y, "Random")

; _ArraySort($aColortable)
; $y += 40
; DrawColors($y, "Default Array Sort")

; SortByCMYK($aColortable)
; $y += 40
; DrawColors($y, "CMYK")

; SortByLum($aColortable)
; $y += 40
; DrawColors($y, "Luminosity")

; SortByDistance($aColortable)
; $y += 40
; DrawColors($y, "Distance")

; SortByHSL($aColortable)
; $y += 40
; DrawColors($y, "HSL by L")

; SortByHSV($aColortable)
; $y += 40
; DrawColors($y, "HSV by V")

; SortByHSL($aColortable, 1)
; $y += 40
; DrawColors($y, "HSL / HSV by H")

; SortByHSL2($aColortable)
; $y += 40
; DrawColors($y, "HSV 2")

; SortByGroupingHSL($aColortable)
; $y += 40
; DrawColors($y, "Grouping HSL by dist.")

; SortByGroupingHSV($aColortable)
; $y += 40
; DrawColors($y, "Grouping HSV by LAB")

; SortByLAB($aColortable)
; $y += 40
; DrawColors($y, "LAB")

SortByBrightColor($aColortable)
$y += 40
DrawColors($y, "Brightness Colorness")


SortByLAB_Brightness($aColortable)
$y += 40
DrawColors($y, "LAB Brightness")

While GUIGetMsg() <> $GUI_EVENT_CLOSE
  Sleep(10)
WEnd

_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete()
Exit

Func DrawColors($y, $txt = 0, $array = $aColortable)
  If UBound($array, 2) Then
    For $i = 0 To UBound($array) - 1
      _GDIPlus_PenSetColor($hPen, BitOR(0xFF000000, $array[$i][0]))
      _GDIPlus_GraphicsDrawLine($hGraphic, $i, $y, $i, $y + 32, $hPen)
    Next
  Else
    For $i = 0 To UBound($array) - 1
      _GDIPlus_PenSetColor($hPen, BitOR(0xFF000000, $array[$i]))
      _GDIPlus_GraphicsDrawLine($hGraphic, $i, $y, $i, $y + 32, $hPen)
    Next
  EndIf
  If $txt Then _GDIPlus_GraphicsDrawString($hGraphic, $txt, $i + 8, $y + 4, "Arial", 16, Default, 0xFFFFFFFF)
EndFunc

Func SortByCMYK(ByRef $aColortable) ;http://www.easyrgb.com/en/math.php
  Local $aColortable2[UBound($aColortable)][6]
  Local $a, $i
  For $i = 0 To UBound($aColortable) - 1
    $a = RGA2CMYK($aColortable[$i])
    $aColortable2[$i][0] = $aColortable[$i]
    $aColortable2[$i][1] = $a[0] ;C
    $aColortable2[$i][2] = $a[1] ;M
    $aColortable2[$i][3] = $a[2] ;Y
    $aColortable2[$i][4] = $a[3] ;K
    $aColortable2[$i][5] = Sqrt($a[0] ^ 2 + $a[1] ^ 2 + $a[2] ^ 2 + $a[3] ^ 2)
  Next
  Local $aSort[] = [5, 3]
  _ArraySort_MultiColumn($aColortable2, $aSort, 1, 0)
  For $i = 0 To UBound($aColortable2) - 1
    $aColortable[$i] = $aColortable2[$i][0]
  Next
  Dim $aColortable2[0]
EndFunc

Func SortByLum(ByRef $aColortable)
  Local $aColortable2[UBound($aColortable)][4], $a, $i, $r, $g, $b, $lum, $h2, $lum2, $v2, $repetitions = 1
  For $i = 0 To UBound($aColortable) - 1
    $r = BitShift(BitAND($aColortable[$i], 0xFF0000), 16)
    $g = BitShift(BitAND($aColortable[$i], 0xFF00), 8)
    $b = BitAND($aColortable[$i], 0xFF)
    $lum = Sqrt(0.241 * $r + 0.691 * $g + 0.068 * $b)
    $a = RGB2HSV($aColortable[$i])
    $h2 = Int($a[0] * $repetitions)
    $lum2 = Int($lum * $repetitions)
    $v2 = Int($a[2] * $repetitions)
;~         If Mod($h2, 2) = 1 Then
;~             $v2 = $repetitions - $v2
;~             $lum2 = $repetitions - $lum
;~         EndIf
    $aColortable2[$i][0] = $aColortable[$i]
    $aColortable2[$i][1] = $h2 ;H
    $aColortable2[$i][2] = $lum2 ;S
    $aColortable2[$i][3] = $v2 ;V
  Next
;~     Local $aSort[] = [2, 3]
;~     _ArraySort_MultiColumn($aColortable2, $aSort, 0, 0)
;~     DrawColors(96, "Test", $aColortable2)
  Local $aSort2[][] = [[2, 0], [3, 0]]
  _ArrayMultiColSort($aColortable2, $aSort2)
  For $i = 0 To UBound($aColortable2) - 1
    $aColortable[$i] = $aColortable2[$i][0]
  Next
  Dim $aColortable2[0]
EndFunc





Func SortByLAB_Brightness(ByRef $aColortable)
    Local $iDim = UBound($aColortable)
    Local $aLAB[$iDim][4], $aTmp

    For $i = 0 To $iDim - 1
        $aTmp = _RGB2LAB($aColortable[$i])
        $aLAB[$i][0] = $aTmp[0]
        $aLAB[$i][1] = $aTmp[1]
        $aLAB[$i][2] = $aTmp[2]
        $aLAB[$i][3] = $i
    Next

    _ArraySort($aLAB, 0, 0, 0, 0)

    $aTmp = $aColortable
    For $i = 0 To $iDim - 1
        $aColortable[$i] = $aTmp[$aLAB[$i][3]]
    Next

EndFunc






Func SortByLAB(ByRef $aColortable, $iStartRGB = 0) ;by eukalyptus
  Local $iDim = UBound($aColortable), $iDim2 = UBound($aColortable, 2)
  Local $aLAB[$iDim][2], $i

  If $iDim2 Then
    For $i = 0 To $iDim - 1
      $aLAB[$i][0] = _RGB2LAB($aColortable[$i][0])
    Next
  Else
    For $i = 0 To $iDim - 1
      $aLAB[$i][0] = _RGB2LAB($aColortable[$i])
    Next
  EndIf

  Local $aLastLAB = _RGB2LAB($iStartRGB)

  Local $aSort[$iDim], $fD, $fMin, $iIdx
  For $i = 0 To $iDim - 1
    $fMin = 2 ^ 32
    $iIdx = -1
    For $j = 0 To $iDim - 1
      If $aLAB[$j][1] Then ContinueLoop
      $fD = Sqrt((($aLAB[$j][0])[0] - $aLastLAB[0]) ^ 2 + (($aLAB[$j][0])[1] - $aLastLAB[1]) ^ 2 + (($aLAB[$j][0])[2] - $aLastLAB[2]) ^ 2)
      If $fD < $fMin Then
        $fMin = $fD
        $iIdx = $j
      EndIf
    Next
    $aSort[$i] = $iIdx
    $aLastLAB = $aLAB[$iIdx][0]
    $aLAB[$iIdx][1] = True
  Next

  $aTmp = $aColortable
  For $i = 0 To $iDim - 1
    If $iDim2 Then
      $aColortable[$i][0] = $aTmp[$aSort[$i]][0]
    Else
      $aColortable[$i] = $aTmp[$aSort[$i]]
    EndIf
  Next
EndFunc

Func _RGB2LAB($iRGB) ;by eukalyptus
  Local $aRGB[3], $i
  $aRGB[0] = BitAND(BitShift($iRGB, 16), 0xFF) / 255
  $aRGB[1] = BitAND(BitShift($iRGB, 8), 0xFF) / 255
  $aRGB[2] = BitAND($iRGB, 0xFF) / 255

  For $i = 0 To 2
    If $aRGB[$i] > 0.04045 Then
      $aRGB[$i] = (($aRGB[$i] + 0.055) / 1.055) ^ 2.4
    Else
      $aRGB[$i] = $aRGB[$i] / 12.92
    EndIf
    $aRGB[$i] *= 100
  Next

  Local $aXYZ[3]
  $aXYZ[0] = ($aRGB[0] * 0.4124 + $aRGB[1] * 0.3576 + $aRGB[2] * 0.1805) / 95.047
  $aXYZ[1] = ($aRGB[0] * 0.2126 + $aRGB[1] * 0.7152 + $aRGB[2] * 0.0722) / 100.0
  $aXYZ[2] = ($aRGB[0] * 0.0193 + $aRGB[1] * 0.1192 + $aRGB[2] * 0.9505) / 108.883

  For $i = 0 To 2
    If $aXYZ[$i] > 0.008856 Then
      $aXYZ[$i] = $aXYZ[$i] ^ 0.3333333333333333
    Else
      $aXYZ[$i] = (7.787 * $aXYZ[$i]) + (16 / 116)
    EndIf
  Next

  Local $aLAB[3]
  $aLAB[0] = (116 * $aXYZ[1]) - 16
  $aLAB[1] = 500 * ($aXYZ[0] - $aXYZ[1])
  $aLAB[2] = 200 * ($aXYZ[1] - $aXYZ[2])

  Return $aLAB
EndFunc

Func SortByDistance(ByRef $aColortable, $iDir = 0)
  Local $i, $aTmp[2], $swapped
  If $iDir = 0 Then ;sort ascending
    If UBound($aColortable, 2) Then
      Do ;bubblesort -> slow!
        $swapped = 0
        For $i = 0 To UBound($aColortable) - 2
          Distance($aColortable[$i][0], $aColortable[$i + 1][0])
          If @extended Then
            $aTmp[0] = $aColortable[$i][0]
            $aColortable[$i][0] = $aColortable[$i + 1][0]
            $aColortable[$i + 1][0] = $aTmp[0]
            $swapped = 1
          EndIf
        Next
      Until $swapped = 0
    Else
      Do ;bubblesort -> slow!
        $swapped = 0
        For $i = 0 To UBound($aColortable) - 2
          Distance($aColortable[$i], $aColortable[$i + 1])
          If @extended Then
            $aTmp[0] = $aColortable[$i]
            $aColortable[$i] = $aColortable[$i + 1]
            $aColortable[$i + 1] = $aTmp[0]
            $swapped = 1
          EndIf
        Next
      Until $swapped = 0
    EndIf
  Else ;sort descending
    If UBound($aColortable, 2) Then
      Do ;bubblesort -> slow!
        $swapped = 0
        For $i = UBound($aColortable) - 1 To 1 Step -1
          Distance($aColortable[$i][0], $aColortable[$i - 1][0])
          If @extended Then
            $aTmp[0] = $aColortable[$i][0]
            $aColortable[$i][0] = $aColortable[$i - 1][0]
            $aColortable[$i - 1][0] = $aTmp[0]
            $swapped = 1
          EndIf
        Next
      Until $swapped = 0
    Else
      Do ;bubblesort -> slow!
        $swapped = 0
        For $i = UBound($aColortable) - 1 To 1 Step -1
          Distance($aColortable[$i], $aColortable[$i - 1])
          If @extended Then
            $aTmp[0] = $aColortable[$i]
            $aColortable[$i] = $aColortable[$i - 1]
            $aColortable[$i - 1] = $aTmp[0]
            $swapped = 1
          EndIf
        Next
      Until $swapped = 0
    EndIf
  EndIf
EndFunc

Func SortByHSL(ByRef $aColortable, $sc = 3)
  Local $aColortable2[UBound($aColortable)][5]
  Local $a, $i
  For $i = 0 To UBound($aColortable) - 1
    $a = RGB2HSL($aColortable[$i])
    $aColortable2[$i][0] = $aColortable[$i]
    $aColortable2[$i][1] = $a[0] ;H
    $aColortable2[$i][2] = $a[1] ;S
    $aColortable2[$i][3] = $a[2] ;L
    $aColortable2[$i][4] = Sqrt($a[0] ^ 2 + $a[1] ^ 4 + $a[2] ^ 8) ;Sqrt(($a[0] / 360) ^ 2 + $a[1] ^ 2 + $a[2] ^ 2)
  Next
  $sc = Max(Min($sc, 4), 1)
  _ArraySort($aColortable2, 0, 0, 0, $sc)
  For $i = 0 To UBound($aColortable2) - 1
    $aColortable[$i] = $aColortable2[$i][0]
  Next
  Dim $aColortable2[0]
EndFunc

Func SortByHSV(ByRef $aColortable, $sc = 3)
  Local $aColortable2[UBound($aColortable)][4]
  Local $a, $i
  For $i = 0 To UBound($aColortable) - 1
    $a = RGB2HSV($aColortable[$i])
    $aColortable2[$i][0] = $aColortable[$i]
    $aColortable2[$i][1] = $a[0]
    $aColortable2[$i][2] = $a[1]
    $aColortable2[$i][3] = $a[2]
  Next
  $sc = Max(Min($sc, 3), 1)
  _ArraySort($aColortable2, 0, 0, 0, $sc)
  For $i = 0 To UBound($aColortable2) - 1
    $aColortable[$i] = $aColortable2[$i][0]
  Next
  Dim $aColortable2[0]
EndFunc

Func SortByGroupingHSL(ByRef $aColortable, $sc = 2, $sortmode = 2)
  Local $red[0][2], $orange[0][2], $yellow[0][2], $lime[0][2], $green[0][2], $turqoise[0][2], $cyan[0][2], $cobalt[0][2], $blue[0][2], $violet[0][2], $magenta[0][2], $crimson[0][2], $grey[0][2], $i, $j, $col
  $sc = Max(Min($sc, 2), 0)
  For $i = 0 To UBound($aColortable) - 1
    $col = $aColortable[$i]
    Switch RGBtoColorGroup($col)
      Case "red"
        _ArrayAdd($red, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "orange"
        _ArrayAdd($orange, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "yellow"
        _ArrayAdd($yellow, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "lime"
        _ArrayAdd($lime, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "green"
        _ArrayAdd($green, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "turqoise"
        _ArrayAdd($turqoise, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "cyan"
        _ArrayAdd($cyan, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "cobalt"
        _ArrayAdd($cobalt, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "blue"
        _ArrayAdd($blue, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "violet"
        _ArrayAdd($violet, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "magenta"
        _ArrayAdd($magenta, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "crimson"
        _ArrayAdd($crimson, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
      Case "grey"
        _ArrayAdd($grey, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
    EndSwitch
  Next
  $sortmode = Max(Min($sortmode, 2), 1)
  Switch $sortmode
    Case 1
      _ArraySort($red, 0, 0, 0, 1)
      _ArraySort($orange, 0, 0, 0, 1)
      _ArraySort($yellow, 0, 0, 0, 1)
      _ArraySort($lime, 0, 0, 0, 1)
      _ArraySort($green, 0, 0, 0, 1)
      _ArraySort($turqoise, 0, 0, 0, 1)
      _ArraySort($cyan, 0, 0, 0, 1)
      _ArraySort($cobalt, 0, 0, 0, 1)
      _ArraySort($blue, 0, 0, 0, 1)
      _ArraySort($violet, 0, 0, 0, 1)
      _ArraySort($magenta, 0, 0, 0, 1)
      _ArraySort($crimson, 0, 0, 0, 1)
      _ArraySort($grey, 0, 0, 0, 1)
    Case 2
      SortByDistance($red, 1)
      SortByDistance($orange)
      SortByDistance($yellow, 1)
      SortByDistance($lime)
      SortByDistance($green, 1)
      SortByDistance($turqoise)
      SortByDistance($cyan, 1)
      SortByDistance($cobalt)
      SortByDistance($blue, 1)
      SortByDistance($violet)
      SortByDistance($magenta, 1)
      SortByDistance($crimson)
      SortByDistance($grey, 1)
  EndSwitch
  $i = 0
  For $j = 0 To UBound($crimson) - 1
    $aColortable[$i] = $crimson[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($red) - 1
    $aColortable[$i] = $red[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($orange) - 1
    $aColortable[$i] = $orange[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($yellow) - 1
    $aColortable[$i] = $yellow[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($lime) - 1
    $aColortable[$i] = $lime[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($green) - 1
    $aColortable[$i] = $green[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($turqoise) - 1
    $aColortable[$i] = $turqoise[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($cyan) - 1
    $aColortable[$i] = $cyan[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($cobalt) - 1
    $aColortable[$i] = $cobalt[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($blue) - 1
    $aColortable[$i] = $blue[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($violet) - 1
    $aColortable[$i] = $violet[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($magenta) - 1
    $aColortable[$i] = $magenta[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($grey) - 1
    $aColortable[$i] = $grey[$j][0]
    $i += 1
  Next
EndFunc

Func SortByGroupingHSV(ByRef $aColortable, $sc = 2, $sortmode = 3)
  Local $red[0][2], $orange[0][2], $yellow[0][2], $lime[0][2], $green[0][2], $turqoise[0][2], $cyan[0][2], $cobalt[0][2], $blue[0][2], $violet[0][2], $magenta[0][2], $crimson[0][2], $grey[0][2], $i, $j, $col
  $sc = Max(Min($sc, 2), 0)
  For $i = 0 To UBound($aColortable) - 1
    $col = $aColortable[$i]
    Switch RGBtoColorGroup($col)
      Case "red"
        _ArrayAdd($red, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "orange"
        _ArrayAdd($orange, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "yellow"
        _ArrayAdd($yellow, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "lime"
        _ArrayAdd($lime, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "green"
        _ArrayAdd($green, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "turqoise"
        _ArrayAdd($turqoise, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "cyan"
        _ArrayAdd($cyan, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "cobalt"
        _ArrayAdd($cobalt, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "blue"
        _ArrayAdd($blue, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "violet"
        _ArrayAdd($violet, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "magenta"
        _ArrayAdd($magenta, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "crimson"
        _ArrayAdd($crimson, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
      Case "grey"
        _ArrayAdd($grey, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
    EndSwitch
  Next
  $sortmode = Max(Min($sortmode, 3), 1)
  Switch $sortmode
    Case 1
      _ArraySort($red, 0, 0, 0, 1)
      _ArraySort($orange, 0, 0, 0, 1)
      _ArraySort($yellow, 0, 0, 0, 1)
      _ArraySort($lime, 0, 0, 0, 1)
      _ArraySort($green, 0, 0, 0, 1)
      _ArraySort($turqoise, 0, 0, 0, 1)
      _ArraySort($cyan, 0, 0, 0, 1)
      _ArraySort($cobalt, 0, 0, 0, 1)
      _ArraySort($blue, 0, 0, 0, 1)
      _ArraySort($violet, 0, 0, 0, 1)
      _ArraySort($magenta, 0, 0, 0, 1)
      _ArraySort($crimson, 0, 0, 0, 1)
      _ArraySort($grey, 0, 0, 0, 1)
    Case 2
      SortByDistance($red, 1)
      SortByDistance($orange)
      SortByDistance($yellow, 1)
      SortByDistance($lime)
      SortByDistance($green, 1)
      SortByDistance($turqoise)
      SortByDistance($cyan, 1)
      SortByDistance($cobalt)
      SortByDistance($blue, 1)
      SortByDistance($violet)
      SortByDistance($magenta, 1)
      SortByDistance($crimson)
      SortByDistance($grey, 1)
    Case 3
      SortByLAB($red)
      SortByLAB($orange)
      SortByLAB($yellow)
      SortByLAB($lime)
      SortByLAB($green)
      SortByLAB($turqoise)
      SortByLAB($cyan)
      SortByLAB($cobalt)
      SortByLAB($blue)
      SortByLAB($violet)
      SortByLAB($magenta)
      SortByLAB($crimson)
      SortByLAB($grey)
  EndSwitch
  $i = 0
  For $j = 0 To UBound($red) - 1
    $aColortable[$i] = $red[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($orange) - 1
    $aColortable[$i] = $orange[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($yellow) - 1
    $aColortable[$i] = $yellow[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($lime) - 1
    $aColortable[$i] = $lime[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($green) - 1
    $aColortable[$i] = $green[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($turqoise) - 1
    $aColortable[$i] = $turqoise[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($cyan) - 1
    $aColortable[$i] = $cyan[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($cobalt) - 1
    $aColortable[$i] = $cobalt[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($blue) - 1
    $aColortable[$i] = $blue[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($violet) - 1
    $aColortable[$i] = $violet[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($magenta) - 1
    $aColortable[$i] = $magenta[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($crimson) - 1
    $aColortable[$i] = $crimson[$j][0]
    $i += 1
  Next
  For $j = 0 To UBound($grey) - 1
    $aColortable[$i] = $grey[$j][0]
    $i += 1
  Next
EndFunc

Func SortByHSL2(ByRef $aColortable) ;by Mars
  Local $aColortable2[UBound($aColortable)][9]
  Local $a, $i, $hsl_
  For $i = 0 To UBound($aColortable) - 1
    $a = _RGB2LAB($aColortable[$i])
    $hsl_ = RGB2HSL($aColortable[$i])
    $aColortable2[$i][0] = $aColortable[$i]
    $aColortable2[$i][1] = $a[0] ; LAB -> L
    $aColortable2[$i][2] = Sqrt($a[1]^2 + $a[2]^2) ; chroma
    $aColortable2[$i][3] = Abs($a[0] - 50) ; L umformen um "hell und dunkel" rauszufiltern
    $aColortable2[$i][4] = $hsl_[0] ; HSL -> H (könnte man via Farbwinkel aus LAB auch machen, hab ich ausprobiert, sah nicht so schön aus)
  Next
  Local $10 = Int(UBound($aColortable)/10)
  _ArraySort($aColortable2, 0, 0, 0, 2) ; chroma -> ziemlich "unbunte" farben herausfiltern (10%)
  _ArraySort($aColortable2, 1, 1 * $10 + 1, 0 * $10, 3) ; abs(L-50) -> sehr helle und sehr dunkle Farben herausfiltern
  _ArraySort($aColortable2, 0, 1 * $10 + 1, 5 * $10, 2) ; chroma -> von den hellen und dunklen Farben die unbuntesten raussuchen (nochmal 10%)
  _ArraySort($aColortable2, 0, 0 * $10 + 0, 2 * $10, 1) ; Die packt man links an das erste 5tel als eine Art "Pseudograustufenliste" (darin sind 20% aller Farben)
  _ArraySort($aColortable2, 0, 2 * $10 + 1, 0 * $10, 1) ; L -> sortiere nach Helligkeit
  _ArraySort($aColortable2, 0, 2 * $10 + 1, 6 * $10, 4) ; H -> Sortiere nach Hue (1x für niedrige Helligkeit)
  _ArraySort($aColortable2, 1, 6 * $10 + 1, 0 * $10, 4) ; H -> Sortiere nach Hue (1x für hohe Helligkeit)
  For $i = 0 To UBound($aColortable2) - 1
    $aColortable[$i] = $aColortable2[$i][0]
  Next
  Dim $aColortable2[0]
EndFunc

Func RGBtoColorGroup($iColor)
  Local $HSL = RGB2HSL($iColor), $H, $r
  If $HSL[0] = 0 And $HSL[1] = 0 Then
    $H = -1
  Else
    $H = $HSL[0]
  EndIf
  Switch Round($H, 0)
    Case 0 To 14, 345 To 359
      Return "red"
    Case 15 To 44
      Return "orange"
    Case 45 To 74
      Return "yellow"
    Case 75 To 104
      Return "lime"
    Case 105 To 134
      Return "green"
    Case 135 To 164
      Return "turqoise"
    Case 165 To 194
      Return "cyan"
    Case 195 To 224
      Return "cobalt"
    Case 225 To 254
      Return "blue"
    Case 255 To 284
      Return "violet"
    Case 285 To 314
      Return "magenta"
    Case 315 To 344
      Return "crimson"
    Case -1
      Return "grey"
  EndSwitch
EndFunc

Func Distance($c1, $c2)
  Local $r1 = BitShift(BitAND($c1, 0xFF0000), 16), $g1 = BitShift(BitAND($c1, 0xFF00), 8), $b1 = BitAND($c1, 0xFF)
  Local $r2 = BitShift(BitAND($c2, 0xFF0000), 16), $g2 = BitShift(BitAND($c2, 0xFF00), 8), $b2 = BitAND($c2, 0xFF)
  Local $dr = $r2 - $r1, $dg = $g2 - $g1, $db =  $b2 - $b1
  Return SetExtended($dr + $dg + $db < 0, Sqrt($dr * $dr + $dg * $dg + $db * $db))
EndFunc

Func RGB2HSL($iColor) ;http://www.easyrgb.com/en/math.php
  Local $var_r = BitAND(BitShift($iColor, 16), 255) / 255, $var_g = BitAND(BitShift($iColor, 8), 255) / 255, $var_b = BitAND($iColor, 255) / 255
  Local $H, $S, $L, $var_Min, $var_Max, $del_Max, $del_Max2, $del_R, $del_G, $del_B

  $var_Min = Min3($var_r, $var_g, $var_b)
  $var_Max = Max3($var_r, $var_g, $var_b)
  $del_Max = $var_Max - $var_Min
  $L = ($var_Max + $var_Min) / 2
  If $del_Max = 0 Then
    $H = 0
    $S = 0
  Else
    $S = $L < 0.5 ? $del_Max / ($var_Max + $var_Min) : $del_Max / (2 - $var_Max - $var_Min)
    $del_Max2 = $del_Max / 2
    $del_R = ((($var_Max - $var_R) / 6) + $del_Max2) / $del_Max
    $del_G = ((($var_Max - $var_G) / 6) + $del_Max2) / $del_Max
    $del_B = ((($var_Max - $var_B) / 6) + $del_Max2) / $del_Max
    If ($var_R = $var_Max) Then
      $H = $del_B - $del_G
    Elseif $var_G = $var_Max Then
      $H = 0.333333333333333 + $del_R - $del_B
    Elseif $var_B = $var_Max Then
      $H = 0.666666666666667 + $del_G - $del_R
    EndIf
    If $H < 0 Then $H += 1
    If $H > 1 Then $H -= 1
  EndIf
  Local $aHSL[3] = [$H * 360, $S, $L]
  Return $aHSL
EndFunc

Func RGB2HSV($iColor) ;http://www.easyrgb.com/en/math.php
  Local $var_r = BitAND(BitShift($iColor, 16), 255) / 255, $var_g = BitAND(BitShift($iColor, 8), 255) / 255, $var_b = BitAND($iColor, 255) / 255
  Local $H, $S, $V, $var_Min, $var_Max, $del_Max, $del_Max2, $del_R, $del_G, $del_B

  $var_Min = Min3($var_r, $var_g, $var_b)
  $var_Max = Max3($var_r, $var_g, $var_b)
  $del_Max = $var_Max - $var_Min
  $V = $var_Max
  If $del_Max = 0 Then
    $H = 0
    $S = 0
  Else
    $S = $del_Max / $var_Max
    $del_Max2 = $del_Max / 2
    $del_R = ((($var_Max - $var_R) / 6) + $del_Max2) / $del_Max
    $del_G = ((($var_Max - $var_G) / 6) + $del_Max2) / $del_Max
    $del_B = ((($var_Max - $var_B) / 6) + $del_Max2) / $del_Max
    If $var_R = $var_Max Then
      $H = $del_B - $del_G
    ElseIf $var_G = $var_Max Then
      $H = 0.333333333333333 + $del_R - $del_B
    ElseIf $var_B = $var_Max Then
      $H = 0.666666666666667 + $del_G - $del_R
    EndIf
    If $H < 0 Then $H += 1
    If $H > 1 Then $H -= 1
  EndIf
  Local $aHSV[3] = [$H * 360, $S, $V]
  Return $aHSV
EndFunc

Func RGA2CMYK($iColor)
  Local $r = BitAND(BitShift($iColor, 16), 255), $g = BitAND(BitShift($iColor, 8), 255), $b = BitAND($iColor, 255)
  Local $C = 1 - ($r / 255), $M = 1 - ($G / 255), $Y = 1 - ($B / 255), $K = 1
  If ($C < $K) Then $K = $C
  If ($M < $K) Then $K = $M
  If ($Y < $K) Then $K = $Y
  If ($K = 1) Then ;Black only
    $C = 0
    $M = 0
    $Y = 0
  Else
    $C = ($C - $K) / (1 - $K)
    $M = ($M - $K) / (1 - $K)
    $Y = ($Y - $K) / (1 - $K)
  EndIf
  Local $aCMYK[] = [$C, $M, $Y, $K]
  Return $aCMYK
EndFunc

Func SortByBrightColor(ByRef $List) ; by fee
  Local Const _
      $High = UBound($List)
  Local $Sort[$High][$High]
  For $a = 0 To $High - 1
    $Redd = BitAnd(BitShift($List[$a], 16), 0xFF)
    $Gren = BitAnd(BitShift($List[$a],  8), 0xFF)
    $Blue = BitAnd(         $List[$a],      0xFF)
    $Mini = Min3($Redd, $Gren, $Blue)
    $Maxi = Max3($Redd, $Gren, $Blue)
    $Dist = $Maxi - $Mini
    $Luma = Round(($Redd * 0.299) + ($Gren * 0.587) + ($Blue * 0.114))
    $Sort[$Luma][$Dist] = $List[$a]
  Next
  $c = 0
  For $a = 0 To $High - 1
    For $b = 0 To $High - 1
      If $Sort[$a][$b] = '' Then ContinueLoop
      $List[$c] = $Sort[$a][$b]
      $c += 1
    Next
  Next
EndFunc   ;==>SortByBrightColor

Func Min($a, $b)
  Return ($a < $b) ? $a : $b
EndFunc

Func Max($a, $b)
  Return ($a > $b) ? $a : $b
EndFunc

Func Min3($a, $b, $c)
  Return Min(Min($a, $b), $C)
EndFunc

Func Max3($a, $b, $c)
  Return Max(Max($a, $b), $C)
EndFunc

; #FUNCTION# =============================================================================
; Name.............:    _ArraySort_MultiColumn
; Description ...:      sorts an array at given colums (multi colum sort)
; Syntax...........:    _ArraySort_MultiColumn(ByRef $aSort, ByRef $aIndices)
; Parameters ...:        $aSort - array to sort
;                        $aIndices - array with colum indices which should be sorted in specified order - zero based
;                        $oDir/$iDir - sort direction - if set to 1, sort descending else ascending. $oDir is for the 1st row,
;                                                      $iDir for the remaining rows
;                        $iStart - where to start to sort - 0 = 0 based array, 1 = 1 based array
; Author .........:        UEZ
; Version ........:        v0.80 build 2019-01-26 Beta
; =========================================================================================
Func _ArraySort_MultiColumn(ByRef $aSort, ByRef $aIndices, $oDir = 0, $iDir = 0, $iStart = 0)
  If Not IsArray($aIndices) Or Not IsArray($aSort) Then Return SetError(1, 0, 0) ;checks if $aIndices is an array
  If UBound($aSort, 2) = 0 Then Return SetError(4, 0, 0) ;array is 1D only
  If UBound($aIndices) > UBound($aSort, 2) Then Return SetError(2, 0, 0) ;check if $aIndices array is greater the $aSort array
  Local $1st, $2nd, $x, $j, $k, $l = 0
  For $x = 0 To UBound($aIndices) - 1 ;check if array content makes sense
    If Not IsInt($aIndices[$x]) Then Return SetError(3, 0, 0) ;array content is not numeric
  Next
  $iStart = Int($iStart) < 0 ? 0 : Int($iStart) > 1 ? 1 : Int($iStart)
  If UBound($aIndices) = 1 Then Return _ArraySort($aSort, $oDir, $iStart, 0, $aIndices[0]) ;check if only one index is given
  _ArraySort($aSort, $oDir, $iStart, 0, $aIndices[0])
  Do
    $1st = $aIndices[$l]
    $2nd = $aIndices[$l + 1]
    $j = 0
    $k = 1
    While $k < UBound($aSort)
      If $aSort[$j][$1st] <> $aSort[$k][$1st] Then
        If $k - $j > 1 Then
          _ArraySort($aSort, $iDir, $j, $k - 1, $2nd)
          $j = $k
        Else
          $j = $k
        EndIf
      EndIf
      $k += 1
    WEnd
    If $k - $j > 1 Then _ArraySort($aSort, $iDir, $j, $k, $2nd)
    $l += 1
  Until $l = UBound($aIndices) - 1
  Return 1
EndFunc   ;==>_ArraySort_MultiColumn

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayMultiColSort
; Description ...: Sort 2D arrays on several columns
; Syntax.........: _ArrayMultiColSort(ByRef $aArray, $aSortData[, $iStart = 0[, $iEnd = 0]])
; Parameters ....: $aArray    - The 2D array to be sorted
;                  $aSortData - 2D array holding details of the sort format
;                               Format: [Column to be sorted, Sort order]
;                                   Sort order can be either numeric (0/1 = ascending/descending) or a ordered string of items
;                                   Any elements not matched in string are left unsorted after all sorted elements
;                  $iStart    - Element of array at which sort starts (default = 0)
;                  $iEnd      - Element of array at which sort endd (default = 0 - converted to end of array)
; Requirement(s).: v3.3.8.1 or higher
; Return values .: Success: No error
;                  Failure: @error set as follows
;                            @error = 1 with @extended set as follows (all refer to $sIn_Date):
;                                1 = Array to be sorted not 2D
;                                2 = Sort data array not 2D
;                                3 = More data rows in $aSortData than columns in $aArray
;                                4 = Start beyond end of array
;                                5 = Start beyond End
;                            @error = 2 with @extended set as follows:
;                                1 = Invalid string parameter in $aSortData
;                                2 = Invalid sort direction parameter in $aSortData
;                                3 = Invalid column index in $aSortData
; Author ........: Melba23
; Remarks .......: Columns can be sorted in any order
; Example .......; Yes
; ===============================================================================================================================
Func _ArrayMultiColSort(ByRef $aArray, $aSortData, $iStart = 0, $iEnd = 0)

  ; Errorchecking
  ; 2D array to be sorted
  If UBound($aArray, 2) = 0 Then
    Return SetError(1, 1, "")
  EndIf
  ; 2D sort data
  If UBound($aSortData, 2) <> 2 Then
    Return SetError(1, 2, "")
  EndIf
  If UBound($aSortData) > UBound($aArray) Then
    Return SetError(1, 3)
  EndIf
  For $i = 0 To UBound($aSortData) - 1
    If $aSortData[$i][0] < 0 Or $aSortData[$i][0] > UBound($aArray, 2) -1 Then
      Return SetError(2, 3, "")
    EndIf
  Next
  ; Start element
  If $iStart < 0 Then
    $iStart = 0
  EndIf
  If $iStart >= UBound($aArray) - 1 Then
    Return SetError(1, 4, "")
  EndIf
  ; End element
  If $iEnd <= 0 Or $iEnd >= UBound($aArray) - 1 Then
    $iEnd = UBound($aArray) - 1
  EndIf
  ; Sanity check
  If $iEnd <= $iStart Then
    Return SetError(1, 5, "")
  EndIf

  Local $iCurrCol, $iChunk_Start, $iMatchCol

  ; Sort first column
  __AMCS_SortChunk($aArray, $aSortData, 0, $aSortData[0][0], $iStart, $iEnd)
  If @error Then
    Return SetError(2, @extended, "")
  EndIf
  ; Now sort within other columns
  For $iSortData_Row = 1 To UBound($aSortData) - 1
    ; Determine column to sort
    $iCurrCol = $aSortData[$iSortData_Row][0]
    ; Create arrays to hold data from previous columns
    Local $aBaseValue[$iSortData_Row]
    ; Set base values
    For $i = 0 To $iSortData_Row - 1
      $aBaseValue[$i] = $aArray[$iStart][$aSortData[$i][0]]
    Next
    ; Set start of this chunk
    $iChunk_Start = $iStart
    ; Now work down through array
    For $iRow = $iStart + 1 To $iEnd
      ; Match each column
      For $k = 0 To $iSortData_Row - 1
        $iMatchCol = $aSortData[$k][0]
        ; See if value in each has changed
        If $aArray[$iRow][$iMatchCol] <> $aBaseValue[$k] Then
          ; If so and row has advanced
          If $iChunk_Start < $iRow - 1 Then
            ; Sort this chunk
            __AMCS_SortChunk($aArray, $aSortData, $iSortData_Row, $iCurrCol, $iChunk_Start, $iRow - 1)
            If @error Then
              Return SetError(2, @extended, "")
            EndIf
          EndIf
          ; Set new base value
          $aBaseValue[$k] = $aArray[$iRow][$iMatchCol]
          ; Set new chunk start
          $iChunk_Start = $iRow
        EndIf
      Next
    Next
    ; Sort final section
    If $iChunk_Start < $iRow - 1 Then
      __AMCS_SortChunk($aArray, $aSortData, $iSortData_Row, $iCurrCol, $iChunk_Start, $iRow - 1)
      If @error Then
        Return SetError(2, @extended, "")
      EndIf
    EndIf
  Next

EndFunc   ;==>_ArrayMultiColSort

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name...........: __AMCS_SortChunk
; Description ...: Sorts array section
; Author ........: Melba23
; Remarks .......:
; ===============================================================================================================================
Func __AMCS_SortChunk(ByRef $aArray, $aSortData, $iRow, $iColumn, $iChunkStart, $iChunkEnd)

  Local $aSortOrder

  ; Set default sort direction
  Local $iSortDirn = 1
  ; Need to prefix elements?
  If IsString($aSortData[$iRow][1]) Then
    ; Split elements
    $aSortOrder = StringSplit($aSortData[$iRow][1], ",")
    If @error Then
      Return SetError(1, 1, "")
    EndIf
    ; Add prefix to each element
    For $i = $iChunkStart To $iChunkEnd
      For $j = 1 To $aSortOrder[0]
        If $aArray[$i][$iColumn] = $aSortOrder[$j] Then
          $aArray[$i][$iColumn] = StringFormat("%02i-", $j) & $aArray[$i][$iColumn]
          ExitLoop
        EndIf
      Next
      ; Deal with anything that does not match
      If $j > $aSortOrder[0] Then
        $aArray[$i][$iColumn] = StringFormat("%02i-", $j) & $aArray[$i][$iColumn]
      EndIf
    Next
  Else
    Switch $aSortData[$iRow][1]
      Case 0, 1
        ; Set required sort direction if no list
        If $aSortData[$iRow][1] Then
          $iSortDirn = -1
        Else
          $iSortDirn = 1
        EndIf
      Case Else
        Return SetError(1, 2, "")
    EndSwitch
  EndIf

  ; Sort the chunk
  Local $iSubMax = UBound($aArray, 2) - 1
  __ArrayQuickSort2D($aArray, $iSortDirn, $iChunkStart, $iChunkEnd, $iColumn, $iSubMax)

  ; Remove any prefixes
  If IsString($aSortData[$iRow][1]) Then
    For $i = $iChunkStart To $iChunkEnd
      $aArray[$i][$iColumn] = StringTrimLeft($aArray[$i][$iColumn], 3)
    Next
  EndIf

EndFunc   ;==>__AMCS_SortChunk

Alles anzeigen

Edit:

Und nochwas:

AutoIt

Func SortByHUEGroup_LABLightness(ByRef $aColortable)
    Local $iDim = UBound($aColortable)

    Local $aHSL, $iIdx, $aGroup[12], $aTmp[0][2]
    For $i = 0 To 11
        $aGroup[$i] = $aTmp
    Next

    Local $aLAB
    For $i = 0 To $iDim - 1
        $aLAB = _RGB2LAB($aColortable[$i])
        $aHSL = RGB2HSL($aColortable[$i])
        $iIdx = Floor(Mod($aHSL[0], 360) / 30)

        _ArrayAdd($aGroup[$iIdx], $aLAB[0] & "|" & $aColortable[$i])
    Next

    $iIdx = 0
    For $i = 0 To 11
        $aTmp = $aGroup[$i]
        For $j = 0 To UBound($aTmp)-1
            $aTmp[$j][0] = Number($aTmp[$j][0])
        Next
        _ArraySort($aTmp)
        $aGroup[$i] = $aTmp

        For $j = 0 To UBound($aTmp)-1
            $aColortable[$iIdx] = $aTmp[$j][1]
            $iIdx += 1
        Next
    Next

EndFunc

Alles anzeigen

AutoIt

Func SortByHUEGroup_LABLightness_V2(ByRef $aColortable)
    Local $iDim = UBound($aColortable)

    Local $aHSL, $iIdx, $aGroup[12], $aTmp[0][2]
    For $i = 0 To 11
        $aGroup[$i] = $aTmp
    Next

    Local $aLAB
    For $i = 0 To $iDim - 1
        $aLAB = _RGB2LAB($aColortable[$i])
        $aHSL = RGB2HSL($aColortable[$i])
        $iIdx = Floor(Mod($aHSL[0], 360) / 30)

        _ArrayAdd($aGroup[$iIdx], $aLAB[0] & "|" & $aColortable[$i])
    Next

    $iIdx = 0
    For $i = 0 To 11
        $aTmp = $aGroup[$i]
        For $j = 0 To UBound($aTmp)-1
            $aTmp[$j][0] = Number($aTmp[$j][0])
        Next
        _ArraySort($aTmp, Mod($i, 2))
        $aGroup[$i] = $aTmp

        For $j = 0 To UBound($aTmp)-1
            $aColortable[$iIdx] = $aTmp[$j][1]
            $iIdx += 1
        Next
    Next

EndFunc

Alles anzeigen

**eukalyptus** · 15. März 2023

Eine Idee wäre, zuerst in HSL zu gruppieren u innerhalb mit LAB zu sortieren...

Oder nicht immer den letzten LAB-Wert zur Suche verwenden (Zeile 95), sondern die Farbe vorgeben, zB via HUE

ColorTable[0................X]

HUE[0............360] -> LAB[x.............y]

**eukalyptus** · 14. März 2023

Hi UEZ!

Mit LAB bekommst du einen ganz guten Color-Unterschied geliefert. SQRT((L2-L1)^2 + (A2-A1)^2 + (B2-B1)^2)

AutoIt

;Coded by UEZ build 2023-03-14
#include <Array.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
_GDIPlus_Startup()

Global $hGUI = GUICreate("GDI+ Color Sorting / Grouping Test", 800, 320)
GUISetState()
Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hPen = _GDIPlus_PenCreate(0)
_GDIPlus_GraphicsClear($hGraphic)


Global $aColortable[511], $i, $y = 0
For $i = 0 To UBound($aColortable) - 1
    $aColortable[$i] = Int(Random() * 0xFFFFFF)
Next

DrawColors($y, "Random")

SortByDistance($aColortable)
$y += 40
DrawColors($y, "Distance")

SortByHSL($aColortable)
$y += 40
DrawColors($y, "HSL")

SortByHSV($aColortable)
$y += 40
DrawColors($y, "HSV")

SortByGroupingHSL($aColortable)
$y += 40
DrawColors($y, "Grouping HSL")

SortByGroupingHSV($aColortable)
$y += 40
DrawColors($y, "Grouping HSV")

SortByLAB($aColortable)
$y += 40
DrawColors($y, "LAB")

_ArraySort($aColortable)
$y += 40
DrawColors($y, "Default Array Sort")

While GUIGetMsg() <> $GUI_EVENT_CLOSE
    Sleep(10)
WEnd

_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete()
Exit

Func DrawColors($y, $txt = 0)
    For $i = 0 To UBound($aColortable) - 1
        _GDIPlus_PenSetColor($hPen, BitOR(0xFF000000, $aColortable[$i]))
        _GDIPlus_GraphicsDrawLine($hGraphic, $i, $y, $i, $y + 32, $hPen)
    Next
    If $txt Then _GDIPlus_GraphicsDrawString($hGraphic, $txt, $i + 8, $y + 4, "Arial", 16, Default, 0xFFFFFFFF)
EndFunc





Func SortByLAB(ByRef $aColortable, $iStartRGB = 0xFF0000)
    Local $iDim = UBound($aColortable)
    Local $aLAB[$iDim][2]

    For $i = 0 To $iDim - 1
        $aLAB[$i][0] = _RGB2LAB($aColortable[$i])
    Next

    Local $aLastLAB = _RGB2LAB($iStartRGB)

    Local $aSort[$iDim], $fD, $fMin, $iIdx
    For $i = 0 To $iDim - 1
        $fMin = 2 ^ 32
        $iIdx = -1
        For $j = 0 To $iDim - 1
            If $aLAB[$j][1] Then ContinueLoop
            $fD = Sqrt((($aLAB[$j][0])[0] - $aLastLAB[0]) ^ 2 + (($aLAB[$j][0])[1] - $aLastLAB[1]) ^ 2 + (($aLAB[$j][0])[2] - $aLastLAB[2]) ^ 2)
            If $fD < $fMin Then
                $fMin = $fD
                $iIdx = $j
            EndIf
        Next
        $aSort[$i] = $iIdx
        $aLastLAB = $aLAB[$iIdx][0]
        $aLAB[$iIdx][1] = True
    Next

    $aTmp = $aColortable
    For $i = 0 To $iDim - 1
        $aColortable[$i] = $aTmp[$aSort[$i]]
    Next

EndFunc




Func _RGB2LAB($iRGB)
    Local $aRGB[3]
    $aRGB[0] = BitAND(BitShift($iRGB, 16), 0xFF) / 255
    $aRGB[1] = BitAND(BitShift($iRGB, 8), 0xFF) / 255
    $aRGB[2] = BitAND($iRGB, 0xFF) / 255

    For $i = 0 To 2
        If $aRGB[$i] > 0.04045 Then
            $aRGB[$i] = (($aRGB[$i] + 0.055) / 1.055) ^ 2.4
        Else
            $aRGB[$i] = $aRGB[$i] / 12.92
        EndIf
        $aRGB[$i] *= 100
    Next

    Local $aXYZ[3]
    $aXYZ[0] = ($aRGB[0] * 0.4124 + $aRGB[1] * 0.3576 + $aRGB[2] * 0.1805) / 95.047
    $aXYZ[1] = ($aRGB[0] * 0.2126 + $aRGB[1] * 0.7152 + $aRGB[2] * 0.0722) / 100.0
    $aXYZ[2] = ($aRGB[0] * 0.0193 + $aRGB[1] * 0.1192 + $aRGB[2] * 0.9505) / 108.883

    For $i = 0 To 2
        If $aXYZ[$i] > 0.008856 Then
            $aXYZ[$i] = $aXYZ[$i] ^ 0.3333333333333333
        Else
            $aXYZ[$i] = (7.787 * $aXYZ[$i]) + (16 / 116)
        EndIf
    Next

    Local $aLAB[3]
    $aLAB[0] = (116 * $aXYZ[1]) - 16
    $aLAB[1] = 500 * ($aXYZ[0] - $aXYZ[1])
    $aLAB[2] = 200 * ($aXYZ[1] - $aXYZ[2])

    Return $aLAB
EndFunc











Func SortByDistance(ByRef $aColortable)
    Local $i, $aTmp[2], $swapped
    Do ;bubblesort -> slow!
        $swapped = 0
        For $i = 0 To UBound($aColortable) - 2
            Distance($aColortable[$i], $aColortable[$i + 1])
            If @extended Then
                $aTmp[0] = $aColortable[$i]
                $aColortable[$i] = $aColortable[$i + 1]
                $aColortable[$i + 1] = $aTmp[0]
                $swapped = 1
            EndIf
        Next
    Until $swapped = 0
EndFunc

Func SortByHSL(ByRef $aColortable, $sc = 1)
    Local $aColortable2[UBound($aColortable)][4]
    Local $a, $i
    For $i = 0 To UBound($aColortable) - 1
        $a = RGB2HSL($aColortable[$i])
        $aColortable2[$i][0] = $aColortable[$i]
        $aColortable2[$i][1] = $a[0]
        $aColortable2[$i][2] = $a[1]
        $aColortable2[$i][3] = $a[2]
    Next
    $sc = Max(Min($sc, 3), 1)
    _ArraySort($aColortable2, 0, 0, 0, $sc)
    For $i = 0 To UBound($aColortable2) - 1
        $aColortable[$i] = $aColortable2[$i][0]
    Next
    Dim $aColortable2[0]
EndFunc

Func SortByHSV(ByRef $aColortable, $sc = 1)
    Local $aColortable2[UBound($aColortable)][4]
    Local $a, $i
    For $i = 0 To UBound($aColortable) - 1
        $a = RGB2HSV($aColortable[$i])
        $aColortable2[$i][0] = $aColortable[$i]
        $aColortable2[$i][1] = $a[0]
        $aColortable2[$i][2] = $a[1]
        $aColortable2[$i][3] = $a[2]
    Next
    $sc = Max(Min($sc, 3), 1)
    _ArraySort($aColortable2, 0, 0, 0, $sc)
    For $i = 0 To UBound($aColortable2) - 1
        $aColortable[$i] = $aColortable2[$i][0]
    Next
    Dim $aColortable2[0]
EndFunc

Func SortByGroupingHSL(ByRef $aColortable, $sc = 2)
    Local $red[0][2], $orange[0][2], $yellow[0][2], $lime[0][2], $green[0][2], $turqoise[0][2], $cyan[0][2], $cobalt[0][2], $blue[0][2], $violet[0][2], $magenta[0][2], $crimson[0][2], $grey[0][2], $i, $j, $col
    $sc = Max(Min($sc, 2), 0)
    For $i = 0 To UBound($aColortable) - 1
        $col = $aColortable[$i]
        Switch RGBtoColorGroup($col)
            Case "red"
                _ArrayAdd($red, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "orange"
                _ArrayAdd($orange, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "yellow"
                _ArrayAdd($yellow, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "lime"
                _ArrayAdd($lime, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "green"
                _ArrayAdd($green, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "turqoise"
                _ArrayAdd($turqoise, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "cyan"
                _ArrayAdd($cyan, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "cobalt"
                _ArrayAdd($cobalt, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "blue"
                _ArrayAdd($blue, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "violet"
                _ArrayAdd($violet, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "magenta"
                _ArrayAdd($magenta, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "crimson"
                _ArrayAdd($crimson, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
            Case "grey"
                _ArrayAdd($grey, $aColortable[$i] & "|" & RGB2HSL($col)[$sc])
        EndSwitch
    Next
    _ArraySort($red, 0, 0, 0, 1)
    _ArraySort($orange, 0, 0, 0, 1)
    _ArraySort($yellow, 0, 0, 0, 1)
    _ArraySort($lime, 0, 0, 0, 1)
    _ArraySort($green, 0, 0, 0, 1)
    _ArraySort($turqoise, 0, 0, 0, 1)
    _ArraySort($cyan, 0, 0, 0, 1)
    _ArraySort($cobalt, 0, 0, 0, 1)
    _ArraySort($blue, 0, 0, 0, 1)
    _ArraySort($violet, 0, 0, 0, 1)
    _ArraySort($magenta, 0, 0, 0, 1)
    _ArraySort($crimson, 0, 0, 0, 1)
    _ArraySort($grey, 0, 0, 0, 1)
    $i = 0
    For $j = 0 To UBound($red) - 1
        $aColortable[$i] = $red[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($orange) - 1
        $aColortable[$i] = $orange[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($yellow) - 1
        $aColortable[$i] = $yellow[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($lime) - 1
        $aColortable[$i] = $lime[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($green) - 1
        $aColortable[$i] = $green[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($turqoise) - 1
        $aColortable[$i] = $turqoise[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($cyan) - 1
        $aColortable[$i] = $cyan[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($cobalt) - 1
        $aColortable[$i] = $cobalt[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($blue) - 1
        $aColortable[$i] = $blue[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($violet) - 1
        $aColortable[$i] = $violet[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($magenta) - 1
        $aColortable[$i] = $magenta[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($crimson) - 1
        $aColortable[$i] = $crimson[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($grey) - 1
        $aColortable[$i] = $grey[$j][0]
        $i += 1
    Next
EndFunc

Func SortByGroupingHSV(ByRef $aColortable, $sc = 2)
    Local $red[0][2], $orange[0][2], $yellow[0][2], $lime[0][2], $green[0][2], $turqoise[0][2], $cyan[0][2], $cobalt[0][2], $blue[0][2], $violet[0][2], $magenta[0][2], $crimson[0][2], $grey[0][2], $i, $j, $col
    $sc = Max(Min($sc, 2), 0)
    For $i = 0 To UBound($aColortable) - 1
        $col = $aColortable[$i]
        Switch RGBtoColorGroup($col)
            Case "red"
                _ArrayAdd($red, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "orange"
                _ArrayAdd($orange, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "yellow"
                _ArrayAdd($yellow, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "lime"
                _ArrayAdd($lime, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "green"
                _ArrayAdd($green, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "turqoise"
                _ArrayAdd($turqoise, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "cyan"
                _ArrayAdd($cyan, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "cobalt"
                _ArrayAdd($cobalt, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "blue"
                _ArrayAdd($blue, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "violet"
                _ArrayAdd($violet, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "magenta"
                _ArrayAdd($magenta, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "crimson"
                _ArrayAdd($crimson, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
            Case "grey"
                _ArrayAdd($grey, $aColortable[$i] & "|" & RGB2HSV($col)[$sc])
        EndSwitch
    Next
    _ArraySort($red, 0, 0, 0, 1)
    _ArraySort($orange, 0, 0, 0, 1)
    _ArraySort($yellow, 0, 0, 0, 1)
    _ArraySort($lime, 0, 0, 0, 1)
    _ArraySort($green, 0, 0, 0, 1)
    _ArraySort($turqoise, 0, 0, 0, 1)
    _ArraySort($cyan, 0, 0, 0, 1)
    _ArraySort($cobalt, 0, 0, 0, 1)
    _ArraySort($blue, 0, 0, 0, 1)
    _ArraySort($violet, 0, 0, 0, 1)
    _ArraySort($magenta, 0, 0, 0, 1)
    _ArraySort($crimson, 0, 0, 0, 1)
    _ArraySort($grey, 0, 0, 0, 1)
    $i = 0
    For $j = 0 To UBound($red) - 1
        $aColortable[$i] = $red[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($orange) - 1
        $aColortable[$i] = $orange[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($yellow) - 1
        $aColortable[$i] = $yellow[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($lime) - 1
        $aColortable[$i] = $lime[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($green) - 1
        $aColortable[$i] = $green[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($turqoise) - 1
        $aColortable[$i] = $turqoise[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($cyan) - 1
        $aColortable[$i] = $cyan[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($cobalt) - 1
        $aColortable[$i] = $cobalt[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($blue) - 1
        $aColortable[$i] = $blue[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($violet) - 1
        $aColortable[$i] = $violet[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($magenta) - 1
        $aColortable[$i] = $magenta[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($crimson) - 1
        $aColortable[$i] = $crimson[$j][0]
        $i += 1
    Next
    For $j = 0 To UBound($grey) - 1
        $aColortable[$i] = $grey[$j][0]
        $i += 1
    Next
EndFunc

Func RGBtoColorGroup($iColor)
    Local $HSL = RGB2HSL($iColor), $H, $r
    If $HSL[0] = 0 And $HSL[1] = 0 Then
        $H = -1
    Else
        $H = $HSL[0]
    EndIf
    Switch $H
        Case 0 To 15, 345 To 360
            Return "red"
        Case 15 To 45
            Return "orange"
        Case 45 To 75
            Return "yellow"
        Case 75 To 105
            Return "lime"
        Case 105 To 135
            Return "green"
        Case 135 To 165
            Return "turqoise"
        Case 165 To 195
            Return "cyan"
        Case 195 To 225
            Return "cobalt"
        Case 225 To 255
            Return "blue"
        Case 255 To 285
            Return "violet"
        Case 285 To 315
            Return "magenta"
        Case 315 To 345
            Return "crimson"
        Case -1
            Return "grey"
    EndSwitch
EndFunc

Func Distance($c1, $c2)
    Local $r1 = BitShift(BitAND($c1, 0xFF0000), 16), $g1 = BitShift(BitAND($c1, 0xFF00), 8), $b1 = BitAND($c1, 0xFF)
    Local $r2 = BitShift(BitAND($c2, 0xFF0000), 16), $g2 = BitShift(BitAND($c2, 0xFF00), 8), $b2 = BitAND($c2, 0xFF)
    Local $dr = $r2 - $r1, $dg = $g2 - $g1, $db =  $b2 - $b1
    Return SetExtended($dr + $dg + $db < 0, Sqrt($dr * $dr + $dg * $dg + $db * $db))
EndFunc

Func RGB2HSL($iColor)
    Local $r = BitAND(BitShift($iColor, 16), 255) / 255, $g = BitAND(BitShift($iColor, 8), 255) / 255, $b = BitAND($iColor, 255) / 255
    Local $Cmax = Max(Max($r, $g), $b), $Cmin = Min(Min($r, $g), $b), $deltaChroma = $Cmax - $Cmin
    Local $L = ($Cmin + $Cmax) / 2, $H, $S
    If $deltaChroma = 0 Then
        $H = 0
        $S = 0
    Else
        $S = $deltaChroma / (1 - Abs(2 * $L - 1))
        Switch $Cmax
            Case $r
                $H = Mod(($g - $b) / $deltaChroma, 6)
            Case $g
                $H = ($b - $r) / $deltaChroma + 2
            Case Else
                $H = ($r - $g) / $deltaChroma + 4
        EndSwitch
        $H *= 60
        If $H < 0 Then $H += 360
    EndIf
    Local $aHSL[3] = [$H, $S, $L]
    Return $aHSL
EndFunc

Func RGB2HSV($iColor)
    Local $r = BitAND(BitShift($iColor, 16), 255) / 255, $g = BitAND(BitShift($iColor, 8), 255) / 255, $b = BitAND($iColor, 255) / 255
    Local $h, $s, $v, $c, $minRGB, $maxRGB, $deltaRGB

    $minRGB = Min3($r, $g, $b)
    $maxRGB = Max3($r, $g, $b)
    $deltaRGB = $maxRGB - $minRGB

    If $deltaRGB = 0 Then
        $h = 0
    ElseIf $maxRGB = $r Then
        $h = 60 * Mod((($g - $b) / $deltaRGB), 6)
    ElseIf $maxRGB = $g Then
        $h = 60 * ((($b - $r) / $deltaRGB) + 2)
    Else
        $h = 60 * ((($r - $g) / $deltaRGB) + 4)
    EndIf

    If $maxRGB = 0 Then
        $s = 0
    Else
        $s = $deltaRGB / $maxRGB
    EndIf

    $v = $maxRGB
    Local $aHSV[3] = [$H, $S, $V]
    Return $aHSV
EndFunc

Func Min($a, $b)
    Return ($a < $b) ? $a : $b
EndFunc

Func Max($a, $b)
    Return ($a > $b) ? $a : $b
EndFunc

Func Min3($a, $b, $c)
    Return Min(Min($a, $b), $C)
EndFunc

Func Max3($a, $b, $c)
    Return Max(Max($a, $b), $C)
EndFunc

Alles anzeigen

Den RGB2LAB Code hab ich von Stackoverflow, leider find ich das Original nicht mehr...

lg

E

**eukalyptus** · 14. November 2020

Yeah!

**eukalyptus** · 14. November 2020

Eigentlich ein cooles Feature!

Tja - Ich bin wohl doch schon etwas aus der Übung!

**eukalyptus** · 14. November 2020

Ahh! Danke!

Das hilft schonmal enorm zu wissen, dass es die STRG Taste ist.

Keine Katze - wahrscheinlich ein pöser Geist

thx

**eukalyptus** · 14. November 2020

Hallo Allerseits!

Seit kurzem nervt mich folgendes Phänomen:

Hin und wieder hab ich plötzlich 2 Cursor in SciTE, welche gleichzeitig in unterschiedlichen Zeilen schreiben.

Egal, ob das nun ein nützliches Feature sei, oder seit Urzeiten schon so funktioniert - ich würde das gerne abstellen.

Vielleicht kann mir ja jemand sagen, wodurch dieses Feature getriggert wird u wie ich es deaktivieren kann.

Hier ein kurzes Video dazu: Untitled.7z

Vielen Dank!

**eukalyptus** · 23. März 2020

Frames ohne Umweg über die Festplatte:

C

#include <GDIPlus.au3>
#include <Memory.au3>
#include <Array.au3>
#include <Date.au3>


_FFMPEG_Test("test.mp4", 3000, 5)

Func _FFMPEG_Test($sFile, $iOffset = 0, $iFrames = 1, $iW = -1, $iH = -1)
    Local Const $tagBITMAPFILEHEADER = "struct;align 2;word bfType;dword bfSize;word bfReserved1;word bfReserved2;dword bfOffBits;endstruct;"

    Local $tBMPHEADER = DllStructCreate($tagBITMAPFILEHEADER & $tagBITMAPINFO)
    Local $tBMPHEADER_B = DllStructCreate("byte[" & DllStructGetSize($tBMPHEADER) & "];", DllStructGetPtr($tBMPHEADER))

    Local $sCMD = 'ffmpeg -y'

    If $iOffset Then
        Local $_iH, $_iM, $_iS
        _TicksToTime($iOffset, $_iH, $_iM, $_iS)
        $iOffset = Mod($iOffset, 1000)
        Local $sOffset = StringFormat("%02s:%02s:%02s.%03s", $_iH, $_iM, $_iS, $iOffset)
        $sCMD &= ' -ss ' & $sOffset
    EndIf
    $sCMD &= ' -i "' & $sFile & '"'

    If $iW > 1 Or $iH > 1 Then $sCMD &= ' -vf "scale=' & $iW & ':' & $iH & '"'

    $sCMD &= ' -vframes ' & $iFrames & ' -update true -vcodec bmp -pix_fmt bgra -f image2 -'

    ConsoleWrite("> CMD: " & $sCMD & @CRLF)

    Local $aBMP[$iFrames + 1][3] = [[0]]
    Local $bData, $bTmp, $sErr, $iLen
    Local $hPID = Run($sCMD, @ScriptDir, @SW_HIDE, BitOR(0x2, 0x4))
    While 1
        $bTmp = StdoutRead($hPID, False, True)
        If @error Then ExitLoop

        If BinaryLen($bTmp) Then
            $bData = Binary($bData & $bTmp)

            While 1
                DllStructSetData($tBMPHEADER_B, 1, $bData)

                $iLen = BinaryLen($bData)
                If $iLen < $tBMPHEADER.bfSize Then ExitLoop

                $aBMP[0][0] += 1
                If $aBMP[0][0] >= UBound($aBMP) Then ReDim $aBMP[$aBMP[0][0] + 1][3]
                $aBMP[$aBMP[0][0]][0] = BinaryMid($bData, 1, $tBMPHEADER.bfSize)
                $aBMP[$aBMP[0][0]][1] = $tBMPHEADER.biWidth
                $aBMP[$aBMP[0][0]][2] = $tBMPHEADER.biHeight

                $bData = BinaryMid($bData, $tBMPHEADER.bfSize + 1, $iLen)
            WEnd
        EndIf

        $sErr = StderrRead($hPID)
        If $sErr Then ConsoleWrite($sErr)

        Sleep(10)
    WEnd

    _ArrayDisplay($aBMP)


    _GDIPlus_Startup()
    Local $iData, $hData, $pData, $tData, $pStream, $hImage
    For $i = 1 To $aBMP[0][0]
        $iData = BinaryLen($aBMP[$i][0])
        $hData = _MemGlobalAlloc($iData, $GMEM_MOVEABLE)
        $pData = _MemGlobalLock($hData)
        $tData = DllStructCreate("byte[" & $iData & "]", $pData)
        DllStructSetData($tData, 1, $aBMP[$i][0])
        _MemGlobalUnlock($hData)
        $pStream = _WinAPI_CreateStreamOnHGlobal($hData)

        $hImage = _GDIPlus_ImageLoadFromStream($pStream)
        _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\_test_" & StringFormat("%02s", $i) & ".png")

        _WinAPI_ReleaseStream($pStream)
        _GDIPlus_ImageDispose($hImage)
    Next
    _GDIPlus_Shutdown()

EndFunc   ;==>_FFMPEG_Test

Alles anzeigen

lgE

**eukalyptus** · 20. März 2020

Vielen Dank!

Ich finde Gefallen an Hardlinks.

Z.B. hab ich ca 25 ffmpeg.exe verstreut und das sind in Summe 1.5GB

So kann ich mir jetzt etwas zusätzlichen Platz schaffen

**eukalyptus** · 18. März 2020

Das is es!

Es sind Hardlinks!

Kannte ich bis jetzt nicht wirklich.

NTFSLinksView kann das anzeigen.

Desweiteren hab ich entdeckt, dass man mit "mklink" ganz einfach HardLinks erstellen kann.

Vielen Dank

**eukalyptus** · 18. März 2020

Wow Danke für das Tool!

Sofort ins Auge fällt, dass hier 3 gleich aussehende, riesige Blöcke angezeigt werden.

Es handelt sich hier um die Cache-Speicher von 3 fast identischen Videoprojekten (nur die Reihenfolge der Clips sind unterschiedlich, der Cache ist immer gleich).

Heißt das nun, dass NTFS doppelte Dateien nur einmal speichert!?

**eukalyptus** · 18. März 2020

Hallo Allerseits!

Ich hab folgendes, seltsames Phänomen.

Ich hab eine Partition NTFS formatiert, welche 807GB groß ist. Davon sind laut Eigenschaften 708GB belegt. So weit so gut!

Wenn ich nun im Explorer alle Dateien und Ordner markiere und mir die Eigenschaften anzeigen lasse, habe ich 954GB Daten gespeichert.

Also mehr gespeichert, als eigentlich Platz hat.

ChkDsk meldet keine Fehler.

Hier noch eine Anzeige in Linux:

Kann mir das bitte jemand erklären.

Vielen Dank!

**eukalyptus** · 25. Juni 2019

Ich hab ein BUG gefunden: siehe 1 Post!

**eukalyptus** · 24. Juni 2019

That´s cool!

I quick added a control window, to test the parameters

C

#include "FaceDetection.au3"
#include <GUIConstantsEx.au3>
;#include <Array.au3>

;HotKeySet("{ESC}", "_Exit")
Opt("GUIOnEventMode", 1)


Global $Width = 640, $Height = 480, $hGraphics
;--------------------------------------------------------------------------
; variables required for dshow escapi
Local $tagSimpleCapParams = "ptr mTargetBuf;" & "int mWidth;" & "int mHeight;"
Local $tSimpleCapParams = DllStructCreate($tagSimpleCapParams)
Local $tTargetBuf = DllStructCreate("BYTE[" & $Width*$Height*4 & "]")
Global $pTargetBuf = DllStructGetPtr($tTargetBuf)
DllStructSetData($tSimpleCapParams, 1, $pTargetBuf)
DllStructSetData($tSimpleCapParams, 2, $Width)
DllStructSetData($tSimpleCapParams, 3, $Height)
Local $pSimpleCapParams = DllStructGetPtr($tSimpleCapParams)
Local $device = 0 ;change this number to select dshow device

;---------------------------------------------------------------------------
;Escapi init
Global $hGui = GUICreate("WebCam FaceDetection", $Width, $Height)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW,$hGui)

Global $hGui_Ctrl = GUICreate("Ctrl", 320, 240, 10, 10, -1, -1, $hGui)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

Global $iMode = 1, $fScale = 1.2, $iNeighbor = 1, $iMinObjW = 20, $iMaxObjW = 0, $bDoLM = True

Global $cRB_Mode = GUICtrlCreateRadio("Mode 1", 10, 10, 60, 20)
GUICtrlSetOnEvent(-1, "_SetMode")
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateRadio("Mode 2", 80, 10, 60, 20)
GUICtrlSetOnEvent(-1, "_SetMode")
GUICtrlCreateRadio("Mode 3", 150, 10, 60, 20)
GUICtrlSetOnEvent(-1, "_SetMode")
GUICtrlCreateRadio("Mode 4", 230, 10, 60, 20)
GUICtrlSetOnEvent(-1, "_SetMode")

GUICtrlCreateLabel("Scale", 5, 40, 60, 20)
GUICtrlCreateSlider(70, 40, 180, 20)
GUICtrlSetLimit(-1, 50, 11)
GUICtrlSetData(-1, 12)
GUICtrlSetOnEvent(-1, "_SetScale")
Global $cIP_Scale = GUICtrlCreateInput("1.2", 260, 40, 50, 20, 0x0800)

GUICtrlCreateLabel("Min Neighb", 5, 70, 60, 20)
GUICtrlCreateSlider(70, 70, 180, 20)
GUICtrlSetOnEvent(-1, "_SetNeighbor")
GUICtrlSetLimit(-1, 20)
GUICtrlSetData(-1, 1)
Global $cIP_MinN = GUICtrlCreateInput("1", 260, 70, 50, 20, 0x0800)

GUICtrlCreateLabel("Min ObjW", 5, 100, 60, 20)
GUICtrlCreateSlider(70, 100, 180, 20)
GUICtrlSetOnEvent(-1, "_SetMinObjW")
GUICtrlSetLimit(-1, 400)
GUICtrlSetData(-1, 20)
Global $cIP_MinW = GUICtrlCreateInput("20", 260, 100, 50, 20, 0x0800)

GUICtrlCreateLabel("Max ObjW", 5, 130, 60, 20)
GUICtrlCreateSlider(70, 130, 180, 20)
GUICtrlSetOnEvent(-1, "_SetMaxObjW")
GUICtrlSetLimit(-1, 400)
Global $cIP_MaxW = GUICtrlCreateInput("0", 260, 130, 50, 20, 0x0800)

GUICtrlCreateCheckbox("Do LandMarks", 10, 160, 100, 20)
GUICtrlSetOnEvent(-1, "_SetLandMark")
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState()

local $_escapi_Dll = DllOpen("escapi.dll")
$return = DllCall($_escapi_Dll,"int","initCOM")
$return = DllCall($_escapi_Dll,"int","countCaptureDevices")
;Consolewrite("Number of devices = " & $return[0] & @CRLF)
$return = DllCall($_escapi_Dll,"int:cdecl","initCapture", "int", $device, "ptr", $pSimpleCapParams)
;---------------------------------------------------------------------------
_GDIPlus_Startup()





While 1
$hGfx = _GDIPlus_GraphicsCreateFromHWND($hGui)
;Get frame
DllCall($_escapi_Dll,"none:cdecl","doCapture", "int", $device)
Do
$return = DllCall($_escapi_Dll,"int:cdecl","isCaptureDone", "int", $device)
Until $return[0] = 1

$hBitmap = _WinAPI_CreateBitmap($Width, $Height , 1 , 32 , $pTargetBuf)
Local $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hImage)

Global $hPen = _GDIPlus_PenCreate(0xAAFF0000, 2)
Global $hPen2 = _GDIPlus_PenCreate(0xAA00FF00, 1)

Global $aFaces = _FD_Detect($hImage, $iMode, $fScale, $iNeighbor, $iMinObjW, $iMaxObjW, $bDoLM)
For $i = 1 To $aFaces[0][0]
    _GDIPlus_GraphicsDrawRect($hGraphics, $aFaces[$i][0], $aFaces[$i][1], $aFaces[$i][2], $aFaces[$i][3], $hPen)
    If $bDoLM And UBound($aFaces, 2) > 6 Then
        For $j = 0 To 67
            _GDIPlus_GraphicsDrawEllipse($hGraphics, $aFaces[$i][6 + $j * 2], $aFaces[$i][7 + $j * 2], 4, 4, $hPen2)
        Next
    EndIf
Next

_GDIPlus_GraphicsDrawImageRect($hGfx, $hImage, 0, 0, $Width, $Height)

Sleep(10) ; <---- needed or your webcam will run glowing hot.

_GDIPlus_BitmapDispose($hImage)
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_PenDispose($hPen)
_GDIPlus_PenDispose($hPen2)
WEnd




Func _SetMode()
    $iMode = @GUI_CtrlId - $cRB_Mode + 1
EndFunc

Func _SetScale()
    $fScale = GUICtrlRead(@GUI_CtrlId) / 10
    GUICtrlSetData($cIP_Scale, $fScale)
EndFunc

Func _SetNeighbor()
    $iNeighbor = GUICtrlRead(@GUI_CtrlId)
    GUICtrlSetData($cIP_MinN, $iNeighbor)
EndFunc

Func _SetMinObjW()
    $iMinObjW = GUICtrlRead(@GUI_CtrlId)
    GUICtrlSetData($cIP_MinW, $iMinObjW)
EndFunc

Func _SetMaxObjW()
    $iMaxObjW = GUICtrlRead(@GUI_CtrlId)
    GUICtrlSetData($cIP_MaxW, $iMaxObjW)
EndFunc

Func _SetLandMark()
    $bDoLM = (GUICtrlRead(@GUI_CtrlId) = 1)
EndFunc



;--------------------------------------------------------------------------
Func _Exit()
   _GDIPlus_PenDispose($hPen)
   _GDIPlus_GraphicsDispose($hGfx)
   _GDIPlus_ImageDispose($hImage)
   _GDIPlus_Shutdown()
   DllCall($_escapi_Dll,"none:cdecl","deinitCapture", "int", 0)
   GUIDelete($hGui)
   Exit
EndFunc

;-----------------------------------------------------------------

Alles anzeigen

**eukalyptus** · 23. Juni 2019

Hallo Allerseits!

Auf der Suche nach einer Möglichkeit, Gesichter zu erkennen, bin ich über das hier gestolpert: https://github.com/ShiqiYu/libfacedetection

Und daraus ist vorerst mal eine kleine UDF entstanden.

Funktioniert mit 32 und 64Bit.

Ich hab selber noch nicht viel ausprobiert und kann daher auch nicht viel über die Parameter sagen - am besten mit großen und kleinen, vielen und wenigen usw... Gesichtern ausprobieren.

Trotzdem viel Spaß!

LandMarks:

EDIT: Bugs behoben!

**eukalyptus** · 18. Mai 2017

Danke für euer Feedback!

**eukalyptus** · 17. Mai 2017

Hallo liebe Freunde der brotlosen Kunst.

Selten, aber doch mach ich noch was mit AutoIt.

inspiriert von dem hier: https://gamedevelopment.tutspl…ing-effects--gamedev-2681
hab ich versucht das nachzubasteln. Das Resultat ist zwar ein anderes, aber dennoch ergeben sich ganz hübsche Effekte.

Lightning1.png Lightning2.png Lightning3.png Lightning4.png

Download: Lightning.7z

Viel Spaß!
E

Beiträge von eukalyptus

TCP - Send

Schreiben in ein Array in einer Map

Schreiben in ein Array in einer Map

Farben Sortieren / Gruppieren

Farben Sortieren / Gruppieren

Farben Sortieren / Gruppieren

2 Cursor Positionen in SciTE

2 Cursor Positionen in SciTE

2 Cursor Positionen in SciTE

2 Cursor Positionen in SciTE

Frame aus Video extrahieren

Mehr Daten, als Partition groß ist! wtf...

Mehr Daten, als Partition groß ist! wtf...

Mehr Daten, als Partition groß ist! wtf...

Mehr Daten, als Partition groß ist! wtf...

FaceDetection UDF

FaceDetection UDF

FaceDetection UDF

GDI+ Lightning / Blitz Effekt

GDI+ Lightning / Blitz Effekt