Skrypt rysujący sie rozjechał

[G-man]

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.0
 Author:         polaski

 Script Function: Convert BMP image into Array[x,y]=[Hex colour]
https://www.autoitscript.com/forum/topic/112540-is-there-a-function-for-reading-images-into-2d-arrays/?do=findComment&comment=788472
https://www.autoitscript.com/forum/topic/27362-bitmap-library/
script create an 2d Matrix.
Help recaived https://www.autoitscript.com/forum/topic/174108-array-mirror-and-flip/ from LarsJ
#ce ----------------------------------------------------------------------------


#include <BMP3.au3> ;https://www.autoitscript.com/forum/topic/27362-bitmap-library/
#include <Array.au3>
#include <File.au3>

Global $g_bPaused = False

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")



Func TogglePause()
  $g_bPaused = Not $g_bPaused
  While $g_bPaused
    Sleep(100)
    ToolTip('Script is "Paused"', 0, 0)
  WEnd
  ToolTip("")
EndFunc

Func Terminate()
    Exit
EndFunc

Local $filename = FileOpenDialog("Select image", @WorkingDir, "All images (*.jpg;*.png;*.gif;*.bmp;)", 1)
$bmp = _BMPOpen($filename,1) ;zwraca uchwyt do bitmapy która otworzylismy.

Dim $tab3d[$bmp[2]][$bmp[1]]

For $i = 0 To $bmp[1] - 1
  For $j = 0 To $bmp[2] - 1
    $tab3d[$j][$i]=_PixelRead($bmp,$i,$j)
  Next
Next
;_ArrayDisplay ($tab3d)
If WinExists("[CLASS:MSPaintApp]") Then _
  WinKill("[CLASS:MSPaintApp]", "")
Run("mspaint.exe")
$hWnd =  WinWait("[CLASS:MSPaintApp]", "",2)
sleep(5000)
WinMove("[CLASS:MSPaintApp]",  "", 0, 0, 1000, 1000)
Sleep(5000)
MouseMove(105,306,1)

Local $d=1
Local $w1, $w2
For $i = 0 to $bmp[2] - 1
  $w1=MouseGetPos()
  For $j = 0 To $bmp[1] - 1
    if $tab3d[$i][$j]='000000' Then
      Local $w2=MouseGetPos()
      MouseClick( "left", $w2[0],$w2[1], 1, 1 )
      while $j < $bmp[2]-1 And $tab3d[$i][$j] = $tab3d[$i][$j+1]
        $j += 1
        MouseDown( "left" )
        $w2 = MouseGetPos()
        MouseMove( $w2[0]+$d, $w2[1], 0 )
      WEnd
      MouseUp("left")
      $w2 = MouseGetPos()
      MouseMove( $w2[0]+$d, $w2[1], 0 )
    EndIf
    if $tab3d[$i][$j]='FFFFFF' Then
      $w2 = MouseGetPos()
      MouseMove( $w2[0]+$d, $w2[1], 0 )
    EndIf
  Next
  MouseMove( $w1[0], $w1[1]+$d, 0 )
Next

Mam problem z tym skryptem. Przy próbie odtworzenia rysunku skrypt rozjechał mi rysunek.

jj.bmp

[G-man]

Tylko u mnie tak psuje?

[G-man]

Skrypt po prostu działał tylko na 2 kolory. Rysunki rysowane na windowsieXP składały się z czerni i bieli. Teraz rysunki składają się z wygładzania krawędzi przy pomocy innych szarego. Skrypt nie reagował na szary kolor. Dla tego obrazy wyglądały paskudnie.