efficient way to compare 2 images?

Code: (Select All)

Screen _NewImage(800, 500, 32)

i1& = _NewImage(200, 200, 32)

i2& = _NewImage(200, 200, 32)

Dim p1 As _Unsigned Long

Dim p2 As _Unsigned Long

Randomize Timer

_Dest i1&

'x1 = Int(Rnd * _Width / 2): x2 = Int(Rnd * _Width / 2 + x1)

'y1 = Int(Rnd * _Height / 2): y2 = Int(Rnd * _Height / 2 + y1)

'Line (x1, y1)-(x2, y2), _RGB32(100, 100, Int(Rnd * 8) + 100), BF

Line (0, 0)-(10, 10), _RGB32(100, 100, 100), BF

_Dest i2&

'x1 = Int(Rnd * _Width / 2): x2 = Int(Rnd * _Width / 2 + x1)

'y1 = Int(Rnd * _Height / 2): y2 = Int(Rnd * _Height / 2 + y1)

'Line (x1, y1)-(x2, y2), _RGB32(100, 100, Int(Rnd * 8) + 100), BF

Line (0, 0)-(10, 11), _RGB32(100, 100, 100), BF

_Dest 0

_PutImage (0, 201), i1&

_PutImage (201, 201), i2&



flagcount = 0

threshold = 2

pass = 0

For xmax = 2 To _Width(i1&) Step 10

    pass = pass + 1

    Locate 1, 1: Print pass 'this really just gives you something to look at

    For ymax = 2 To _Height(i1&) Step 10

        _Limit 100

        a& = _NewImage(xmax, ymax)

        b& = _NewImage(xmax, ymax)

        _PutImage (0, 0)-(xmax, ymax), i1&, a&, (0, 0)-(_Width(i1&), _Height(i1&))

        _PutImage (0, 0)-(xmax, ymax), i2&, b&, (0, 0)-(_Width(i2&), _Height(i2&))

        For py = 1 To ymax

            For px = 1 To xmax

                _Source a&

                p1 = Point(px, py)

                _Source b&

                p2 = Point(px, py)

                If p1 <> p2 Then flagcount = flagcount + 1

                If flagcount >= threshold Then GoTo notthesame

            Next

        Next



    Next

Next

Locate 2, 2

Print "IMAGES are IDENTICAL"

End

notthesame:

Locate 2, 2

Print "IMAGES ARE NOT IDENTICAL"

Code: (Select All)

Option Explicit

$NoPrefix

$Console:Only



Dim As String file1, file2, hash1, hash2



file1 = "C:\Users\zspriggs\Documents\QB64\qb64pe.exe"

'file2 = "C:\Users\zspriggs\Documents\QB64\pipecomqb64.bas"

file2 = file1 'You can comment this line and uncomment the one above. Obviously, you'll replace the paths with ones you have.





hash1 = GetHash(file1)

hash2 = GetHash(file2)



If hash1 = hash2 Then Print "Same" Else Print "Different"





Function GetHash$ (filename As String)

    Dim As String filecopy: filecopy = "\" + Chr$(34) + filename + "\" + Chr$(34)

    GetHash = pipecom_lite("PowerShell -NoProfile Get-FileHash -Path " + filecopy + " ^| foreach {$_.Hash}")

End Function



'$Include:'pipecomqb64.bas'

Code: (Select All)

Randomize Timer



Screen _NewImage(1280, 720, 32)



'let's make this an unique and pretty image!

For i = 1 To 100

    Line (Rnd * _Width, Rnd * _Height)-(Rnd * width, Rnd * _Height), &HFF000000 + Rnd * &HFFFFFF, BF

Next



image2 = _CopyImage(0) 'identical copies for testing

image3 = _CopyImage(0) 'identical copy...  BUT

_Dest image3

PSet (Rnd * _Width, Rnd * _Height), &HFF000000 + Rnd * &HFFFFFF 'We've just tweaked it so that there's no way in hell it's the same as the other two now!

_Dest 0 'image3 is EXACTLY one pixel different from the other two.  Can we detect that?

image4 = _CopyImage(0) 'an identical copy once again, because 0 will change once we print the results



result1 = CompareImages(0, image2)

result2 = CompareImages(0, image3)

result3 = CompareImages(image2, image3)



Print "Current Screen and Image 1 Compare:  "; result1

Print "Current Screen and Image 2 Compare:  "; result2

Print "Image1 and Image 2 Compare        :  "; result3



Print

Print "Press <ANY KEY> for a speed test!"

Sleep



t# = Timer

Limit = 1000

For i = 1 To Limit

    result = CompareImages(image2, image3)

    result = CompareImages(image2, image4)

Next

Print

Print Using "####.####### seconds to do"; Timer - t#;

Print Limit * 2; "comparisons."





Function CompareImages (handle1 As Long, handle2 As Long)

    $Checking:Off

    Static m(1) As _MEM

    Dim s(1) As String

    m(0) = _MemImage(handle1): m(1) = _MemImage(handle2)

    If m(0).SIZE <> m(1).SIZE Then Exit Function 'not identical

    If m(0).ELEMENTSIZE <> m(1).ELEMENTSIZE Then Exit Function 'not identical

    s(0) = Space$(m(0).SIZE): s(1) = Space$(m(1).SIZE)

    _MemGet m(0), m(0).OFFSET, s(0): _MemGet m(1), m(1).OFFSET, s(1)

    If s(0) = s(1) Then CompareImages = -1

    $Checking:On

End Function