property NSData : a reference to current application’s NSData
property NSDate : a reference to current application’s NSDate
property |NSURL| : a reference to current application’s |NSURL|
property NSColor : a reference to current application’s NSColor
property NSImage : a reference to current application’s NSImage
property NSBezierPath : a reference to current application’s NSBezierPath
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep

set aPOSIXpath to POSIX path of (choose file of type {"public.image"})

set a1Dat to NSDate’s timeIntervalSinceReferenceDate()

set iRes to checkImageIsWhite(aPOSIXpath) of me

set b1Dat to NSDate’s timeIntervalSinceReferenceDate()
set c1Dat to b1Dat – a1Dat

return {iRes, c1Dat}

–Compare Original Data and
on checkImageIsWhite(aPOSIXpath)
　　set aURL to |NSURL|’s fileURLWithPath:(aPOSIXpath)
　　set anNSImage to NSImage’s alloc()’s initWithContentsOfURL:(aURL)
　　
　　copy anNSImage to bNSImage
　　
　　set fillColor to makeNSColorFromRGBAval(65535, 65535, 65535, 65535, 65535) of me
　　–set fillColor to NSColor’s whiteColor()
　　set blankImage to drawImageWithFilledColor(bNSImage, fillColor) of me
　　
　　set imgA to anNSImage’s TIFFRepresentation()
　　set imgB to blankImage’s TIFFRepresentation()
　　
　　set chkWhite to (imgA’s isEqualToData:imgB) as boolean
　　return chkWhite
end checkImageIsWhite

on getSizeOfImage(anNSImage)
　　set aSize to anNSImage’s |size|()
　　set aClass to class of aSize
　　if aClass = record then
　　　　copy aSize to theSize –To macOS 10.12.x
　　else –macOS 10.13 or later
　　　　set sizeX to (item 1 of item 2 of aSize)
　　　　set sizeY to (item 2 of item 2 of aSize)
　　　　set theSize to {width:sizeX, height:sizeY}
　　end if
　　return theSize
end getSizeOfImage

–指定サイズの画像を作成し、背景を指定色で塗る
on drawImageWithFilledColor(anImage, fillColor)
　　set aSize to getSizeOfImage(anImage) of me
　　
　　anImage’s lockFocus()
　　
　　set theRect to {{x:0, y:0}, {width:(width of aSize), height:(height of aSize)}}
　　set theNSBezierPath to NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　fillColor’s |set|()
　　theNSBezierPath’s fill()
　　
　　anImage’s unlockFocus()
　　
　　return anImage
end drawImageWithFilledColor

–aMaxValを最大値とする数値でNSColorを作成して返す
on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
　　set aRedCocoa to (redValue / aMaxVal) as real
　　set aGreenCocoa to (greenValue / aMaxVal) as real
　　set aBlueCocoa to (blueValue / aMaxVal) as real
　　set aAlphaCocoa to (alphaValue / aMaxVal) as real
　　set aColor to NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
　　return aColor
end makeNSColorFromRGBAval