property CIFilter : a reference to current application’s CIFilter
property NSUUID : a reference to current application’s NSUUID
property CIImage : a reference to current application’s CIImage
property NSString : a reference to current application’s NSString
property NSScanner : a reference to current application’s NSScanner
property CLLocation : a reference to current application’s CLLocation
property NSFileManager : a reference to current application’s NSFileManager
property NSCharacterSet : a reference to current application’s NSCharacterSet
property NSJPEGFileType : a reference to current application’s NSJPEGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSMutableCharacterSet : a reference to current application’s NSMutableCharacterSet
property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch

set targPlace to {35.745769, 139.675565} –Game City Itabashi
set bLoc to getSelectionOnPhotos() of me –Get Location From Photo
set aDist to getDistanceBetweenTwoPlaces(targPlace, bLoc) of me

–指定地点から50メートル以内の距離で撮影された写真であれば、Exportして後続の処理を行う
if aDist is equal to false or aDist > 50 then return false

–選択中の写真のうち最初のものだけExport
set targPhotoAlias to exportSelectedPhotoOnPhotos() of me

–実験に用いた写真はそのままではOCR処理できなかったので、手っ取り早く階調反転を行う
set invertRes to convAsFilteredJPEG(targPhotoAlias, "CIColorInvert") of me
if invertRes = false then
　　display dialog "Error in CIImage" with title "Error" buttons {"OK"} default button 1 with icon 2
　　return
end if
set invImage to (POSIX file invertRes) as alias

set outFileName to (NSUUID’s UUID()’s UUIDString() as text) & ".txt"
set outPath to ((path to desktop) as text) & outFileName –sandbox環境ではパスは無視される

tell application id "com.abbyy.FineReaderPro"
　　activate
　　
　　–Check Ready
　　set getReady to (is finereader controller active)
　　if getReady = false then return
　　
　　–set idList to {English} –英語だとスペルチェックされて、"1"と"t"を誤認識するため英語の指定をやめた
　　–Caution: this command is executed asynchronously
　　–Caution: export command was changed in v12.1.4
　　
　　set idList to {Basic, Java, Fortran, Cobol, Pascal} –認識ターゲット言語（C++の予約語はあるようだが、指定できないよ！）
　　open invImage — In this version ,we have to open image, at first.
　　export to txt outPath ocr languages enum idList retain layout (as plain text) encoding (utf8)
　　
　　–Wait for finish
　　repeat 30 times
　　　　set curStat to (is busy)
　　　　if curStat = false then exit repeat
　　　　delay 1
　　end repeat
　　
　　–sandbox環境（Mac App Store版）の場合にはファイル出力先を別途取得
　　set sandRes to (is sandboxed)
　　if sandRes = true then
　　　　set outDir to (get output dir) as text
　　　　set outPath to (outDir & outFileName) as text
　　end if
　　
end tell

–OCR処理した結果のテキストを読み込む
tell current application
　　set textRes to read file outPath
end tell

–数字ではじまる行のみを抽出して、リプレイIDを取得
set textList to paragraphs of textRes
set outList to {}
repeat with i in textList
　　set j to contents of i
　　
　　–１行あたりのテキストが8文字以上か？
　　if length of j > 8 then
　　　　
　　　　–行頭の文字が数字か？
　　　　set firstChar to first character of j
　　　　set nRes to chkNumeric(firstChar) of me
　　　　if nRes = true then
　　　　　　set tmp1 to text 2 thru -1 of j –最初の数字を除去
　　　　　　
　　　　　　–数字とアルファベット以外の文字を削除（タブ、スペースなど）
　　　　　　set tmp2 to returnNumberAndAlphabetCharsOnly(tmp1) of me
　　　　　　if length of tmp2 ≥ 8 then
　　　　　　　　set tmp3 to text 1 thru 8 of tmp2
　　　　　　　　–数字とアルファベットの混在の文字列であれば出力する
　　　　　　　　set tmp3Res to chkMixtureOfNumericAndAlphabet(tmp3) of me
　　　　　　　　if tmp3Res = true then
　　　　　　　　　　set the end of outList to tmp3
　　　　　　　　end if
　　　　　　end if
　　　　end if
　　end if
end repeat

outList
–> {"4f73vg1v", "v3v32zt3", "yk1z371x", "52yzvn11", "k1ftfvvg"}–Version 1.x (3rd ID is wrong)
–> {"4f73vg1v", "v3v32zt3", "yk1z37tx", "52yzvn11", "k1ftfvvg"}– Version 2.0(Perfect!!!!)
–> {"4f73vg1v", "v3v32zt3", "yk1z37tx", "52yzvn11", "k1ftfvvg"}– Version 2.1(Perfect!!!!)
–> {"51n4gg1f", "2zxt41gg", "57k2txk9", "yy43f3gt", "4f73vg1v"} –Version 2.1(Perfect!!!!)

–Photosで選択中の写真の１枚目（複数時には無視）から緯度、経度情報を取得する
on getSelectionOnPhotos()
　　tell application "Photos"
　　　　set aa to selection
　　　　if aa = {} or aa = missing value then return false
　　　　set a to first item of aa
　　　　set aProp to properties of a
　　　　
　　　　set aLoc to location of aProp
　　　　return aLoc
　　end tell
end getSelectionOnPhotos

–２点間の距離を計算する
on getDistanceBetweenTwoPlaces(aPlaceLoc, bPlaceLoc)
　　try
　　　　set {aLat, aLong} to aPlaceLoc
　　　　set {bLat, bLong} to bPlaceLoc
　　on error
　　　　return false
　　end try
　　
　　set aPlace to CLLocation’s alloc()’s initWithLatitude:aLat longitude:aLong
　　set bPlace to CLLocation’s alloc()’s initWithLatitude:bLat longitude:bLong
　　set distanceInMetres to aPlace’s distanceFromLocation:bPlace
　　return (distanceInMetres as real)
end getDistanceBetweenTwoPlaces