Finder上で選択中の画像のうち、最小のものに合わせて各画像の左上を原点にサイズ統一

Posted on 7月 27 by Takaaki Naganoya

Finderで選択中の画像のうち、最小のものに合わせて各画像の左上を原点にサイズを統一するAppleScriptです。

Finderで選択中のファイルから画像のみ抽出し、そのうちサイズが最小のものに合わせて他の画像をトリミングし、変更したものをデスクトップフォルダに出力します。

▲大きさを揃える画像をFinder上で選択

▲処理前の画像。大きさがまちまち

▲処理後の画像。大きさが最小の画像に合わせてそろっている

スクリーンショット画像を複数撮った場合に、厳密に同じサイズに固定することは（各種スクリーンショット作成ユーティリティを使わないと）行いづらいところです。

そこで、最小の画像を計算で求めて、それに合わせて自動トリミングするようにしてみました。Cocoaの機能を用いて画像処理しているため、Photoshopは必要ありません。

最小の画像を求めるのに、幅＋高さの値でソートして最小のものを求めています（widthとheightによる2 key sortではなく1 Keyで済ませたかったので）。

Blogや書籍用の掲載画面図の作成用、といったところでしょうか。Retina画面で撮ったスクリーンショットと非Retina画面のスクリーンショットが混在するとうまく動きません（スクリーンショット画像からはRetina環境で撮った画像であるかどうかを取得できません）。

スクリーンショットの画像からRetina/非Retina環境で撮ったかを判定するのは、（Retina対応機であるかをMachine IDから取得したあとで）Syslogにアクセスしてスクリーンが接続されたか、取り外されたかといった状態を追っていくしかないのかも。

本ScriptをmacOS 10.13.6上で動作確認して驚いたのですが、いままでRecordが返ってくるべき箇所でlistが返ってくる盛大なバグが直って、本ScriptがmacOS 10.13用に書き換えずに動きました（動かないことを確認しようとして動いたので驚いた）。

use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set aFile to choose file
set imgPath to (POSIX path of aFile)
set aURL to (current application’s |NSURL|’s fileURLWithPath:(imgPath))
set aImage to (current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL)
set sizeInfo to |size|() of aImage
–>　　{width:1310.0, height:655.0}

★Click Here to Open This Script　

こんな風な（↑）素朴なScriptでrecordではなくlistが返ってきて腰を抜かしたわけですが、macOS 10.14で同じバグ（NSNotFoundの定義を間違えるとかのアゴが外れるようなケアレスミス）が再現しないことを祈るばかりです。

AppleScript名：Finder上で選択中の画像のうち、最小のものに合わせて各画像の左上を原点にサイズ統一

— Created 2018-07-23 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "QuartzCore"

property |NSURL| : a reference to current application’s |NSURL|
property NSUUID : a reference to current application’s NSUUID
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSScreen : a reference to current application’s NSScreen
property NSZeroRect : a reference to current application’s NSZeroRect
property NSPredicate : a reference to current application’s NSPredicate
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSMutableArray : a reference to current application’s NSMutableArray
property NSCompositeCopy : a reference to current application’s NSCompositeCopy
property NSGraphicsContext : a reference to current application’s NSGraphicsContext
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey
property NSCalibratedRGBColorSpace : a reference to current application’s NSCalibratedRGBColorSpace

tell application "Finder"
　　set selList to selection as alias list
end tell

–指定のAlias listのうち画像のみ抽出
set filRes1 to filterAliasListByUTI(selList, "public.image") of me
if filRes1 = {} then
　　tell current application
　　　　–Error Message (No Selection)
　　　　display dialog "Finder上で選択されているファイルはありません。" buttons {"OK"} default button 1 with icon 1 with title "画像リサイズ処理できません"
　　end tell
　　return
end if

–各種情報を入れたArrayを作成
set anArray to NSMutableArray’s new()
repeat with i in selList
　　set imgPath to (POSIX path of i)
　　
　　set aImage to makeNSImageFromFile(i) of me
　　set sizeInfo to |size|() of aImage
　　set sizeInfo to sizeInfo & {aImg:aImage, total:(width of sizeInfo) + (height of sizeInfo), myPath:imgPath}
　　(anArray’s addObject:sizeInfo)
end repeat

–最小のサイズの画像の算出
set aRes to anArray’s valueForKeyPath:("@min.total")
set bRes to first item of (filterRecListByLabel(anArray, "total == " & aRes as string) of me) –最小サイズの画像

–最小サイズ画像のwidthとheight
set minWidth to bRes’s width
set minHeight to bRes’s height

–環境情報の取得
set aPath to POSIX path of (path to desktop)
set retinaF to (NSScreen’s mainScreen()’s backingScaleFactor()) as real
–>　　2.0 (Retina) / 1.0 (Non Retina)

set cRes to filterRecListByLabel(anArray, "total != " & aRes as string) of me –最小サイズ以外の画像

repeat with i in cRes
　　set j to contents of i
　　set anImage to aImg of j
　　set fRes to myPath of j
　　
　　set cropedImage to (my cropNSImageBy:{0, 0, minWidth, minHeight} fromImage:aImage)
　　
　　–Retina環境対策
　　if retinaF > 1.0 then
　　　　set cropedImage to (my resizedImage:cropedImage toScale:(1.0))
　　end if
　　
　　–ファイル書き込み
　　set fRes to retUUIDfilePathFromDir(aPath, "png") of me
　　set sRes to saveNSImageAtPathAsPNG(cropedImage, fRes) of me
end repeat

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　–ListからNSArrayへの型変換
　　set aArray to NSArray’s arrayWithArray:aRecList
　　
　　–抽出
　　set aPredicate to NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　–NSArrayからListに型変換して返す
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

–Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す
on filterAliasListByUTI(aList, targUTI)
　　set newList to {}
　　repeat with i in aList
　　　　set j to POSIX path of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, targUTI)
　　　　if utiRes is not equal to {} then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　return newList
end filterAliasListByUTI

–指定のPOSIX pathのファイルのUTIを求める
on retUTIfromPath(aPOSIXPath)
　　set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath
　　set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value)
　　
　　if theResult = true then
　　　　return theValue as string
　　else
　　　　return theResult
　　end if
end retUTIfromPath

–UTIリストが指定UTIに含まれているかどうか演算を行う
on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

on cropNSImageTo:{x1, y1, x2, y2} fromImage:theImage
　　set newWidth to x2 – x1
　　set newHeight to y2 – y1
　　set theSize to (theImage’s |size|()) as record
　　set oldHeight to height of theSize
　　
　　— transpose y value for Cocoa coordintates
　　set y1 to oldHeight – newHeight – y1
　　set newRect to {{x:x1, y:y1}, {width:newWidth, height:newHeight}}
　　theImage’s lockFocus()
　　set theRep to NSBitmapImageRep’s alloc()’s initWithFocusedViewRect:newRect
　　theImage’s unlockFocus()
　　
　　set outImage to NSImage’s alloc()’s initWithSize:(theRep’s |size|())
　　outImage’s addRepresentation:theRep
　　
　　return outImage
end cropNSImageTo:fromImage:

on makeNSImageFromFile(anAlias)
　　set imgPath to (POSIX path of anAlias)
　　set aURL to (|NSURL|’s fileURLWithPath:(imgPath))
　　return (NSImage’s alloc()’s initWithContentsOfURL:aURL)
end makeNSImageFromFile

–NSImageを指定の大きさでトリミング
on cropNSImageBy:{x1, y1, newWidth, newHeight} fromImage:theImage
　　set theSize to (theImage’s |size|()) as record
　　set oldHeight to height of theSize
　　
　　— transpose y value for Cocoa coordintates
　　set y1 to oldHeight – newHeight – y1
　　set newRect to {{x:x1, y:y1}, {width:newWidth, height:newHeight}}
　　theImage’s lockFocus()
　　set theRep to NSBitmapImageRep’s alloc()’s initWithFocusedViewRect:newRect
　　theImage’s unlockFocus()
　　
　　set outImage to NSImage’s alloc()’s initWithSize:(theRep’s |size|())
　　outImage’s addRepresentation:theRep
　　
　　return outImage
end cropNSImageBy:fromImage:

on retUUIDfilePathFromDir(aPath, aEXT)
　　set aUUIDstr to (NSUUID’s UUID()’s UUIDString()) as string
　　set aPath to ((NSString’s stringWithString:aPath)’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDfilePathFromDir

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsPNG

on resizedImage:aSourceImg toScale:imgScale
　　if (aSourceImg’s isValid()) as boolean = false then error "Invalid NSImage"
　　
　　set aSize to aSourceImg’s |size|()
　　–>　　{width:32.0, height:32.0}
　　
　　set aWidth to (aSize’s width) * imgScale
　　set aHeight to (aSize’s height) * imgScale
　　
　　set aRep to NSBitmapImageRep’s alloc()’s initWithBitmapDataPlanes:(missing value) pixelsWide:aWidth pixelsHigh:aHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(NSCalibratedRGBColorSpace) bytesPerRow:0 bitsPerPixel:0
　　
　　set newSize to {width:aWidth, height:aHeight}
　　aRep’s setSize:newSize
　　
　　NSGraphicsContext’s saveGraphicsState()
　　NSGraphicsContext’s setCurrentContext:(NSGraphicsContext’s graphicsContextWithBitmapImageRep:aRep)
　　
　　aSourceImg’s drawInRect:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) fromRect:(NSZeroRect) operation:(NSCompositeCopy) fraction:(1.0)
　　
　　NSGraphicsContext’s restoreGraphicsState()
　　
　　set newImg to NSImage’s alloc()’s initWithSize:newSize
　　newImg’s addRepresentation:aRep
　　
　　return newImg
end resizedImage:toScale:

★Click Here to Open This Script　

色付き単色画像を作成する（自由色指定＆色名推定）

Posted on 7月 17 by Takaaki Naganoya

指定画像を任意の色で単色化し、指定色名をファイル名に反映させてファイル出力するAppleScriptです。

もとは、「色付き単色画像を作成する」AppleScriptに、

　・choose colorによるユーザー選択色を反映
　・choose colorで指定した色のざっくりとした色名検出

などの機能をつなぎ合わせたものです。

日本地図の白地図からカラーバリエーション画像を出力する際に作成しました。線が黒で書かれている白地図（白地図というのはそういうものですが）から、さまざまな色のバリエーションを作成。その際に、どのような色を指定したかをファイル名に反映させておいたほうが便利だったので、そのようにしてみました。

GPUImage.frameworkを利用しています。

–> GPUImage.framework (To ~/Library/Frameworks/)

色名推定のロジックもけっこうしっくりきていますが、明度も反映して、明るいものは「light-」、暗いものは「dark-」と出力させてもいいような気がします。ただし、「dark-orange」はBrownのことですし、ほかにも色名を別途振り直したほうがいいパターンもあるように思われます。

AppleScript名：色付き単色画像を作成する（自由色指定＆色名推定）

— Created 2017-02-11 by Takaaki Naganoya
— Modified 2018-07-15 by Takaaki Naganoya
— 2017-2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "GPUImage" –https://github.com/BradLarson/GPUImage

property NSUUID : a reference to current application’s NSUUID
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSBezierPath : a reference to current application’s NSBezierPath
property NSPNGFileType : a reference to current application’s NSPNGFileType
property GPUImagePicture : a reference to current application’s GPUImagePicture
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep

–Select Image File
set aFile to POSIX path of (choose file of type {"public.image"} with prompt "Select image")

–Select Color
set {rCol, gCol, bCol} to choose color

set fillColorR to makeNSColorFromRGBAval(rCol, gCol, bCol, 65535, 65535) of me
set fillColorRName to retColorDomainNameFromNSColor(fillColorR) of me –だいたいの色名称を計算

set imgRes to makeMonoColoredImage(aFile, fillColorR) of me
set fRes to retUUIDandKeyfilePath(aFile, fillColorRName, "png") of me
set bRes to saveNSImageAtPathAsPNG(imgRes, fRes) of me

— return "UUID_aKey.aEXT" full path
on retUUIDandKeyfilePath(aPath, aKey, aEXT)
　　set aUUIDstr to ((NSUUID’s UUID()’s UUIDString()) as string) & "_" & aKey
　　set aPath to ((NSString’s stringWithString:aPath)’s stringByDeletingLastPathComponent()’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDandKeyfilePath

on makeMonoColoredImage(aFile, NScolorObj)
　　set aImage to NSImage’s alloc()’s initWithContentsOfFile:aFile
　　return makeColoredNSImageWithColor(aImage, NScolorObj) of me –色付き単色画像を作成する
end makeMonoColoredImage

on makeColoredNSImageWithColor(aImage, fillColor)
　　set aSize to aImage’s |size|()
　　set aWidth to width of aSize
　　set aHeight to height of aSize
　　set newNSImage to makeNSImageWithFilledWithColor(aWidth, aHeight, fillColor)
　　set grayImage to filterWithNSImage(aImage, "GPUImageGrayscaleFilter") of me
　　set compImage to composeImageWithBlendFilter(grayImage, newNSImage, "GPUImageScreenBlendFilter") of me
　　return compImage
end makeColoredNSImageWithColor

on filterWithNSImage(aNSImage, filterName as string)
　　set aClass to current application’s NSClassFromString(filterName)
　　set aImageFilter to aClass’s alloc()’s init()
　　set aProcImg to (aImageFilter’s imageByFilteringImage:aNSImage)
　　return aProcImg
end filterWithNSImage

on composeImageWithBlendFilter(aImage, bImage, filterName)
　　set aClass to current application’s NSClassFromString(filterName)
　　set blendFilter to aClass’s alloc()’s init()
　　set pictureA to GPUImagePicture’s alloc()’s initWithImage:aImage
　　pictureA’s addTarget:blendFilter
　　pictureA’s processImage()
　　set imgRes to blendFilter’s imageByFilteringImage:bImage
　　return imgRes
end composeImageWithBlendFilter

–指定サイズの画像を作成し、指定色で塗ってNSImageで返す
on makeNSImageWithFilledWithColor(aWidth, aHeight, fillColor)
　　–Imageの作成　　
　　set curSize to current application’s NSMakeSize(aWidth, aHeight)
　　set anImage to NSImage’s alloc()’s initWithSize:curSize
　　
　　anImage’s lockFocus() –描画開始
　　
　　set theRect to {{x:0, y:0}, {height:aHeight, width:aWidth}}
　　set theNSBezierPath to NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　
　　anImage’s unlockFocus() –描画ここまで
　　
　　–生成した画像のRaw画像を作成
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　
　　set newImg to NSImage’s alloc()’s initWithSize:curSize
　　newImg’s addRepresentation:aRawimg
　　return newImg
end makeNSImageWithFilledWithColor

–NSColor（内容はRGBAカラー）からだいたいの色名を推測
on retColorDomainNameFromNSColor(aCol)
　　set hueVal to aCol’s hueComponent()
　　set satVal to aCol’s saturationComponent()
　　set brightVal to aCol’s brightnessComponent()
　　
　　if satVal ≤ 0.01 then set satVal to 0.0
　　
　　set colName to ""
　　
　　if satVal = 0.0 then
　　　　if brightVal ≤ 0.2 then
　　　　　　set colName to "black"
　　　　else if (brightVal > 0.95) then
　　　　　　set colName to "white"
　　　　else
　　　　　　set colName to "gray"
　　　　end if
　　else
　　　　if hueVal ≤ (15.0 / 360) or hueVal ≥ (330 / 360) then
　　　　　　set colName to "red"
　　　　else if hueVal ≤ (45.0 / 360) then
　　　　　　set colName to "orange"
　　　　else if hueVal < (70.0 / 360) then
　　　　　　set colName to "yellow"
　　　　else if hueVal < (150.0 / 360) then
　　　　　　set colName to "green"
　　　　else if hueVal < (190.0 / 360) then
　　　　　　set colName to "green(cyan)"
　　　　else if (hueVal < 250.0 / 360.0) then
　　　　　　set colName to "blue"
　　　　else if (hueVal < 290.0 / 360.0) then
　　　　　　set colName to "purple"
　　　　else
　　　　　　set colName to "red(magenta)"
　　　　end if
　　end if
　　
　　return colName
end retColorDomainNameFromNSColor

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

★Click Here to Open This Script　

Mac Blue-ray Playerで表示中の内容をKeynoteに追記

Posted on 7月 3 by Takaaki Naganoya

Mac Blue-ray Playerで表示中のディスクの映像を１コマキャプチャして、その画像をオープン中のKeynote書類の末尾に追記するAppleScriptです。

–> Watch Demo Movie

Mac Blue-ray Playerには表示中の映像を静止画像のスナップショットを作成する機能があり、保存先のフォルダは「環境設定」で指定できるようになっています。

本ScriptはmacOS標準搭載のScript Menuに入れて実行することを想定しています。また、自分はMac Blue-ray PlayerでBru-rayディスクではなくDVDを再生することが多く、本検証もDVDディスクで行なっています（たぶんBlu-rayでも大丈夫です）。

キャプチャ先のKeynote書類をあらかじめ作成してオープンしておきます。次に、Mac Blue-ray Playerでディスクを再生して、キャプチャしたい場所で一時停止し、本Scriptをメニューから呼び出して実行すると、Playerの表示内容をキャプチャして、Keynote書類の末尾に新規スライドを追加し、そこにキャプチャした画像をインポートします。

Mac Blue-ray Playerは発売直後（2011年）に購入し、そのままアップデートして利用していたのですが、発売後７年以上経過した現在ではサポートが終了。

アプリケーションを作る側の人間から言わせれば、ひんぱんにオンラインアップデートを行い、６年以上も同一製品ラインナップを維持してきたというのは（品質について批判もないことはないですが）、素直に尊敬に値します。

話が横道に入ってしまいましたが、Mac Blue-ray Playerは現在では「Mac Blu-ray Player Pro」「Mac Blu-ray Player Standard」そして無料版の「Free Mac Media Player」へと別れたようです。

「Free Mac Media Player」は機能面からMac Blue-ray Playerとほぼ同じものに見えます。AppleScript用語辞書もMac Blue-ray Playerと同じものであり、Mac Blue-ray Player用のAppleScriptはFree Mac Media Playerでも使えます（tell application名を直すだけです）。

実際に、本Scriptを「Free Mac Media Player」向けに書き換えて実行できることを確認しています。

AppleScript名：Mac Blue-ray Playerで表示中の内容をKeynoteに追記

— Created 2018-07-02 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSUserDefaults : a reference to current application’s NSUserDefaults
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles

set aExtension to "png" — Mac Blue-ray Player’s Snapshot file name extension
set aKeyword to "スナップショット" –Mac Blue-ray Player’s Snapshot file name’s pre-fix (@Japanese User environment), maybe this is localized string

–Mac Blueray Playerの設定からスナップショットの設定値を取得する
set theID to "com.macblurayplayer.Mac Blu-ray Player"
set theTargKey to "Preferences.snapshotSavePath"
set vRes to defaultsReadFromPlistEntry(theID, theTargKey) of me

–Mac Blueray Playerの環境設定に「~」（チルダ）が入っていた場合に備えて展開
set pathString to current application’s NSString’s stringWithString:vRes
set sourceFolder to pathString’s stringByExpandingTildeInPath()

–処理前にスナップショットのファイルを削除
set file1Res to getFilePathListByExtAndKeyword(sourceFolder, aExtension, aKeyword) of me –ファイル一覧取得
trashItemsByList(file1Res) of me –削除

–Mac Blueray Playerで表示している内容を設定中のフォルダに「スナップショット　-YYYY-MM-DD at hh_mm_ss AM-9999999999.png」のファイル名で保存
tell application "Blu-ray Player"
　　snapshot –こんだけ
end tell

–処理前にスナップショットのファイルを削除
set file2Res to getFilePathListByExtAndKeyword(sourceFolder, aExtension, aKeyword) of me –ファイル一覧取得
if file2Res = file1Res or file2Res = {} then return –No Snap

–Add Snapshot images to Keynote
repeat with i in file2Res
　　set tmpFile to POSIX file i
　　set tmpAlias to tmpFile as alias
　　
　　tell application "Keynote"
　　　　tell front document
　　　　　　set endSlide to make new slide at end
　　　　　　
　　　　　　set blankMaster to master slide "空白" –"Blank" in Japanese. This string is *localized*
　　　　　　
　　　　　　tell endSlide
　　　　　　　　set base slide to blankMaster
　　　　　　　　set thisImage to make new image with properties {file:tmpAlias}
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　–ファイル削除（ゴミ箱に移動）
　　trashItemAt(tmpAlias) of me
end repeat

–指定フォルダ内のファイルを、拡張子と先頭キーワードで抽出
on getFilePathListByExtAndKeyword(aFol, aExt, aKeyword)
　　set aFM to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:aFol
　　set urlArray to aFM’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:(NSDirectoryEnumerationSkipsHiddenFiles) |error|:(missing value)
　　set thePred to NSPredicate’s predicateWithFormat:"pathExtension == [c]%@ && lastPathComponent BEGINSWITH %@" argumentArray:{aExt, aKeyword}
　　set anArray to (urlArray’s filteredArrayUsingPredicate:thePred)
　　if anArray = missing value then return {}
　　return (anArray’s valueForKeyPath:"path") as list
end getFilePathListByExtAndKeyword

–ファイル削除（ゴミ箱に移動）　POSIX path listで指定
on trashItemsByList(posixPathList)
　　repeat with i in posixPathList
　　　　set fRes to trashItemAt(i) of me
　　　　if fRes = false then error "Error deleting a path:" & (i as string)
　　end repeat
end trashItemsByList

–ファイル削除（ゴミ箱に移動）
on trashItemAt(anAlias)
　　set theNSFileManager to NSFileManager’s defaultManager()
　　set anNSURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　set theResult to theNSFileManager’s trashItemAtURL:anNSURL resultingItemURL:(missing value) |error|:(missing value)
　　return (theResult as integer = 1) as boolean
end trashItemAt

–指定IDのplistから指定キーの内容を取り出す
on defaultsReadFromPlistEntry(theID, theTargKey)
　　set storedDefaults to (NSUserDefaults’s standardUserDefaults()’s persistentDomainForName:theID)
　　set keyList to storedDefaults’s allKeys() as list
　　if theTargKey is not in keyList then return false
　　set aRes to (storedDefaults’s valueForKeyPath:theTargKey) as list of string or string — as anything
　　return aRes
end defaultsReadFromPlistEntry

★Click Here to Open This Script　

Skimで現在表示中のPDFのページをJPEG画像で書き出す

Posted on 6月 30 by Takaaki Naganoya

オープンソースのPDFビューワー「Skim」で現在表示中のPDFの現在表示中のページをJPEG画像で書き出すAppleScriptです。

macOS標準装備のPreview.appはつい最近AppleScriptからの制御が公式に行えるようになった程度で、対応度も最低限です。Skimであれば、こうした「現在オープン中のPDFの表示中のページ」の番号を取得することもできます。

macOS標準装備のScript Menuから呼び出して利用することを前提に作成してあります。

Skimでオープン中の最前面のPDFと同じフォルダに、元ファイル名に対してページの数値をゼロパディングして追加したものをJPEG画像のファイル名に指定しています。ファイル名の重複回避などは行っていません。

ただし、Skimで表示モードが「単一」（１ページ分のみビューワーに表示）以外になっていると、カレントページ（現在表示中のページ）が画面上とアプリケーション側で管理しているものがズレることがあるので、表示モードを「単一」に切り替えてから「このページでよいか？」といった確認をユーザーに対して行うとよいかもしれません。

AppleScript名：Skimで現在表示中のPDFのページをJPEG画像で書き出す

— Created 2018-06-30 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "Quartz"
use framework "AppKit"

property |NSURL| : a reference to current application’s |NSURL|
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSScreen : a reference to current application’s NSScreen
property NSNumber : a reference to current application’s NSNumber
property NSZeroPoint : a reference to current application’s NSZeroPoint
property PDFDocument : a reference to current application’s PDFDocument
property NSJPEGFileType : a reference to current application’s NSJPEGFileType
property NSCompositeCopy : a reference to current application’s NSCompositeCopy
property NSGraphicsContext : a reference to current application’s NSGraphicsContext
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSNumberFormatter : a reference to current application’s NSNumberFormatter
property NSImageInterpolationHigh : a reference to current application’s NSImageInterpolationHigh

tell application "Skim"
　　set docCount to count every document
　　if docCount = 0 then return
　　
　　tell front document
　　　　set curInd to index of current page
　　　　set docFile to file of it
　　end tell
end tell

set aPOSIX to POSIX path of docFile
set aURL to (|NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set compFactor to 1.0 –1.0 — 0.0 = max jpeg compression, 1.0 = none

–Detect Retina Environment
set retinaF to NSScreen’s mainScreen()’s backingScaleFactor()
if retinaF = 1.0 then
　　set aScale to 2.0 –Non Retina Env
else
　　set aScale to 1.0 –Retina Env
end if

–PDFをページごとに分割してJPEGでファイル書き出し
set i to (curInd – 1) –AppleScript index (1 based) to Cocoa index (0 based) conversion

–Pick Up a PDF page as an image
set thisPage to (aPDFdoc’s pageAtIndex:(i))
set thisDoc to (NSImage’s alloc()’s initWithData:(thisPage’s dataRepresentation()))
if thisDoc = missing value then error "Error in getting imagerep from PDF in page:" & (i as string)

–Resize Image
set pointSize to thisDoc’s |size|()
set newSize to current application’s NSMakeSize((pointSize’s width) * aScale, (pointSize’s height) * aScale)
set newImage to (NSImage’s alloc()’s initWithSize:newSize)

newImage’s lockFocus()
(thisDoc’s setSize:newSize)
(NSGraphicsContext’s currentContext()’s setImageInterpolation:(NSImageInterpolationHigh))
(thisDoc’s drawAtPoint:(NSZeroPoint) fromRect:(current application’s CGRectMake(0, 0, newSize’s width, newSize’s height)) operation:(NSCompositeCopy) fraction:2.0)
newImage’s unlockFocus()

–Save Image as JPEG
set theData to newImage’s TIFFRepresentation()
set newRep to (NSBitmapImageRep’s imageRepWithData:theData)
set targData to (newRep’s representationUsingType:(NSJPEGFileType) |properties|:{NSImageCompressionFactor:compFactor, NSImageProgressive:false})
set zText to retZeroPaddingText((i + 1), 4) of me
set outPath to addString_beforeExtensionIn_addingExtension_("_" & zText, aPOSIX, "jpg")

(targData’s writeToFile:outPath atomically:true) –書き出し

–ファイルパス（POSIX path）に対して、文字列（枝番）を追加。任意の拡張子を追加
on addString:extraString beforeExtensionIn:aPath addingExtension:aExt
　　set pathString to NSString’s stringWithString:aPath
　　set theExtension to pathString’s pathExtension()
　　set thePathNoExt to pathString’s stringByDeletingPathExtension()
　　
　　set newPath to (thePathNoExt’s stringByAppendingString:extraString)’s stringByAppendingPathExtension:aExt
　　return newPath as string
end addString:beforeExtensionIn:addingExtension:

on retZeroPaddingText(aNum as integer, aDigitNum as integer)
　　if aNum > (((10 ^ aDigitNum) as integer) – 1) then return "" –Range Check
　　set aFormatter to NSNumberFormatter’s alloc()’s init()
　　aFormatter’s setUsesGroupingSeparator:false
　　aFormatter’s setAllowsFloats:false
　　aFormatter’s setMaximumIntegerDigits:aDigitNum
　　aFormatter’s setMinimumIntegerDigits:aDigitNum
　　aFormatter’s setPaddingCharacter:"0"
　　set aStr to aFormatter’s stringFromNumber:(NSNumber’s numberWithFloat:aNum)
　　return aStr as string
end retZeroPaddingText

★Click Here to Open This Script　

Finderで選択中の画像を右に90度回転

Posted on 6月 11 by Takaaki Naganoya

Finder上で選択中の画像を右に（時計回りに）90度回転させるAppleScriptです。

Finder上で選択中のファイルのうち、UTIがpublic.imageに含まれるもの（JPEGとかPNGとかTIFFとか）を指定の角度に回転させます。

もともと、選択中のアイテムからファイル種別でオブジェクトを抽出する機能はFinderのものを利用していたのですが、最近のFinderは応答速度が下がっているため、選択中のファイルの取得以外は極力Finderを利用しないのが（macOS 10.10以降の）おすすめです。

macOS標準搭載のScript Menu（フォルダ構造がそのままメニューになり、Scriptをメニューから実行できる）に登録して実行しています。

AppleScript名：Finderで選択中の画像を右に90度回転

— Created 2017-11-21 by Takaaki Naganoya
— Modified 2018-04-06 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5" — El Capitan (10.11) or later
use framework "Foundation"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

set targDegree to 90 — targDegree have to be in {0, 90, 180, 270, 360} in clockwise

tell application "Finder"
　　set inFiles to selection as alias list
end tell
if inFiles = {} then return

–指定のAlias listのうち画像のみ抽出
set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me
if filRes1 = {} then return

–選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる
set outPathTarg to POSIX path of (first item of filRes1)
set pathString to current application’s NSString’s stringWithString:outPathTarg
set newPath to (pathString’s stringByDeletingLastPathComponent()) as string

repeat with i in filRes1
　　rotateImageandSaveIt(i, targDegree) of me
end repeat

–指定角度に画像を回転させて上書き保存
on rotateImageandSaveIt(this_file, aTargerRect)
　　tell application "Image Events"
　　　　launch
　　　　set this_image to open this_file
　　　　rotate this_image to angle aTargerRect
　　　　save this_image with icon
　　　　close this_image
　　end tell
end rotateImageandSaveIt

★Click Here to Open This Script　

Finder上で選択中の画像をアンチエイリアスなしで200%にリサイズ

Posted on 6月 3 by Takaaki Naganoya

Finder上で選択中の画像をアンチエイリアスなしで200％にリサイズするAppleScriptです。

よく使う拡大/縮小倍率のScriptを用意してmacOS標準装備のScript Menuに入れておき、Menuから呼び出して使っています。

AppleScript名：Finder上で選択中の画像をアンチエイリアスなしで200%にリサイズ

— Created 2014-02-21 Shane Stanley
— Modified 2018-06-01 Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

set zoomPercent to 2.0

tell application "Finder"
　　set inFiles to selection as alias list
end tell

–指定のAlias listのうち画像のみ抽出
set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me
if filRes1 = {} then return

repeat with i in filRes1
　　
　　set outPOSIXpath to newPath & "/" & (current application’s NSUUID’s UUID()’s UUIDString()) as string
　　
　　set aNSImage to (current application’s NSImage’s alloc()’s initWithContentsOfFile:(i))
　　set theImage to (my resizeNSImageWithoutAntlialias:aNSImage toScale:zoomPercent)
　　
　　–ファイルパスの拡張子を取得する
　　set pathString to (current application’s NSString’s stringWithString:i)
　　set fileExt to (pathString’s pathExtension()) as string
　　
　　set newPath to outPOSIXpath & "." & fileExt
　　
　　–元画像のファイルファイルフォーマットに合わせて同じフォーマットに
　　if fileExt is in {"png", "PNG"} then
　　　　my saveNSImageAtPathAsPNG(theImage, newPath)
　　else if fileExt is in {"jpg", "jpeg"} then
　　　　my saveNSImageAtPathAsJPG(theImage, newPath, 1.0 as real)
　　else if fileExt is in {"tif", "tiff"} then
　　　　my saveNSImageAtPathAsTIFF(theImage, newPath)
　　else if fileExt is in {"bmp"} then
　　　　my saveNSImageAtPathAsBMP(theImage, newPath)
　　end if
　　
end repeat

–NSImageを指定倍率で拡大（アンチエイリアス解除状態で）
on resizeNSImageWithoutAntlialias:aSourceImg toScale:imgScale
　　set aSize to aSourceImg’s |size|()
　　set aWidth to (aSize’s width) * imgScale
　　set aHeight to (aSize’s height) * imgScale
　　
　　set aRep to current application’s NSBitmapImageRep’s alloc()’s initWithBitmapDataPlanes:(missing value) pixelsWide:aWidth pixelsHigh:aHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(current application’s NSCalibratedRGBColorSpace) bytesPerRow:0 bitsPerPixel:0
　　
　　set newSize to {width:aWidth, height:aHeight}
　　aRep’s setSize:newSize
　　
　　current application’s NSGraphicsContext’s saveGraphicsState()
　　
　　set theContext to current application’s NSGraphicsContext’s graphicsContextWithBitmapImageRep:aRep
　　current application’s NSGraphicsContext’s setCurrentContext:theContext
　　theContext’s setShouldAntialias:false
　　theContext’s setImageInterpolation:(current application’s NSImageInterpolationNone)
　　
　　aSourceImg’s drawInRect:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) fromRect:(current application’s NSZeroRect) operation:(current application’s NSCompositeCopy) fraction:(1.0)
　　
　　current application’s NSGraphicsContext’s restoreGraphicsState()
　　
　　set newImg to current application’s NSImage’s alloc()’s initWithSize:newSize
　　newImg’s addRepresentation:aRep
　　
　　return newImg
end resizeNSImageWithoutAntlialias:toScale:

–NSImageを指定パスにJPEG形式で保存、qulityNumは0.0〜1.0。1.0は無圧縮
on saveNSImageAtPathAsJPG(anImage, outPath, qulityNum as real)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSJPEGFileType) |properties|:{NSImageCompressionFactor:qulityNum})
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsJPG

–NSImageを指定パスにTIFF形式で保存
on saveNSImageAtPathAsTIFF(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSTIFFFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsTIFF

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsPNG

–NSImageを指定パスにBMP形式で保存
on saveNSImageAtPathAsBMP(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSBMPFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsBMP

★Click Here to Open This Script　

Finder上で選択中の画像をアンチエイリアスありで50%にリサイズ

Posted on 6月 3 by Takaaki Naganoya

Finder上で選択中の画像をアンチエイリアスありで50％にリサイズするAppleScriptです。

よく使う拡大/縮小倍率のScriptを用意してmacOS標準装備のScript Menuに入れておき、Menuから呼び出して使っています。

AppleScript名：Finder上で選択中の画像をアンチエイリアスありで50%にリサイズ

— Created 2014-02-21 Shane Stanley
— Modified 2018-06-01 Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set zoomPercent to 0.5

tell application "Finder"
　　set inFiles to selection as alias list
end tell

–指定のAlias listのうち画像のみ抽出
set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me
if filRes1 = {} then return

repeat with i in filRes1
　　set outPOSIXpath to newPath & "/" & (current application’s NSUUID’s UUID()’s UUIDString()) as string
　　set fRes1 to resizeImage(i, outPOSIXpath, zoomPercent) of me
end repeat

on resizeImage(imagePath, newPath, aZoom as real)
　　–ファイルパスの拡張子を取得する
　　set pathString to current application’s NSString’s stringWithString:imagePath
　　set fileExt to (pathString’s pathExtension()) as string
　　
　　–画像ファイルをNSImageに読み込み
　　set theImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:imagePath — load the file as an NSImage
　　
　　— calculate required sizes
　　set theSize to (theImage’s |size|()) as record
　　
　　set oldWidth to width of theSize
　　set oldHeight to height of theSize
　　
　　set theWidth to oldWidth * aZoom
　　set theHeight to oldHeight * aZoom
　　
　　set newImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(theWidth, theHeight))
　　
　　newImage’s lockFocus()
　　theImage’s drawInRect:{origin:{x:0, y:0}, |size|:{width:theWidth, height:theHeight}} fromRect:(current application’s NSZeroRect) operation:(current application’s NSCompositeSourceOver) fraction:1.0
　　newImage’s unlockFocus()
　　
　　set theData to newImage’s TIFFRepresentation()
　　set newRep to current application’s NSBitmapImageRep’s imageRepWithData:theData
　　
　　–元画像のファイルファイルフォーマットに合わせて同じフォーマットに
　　if fileExt is in {"png", "PNG"} then
　　　　set theData to (newRep’s representationUsingType:(current application’s NSPNGFileType) |properties|:{NSImageGamma:1.0})
　　else if fileExt is in {"jpg", "jpeg"} then
　　　　set theData to (newRep’s representationUsingType:(current application’s NSJPEGFileType) |properties|:{NSImageCompressionFactor:1.0})
　　else if fileExt is in {"tif", "tiff"} then
　　　　set theData to (newRep’s representationUsingType:(current application’s NSTIFFFileType) |properties|:(missing value))
　　else if fileExt is in {"bmp"} then
　　　　set theData to (newRep’s representationUsingType:(current application’s NSBMPFileType) |properties|:(missing value))
　　end if
　　
　　set newPath to newPath & "." & fileExt
　　return (theData’s writeToFile:newPath atomically:true)
　　
end resizeImage

★Click Here to Open This Script　

指定の画像からEXIFの撮影日付（DateTimeOriginal）を取得 v2

Posted on 5月 31 by Takaaki Naganoya

指定の画像からEXIF情報を取得し、撮影日付（DateTimeOriginal）を取得するAppleScriptです。

Image Eventsで取得するよりも、BridgePlusで取得するほうが高速だったので差し替えてみました。

AppleScript名：指定の画像からEXIFの撮影日付（DateTimeOriginal）を取得 v2

— Created 2014-12-14 by Takaaki Naganoya
— 2014 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use BPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property NSString : a reference to current application’s NSString
property NSLocale : a reference to current application’s NSLocale
property SMSForder : a reference to current application’s SMSForder
property NSDateFormatter : a reference to current application’s NSDateFormatter

set aTargFile to choose file of type {"public.image"}
set exifRes to readExifDateTimeOriginal(aTargFile) of me

–指定ファイルからのExifデータを取得し撮影日付を取得する
on readExifDateTimeOriginal(aTargFileAlias)
　　set theMetadata to readMetadataFrom(aTargFileAlias) of me
　　set keysList to theMetadata’s allKeys()
　　
　　if "{Exif}" is not in (keysList as list) then return false
　　
　　set exifDate to theMetadata’s valueForKeyPath:"{Exif}.DateTimeOriginal"
　　if exifDate = missing value then return false
　　
　　set fullDate to dateFromStringWithDateFormat(exifDate, "yyyy:MM:dd HH:mm:ss") of me
　　
　　return fullDate
end readExifDateTimeOriginal

–指定ファイルからのメタデータ読み込み
on readMetadataFrom(imageFile)
　　load framework
　　set {theRecord, theError} to SMSForder’s metadataFromImage:imageFile |error|:(reference)
　　if theRecord = missing value then — there was a problem, so extract the error description
　　　　error (theError’s localizedDescription() as text) — number (theError’s code())
　　else
　　　　return theRecord
　　end if
end readMetadataFrom

–日付文字列を形式指定しつつdate objectに変換
on dateFromStringWithDateFormat(dateString, dateFormat)
　　set dStr to NSString’s stringWithString:dateString
　　set dateFormatStr to NSString’s stringWithString:dateFormat
　　
　　set aDateFormatter to NSDateFormatter’s alloc()’s init()
　　aDateFormatter’s setDateFormat:dateFormatStr
　　aDateFormatter’s setLocale:(NSLocale’s alloc()’s initWithLocaleIdentifier:"en_US_POSIX")
　　
　　set aDestDate to (aDateFormatter’s dateFromString:dStr)
　　
　　return aDestDate as list of string or string
end dateFromStringWithDateFormat

★Click Here to Open This Script　

指定フォルダ内のJPEGファイルのEXIFから撮影日付を取得してファイルの作成日付に反映させる v2

Posted on 5月 31 by Takaaki Naganoya

指定フォルダ内のすべてのJPEGファイルのEXIF情報から撮影日付を取得し、画像ファイルの作成日付に反映させるAppleScriptです。

写真.app（Photos.app）内で管理している大量の写真ファイルをいったんファイルに書き出して、DVD-Rにコピーして人に渡すときに、写真の作成日付が撮影日になっておらず、Finderなどのファイラー上で整理するのが大変でした。

ファイル書き出しなので仕方のないことですが、この仕様はいただけません。

かようにファイル作成日付が正しくない写真でも、EXIFに正しい撮影日付が保存されているケースが多い（ただし、完全にすべてではない）ため、EXIFの日付をAppleScriptで読み取ってファイル作成日付に反映させてみました。

写真.appなどのアプリケーションにインポートしてしまえばEXIF日付でソートされるので、あまり意味があるとも思えませんが、Finder上での写真整理のために実行してとりあえず走らせてみました。

AppleScript名：EXIFから撮影日付を取得してファイルの作成日付に反映させる v2

— Created 2018-05-30 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

script spd
　　property fList : {}
end script

set renCount to 0

set (fList of spd) to {}

set aFolder to (choose folder)

set aDate to current date

set (fList of spd) to getFilePathList(aFolder, "JPG") of me

repeat with i in (fList of spd)
　　set j to contents of i
　　chkCreationDateAsExif(j) of me
　　set renCount to renCount + 1
end repeat

set bDate to current date

return {bDate – aDate, renCount}

on chkCreationDateAsExif(aFile)
　　tell application "Image Events"
　　　　launch
　　　　set this_image to open (aFile as alias)
　　　　
　　　　try
　　　　　　tell this_image
　　　　　　　　set aVal to (value of metadata tag "creation")
　　　　　　end tell
　　　　on error
　　　　　　return
　　　　end try
　　　　
　　　　close this_image
　　end tell
　　
　　set a to current application’s NSString’s stringWithString:aVal
　　set {aDateStr, aTimeStr} to (a’s componentsSeparatedByString:" ") as list
　　set bDateStr to repChar(aDateStr, ":", "/") of me
　　set fullDate to date (bDateStr & " " & aTimeStr)
　　
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithObject:fullDate forKey:(current application’s NSFileModificationDate)
　　set aFM to current application’s NSFileManager’s defaultManager()’s setAttributes:aDic ofItemAtPath:(POSIX path of aFile) |error|:(missing value)
end chkCreationDateAsExif

–文字置換
on repChar(origText as string, targChar as string, repChar as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to targChar
　　set tmpList to text items of origText
　　set AppleScript’s text item delimiters to repChar
　　set retText to tmpList as string
　　set AppleScript’s text item delimiters to curDelim
　　return retText
end repChar

on getFilePathList(aFol, aExt)
　　set aFol to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFol)
　　
　　set aFM to current application’s NSFileManager’s defaultManager()
　　set urlArray to aFM’s contentsOfDirectoryAtURL:aFol includingPropertiesForKeys:{} options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) |error|:(missing value)
　　set thePred to current application’s NSPredicate’s predicateWithFormat:"pathExtension == [c]%@" argumentArray:{aExt}
　　set anArray to urlArray’s filteredArrayUsingPredicate:thePred
　　return anArray as list — URLs pre-10.11, files under 10.11
end getFilePathList

★Click Here to Open This Script　

Previewでオープン中のファイルのパスを求める（macOS 10.12限定）

Posted on 5月 21 by Takaaki Naganoya

Preview.appでオープン中の画像のファイルパスをすべてPOSIX pathで求めるAppleScriptです。

▲大昔にあった「日本語AppleScript」（Japanese Dialect）を擬似的に書いたRTFを画像化したもの。AppleScriptがいまでも日本語で書けるとかいうデモではありません（大事なことなので書いておきました）

Preview.appでオープン中の画像のパスをためしに求めてみたところ（macOS 10.12.6）、実際のファイルが、

　　/Users/me/Desktop/image.png

であるものが、

　　/Users/me/Library/Containers/com.apple.Preview/Data/Desktop/image.png

と返ってきました。一時的に、ライブラリフォルダの下にコピーしてオープンしているのでしょうか。そういう「舞台裏」をそのまま見せてしまうのはどうかと思います。オリジナルのファイルパスをそのまま返せばいいのに。

そこで、Preview.appから返ってきたパスを加工してオリジナルのパスを求めてみました。

ファイルサーバー上にある画像や外部HDD上にある画像などについては検証していないので、それについては、別途パスを求め直す必要があることでしょう。

macOS 10.13.5beta上でためしてみたら、こちらでは直っていました。そーーですよねーーーーー、10.12上の仕様の方がおかしいですよねーーー（ーー；；

AppleScript名：Previewでオープン中のファイルのパスを求める

— Created 2018-05-21 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

tell application "Preview"
　　set dList to path of every document
　　–> {"/Users/me/Library/Containers/com.apple.Preview/Data/Desktop/スクリーンショット 2018-02-28 14.01.09.png", "/Users/me/Library/Containers/com.apple.Preview/Data/Desktop/スクリーンショット 2018-02-28 14.01.11.png"}
end tell

set mePath to POSIX path of (path to home folder)
set origStr to mePath & "Library/Containers/com.apple.Preview/Data"

set outPathList to {}

repeat with i in dList
　　set j to contents of i
　　set the end of outPathList to repChar(j, origStr, (text 1 thru -2 of mePath)) of me
end repeat

return outPathList

on repChar(origText as string, targStr as string, repStr as string)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

★Click Here to Open This Script　

デスクトップの表示、非表示切り替え

Posted on 4月 19 by Takaaki Naganoya

デスクトップの表示・非表示切り替えを行うAppleScriptです。

白い画像や黒い画像とデスクトップ表示状態を切り替えるAppleScriptを別々に実行するとデスクトップ非表示状態のまま戻ってこなくなることがあったので、単体で切り替えするScriptを用意してみた次第です。

AppleScript名：デスクトップの表示、非表示切り替え

showHideDesktop(true)

on showHideDesktop(aBool)
　　set aBoolStr to aBool as string
　　do shell script "defaults write com.apple.finder CreateDesktop -bool " & aBoolStr
　　do shell script "killall Finder"
end showHideDesktop

★Click Here to Open This Script　

デスクトップピクチャを白いピクチャとトグルで差し替え v2

Posted on 4月 19 by Takaaki Naganoya

デスクトップピクチャの表示状態と、単色白色のデスクトップ＋デスクトップ非表示状態のトグル切り替えを行うAppleScriptです。

資料や仕様書を作成する際に画面キャプチャを行うことが多いですが、その際にデスクトップに散らかっているファイルが映るとみっともないので、隠すために作成したものです。

１回実行するとデスクトップを隠し、もう１回実行すると元に戻ります。

AppleScript名：デスクトップピクチャを白いピクチャとトグルで差し替え v2

— Created 2016-05-31 by Takaaki Naganoya
— Modified 2016-06-01 by Takaaki Naganoya–Desktop Iconの表示/非表示を追加
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property aSwitch : false
property desktopPictures : {}
property aColpath : ""

if aSwitch = false then
　　–デスクトップを白くする
　　set desktopPictures to getDesktopPicturePathList() of me
　　–白い画像を作成してデスクトップピクチャに設定
　　set aColpath to makeColordImageToTmp(255, 255, 255, 255) of me –R,G,B,A（それぞれ 0〜255）
　　setDesktopPicture(aColpath) of me
　　showHideDesktop(false) of me
　　set aSwitch to true
else
　　–保存しておいたDesktop Pictureのリストを戻す
　　setDesktopPicturePathList(desktopPictures) of me
　　do shell script "rm -f " & quoted form of aColpath
　　showHideDesktop(true) of me
　　set aSwitch to false
end if

–デスクトップの表示/非表示切り替え
on showHideDesktop(aBool as boolean)
　　set aBoolStr to aBool as string
　　do shell script "defaults write com.apple.finder CreateDesktop -bool " & aBoolStr
　　do shell script "killall Finder"
end showHideDesktop

–デスクトップピクチャの状態を復帰する
on setDesktopPicturePathList(aliasList)
　　if aliasList = {} then
　　　　display notification "保存しておいたデスクトップピクチャのリストが空になっています"
　　　　return
　　end if
　　
　　tell application "System Events"
　　　　set dCount to count every desktop
　　　　repeat with i from 1 to dCount
　　　　　　set j to contents of item i of aliasList
　　　　　　tell desktop i
　　　　　　　　set picture to (POSIX path of j)
　　　　　　end tell
　　　　end repeat
　　end tell
end setDesktopPicturePathList

–デスクトップピクチャの強制指定
on setDesktopPicture(aPathStr)
　　tell application "System Events"
　　　　set picture of every desktop to aPathStr
　　end tell
end setDesktopPicture

–デスクトップピクチャのパスをaliasリストで取得
on getDesktopPicturePathList()
　　set pList to {}
　　tell application "System Events"
　　　　set dCount to count every desktop
　　　　repeat with i from 1 to dCount
　　　　　　tell desktop i
　　　　　　　　set aPic to (picture as POSIX file) as alias
　　　　　　　　set end of pList to aPic
　　　　　　end tell
　　　　end repeat
　　end tell
　　return pList
end getDesktopPicturePathList

–テンポラリフォルダに指定色の画像を作成
on makeColordImageToTmp(rDat as integer, gDat as integer, bDat as integer, aDat as integer)
　　set rCol to 255 / rDat
　　set gCol to 255 / gDat
　　set bCol to 255 / bDat
　　set aCol to 255 / aDat
　　—
　　set aColor to current application’s NSColor’s colorWithDeviceRed:rCol green:gCol blue:bCol alpha:aCol
　　set aDesktopPath to current application’s NSString’s stringWithString:(POSIX path of (path to temporary items))
　　set savePath to aDesktopPath’s stringByAppendingString:((current application’s NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:".png")
　　set aRes to makeImageWithFilledWithColor(1, 1, savePath, aColor) of me
　　return (savePath as string)
end makeColordImageToTmp

–指定サイズの画像を作成し、指定色で塗ってファイル書き出し
on makeImageWithFilledWithColor(aWidth, aHeight, outPath, fillColor)
　　–Imageの作成　　
　　set anImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　
　　anImage’s lockFocus() –描画実行
　　set theRect to {{x:0, y:0}, {height:aHeight, width:aWidth}}
　　set theNSBezierPath to current application’s NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　fillColor’s |set|()
　　theNSBezierPath’s fill()
　　anImage’s unlockFocus() –描画ここまで
　　
　　–生成した画像のRaw画像を作成
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value))
　　
　　–書き出しファイルパス情報を作成
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –成功ならtrue、失敗ならfalseが返る
　　
end makeImageWithFilledWithColor

★Click Here to Open This Script　

デスクトップピクチャを黒いピクチャとトグルで差し替え v2

Posted on 4月 19 by Takaaki Naganoya

デスクトップピクチャの表示状態と、単色黒色のデスクトップ＋デスクトップ非表示状態のトグル切り替えを行うAppleScriptです。

資料や仕様書を作成する際に画面キャプチャを行うことが多いですが、その際にデスクトップに散らかっているファイルが映るとみっともないので、隠すために作成したものです。–> Demo Movie

１回実行するとデスクトップを隠し、もう１回実行すると元に戻ります。

AppleScript名：デスクトップピクチャを黒いピクチャとトグルで差し替え v2

property aSwitch : false
property desktopPictures : {}
property aColpath : ""

if aSwitch = false then
　　–デスクトップを黒くする
　　set desktopPictures to getDesktopPicturePathList() of me
　　–白い画像を作成してデスクトップピクチャに設定
　　set aColor to current application’s NSColor’s blackColor()
　　set aColpath to makeColordImageToTmp(aColor) of me
　　setDesktopPicture(aColpath) of me
　　showHideDesktop(false) of me
　　set aSwitch to true
else
　　–保存しておいたDesktop Pictureのリストを戻す
　　setDesktopPicturePathList(desktopPictures) of me
　　do shell script "rm -f " & quoted form of aColpath
　　showHideDesktop(true) of me
　　set aSwitch to false
end if

–テンポラリフォルダに指定色の画像を作成
on makeColordImageToTmp(aColor)
　　–set aColor to current application’s NSColor’s colorWithDeviceRed:rCol green:gCol blue:bCol alpha:aCol
　　set aDesktopPath to current application’s NSString’s stringWithString:(POSIX path of (path to temporary items))
　　set savePath to aDesktopPath’s stringByAppendingString:((current application’s NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:".png")
　　set aRes to makeImageWithFilledWithColor(1, 1, savePath, aColor) of me
　　return (savePath as string)
end makeColordImageToTmp

★Click Here to Open This Script　

Finderの最前面のアイコン表示ウィンドウ上の画像をY座標の情報をキーにして縦連結

Posted on 4月 18 by Takaaki Naganoya

Finderの最前面のWindowがアイコン表示になっている場合に、Window（Folder）内の画像ファイルをFinder上でのアイコン位置情報（Y座標のみ）を考慮して縦方向に１枚ものの画像に結合するAppleScriptです。

–> Demo Movie

AppleScript名：Finderの最前面のアイコン表示ウィンドウ上の画像をY座標の情報をキーにして縦連結

— Created 2018-04-10 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "QuartzCore"
use framework "AppKit"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property yGap : 10 –連結時の画像間のアキ（縦方向）

load framework

tell application "Finder"
　　tell front window
　　　　set curView to current view
　　　　if curView is not equal to icon view then
　　　　　　display dialog "最前面のウィンドウがアイコン表示になっていないので、処理を終了します。"
　　　　　　return
　　　　end if
　　　　
　　　　try
　　　　　　set posList to position of every file whose kind contains "イメージ" –"イメージ" is "image" or "picture" in Japanese
　　　　　　set fileList to (every file whose kind contains "イメージ") as alias list –"イメージ" is "image" or "picture" in Japanese
　　　　on error
　　　　　　display dialog "最前面のウィンドウに画像ファイルが配置されていないため、処理を中止します。"
　　　　　　return
　　　　end try
　　end tell
　　
　　set aList to {}
　　set aLen to length of posList
　　set bLen to length of fileList
　　if aLen is not equal to bLen then return
　　
　　repeat with i from 1 to aLen
　　　　set posItem to contents of item i of posList
　　　　set aPath to POSIX path of item i of fileList
　　　　set the end of aList to (posItem & aPath)
　　end repeat
end tell

–> {{127, 42, "/Users/me/Desktop/名称未設定フォルダ/000_keynote_print.png"}, {302, 43, "/Users/me/Desktop/名称未設定フォルダ/999_indesign_print.png"}}

set bList to sort2DListAscendingWithSecondItemKey(aList) of me
–> {{127, 42, "/Users/me/Desktop/名称未設定フォルダ/000_keynote_print.png"}, {302, 43, "/Users/me/Desktop/名称未設定フォルダ/999_indesign_print.png"}}

set cList to getEveryIndicatedItemsFrom2DList(bList, 3) of me
–>　　{"/Users/me/Desktop/名称未設定フォルダ/000_keynote_print.png", "/Users/me/Desktop/名称未設定フォルダ/999_indesign_print.png"}

–Finder最前面の画像ファイルをpathからImageを読み込んでArrayに入れる
set imgList to NSMutableArray’s new()
repeat with i in cList
　　set aPath to contents of i
　　
　　set imgRes to (my isImageAtPath:aPath)
　　if imgRes as boolean = true then
　　　　set aNSImage to (NSImage’s alloc()’s initWithContentsOfFile:aPath)
　　　　(imgList’s addObject:aNSImage)
　　end if
end repeat

–KVCで画像の各種情報をまとめて取得
set sizeList to (imgList’s valueForKeyPath:"size") as list –NSSize to list of record conversion
set maxWidth to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@max.width") as real
set totalHeight to (((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@sum.height") as real) + 50
set totalCount to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@count") as integer

–出力画像作成
set tSize to current application’s NSMakeSize(maxWidth, totalHeight + (yGap * totalCount))
set newImage to NSImage’s alloc()’s initWithSize:tSize

–順次画像を新規画像に上書き
set yOrig to 0
repeat with i in (imgList as list)
　　set j to contents of i
　　set curSize to j’s |size|()
　　–set aRect to {0, (maxWidth – (curSize’s height())), (curSize’s width()), (curSize’s height())}
　　set aRect to {0, (totalHeight – (curSize’s height())) – yOrig, (curSize’s width()), (curSize’s height())}
　　set newImage to composeImage(newImage, j, aRect) of me
　　set yOrig to yOrig + (curSize’s height()) + yGap
end repeat

–デスクトップにPNG形式でNSImageをファイル保存
set aDesktopPath to current application’s NSHomeDirectory()’s stringByAppendingString:"/Desktop/"
set savePath to aDesktopPath’s stringByAppendingString:((NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:".png")
set fRes to saveNSImageAtPathAsPNG(newImage, savePath) of me

–2つのNSImageを重ね合わせ合成してNSImageで返す
on composeImage(backImage, composeImage, aTargerRect)
　　set newImage to NSImage’s alloc()’s initWithSize:(backImage’s |size|())
　　
　　copy aTargerRect to {x1, y1, x2, y2}
　　
　　newImage’s lockFocus()
　　
　　set v2 to system attribute "sys2"
　　if v2 ≤ 12 then
　　　　–To macOS 10.12.x
　　　　set bRect to current application’s NSMakeRect(x1, y1, x2, y2)
　　　　set newImageRect to current application’s CGRectZero
　　　　set newImageRect’s |size| to (newImage’s |size|)
　　else
　　　　–macOS 10.13 or later
　　　　set bRect to {{x1, y1}, {x2, y2}}
　　　　set newImageRect to {{0, 0}, (newImage’s |size|)}
　　end if
　　
　　backImage’s drawInRect:newImageRect
　　composeImage’s drawInRect:bRect
　　
　　newImage’s unlockFocus()
　　return newImage
end composeImage

–指定のパスのファイルが画像かどうかをチェック
on isImageAtPath:aPath
　　set aURL to |NSURL|’s fileURLWithPath:aPath
　　set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value)
　　return (NSImage’s imageTypes()’s containsObject:theValue) as boolean
end isImageAtPath:

on sort2DListAscendingWithSecondItemKey(aList as list)
　　set sortIndexList to {1} –Key Item id: begin from 0
　　set sortOrders to {true} –ascending = true
　　set sortTypes to {"compare:"}
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:sortIndexList ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DListAscendingWithSecondItemKey

–2D Listの各要素から、指定アイテムの要素だけを取り出してリストで返す
on getEveryIndicatedItemsFrom2DList(aList as list, anItem as integer) –this item No. begins from 1
　　set outList to {}
　　repeat with i in aList
　　　　set j to contents of item anItem of i
　　　　set the end of outList to j
　　end repeat
　　return outList
end getEveryIndicatedItemsFrom2DList

★Click Here to Open This Script　

Finderの最前面のアイコン表示ウィンドウ上の画像をX座標の情報をキーにして横連結

Posted on 4月 17 by Takaaki Naganoya

Finderの最前面のWindowがアイコン表示になっている場合に、Window（Folder）内の画像ファイルをFinder上でのアイコン位置情報（X座標のみ）を考慮して横方向に１枚ものの画像に結合するAppleScriptです。

Blog掲載時に利用するために、Finder上で選択中の複数の画像ファイルを１枚ものの画像に（横方向/縦方向に）連結するAppleScriptを便利に使っています（ただし、「動けばいいや」程度で雑に作ったので、普段よりもやっつけ度がかなり高い、、、）。

ただし、画像の並び順については「たぶん、作成日時の古い順」に連結されるといった具合に明示的に並び順を指定できるものではなかったので、本Scriptを作ってみました。　–> Demo Movie

Finder上でicon viewに指定したWindow（Folder）内でLeft–>Rightの順に（X座標のみ評価）座標値をソートして連結します。

AppleScript名：Finderの最前面のアイコン表示ウィンドウ上の画像をX座標の情報をキーにして横連結

property xGap : 10 –連結時の画像間のアキ（横方向）

load framework

–> {{127, 42, "/Users/me/Desktop/名称未設定フォルダ/000_keynote_print.png"}, {302, 43, "/Users/me/Desktop/名称未設定フォルダ/999_indesign_print.png"}}

set bList to sort2DListAscendingWithFirstItemKey(aList) of me
–> {{127, 42, "/Users/me/Desktop/名称未設定フォルダ/000_keynote_print.png"}, {302, 43, "/Users/me/Desktop/名称未設定フォルダ/999_indesign_print.png"}}

–KVCで画像の各種情報をまとめて取得
set sizeList to (imgList’s valueForKeyPath:"size") as list –NSSize to list of record conversion
set maxHeight to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@max.height") as real
set totalWidth to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@sum.width") as real
set totalCount to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:"@count") as integer

–出力画像作成
set tSize to current application’s NSMakeSize((totalWidth + (xGap * totalCount)), maxHeight)
set newImage to NSImage’s alloc()’s initWithSize:tSize

–順次画像を新規画像に上書き
set xOrig to 0
repeat with i in (imgList as list)
　　set j to contents of i
　　set curSize to j’s |size|()
　　set aRect to {xOrig, (maxHeight – (curSize’s height())), (curSize’s width()), (curSize’s height())}
　　set newImage to composeImage(newImage, j, aRect) of me
　　set xOrig to xOrig + (curSize’s width()) + xGap
end repeat

on sort2DListAscendingWithFirstItemKey(aList as list)
　　set sortIndexList to {0} –Key Item id: begin from 0
　　set sortOrders to {true} –ascending = true
　　set sortTypes to {"compare:"}
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:sortIndexList ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DListAscendingWithFirstItemKey

★Click Here to Open This Script　

イメージビュー＋ボタンを作成 v2

Posted on 4月 9 by Takaaki Naganoya

指定の画像を、画面の中央にウィンドウ表示するAppleScriptです。

NSWindowを作成して、そこにNSImageViewを表示し、さらにその上に透明状態のボタンを表示しています。画像をクリックすると、その上にかぶせているボタンがクリックを受信してウィンドウのクローズを行います。

AppleScript名：イメージビュー＋ボタンを作成 v2

— Created 2015-12-11 by Takaaki Naganoya
— Modified 2018-04-08 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property windisp : false

set aFilePath to POSIX path of (choose file)
set aTitle to "イメージビューのじっけん/ImageView Test"
set aButtonMSG to "OK"

set wRes to dispImageView(aTitle, aFilePath, aButtonMSG, 10) of me

on dispImageView(aTitle as text, dispImagePath, aButtonMSG as text, timeOutSecs as number)
　　set (my windisp) to true
　　
　　–指定パスからNSImageに画像を読み込む
　　set aImageURL to current application’s |NSURL|’s fileURLWithPath:dispImagePath
　　set {theResult, theValue} to aImageURL’s getResourceValue:(reference) forKey:(current application’s NSURLTypeIdentifierKey) |error|:(missing value)
　　if theResult is not equal to true then return false –the file is not a image
　　set aImage to current application’s NSImage’s alloc()’s initWithContentsOfURL:aImageURL
　　set aSize to aImage’s |size|()
　　set imgWidth to width of aSize
　　set imgHeight to height of aSize
　　
　　
　　–NSImageViewを作って画像を読み込む
　　set aView to current application’s NSImageView’s alloc()’s init()
　　aView’s setBounds:(current application’s NSMakeRect(0, 0, imgWidth, imgHeight))
　　aView’s setImageScaling:(current application’s NSImageScaleProportionallyUpOrDown)
　　aView’s setEditable:false
　　aView’s setImage:aImage
　　
　　
　　–Windowをつくる
　　set aWin to makeWinWithView(aView, imgWidth, imgHeight, aTitle, 1.0)
　　set wController to current application’s NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　wController’s showWindow:me
　　
　　
　　–Buttonをつくる
　　set bButton to (current application’s NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, imgWidth, imgHeight)))
　　bButton’s setTitle:"OK"
　　bButton’s setTransparent:true
　　bButton’s setTarget:me
　　bButton’s setAction:("clicked:")
　　
　　aView’s addSubview:bButton
　　
　　aWin’s makeKeyAndOrderFront:me –Windowを表示状態に
　　
　　set aCount to timeOutSecs * 10 –timeout seconds * 10
　　repeat aCount times
　　　　if (my windisp) = false then
　　　　　　exit repeat
　　　　end if
　　　　delay 0.1
　　　　set aCount to aCount – 1
　　end repeat
　　
　　my closeWin:aWin
　　
　　return true –Safely closed
end dispImageView

–Button Clicked Event Handler
on clicked:aSender
　　log {"clicked:"}
　　set (my windisp) to false
end clicked:

–make Window for Input
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle, alphaV)
　　set aScreen to current application’s NSScreen’s mainScreen()
　　set aFrame to {{0, 0}, {aWinWidth, aWinHeight}}
　　set aBacking to current application’s NSTitledWindowMask –NSBorderlessWindowMask
　　set aDefer to current application’s NSBackingStoreBuffered
　　
　　— Window
　　set aWin to current application’s NSWindow’s alloc()
　　(aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
　　–aWin’s setBackgroundColor:(current application’s NSColor’s whiteColor())
　　
　　aWin’s setTitle:aTitle
　　aWin’s setDelegate:me
　　aWin’s setDisplaysWhenScreenProfileChanges:true
　　aWin’s setHasShadow:true
　　aWin’s setIgnoresMouseEvents:false
　　aWin’s setLevel:(current application’s NSPopUpMenuWindowLevel) –NSNormalWindowLevel
　　aWin’s setOpaque:false
　　aWin’s setAlphaValue:alphaV –append
　　aWin’s setReleasedWhenClosed:true
　　aWin’s |center|()
　　aWin’s makeKeyAndOrderFront:(me)
　　
　　— Set Custom View
　　aWin’s setContentView:aView
　　
　　return aWin
　　
end makeWinWithView

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

★Click Here to Open This Script　

Finder上で選択中の画像を縦方向に連結 v1

Posted on 4月 8 by Takaaki Naganoya

Finder上で選択中の画像ファイルを縦方向に連結して結果をデスクトップ上に出力するAppleScriptです。

AppleScript名：Finder上で選択中の画像を縦方向に連結 v1

property yGap : 10 –連結時の画像間のアキ（横方向）

tell application "Finder"
　　set aSel to selection as alias list
　　if aSel = {} or aSel = "" then return
end tell

–選択した画像をArrayに入れる
set imgList to NSMutableArray’s new()
repeat with i in aSel
　　set aPath to POSIX path of i
　　
　　set imgRes to (my isImageAtPath:aPath)
　　if imgRes as boolean = true then
　　　　set aNSImage to (NSImage’s alloc()’s initWithContentsOfFile:aPath)
　　　　(imgList’s addObject:aNSImage)
　　end if
end repeat

–出力画像作成
set tSize to current application’s NSMakeSize(maxWidth, totalHeight + (yGap * totalCount))
set newImage to NSImage’s alloc()’s initWithSize:tSize

★Click Here to Open This Script　

配列に入れた画像を類似度でソートする

Posted on 4月 7 by Takaaki Naganoya

ターゲット画像に対して配列に入れた複数の画像を類似度をキーにしてソートするAppleScriptです。

最も類似度が高いと思われる画像をデスクトップにPNG形式で書き出します。

CocoaImageHashing.framework (To ~/Library/Frameworks/)

AppleScript名：配列に入れた画像を類似度でソートする

— Created 2016-10-30 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "CocoaImageHashing" –https://github.com/ameingast/cocoaimagehashing
–From Example: "Sorting an NSArray containing image data"

–比較元の画像を選択
set baseData to retDataFromPath(POSIX path of (choose file {"public.image"})) of me

–比較対象のデータを選択
set aData to retDataFromPath(POSIX path of (choose file {"public.image"})) of me
set bData to retDataFromPath(POSIX path of (choose file {"public.image"})) of me
set cData to retDataFromPath(POSIX path of (choose file {"public.image"})) of me

set aList to {aData, bData, cData}
set anArray to current application’s NSMutableArray’s arrayWithArray:aList

–配列に入れられた画像を類似度でソートする
set aRes to (current application’s OSImageHashing’s sharedInstance()’s sortedArrayUsingImageSimilartyComparator:baseData forArray:anArray)

–最も類似度の高い画像データを取り出す
set firstObj to aRes’s objectAtIndex:0
set anImage to current application’s NSImage’s alloc()’s initWithData:firstObj

–確認のため、デスクトップにPNG形式で最も類似度の高い画像を書き出す
set aFolder to POSIX path of (path to desktop folder)
set fRes to retUUIDfilePathFromFolder(aFolder, "png") of me
set sRes to saveNSImageAtPathAsPNG(anImage, fRes) of me

on retUUIDfilePathFromFolder(aFolder, aEXT)
　　set aUUIDstr to (current application’s NSUUID’s UUID()’s UUIDString()) as string
　　set aPath to ((current application’s NSString’s stringWithString:aFolder)’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDfilePathFromFolder

on retDataFromPath(aFile)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aFile
　　set aData to current application’s NSData’s dataWithContentsOfURL:aURL
　　return aData
end retDataFromPath

★Click Here to Open This Script　

２つの画像が類似しているかを判定

Posted on 4月 7 by Takaaki Naganoya

２つの画像が類似しているかどうかを判定するAppleScriptです。

CocoaImageHashing.framework (To ~/Library/Frameworks/)

AppleScript名：２つの画像が類似しているかを判定

set aFile to POSIX path of (choose file {"public.image"})
set bFile to POSIX path of (choose file {"public.image"})

set aRes to checkSimiliality(aFile, bFile) of me
–> true / false

on checkSimiliality(aFile, bFile)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aFile
　　set bURL to current application’s |NSURL|’s fileURLWithPath:bFile
　　
　　set aData to current application’s NSData’s dataWithContentsOfURL:aURL
　　set bData to current application’s NSData’s dataWithContentsOfURL:bURL
　　
　　set aRes to (current application’s OSImageHashing’s sharedInstance()’s compareImageData:aData |to|:bData) as boolean
　　return aRes
end checkSimiliality

★Click Here to Open This Script　

NSImageをリサイズ（アンチエイリアス解除）pattern 4

Posted on 4月 7 by Takaaki Naganoya

指定ファイルをNSImageに読み込んで、アンチエイリアスを使用せずに指定倍率に拡大するAppleScriptです。

▲Original & Resized Image (x10)

AppleScript名：NSImageをリサイズ（アンチエイリアス解除）pattern 4

— Created 2017-02-03 by Takaaki Naganoya
— Modified 2017-03-22 by Shane Stanley
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set aPath to POSIX path of (choose file of type {"public.image"} with prompt "Select Image file to scale up (x10)")
set aNSImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:aPath

set resizedImg to my resizeNSImageWithoutAntlialias:aNSImage toScale:10

set aDesktopPath to (current application’s NSProcessInfo’s processInfo()’s environment()’s objectForKey:("HOME"))’s stringByAppendingString:"/Desktop/"
set savePath to aDesktopPath’s stringByAppendingString:((current application’s NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:".png")

set fRes to saveNSImageAtPathAsPNG(resizedImg, savePath) of me

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep
　　
　　set pathString to current application’s NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　
　　set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　
　　return aRes
end saveNSImageAtPathAsPNG

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive

カテゴリー: Image

Finder上で選択中の画像のうち、最小のものに合わせて各画像の左上を原点にサイズ統一

色付き単色画像を作成する（自由色指定＆色名推定）

Mac Blue-ray Playerで表示中の内容をKeynoteに追記

Skimで現在表示中のPDFのページをJPEG画像で書き出す

Finderで選択中の画像を右に90度回転

Finder上で選択中の画像をアンチエイリアスなしで200%にリサイズ

Finder上で選択中の画像をアンチエイリアスありで50%にリサイズ

指定の画像からEXIFの撮影日付（DateTimeOriginal）を取得 v2

指定フォルダ内のJPEGファイルのEXIFから撮影日付を取得してファイルの作成日付に反映させる v2

Previewでオープン中のファイルのパスを求める（macOS 10.12限定）

デスクトップの表示、非表示切り替え

デスクトップピクチャを白いピクチャとトグルで差し替え v2

デスクトップピクチャを黒いピクチャとトグルで差し替え v2

Finderの最前面のアイコン表示ウィンドウ上の画像をY座標の情報をキーにして縦連結

Finderの最前面のアイコン表示ウィンドウ上の画像をX座標の情報をキーにして横連結

イメージビュー＋ボタンを作成 v2

Finder上で選択中の画像を縦方向に連結 v1

配列に入れた画像を類似度でソートする

２つの画像が類似しているかを判定

NSImageをリサイズ（アンチエイリアス解除）pattern 4