Numbersで選択範囲のセルの前後の空白を削除

Posted on 10月 14, 2024 by Takaaki Naganoya

コピペで作ったNumbersの表に空白文字（ゴミ）が入っている場合のクリーニング用AppleScriptです。Numbers v14.2用に作成しましたが、バージョンが異なっても動作に変化はないでしょう。

ExcelやNumbersなどの表計算アプリでは、前のセルに入力されたフォーマットを維持する機能がついているため、前のセルが空白文字ではじまる（＝ゴミが入っている）と、次のセルにも同様にゴミが入ることになります。

そこで、クリーニング用に本Scriptを作成しました。

▲こんな風に、セルの先頭にスペースが入ってしまっている場合のクリーニング用Script。対象セルを選択して本Scriptを実行

▲本Script実行後の様子。各セルの冒頭に入っていたスペースが削除される

ただ、大量のセルを処理するような配慮は一切行っていないので、広範囲のセルを処理する場合には、もっと真剣に高速化を行う必要があることでしょう。

macOS標準装備のスクリプトメニューに入れて呼び出すことを想定しています。

AppleScript名：選択範囲のセルの前後の空白を削除して書き戻す

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/14
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSString : a reference to current application’s NSString
property NSCharacterSet : a reference to current application’s NSCharacterSet

set curTable to getCurTable() of me
if curTable = "" then return

tell application "Numbers"
　　tell curTable
　　　　set cList to every cell of selection range
　　　　repeat with i in cList
　　　　　　set j to contents of i
　　　　　　set tmpVal to value of j
　　　　　　if tmpVal is not equal to missing value then
　　　　　　　　set tmpVal to trimWhiteSpaceFromHeadAndTail(tmpVal) of me
　　　　　　　　ignoring application responses
　　　　　　　　　　set value of j to tmpVal
　　　　　　　　end ignoring
　　　　　　end if
　　　　end repeat
　　end tell
end tell

on getCurTable()
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　try
　　　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　　　on error
　　　　　　　　　　return "" –何も選択されてなかった場合
　　　　　　　　end try
　　　　　　　　
　　　　　　　　return theTable
　　　　　　end tell
　　　　end tell
　　end tell
end getCurTable

on trimWhiteSpaceFromHeadAndTail(aStr as string)
　　set aString to NSString’s stringWithString:aStr
　　set bString to aString’s stringByTrimmingCharactersInSet:(NSCharacterSet’s whitespaceAndNewlineCharacterSet)
　　return bString as anything –as anything
end trimWhiteSpaceFromHeadAndTail

★Click Here to Open This Script　

EnhancedやPremiumなどの高音質TTS音声を取得

Posted on 10月 13, 2024 by Takaaki Naganoya

macOS上のTTS Voiceから高音質のものだけを抽出するAppleScriptです。

macOS上のTTS環境が変化しており、「VoiceIdentifierが『premium』で終了しているもの」といったルールでは抽出できなくなりました。

そこで、実際にTTS Voiceを調査してmacOS 15時代の実態に合っている抽出を行なってみました（コロコロ変わるので次のOSで変わっているかも？）。

IDに「premium」が含まれるもののほか、「enhanced」が含まれているものが高音質音声であるもようです。

なお、実行結果はTTS Voiceのインストール状況に応じて変わる可能性が高く、実行環境ごとに異なるものとなるはずです。

AppleScript名：EnhancedやPremiumなどの高音質音声を取得.scptd

— Created 2018-02-15 by Takaaki Naganoya
— Modified 2024-10-13 by Takaaki Naganoya
— 2018-2024 Piyomaru Software
use AppleScript version "2.8"
use scripting additions
use framework "Foundation"

property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

set vList to getTTSPremiumVoiceName() of me
–> {"Allison（拡張）", "Ava（拡張）", "Chantal（拡張）", "Daniel（拡張）", "Evan（拡張）", "Joelle（拡張）", "Kate（拡張）", "Kyoko（拡張）", "Moira（拡張）", "Nathan（拡張）", "Noelle（拡張）", "Otoya（拡張）", "Samantha（拡張）", "Susan（拡張）", "Tom（拡張）", "Zoe（拡張）", "Amélie（プレミアム）", "Ava（プレミアム）", "Jamie（プレミアム）", "Zoe（プレミアム）"}

set vIDList to getTTSPremiumVoiceID() of me
–> {"com.apple.voice.enhanced.en-US.Allison", "com.apple.voice.enhanced.en-US.Ava", "com.apple.voice.enhanced.fr-CA.Chantal", "com.apple.voice.enhanced.en-GB.Daniel", "com.apple.voice.enhanced.en-US.Evan", "com.apple.voice.enhanced.en-US.Joelle", "com.apple.voice.enhanced.en-GB.Kate", "com.apple.voice.enhanced.ja-JP.Kyoko", "com.apple.voice.enhanced.en-IE.Moira", "com.apple.voice.enhanced.en-US.Nathan", "com.apple.voice.enhanced.en-US.Noelle", "com.apple.voice.enhanced.ja-JP.Otoya", "com.apple.voice.enhanced.en-US.Samantha", "com.apple.voice.enhanced.en-US.Susan", "com.apple.voice.enhanced.en-US.Tom", "com.apple.voice.enhanced.en-US.Zoe", "com.apple.voice.premium.fr-CA.Amelie", "com.apple.voice.premium.en-US.Ava", "com.apple.voice.premium.en-GB.Malcolm", "com.apple.voice.premium.en-US.Zoe"}

on getTTSPremiumVoiceName()
　　set outArray to current application’s NSMutableArray’s new()
　　
　　–Make Installed Voice List
　　set aList to current application’s NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aDIc to (current application’s NSSpeechSynthesizer’s attributesForVoice:j)
　　　　(outArray’s addObject:aDIc)
　　end repeat
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "enhanced")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:aPredicate
　　set aResList to (afilteredArray’s valueForKey:"VoiceName") as list
　　
　　set bPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "premium")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:bPredicate
　　set bResList to (afilteredArray’s valueForKey:"VoiceName") as list
　　
　　
　　return (aResList & bResList)
end getTTSPremiumVoiceName

on getTTSPremiumVoiceID()
　　set outArray to current application’s NSMutableArray’s new()
　　
　　–Make Installed Voice List
　　set aList to current application’s NSSpeechSynthesizer’s availableVoices()
　　set bList to aList as list
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　set aDIc to (current application’s NSSpeechSynthesizer’s attributesForVoice:j)
　　　　(outArray’s addObject:aDIc)
　　end repeat
　　
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "enhanced")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:aPredicate
　　set aResList to (afilteredArray’s valueForKey:"VoiceIdentifier") as list
　　
　　set bPredicate to current application’s NSPredicate’s predicateWithFormat_("VoiceIdentifier contains[cd] %@ ", "premium")
　　set afilteredArray to outArray’s filteredArrayUsingPredicate:bPredicate
　　set bResList to (afilteredArray’s valueForKey:"VoiceIdentifier") as list
　　
　　
　　return (aResList & bResList)
end getTTSPremiumVoiceID

★Click Here to Open This Script　

AVSpeechSynthesizerで読み上げテスト

Posted on 10月 13, 2024 by Takaaki Naganoya

AppleScriptのビルトインコマンド「say」が日本語環境で一部のTTSボイスを正しく指定できなくなっている今日このごろ。

macOSのTTS環境がアップデートされ続けている中で、これに「say」コマンドが追いつけるのかどうか、非常に怪しい雰囲気になってきました。

そこで、AVSpeechSynthesizerを呼び出してsayコマンドを使わずにテキスト音声読み上げする方法を調べてみました。そんなに難しくはありません。

注意点は、TTS Voiceキャラクタのうち、com.apple.voiceのMac OS X系TSSキャラクタは使える。com.apple.speechのClassic MacOS系のTTSキャラクタも使える。com.apple.eloquenceのEloquence系TTSキャラクタも使える。Siri系のTTSのみ使えないということです。

これで、読み上げ内容のファイルへの保存さえできれば、sayコマンドはAppleScript自体でコマンドをのっとって、sayコマンド側ではなくAppleScript側で処理を肩代わりすることが可能になるでしょう。

AppleScript名：AVSpeechSynthesizerで読み上げテスト（言語とテキストを指定）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/12
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AVFoundation"
use scripting additions

set aSynth to current application’s AVSpeechSynthesizer’s alloc()’s init()

set aText to "昔、昔、ある所に、おじいさんとおばあさんが住んでいました。"
set aUttr to current application’s AVSpeechUtterance’s speechUtteranceWithString:(aText)

set aVoice to current application’s AVSpeechSynthesisVoice’s voiceWithLanguage:"ja-JP" –日本語のデフォルトボイスで読み上げ
aUttr’s setVoice:aVoice
aUttr’s setRate:0.6

aSynth’s speakUtterance:aUttr

★Click Here to Open This Script　

AppleScript名：AVSpeechSynthesizerで読み上げテスト（Voice IDとテキストを指定）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/12
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AVFoundation"
use scripting additions

set aSynth to current application’s AVSpeechSynthesizer’s alloc()’s init()

set aText to "むかーし、むかし、ある所に、おじいさんとおばあさんが住んでいました。"
set aUttr to current application’s AVSpeechUtterance’s speechUtteranceWithString:(aText)

set aVoice to current application’s AVSpeechSynthesisVoice’s voiceWithIdentifier:"com.apple.voice.enhanced.ja-JP.Kyoko" –voice系、eloquence系はOK。Siri系は指定できない（はず）
aUttr’s setVoice:aVoice
aUttr’s setRate:0.6 –0.0から1.0まで。1.0が高速

aSynth’s speakUtterance:aUttr

★Click Here to Open This Script　

macOS 15でDictionary.appに追加された11の辞書

Posted on 10月 11, 2024 by Takaaki Naganoya

辞書（Dictionary）.appはmacOS上の非常に有用性の高いアプリです。さまざまな国・言語の辞書をメジャーアップデートのたびに追加しています。これは、iPhoneのインストールベース数の多さを背景に、macOS側にも共有している好例でしょう。

▲macOS 13上の辞書（Dictionary）.appの辞書一覧

▲macOS 15上の辞書（Dictionary）.appの辞書一覧

macOS 15では辞書数は78にのぼり、（macOS 14にくらべて）11の辞書が追加され、これまで「Apple用語辞典」と呼ばれていたものが「Apple Dictionary」と変更されました。

AppleScriptからも、オープンソースのDictionaryKitを呼び出すことで、この辞書.appの辞書を串刺し検索できるため、ものすごく有用性の高いものです。

■追加された辞書名一覧

Оксфорд Қазақ Cөздігі オックスフォード・カザフのリスク
Praktický Anglicko-Chorvatský Slovník 実用的な英語 – クロアチア語辞書
Praktisk Engelsk-Dansk Ordbog 実用的な英語式辞書
牛津粵英雙語詞典オックスフォード広東語のバイリンガル辞書
Oxford Malayalam Dictionaries – മലയാളം-ഇംഗ്ലീഷ് • ഇംഗ്ലീഷ്-മലയാളം オックスフォードマラヤーラム語辞書 – 英語 – 英語 – 英語
Oxford Kannada Dictionaries – ಇಂಗ್ಲಿಷ್-ಕನ್ನಡ • ಕನ್ನಡ-ಇಂಗ್ಲಿಷ್ オックスフォードカンナダ辞書-English-Kannada•Kannada-English
Veľký Anglicko-Slovenský Slovník 偉大な英語スロバック辞書
Українсько-Aнглійський Cловник ウクライナ・アンジェリ
Oxford Urdu Dictionaries – اردو۔انگریزی • انگریزی-اردو オックスフォードウルドゥー語辞書-Urdu -English•English -urdu
Hrvatski Enciklopedijski Rječnik クロアチア百科事典辞書
Engelsk Ordbok 英語辞書（ノルウェー語）

NSSpeechSynthesizerとAVSpeechSynthesisVoiceで返ってくるTTS Voice IDの違いを計算する

Posted on 10月 11, 2024 by Takaaki Naganoya

macOS 15上でNSSpeechSynthesizerとAVSpeechSynthesisVoiceで返ってくるTTS Voice IDの数が違う、

NSSpeechSynthesizer ：205
AVSpeechSynthesisVoice：222

ことが気になりました。NSSpeechSynthesizerについては、あまり真面目にメンテナンスされていないからAVSpeechSynthesisVoiceを使えといった声も聞こえてきますが、具体的にどのあたりに「差」があるのかが気になります。

そこで、実際にAppleScriptで差分を計算して確認してみました。

–>{addItems:{“com.apple.ttsbundle.siri_Nicky_en-US_premium”, “com.apple.ttsbundle.siri_Hattori_ja-JP_premium”, “com.apple.ttsbundle.siri_Helena_de-DE_compact”, “com.apple.ttsbundle.siri_Yu-Shu_zh-CN_compact”, “com.apple.ttsbundle.siri_Gordon_en-AU_compact”, “com.apple.ttsbundle.siri_Martha_en-GB_compact”, “com.apple.ttsbundle.siri_O-Ren_ja-JP_premium”, “com.apple.ttsbundle.siri_Hattori_ja-JP_compact”, “com.apple.ttsbundle.siri_Nicky_en-US_compact”, “com.apple.ttsbundle.siri_Martin_de-DE_compact”, “com.apple.ttsbundle.siri_Li-Mu_zh-CN_compact”, “com.apple.ttsbundle.siri_Dan_fr-FR_compact”, “com.apple.ttsbundle.siri_Aaron_en-US_compact”, “com.apple.ttsbundle.siri_Catherine_en-AU_compact”, “com.apple.ttsbundle.siri_Marie_fr-FR_compact”, “com.apple.ttsbundle.siri_O-Ren_ja-JP_compact”, “com.apple.ttsbundle.siri_Arthur_en-GB_compact”}, minusItems:{}}

17個のTTS Voice IDが追加されたことを確認できました。AVSpeechSynthesisVoice側で検出されていないTTS Voiceはないことも確認。

TTS Voice IDの個人的な理解は上記の表のとおりです。NSSpeechSynthesizerで検出できなかったのは、「com.apple.ttsbundle」ではじまるSiri系の（おそらく他のメーカーからのOEM）Voice Character 17個です。

AppleScript名：NSSpeechSynthesizerとAVSpeechSynthesisVoiceで返ってくるTTS Voice IDの違いを計算する

— Created 2024-10-11 by Takaaki Naganoya
— 2019-2024 Piyomaru Software
use AppleScript version "2.8"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "AVFoundation"

set aList to current application’s NSSpeechSynthesizer’s availableVoices() as list
set bList to (current application’s AVSpeechSynthesisVoice’s speechVoices()’s valueForKey:"identifier") as list
set a1Res to checkAllItemsAreSame(aList, bList) of me
–>{addItems:{"com.apple.ttsbundle.siri_Nicky_en-US_premium", "com.apple.ttsbundle.siri_Hattori_ja-JP_premium", "com.apple.ttsbundle.siri_Helena_de-DE_compact", "com.apple.ttsbundle.siri_Yu-Shu_zh-CN_compact", "com.apple.ttsbundle.siri_Gordon_en-AU_compact", "com.apple.ttsbundle.siri_Martha_en-GB_compact", "com.apple.ttsbundle.siri_O-Ren_ja-JP_premium", "com.apple.ttsbundle.siri_Hattori_ja-JP_compact", "com.apple.ttsbundle.siri_Nicky_en-US_compact", "com.apple.ttsbundle.siri_Martin_de-DE_compact", "com.apple.ttsbundle.siri_Li-Mu_zh-CN_compact", "com.apple.ttsbundle.siri_Dan_fr-FR_compact", "com.apple.ttsbundle.siri_Aaron_en-US_compact", "com.apple.ttsbundle.siri_Catherine_en-AU_compact", "com.apple.ttsbundle.siri_Marie_fr-FR_compact", "com.apple.ttsbundle.siri_O-Ren_ja-JP_compact", "com.apple.ttsbundle.siri_Arthur_en-GB_compact"}, minusItems:{}}

–1D List同士の全要素が（登場順序が変更になっていても）同じかどうかをチェック
on checkAllItemsAreSame(aList, bList)
　　set dRes to getDiffBetweenLists(aList, bList) of me
　　set ddRes to (dRes is equal to {addItems:{}, minusItems:{}}) as boolean
　　if ddRes = true then
　　　　return true
　　else
　　　　return dRes
　　end if
end checkAllItemsAreSame

–1D List同士のdiffを検出
on getDiffBetweenLists(aArray as list, bArray as list)
　　set allSet to current application’s NSMutableSet’s setWithArray:aArray
　　allSet’s addObjectsFromArray:bArray
　　
　　–重複する要素のみ抜き出す
　　set duplicateSet to current application’s NSMutableSet’s setWithArray:aArray
　　duplicateSet’s intersectSet:(current application’s NSSet’s setWithArray:bArray)
　　
　　–重複部分を削除する
　　allSet’s minusSet:duplicateSet
　　set resArray to (allSet’s allObjects()) as list
　　
　　set aSet to current application’s NSMutableSet’s setWithArray:aArray
　　set bSet to current application’s NSMutableSet’s setWithArray:resArray
　　aSet’s intersectSet:bSet –積集合
　　set addRes to aSet’s allObjects() as list
　　
　　set cSet to current application’s NSMutableSet’s setWithArray:bArray
　　cSet’s intersectSet:bSet –積集合
　　set minusRes to cSet’s allObjects() as list
　　
　　return {addItems:minusRes, minusItems:addRes}
end getDiffBetweenLists

★Click Here to Open This Script　

macOS 15でも変化したText to Speech環境

Posted on 10月 9, 2024 by Takaaki Naganoya

macOS 15では、大幅にText To Speech環境が変わりました。従来のTTS音声キャラクタにくわえて、Speechify社の「Eloquence Text to Speech」のOEM供給を受けた（？）TTS音声が多数追加されているようです。

＃　Eloquenceという名前のTTSが、オープンソース系とか複数存在しているのでOEMというわけでもなさそう？

#　よく見たら、macOS 13でもEloquenceのTTS Voiceが存在していることを確認。気づいただけだったのか。

EloquenceによるTTS音声は、何かの言語専用というわけでなく複数言語に対応しているようです（1つで複数言語対応というわけではなく、複数言語バージョンが提供されている模様）。com.apple.eloquenceではじまるIDのTTSキャラクタがOEM供給を受けているものだと見ています。

#　オープンソース系の（for Android）Eloquenceだとサポートする言語が少なかったりして（日本語はなかった）、このいろんな言語をサポートしているEloquence TTSはいったい何なんだろうかと、、、、

これらをAppleScriptのsayコマンドで指定することはできませんが、システム設定で読み上げキャラクタに指定しておけば、デフォルト音声を用いての読み上げで利用できそうです（Siri系のTTSキャラクタはこうして利用できていました）。

TTSキャラクタについては、macOSのメジャーアップデートごとに増加しており、macOS 15では209に達しています（macOS 11では50、macOS 13では174）。

AppleScript名：現在利用可能なTTSボイスIDの一覧（macOS 15）..scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/06/09
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aSynth to current application’s NSSpeechSynthesizer’s availableVoices() as list
–> macOS 15 (209)
— {"com.apple.speech.synthesis.voice.Agnes", "com.apple.speech.synthesis.voice.Albert", "com.apple.speech.synthesis.voice.Alex", "com.apple.voice.compact.it-IT.Alice", "com.apple.voice.compact.en-US.Allison", "com.apple.voice.enhanced.en-US.Allison", "com.apple.voice.compact.sv-SE.Alva", "com.apple.voice.compact.fr-CA.Amelie", "com.apple.voice.premium.fr-CA.Amelie", "com.apple.voice.compact.ms-MY.Amira", "com.apple.voice.compact.de-DE.Anna", "com.apple.voice.compact.en-US.Ava", "com.apple.voice.enhanced.en-US.Ava", "com.apple.voice.premium.en-US.Ava", "com.apple.speech.synthesis.voice.BadNews", "com.apple.speech.synthesis.voice.Bahh", "com.apple.speech.synthesis.voice.Bells", "com.apple.speech.synthesis.voice.Boing", "com.apple.speech.synthesis.voice.Bruce", "com.apple.speech.synthesis.voice.Bubbles", "com.apple.voice.compact.he-IL.Carmit", "com.apple.speech.synthesis.voice.Cellos", "com.apple.voice.enhanced.fr-CA.Chantal", "com.apple.voice.compact.id-ID.Damayanti", "com.apple.voice.compact.en-GB.Daniel", "com.apple.voice.enhanced.en-GB.Daniel", "com.apple.voice.compact.bg-BG.Daria", "com.apple.speech.synthesis.voice.Deranged", "com.apple.eloquence.de-DE.Eddy", "com.apple.eloquence.en-GB.Eddy", "com.apple.eloquence.en-US.Eddy", "com.apple.eloquence.es-ES.Eddy", "com.apple.eloquence.es-MX.Eddy", "com.apple.eloquence.fi-FI.Eddy", "com.apple.eloquence.fr-CA.Eddy", "com.apple.eloquence.fr-FR.Eddy", "com.apple.eloquence.it-IT.Eddy", "com.apple.eloquence.ja-JP.Eddy", "com.apple.eloquence.ko-KR.Eddy", "com.apple.eloquence.pt-BR.Eddy", "com.apple.eloquence.zh-CN.Eddy", "com.apple.eloquence.zh-TW.Eddy", "com.apple.voice.compact.nl-BE.Ellen", "com.apple.voice.compact.en-US.Evan", "com.apple.voice.enhanced.en-US.Evan", "com.apple.eloquence.de-DE.Flo", "com.apple.eloquence.en-GB.Flo", "com.apple.eloquence.en-US.Flo", "com.apple.eloquence.es-ES.Flo", "com.apple.eloquence.es-MX.Flo", "com.apple.eloquence.fi-FI.Flo", "com.apple.eloquence.fr-CA.Flo", "com.apple.eloquence.fr-FR.Flo", "com.apple.eloquence.it-IT.Flo", "com.apple.eloquence.ja-JP.Flo", "com.apple.eloquence.ko-KR.Flo", "com.apple.eloquence.pt-BR.Flo", "com.apple.eloquence.zh-CN.Flo", "com.apple.eloquence.zh-TW.Flo", "com.apple.speech.synthesis.voice.Fred", "com.apple.speech.synthesis.voice.GoodNews", "com.apple.eloquence.de-DE.Grandma", "com.apple.eloquence.en-GB.Grandma", "com.apple.eloquence.en-US.Grandma", "com.apple.eloquence.es-ES.Grandma", "com.apple.eloquence.es-MX.Grandma", "com.apple.eloquence.fi-FI.Grandma", "com.apple.eloquence.fr-CA.Grandma", "com.apple.eloquence.fr-FR.Grandma", "com.apple.eloquence.it-IT.Grandma", "com.apple.eloquence.ja-JP.Grandma", "com.apple.eloquence.ko-KR.Grandma", "com.apple.eloquence.pt-BR.Grandma", "com.apple.eloquence.zh-CN.Grandma", "com.apple.eloquence.zh-TW.Grandma", "com.apple.eloquence.de-DE.Grandpa", "com.apple.eloquence.en-GB.Grandpa", "com.apple.eloquence.en-US.Grandpa", "com.apple.eloquence.es-ES.Grandpa", "com.apple.eloquence.es-MX.Grandpa", "com.apple.eloquence.fi-FI.Grandpa", "com.apple.eloquence.fr-CA.Grandpa", "com.apple.eloquence.fr-FR.Grandpa", "com.apple.eloquence.it-IT.Grandpa", "com.apple.eloquence.ja-JP.Grandpa", "com.apple.eloquence.ko-KR.Grandpa", "com.apple.eloquence.pt-BR.Grandpa", "com.apple.eloquence.zh-CN.Grandpa", "com.apple.eloquence.zh-TW.Grandpa", "com.apple.speech.synthesis.voice.Hysterical", "com.apple.voice.compact.ro-RO.Ioana", "com.apple.eloquence.fr-FR.Jacques", "com.apple.voice.compact.pt-PT.Joana", "com.apple.voice.enhanced.en-US.Joelle", "com.apple.speech.synthesis.voice.Junior", "com.apple.voice.compact.th-TH.Kanya", "com.apple.voice.compact.en-AU.Karen", "com.apple.voice.enhanced.en-GB.Kate", "com.apple.speech.synthesis.voice.Kathy", "com.apple.voice.compact.ja-JP.Kyoko", "com.apple.voice.enhanced.ja-JP.Kyoko", "com.apple.voice.compact.hr-HR.Lana", "com.apple.voice.compact.sk-SK.Laura", "com.apple.voice.compact.hi-IN.Lekha", "com.apple.voice.compact.uk-UA.Lesya", "com.apple.voice.compact.vi-VN.Linh", "com.apple.voice.compact.pt-BR.Luciana", "com.apple.voice.compact.ar-001.Maged", "com.apple.voice.premium.en-GB.Malcolm", "com.apple.voice.compact.hu-HU.Mariska", "com.apple.voice.compact.zh-TW.Meijia", "com.apple.voice.compact.el-GR.Melina", "com.apple.voice.compact.ru-RU.Milena", "com.apple.voice.compact.en-IE.Moira", "com.apple.voice.enhanced.en-IE.Moira", "com.apple.voice.compact.es-ES.Monica", "com.apple.voice.compact.ca-ES.Montserrat", "com.apple.voice.enhanced.en-US.Nathan", "com.apple.voice.enhanced.en-US.Noelle", "com.apple.voice.compact.nb-NO.Nora", "com.apple.speech.synthesis.voice.Organ", "com.apple.voice.compact.ja-JP.Otoya", "com.apple.voice.enhanced.ja-JP.Otoya", "com.apple.voice.compact.es-MX.Paulina", "com.apple.speech.synthesis.voice.Princess", "com.apple.speech.synthesis.voice.Ralph", "com.apple.eloquence.de-DE.Reed", "com.apple.eloquence.en-GB.Reed", "com.apple.eloquence.en-US.Reed", "com.apple.eloquence.es-ES.Reed", "com.apple.eloquence.es-MX.Reed", "com.apple.eloquence.fi-FI.Reed", "com.apple.eloquence.fr-CA.Reed", "com.apple.eloquence.it-IT.Reed", "com.apple.eloquence.ja-JP.Reed", "com.apple.eloquence.ko-KR.Reed", "com.apple.eloquence.pt-BR.Reed", "com.apple.eloquence.zh-CN.Reed", "com.apple.eloquence.zh-TW.Reed", "com.apple.voice.compact.en-IN.Rishi", "com.apple.eloquence.de-DE.Rocko", "com.apple.eloquence.en-GB.Rocko", "com.apple.eloquence.en-US.Rocko", "com.apple.eloquence.es-ES.Rocko", "com.apple.eloquence.es-MX.Rocko", "com.apple.eloquence.fi-FI.Rocko", "com.apple.eloquence.fr-CA.Rocko", "com.apple.eloquence.fr-FR.Rocko", "com.apple.eloquence.it-IT.Rocko", "com.apple.eloquence.ja-JP.Rocko", "com.apple.eloquence.ko-KR.Rocko", "com.apple.eloquence.pt-BR.Rocko", "com.apple.eloquence.zh-CN.Rocko", "com.apple.eloquence.zh-TW.Rocko", "com.apple.voice.compact.en-US.Samantha", "com.apple.voice.enhanced.en-US.Samantha", "com.apple.eloquence.de-DE.Sandy", "com.apple.eloquence.en-GB.Sandy", "com.apple.eloquence.en-US.Sandy", "com.apple.eloquence.es-ES.Sandy", "com.apple.eloquence.es-MX.Sandy", "com.apple.eloquence.fi-FI.Sandy", "com.apple.eloquence.fr-CA.Sandy", "com.apple.eloquence.fr-FR.Sandy", "com.apple.eloquence.it-IT.Sandy", "com.apple.eloquence.ja-JP.Sandy", "com.apple.eloquence.ko-KR.Sandy", "com.apple.eloquence.pt-BR.Sandy", "com.apple.eloquence.zh-CN.Sandy", "com.apple.eloquence.zh-TW.Sandy", "com.apple.voice.compact.da-DK.Sara", "com.apple.voice.compact.fi-FI.Satu", "com.apple.eloquence.de-DE.Shelley", "com.apple.eloquence.en-GB.Shelley", "com.apple.eloquence.en-US.Shelley", "com.apple.eloquence.es-ES.Shelley", "com.apple.eloquence.es-MX.Shelley", "com.apple.eloquence.fi-FI.Shelley", "com.apple.eloquence.fr-CA.Shelley", "com.apple.eloquence.fr-FR.Shelley", "com.apple.eloquence.it-IT.Shelley", "com.apple.eloquence.ja-JP.Shelley", "com.apple.eloquence.ko-KR.Shelley", "com.apple.eloquence.pt-BR.Shelley", "com.apple.eloquence.zh-CN.Shelley", "com.apple.eloquence.zh-TW.Shelley", "com.apple.voice.compact.zh-HK.Sinji", "com.apple.voice.compact.en-US.Susan", "com.apple.voice.enhanced.en-US.Susan", "com.apple.voice.compact.en-ZA.Tessa", "com.apple.voice.compact.fr-FR.Thomas", "com.apple.voice.compact.sl-SI.Tina", "com.apple.voice.compact.zh-CN.Tingting", "com.apple.voice.compact.en-US.Tom", "com.apple.voice.enhanced.en-US.Tom", "com.apple.speech.synthesis.voice.Trinoids", "com.apple.speech.synthesis.voice.Whisper", "com.apple.voice.compact.nl-NL.Xander", "com.apple.voice.compact.tr-TR.Yelda", "com.apple.voice.compact.ko-KR.Yuna", "com.apple.speech.synthesis.voice.Zarvox", "com.apple.voice.enhanced.en-US.Zoe", "com.apple.voice.premium.en-US.Zoe", "com.apple.voice.compact.pl-PL.Zosia", "com.apple.voice.compact.cs-CZ.Zuzana"}

★Click Here to Open This Script　

AppleScript名：AVSpeechSynthesisVoiceのIDを取得_macOS15.0.scpt

— Created 2018-02-15 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.8"
use scripting additions
use framework "Foundation"
use framework "AVFoundation"

set aList to (current application’s AVSpeechSynthesisVoice’s speechVoices()’s valueForKey:"identifier") as list
–macOS 13 (190)
–> {"com.apple.voice.compact.ar-001.Maged", "com.apple.voice.compact.bg-BG.Daria", "com.apple.voice.compact.ca-ES.Montserrat", "com.apple.voice.compact.cs-CZ.Zuzana", "com.apple.voice.compact.da-DK.Sara", "com.apple.eloquence.de-DE.Sandy", "com.apple.eloquence.de-DE.Shelley", "com.apple.ttsbundle.siri_Helena_de-DE_compact", "com.apple.eloquence.de-DE.Grandma", "com.apple.eloquence.de-DE.Grandpa", "com.apple.eloquence.de-DE.Eddy", "com.apple.eloquence.de-DE.Reed", "com.apple.voice.compact.de-DE.Anna", "com.apple.ttsbundle.siri_Martin_de-DE_compact", "com.apple.eloquence.de-DE.Rocko", "com.apple.eloquence.de-DE.Flo", "com.apple.voice.compact.el-GR.Melina", "com.apple.ttsbundle.siri_Gordon_en-AU_compact", "com.apple.voice.compact.en-AU.Karen", "com.apple.ttsbundle.siri_Catherine_en-AU_compact", "com.apple.voice.premium.en-GB.Malcolm", "com.apple.voice.enhanced.en-GB.Daniel", "com.apple.ttsbundle.Oliver-premium", "com.apple.voice.enhanced.en-GB.Kate", "com.apple.eloquence.en-GB.Rocko", "com.apple.eloquence.en-GB.Shelley", "com.apple.ttsbundle.Oliver-compact", "com.apple.voice.compact.en-GB.Daniel", "com.apple.ttsbundle.siri_Martha_en-GB_compact", "com.apple.eloquence.en-GB.Grandma", "com.apple.eloquence.en-GB.Grandpa", "com.apple.eloquence.en-GB.Flo", "com.apple.eloquence.en-GB.Eddy", "com.apple.eloquence.en-GB.Reed", "com.apple.eloquence.en-GB.Sandy", "com.apple.ttsbundle.siri_Arthur_en-GB_compact", "com.apple.voice.enhanced.en-IE.Moira", "com.apple.voice.compact.en-IE.Moira", "com.apple.voice.compact.en-IN.Rishi", "com.apple.voice.premium.en-US.Zoe", "com.apple.voice.premium.en-US.Ava", "com.apple.voice.enhanced.en-US.Samantha", "com.apple.voice.enhanced.en-US.Evan", "com.apple.voice.enhanced.en-US.Zoe", "com.apple.voice.enhanced.en-US.Joelle", "com.apple.voice.enhanced.en-US.Susan", "com.apple.voice.enhanced.en-US.Nathan", "com.apple.voice.enhanced.en-US.Tom", "com.apple.voice.enhanced.en-US.Noelle", "com.apple.eloquence.en-US.Flo", "com.apple.speech.synthesis.voice.Albert", "com.apple.speech.synthesis.voice.Bahh", "com.apple.speech.synthesis.voice.Fred", "com.apple.speech.synthesis.voice.Hysterical", "com.apple.voice.compact.en-US.Allison", "com.apple.speech.synthesis.voice.Organ", "com.apple.speech.synthesis.voice.Cellos", "com.apple.voice.compact.en-US.Evan", "com.apple.speech.synthesis.voice.Zarvox", "com.apple.eloquence.en-US.Rocko", "com.apple.eloquence.en-US.Shelley", "com.apple.speech.synthesis.voice.Princess", "com.apple.eloquence.en-US.Grandma", "com.apple.eloquence.en-US.Eddy", "com.apple.speech.synthesis.voice.Bells", "com.apple.eloquence.en-US.Grandpa", "com.apple.speech.synthesis.voice.Trinoids", "com.apple.speech.synthesis.voice.Kathy", "com.apple.eloquence.en-US.Reed", "com.apple.speech.synthesis.voice.Boing", "com.apple.speech.synthesis.voice.GoodNews", "com.apple.speech.synthesis.voice.Whisper", "com.apple.speech.synthesis.voice.Bruce", "com.apple.speech.synthesis.voice.Deranged", "com.apple.ttsbundle.siri_Nicky_en-US_compact", "com.apple.speech.synthesis.voice.BadNews", "com.apple.ttsbundle.siri_Aaron_en-US_compact", "com.apple.speech.synthesis.voice.Bubbles", "com.apple.voice.compact.en-US.Susan", "com.apple.voice.compact.en-US.Tom", "com.apple.speech.synthesis.voice.Agnes", "com.apple.voice.compact.en-US.Samantha", "com.apple.eloquence.en-US.Sandy", "com.apple.speech.synthesis.voice.Junior", "com.apple.voice.compact.en-US.Ava", "com.apple.speech.synthesis.voice.Ralph", "com.apple.voice.compact.en-ZA.Tessa", "com.apple.eloquence.es-ES.Shelley", "com.apple.eloquence.es-ES.Grandma", "com.apple.eloquence.es-ES.Rocko", "com.apple.eloquence.es-ES.Grandpa", "com.apple.eloquence.es-ES.Flo", "com.apple.eloquence.es-ES.Sandy", "com.apple.voice.compact.es-ES.Monica", "com.apple.eloquence.es-ES.Eddy", "com.apple.eloquence.es-ES.Reed", "com.apple.eloquence.es-MX.Rocko", "com.apple.voice.compact.es-MX.Paulina", "com.apple.eloquence.es-MX.Flo", "com.apple.eloquence.es-MX.Sandy", "com.apple.eloquence.es-MX.Eddy", "com.apple.eloquence.es-MX.Shelley", "com.apple.eloquence.es-MX.Reed", "com.apple.eloquence.es-MX.Grandma", "com.apple.eloquence.es-MX.Grandpa", "com.apple.eloquence.fi-FI.Shelley", "com.apple.eloquence.fi-FI.Grandma", "com.apple.eloquence.fi-FI.Grandpa", "com.apple.eloquence.fi-FI.Sandy", "com.apple.voice.compact.fi-FI.Satu", "com.apple.eloquence.fi-FI.Eddy", "com.apple.eloquence.fi-FI.Rocko", "com.apple.eloquence.fi-FI.Reed", "com.apple.eloquence.fi-FI.Flo", "com.apple.voice.premium.fr-CA.Amelie", "com.apple.voice.enhanced.fr-CA.Chantal", "com.apple.eloquence.fr-CA.Shelley", "com.apple.eloquence.fr-CA.Grandma", "com.apple.eloquence.fr-CA.Grandpa", "com.apple.eloquence.fr-CA.Rocko", "com.apple.eloquence.fr-CA.Eddy", "com.apple.eloquence.fr-CA.Reed", "com.apple.voice.compact.fr-CA.Amelie", "com.apple.eloquence.fr-CA.Flo", "com.apple.eloquence.fr-CA.Sandy", "com.apple.eloquence.fr-FR.Grandma", "com.apple.eloquence.fr-FR.Flo", "com.apple.eloquence.fr-FR.Rocko", "com.apple.eloquence.fr-FR.Grandpa", "com.apple.eloquence.fr-FR.Sandy", "com.apple.eloquence.fr-FR.Eddy", "com.apple.voice.compact.fr-FR.Thomas", "com.apple.ttsbundle.siri_Dan_fr-FR_compact", "com.apple.eloquence.fr-FR.Jacques", "com.apple.ttsbundle.siri_Marie_fr-FR_compact", "com.apple.eloquence.fr-FR.Shelley", "com.apple.voice.compact.he-IL.Carmit", "com.apple.voice.compact.hi-IN.Lekha", "com.apple.voice.compact.hr-HR.Lana", "com.apple.voice.compact.hu-HU.Mariska", "com.apple.voice.compact.id-ID.Damayanti", "com.apple.eloquence.it-IT.Eddy", "com.apple.eloquence.it-IT.Sandy", "com.apple.eloquence.it-IT.Reed", "com.apple.eloquence.it-IT.Shelley", "com.apple.eloquence.it-IT.Grandma", "com.apple.eloquence.it-IT.Grandpa", "com.apple.eloquence.it-IT.Flo", "com.apple.eloquence.it-IT.Rocko", "com.apple.voice.compact.it-IT.Alice", "com.apple.ttsbundle.siri_Hattori_ja-JP_premium", "com.apple.ttsbundle.siri_O-Ren_ja-JP_premium", "com.apple.voice.enhanced.ja-JP.Kyoko", "com.apple.voice.enhanced.ja-JP.Otoya", "com.apple.voice.compact.ja-JP.Kyoko", "com.apple.ttsbundle.siri_Hattori_ja-JP_compact", "com.apple.voice.compact.ja-JP.Otoya", "com.apple.ttsbundle.siri_O-Ren_ja-JP_compact", "com.apple.voice.compact.ko-KR.Yuna", "com.apple.voice.compact.ms-MY.Amira", "com.apple.voice.compact.nb-NO.Nora", "com.apple.voice.compact.nl-BE.Ellen", "com.apple.voice.compact.nl-NL.Xander", "com.apple.voice.compact.pl-PL.Zosia", "com.apple.eloquence.pt-BR.Reed", "com.apple.voice.compact.pt-BR.Luciana", "com.apple.eloquence.pt-BR.Shelley", "com.apple.eloquence.pt-BR.Grandma", "com.apple.eloquence.pt-BR.Grandpa", "com.apple.eloquence.pt-BR.Rocko", "com.apple.eloquence.pt-BR.Flo", "com.apple.eloquence.pt-BR.Sandy", "com.apple.eloquence.pt-BR.Eddy", "com.apple.voice.compact.pt-PT.Joana", "com.apple.voice.compact.ro-RO.Ioana", "com.apple.voice.compact.ru-RU.Milena", "com.apple.voice.compact.sk-SK.Laura", "com.apple.voice.compact.sv-SE.Alva", "com.apple.voice.compact.th-TH.Kanya", "com.apple.voice.compact.tr-TR.Yelda", "com.apple.voice.compact.uk-UA.Lesya", "com.apple.voice.compact.vi-VN.Linh", "com.apple.ttsbundle.siri_Yu-Shu_zh-CN_compact", "com.apple.ttsbundle.siri_Li-Mu_zh-CN_compact", "com.apple.voice.compact.zh-CN.Tingting", "com.apple.ttsbundle.Sin-ji-premium", "com.apple.voice.compact.zh-HK.Sinji", "com.apple.ttsbundle.Mei-Jia-premium", "com.apple.voice.compact.zh-TW.Meijia", "com.apple.speech.synthesis.voice.Alex"}

–macOS 15 (222)
–> {"com.apple.voice.compact.ar-001.Maged", "com.apple.voice.compact.bg-BG.Daria", "com.apple.voice.compact.ca-ES.Montserrat", "com.apple.voice.compact.cs-CZ.Zuzana", "com.apple.voice.compact.da-DK.Sara", "com.apple.eloquence.de-DE.Sandy", "com.apple.eloquence.de-DE.Shelley", "com.apple.ttsbundle.siri_Helena_de-DE_compact", "com.apple.eloquence.de-DE.Grandma", "com.apple.eloquence.de-DE.Grandpa", "com.apple.eloquence.de-DE.Eddy", "com.apple.eloquence.de-DE.Reed", "com.apple.voice.compact.de-DE.Anna", "com.apple.ttsbundle.siri_Martin_de-DE_compact", "com.apple.eloquence.de-DE.Rocko", "com.apple.eloquence.de-DE.Flo", "com.apple.voice.compact.el-GR.Melina", "com.apple.ttsbundle.siri_Gordon_en-AU_compact", "com.apple.voice.compact.en-AU.Karen", "com.apple.ttsbundle.siri_Catherine_en-AU_compact", "com.apple.voice.premium.en-GB.Malcolm", "com.apple.voice.enhanced.en-GB.Daniel", "com.apple.voice.enhanced.en-GB.Kate", "com.apple.eloquence.en-GB.Rocko", "com.apple.eloquence.en-GB.Shelley", "com.apple.voice.compact.en-GB.Daniel", "com.apple.ttsbundle.siri_Martha_en-GB_compact", "com.apple.eloquence.en-GB.Grandma", "com.apple.eloquence.en-GB.Grandpa", "com.apple.eloquence.en-GB.Flo", "com.apple.eloquence.en-GB.Eddy", "com.apple.eloquence.en-GB.Reed", "com.apple.eloquence.en-GB.Sandy", "com.apple.ttsbundle.siri_Arthur_en-GB_compact", "com.apple.voice.enhanced.en-IE.Moira", "com.apple.voice.compact.en-IE.Moira", "com.apple.voice.compact.en-IN.Rishi", "com.apple.voice.premium.en-US.Zoe", "com.apple.voice.premium.en-US.Ava", "com.apple.voice.enhanced.en-US.Samantha", "com.apple.voice.enhanced.en-US.Evan", "com.apple.ttsbundle.siri_Nicky_en-US_premium", "com.apple.voice.enhanced.en-US.Ava", "com.apple.voice.enhanced.en-US.Zoe", "com.apple.voice.enhanced.en-US.Joelle", "com.apple.voice.enhanced.en-US.Susan", "com.apple.voice.enhanced.en-US.Allison", "com.apple.speech.synthesis.voice.Bruce", "com.apple.voice.enhanced.en-US.Nathan", "com.apple.voice.enhanced.en-US.Tom", "com.apple.speech.synthesis.voice.Agnes", "com.apple.voice.enhanced.en-US.Noelle", "com.apple.eloquence.en-US.Flo", "com.apple.speech.synthesis.voice.Bahh", "com.apple.speech.synthesis.voice.Fred", "com.apple.speech.synthesis.voice.Albert", "com.apple.speech.synthesis.voice.Hysterical", "com.apple.voice.compact.en-US.Allison", "com.apple.speech.synthesis.voice.Organ", "com.apple.speech.synthesis.voice.Cellos", "com.apple.voice.compact.en-US.Evan", "com.apple.speech.synthesis.voice.Zarvox", "com.apple.eloquence.en-US.Rocko", "com.apple.eloquence.en-US.Shelley", "com.apple.speech.synthesis.voice.Princess", "com.apple.eloquence.en-US.Grandma", "com.apple.eloquence.en-US.Eddy", "com.apple.speech.synthesis.voice.Bells", "com.apple.eloquence.en-US.Grandpa", "com.apple.speech.synthesis.voice.Kathy", "com.apple.speech.synthesis.voice.Trinoids", "com.apple.eloquence.en-US.Reed", "com.apple.speech.synthesis.voice.Boing", "com.apple.speech.synthesis.voice.Whisper", "com.apple.speech.synthesis.voice.GoodNews", "com.apple.speech.synthesis.voice.Deranged", "com.apple.ttsbundle.siri_Nicky_en-US_compact", "com.apple.speech.synthesis.voice.BadNews", "com.apple.ttsbundle.siri_Aaron_en-US_compact", "com.apple.speech.synthesis.voice.Bubbles", "com.apple.voice.compact.en-US.Susan", "com.apple.voice.compact.en-US.Tom", "com.apple.voice.compact.en-US.Samantha", "com.apple.eloquence.en-US.Sandy", "com.apple.speech.synthesis.voice.Junior", "com.apple.voice.compact.en-US.Ava", "com.apple.speech.synthesis.voice.Ralph", "com.apple.voice.compact.en-ZA.Tessa", "com.apple.eloquence.es-ES.Shelley", "com.apple.eloquence.es-ES.Grandma", "com.apple.eloquence.es-ES.Rocko", "com.apple.eloquence.es-ES.Grandpa", "com.apple.eloquence.es-ES.Flo", "com.apple.eloquence.es-ES.Sandy", "com.apple.voice.compact.es-ES.Monica", "com.apple.eloquence.es-ES.Eddy", "com.apple.eloquence.es-ES.Reed", "com.apple.eloquence.es-MX.Rocko", "com.apple.voice.compact.es-MX.Paulina", "com.apple.eloquence.es-MX.Flo", "com.apple.eloquence.es-MX.Sandy", "com.apple.eloquence.es-MX.Eddy", "com.apple.eloquence.es-MX.Shelley", "com.apple.eloquence.es-MX.Grandma", "com.apple.eloquence.es-MX.Reed", "com.apple.eloquence.es-MX.Grandpa", "com.apple.eloquence.fi-FI.Shelley", "com.apple.eloquence.fi-FI.Grandma", "com.apple.eloquence.fi-FI.Grandpa", "com.apple.eloquence.fi-FI.Sandy", "com.apple.voice.compact.fi-FI.Satu", "com.apple.eloquence.fi-FI.Eddy", "com.apple.eloquence.fi-FI.Rocko", "com.apple.eloquence.fi-FI.Reed", "com.apple.eloquence.fi-FI.Flo", "com.apple.voice.premium.fr-CA.Amelie", "com.apple.voice.enhanced.fr-CA.Chantal", "com.apple.eloquence.fr-CA.Shelley", "com.apple.eloquence.fr-CA.Grandma", "com.apple.eloquence.fr-CA.Grandpa", "com.apple.eloquence.fr-CA.Rocko", "com.apple.eloquence.fr-CA.Eddy", "com.apple.eloquence.fr-CA.Reed", "com.apple.voice.compact.fr-CA.Amelie", "com.apple.eloquence.fr-CA.Flo", "com.apple.eloquence.fr-CA.Sandy", "com.apple.eloquence.fr-FR.Grandma", "com.apple.eloquence.fr-FR.Flo", "com.apple.eloquence.fr-FR.Rocko", "com.apple.eloquence.fr-FR.Grandpa", "com.apple.eloquence.fr-FR.Sandy", "com.apple.eloquence.fr-FR.Eddy", "com.apple.voice.compact.fr-FR.Thomas", "com.apple.ttsbundle.siri_Dan_fr-FR_compact", "com.apple.eloquence.fr-FR.Jacques", "com.apple.ttsbundle.siri_Marie_fr-FR_compact", "com.apple.eloquence.fr-FR.Shelley", "com.apple.voice.compact.he-IL.Carmit", "com.apple.voice.compact.hi-IN.Lekha", "com.apple.voice.compact.hr-HR.Lana", "com.apple.voice.compact.hu-HU.Mariska", "com.apple.voice.compact.id-ID.Damayanti", "com.apple.eloquence.it-IT.Eddy", "com.apple.eloquence.it-IT.Sandy", "com.apple.eloquence.it-IT.Reed", "com.apple.eloquence.it-IT.Shelley", "com.apple.eloquence.it-IT.Grandma", "com.apple.eloquence.it-IT.Grandpa", "com.apple.eloquence.it-IT.Flo", "com.apple.eloquence.it-IT.Rocko", "com.apple.voice.compact.it-IT.Alice", "com.apple.ttsbundle.siri_Hattori_ja-JP_premium", "com.apple.ttsbundle.siri_O-Ren_ja-JP_premium", "com.apple.voice.enhanced.ja-JP.Kyoko", "com.apple.voice.enhanced.ja-JP.Otoya", "com.apple.eloquence.ja-JP.Eddy", "com.apple.eloquence.ja-JP.Reed", "com.apple.eloquence.ja-JP.Shelley", "com.apple.voice.compact.ja-JP.Kyoko", "com.apple.eloquence.ja-JP.Grandma", "com.apple.eloquence.ja-JP.Rocko", "com.apple.eloquence.ja-JP.Grandpa", "com.apple.ttsbundle.siri_Hattori_ja-JP_compact", "com.apple.voice.compact.ja-JP.Otoya", "com.apple.eloquence.ja-JP.Sandy", "com.apple.ttsbundle.siri_O-Ren_ja-JP_compact", "com.apple.eloquence.ja-JP.Flo", "com.apple.eloquence.ko-KR.Rocko", "com.apple.eloquence.ko-KR.Grandma", "com.apple.eloquence.ko-KR.Grandpa", "com.apple.eloquence.ko-KR.Eddy", "com.apple.eloquence.ko-KR.Sandy", "com.apple.voice.compact.ko-KR.Yuna", "com.apple.eloquence.ko-KR.Reed", "com.apple.eloquence.ko-KR.Flo", "com.apple.eloquence.ko-KR.Shelley", "com.apple.voice.compact.ms-MY.Amira", "com.apple.voice.compact.nb-NO.Nora", "com.apple.voice.compact.nl-BE.Ellen", "com.apple.voice.compact.nl-NL.Xander", "com.apple.voice.compact.pl-PL.Zosia", "com.apple.eloquence.pt-BR.Reed", "com.apple.voice.compact.pt-BR.Luciana", "com.apple.eloquence.pt-BR.Shelley", "com.apple.eloquence.pt-BR.Grandma", "com.apple.eloquence.pt-BR.Grandpa", "com.apple.eloquence.pt-BR.Rocko", "com.apple.eloquence.pt-BR.Flo", "com.apple.eloquence.pt-BR.Sandy", "com.apple.eloquence.pt-BR.Eddy", "com.apple.voice.compact.pt-PT.Joana", "com.apple.voice.compact.ro-RO.Ioana", "com.apple.voice.compact.ru-RU.Milena", "com.apple.voice.compact.sk-SK.Laura", "com.apple.voice.compact.sl-SI.Tina", "com.apple.voice.compact.sv-SE.Alva", "com.apple.voice.compact.th-TH.Kanya", "com.apple.voice.compact.tr-TR.Yelda", "com.apple.voice.compact.uk-UA.Lesya", "com.apple.voice.compact.vi-VN.Linh", "com.apple.eloquence.zh-CN.Eddy", "com.apple.eloquence.zh-CN.Shelley", "com.apple.ttsbundle.siri_Yu-Shu_zh-CN_compact", "com.apple.eloquence.zh-CN.Grandma", "com.apple.eloquence.zh-CN.Reed", "com.apple.eloquence.zh-CN.Grandpa", "com.apple.eloquence.zh-CN.Rocko", "com.apple.ttsbundle.siri_Li-Mu_zh-CN_compact", "com.apple.eloquence.zh-CN.Flo", "com.apple.voice.compact.zh-CN.Tingting", "com.apple.eloquence.zh-CN.Sandy", "com.apple.voice.compact.zh-HK.Sinji", "com.apple.eloquence.zh-TW.Shelley", "com.apple.eloquence.zh-TW.Grandma", "com.apple.eloquence.zh-TW.Grandpa", "com.apple.eloquence.zh-TW.Sandy", "com.apple.eloquence.zh-TW.Flo", "com.apple.eloquence.zh-TW.Eddy", "com.apple.eloquence.zh-TW.Reed", "com.apple.voice.compact.zh-TW.Meijia", "com.apple.eloquence.zh-TW.Rocko", "com.apple.speech.synthesis.voice.Alex"}

★Click Here to Open This Script　

Pages書類の内容を伏せ字に v2

Posted on 10月 5, 2024 by Takaaki Naganoya

現在オープン中の最前面のPages書類の内容を伏せ字に置き換えるAppleScriptの改良版です。電子書籍「Pages＋AppleScriptで本をつくろう！」のために作成したScriptの改良版です。

–> Download Script Bundle With library

実行にはライブラリ「dynamicClicker」が必要なため、上記リンクからAppleScriptバンドル書類をダウンロードして実行してください。

Pagesの書類上のオブジェクトは、

のようになっており（iWork Scripting Book with AppleScriptより引用）、shapeとtext itemの区別ができないという「頭のおかしな仕様」になっていますが、オブジェクトのclassを求めれば、だいたいは区別できる状況です。

group itemについてはメニューを強制操作して（なくなるまで永久ループで）グループ解除を行い、そののちにshapeとtableについては伏せ字処理を行います。

image、chart、movieなどのオブジェクトについては伏せ字処理を行いませんが、そのあたりは処理したいユーザーの趣味次第でしょう。

AppleScript名：全ページを伏せ字に v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/02
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use dLib : script "dynamicClicker"

tell application "Pages"
　　tell front document
　　　　set pCount to count every page
　　　　repeat with p from 1 to pCount
　　　　　　tell page p
　　　　　　　　–ひたすらグループ化されたアイテムを解除する。多重にグループ化が可能なので、ひたすら繰り返す
　　　　　　　　repeat
　　　　　　　　　　set gList to every group
　　　　　　　　　　if gList = {} then exit repeat
　　　　　　　　　　set gRes to ungroupPagesItems(gList) of me
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–通常処理
　　　　　　　　set aList to every iWork item
　　　　　　　　
　　　　　　　　repeat with i in aList
　　　　　　　　　　set j to contents of i
　　　　　　　　　　set tmpClass to class of j
　　　　　　　　　　
　　　　　　　　　　if tmpClass = shape then
　　　　　　　　　　　　set aText to object text of j
　　　　　　　　　　　　set mText to maskStrings(aText) of me
　　　　　　　　　　　　set object text of j to mText
　　　　　　　　　　　　
　　　　　　　　　　else if tmpClass = table then
　　　　　　　　　　　　tell j
　　　　　　　　　　　　　　set tmpW to width
　　　　　　　　　　　　　　set tmpH to height
　　　　　　　　　　　　　　set tumeF to false
　　　　　　　　　　　　　　set cColumn to count every column
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if tmpW = 0 or tmpH = 0 then
　　　　　　　　　　　　　　　　—
　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　set aRatio to tmpW / tmpH
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　if aRatio < 0.125 then set tumeF to true
　　　　　　　　　　　　　　　　if cColumn = 1 then set tumeF to true
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　–表がツメでない場合にのみ処理
　　　　　　　　　　　　if tumeF = false then
　　　　　　　　　　　　　　tell j
　　　　　　　　　　　　　　　　set aTitle to ""
　　　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　　　set aTitle to name of it
　　　　　　　　　　　　　　　　　　set mText to maskStrings(aTitle) of me
　　　　　　　　　　　　　　　　　　set name of it to mText
　　　　　　　　　　　　　　　　end try
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set cellList to every cell
　　　　　　　　　　　　　　　　repeat with ii in cellList
　　　　　　　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　　　　　　　set aValue to (value of jj) as string
　　　　　　　　　　　　　　　　　　set mText to maskStrings(aValue) of me
　　　　　　　　　　　　　　　　　　set value of jj to mText
　　　　　　　　　　　　　　　　end repeat
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

–Pagesで選択中のアイテムをグループ解除する
on ungroupPagesItems(gList as list)
　　set appName to "Pages" –Application Name
　　set aList to {"配置", "グループ解除"} –Localized Menu Titles (menu title structure to "Ungroup")
　　
　　tell application "Pages"
　　　　tell front document
　　　　　　set selection to gList
　　　　end tell
　　end tell
　　
　　set aRes to clickSpecifiedMenuElement(appName, aList) of dLib
　　return aRes
end ungroupPagesItems

–指定したルールのとおりの文字種の並びになっているか？
on maskStrings(aStr)
　　set aList to characters of aStr
　　
　　set chkList to {}
　　repeat with i from 1 to (length of aList)
　　　　set j1 to contents of item i of aList
　　　　
　　　　set tmpStr to j1
　　　　
　　　　set j2 to (my chkNumeric:j1)
　　　　set j3 to (my chkAlphabetCapt:j1)
　　　　set j4 to (my chkAlphabetSmall:j1)
　　　　
　　　　if j2 = true then
　　　　　　set tmpStr to "9"
　　　　else if j3 = true then
　　　　　　set tmpStr to "Z"
　　　　else if j4 = true then
　　　　　　set tmpStr to "z"
　　　　else
　　　　　　set tmpStr to "あ"
　　　　end if
　　　　
　　　　set the end of chkList to tmpStr
　　end repeat
　　return chkList as string
end maskStrings

— アルファベット大文字か
on chkAlphabetCapt:checkString
　　set aStr to current application’s NSString’s stringWithString:checkString
　　set allCharSet to current application’s NSMutableCharacterSet’s alloc()’s init()
　　allCharSet’s addCharactersInRange:(current application’s NSMakeRange(ASCII number of "A", 26))
　　set aBool to my chkCompareString:aStr baseString:allCharSet
　　return aBool as boolean
end chkAlphabetCapt:

— アルファベット小文字か
on chkAlphabetSmall:checkString
　　set aStr to current application’s NSString’s stringWithString:checkString
　　set allCharSet to current application’s NSMutableCharacterSet’s alloc()’s init()
　　allCharSet’s addCharactersInRange:(current application’s NSMakeRange(ASCII number of "a", 26))
　　set aBool to my chkCompareString:aStr baseString:allCharSet
　　return aBool as boolean
end chkAlphabetSmall:

–数字のみか
on chkNumeric:checkString
　　set digitCharSet to current application’s NSCharacterSet’s characterSetWithCharactersInString:"0123456789"
　　set ret to my chkCompareString:checkString baseString:digitCharSet
　　return ret as boolean
end chkNumeric:

–アルファベットと数字のみか
on chkAlphaNumeric:checkString
　　set alnumCharSet to current application’s NSCharacterSet’s alphanumericCharacterSet()
　　set ret to my chkCompareString:checkString baseString:alnumCharSet
　　return ret as boolean
end chkAlphaNumeric:

–アルファベットと数字と記号のみか
on chkAlphaNumericSymbol:checkString
　　set muCharSet to current application’s NSCharacterSet’s alphanumericCharacterSet()’s mutableCopy()
　　muCharSet’s addCharactersInString:"$＼"!~&=#[]._-+`|{}?%^*/’@-/:;(),"
　　set ret to my chkCompareString:checkString baseString:muCharSet
　　return ret as boolean
end chkAlphaNumericSymbol:

–記号のみか
on chkSymbol:checkString
　　set muCharSet to current application’s NSCharacterSet’s alloc()’s init()
　　muCharSet’s addCharactersInString:"$＼"!~&=#[]._-+`|{}?%^*/’@-/:;(),"
　　set ret to my chkCompareString:checkString baseString:muCharSet
　　return ret as boolean
end chkSymbol:

–全角文字が存在するか
on chkMultiByteChar:checkString
　　set aStr to current application’s NSString’s stringWithString:checkString
　　set aRes to aStr’s canBeConvertedToEncoding:(current application’s NSASCIIStringEncoding)
　　return (aRes as boolean)
end chkMultiByteChar:

on chkCompareString:checkString baseString:baseString
　　set aScanner to current application’s NSScanner’s localizedScannerWithString:checkString
　　aScanner’s setCharactersToBeSkipped:(missing value)
　　aScanner’s scanCharactersFromSet:baseString intoString:(missing value)
　　return (aScanner’s isAtEnd()) as boolean
end chkCompareString:baseString:

on chkCompareString:checkString characterSet:baseSet
　　set anNSString to current application’s NSString’s stringWithString:checkString
　　set theRange to anNSString’s rangeOfCharacterFromSet:baseSet
　　return (|length| of theRange = 0) as boolean
end chkCompareString:characterSet:

★Click Here to Open This Script　

Pages書類の内容を伏せ字に

Posted on 10月 3, 2024 by Takaaki Naganoya

現在オープン中の最前面のPages書類の内容を伏せ字に置き換えるAppleScriptです。

新刊「Pages＋AppleScriptで本をつくろう！」の作成のために書いたものです。Pages書類を付録として電子書籍に添付する場合に、あくまでデザインテンプレートとしての利用を見込んでいるため、本文がそのまま入っていると困るわけです、私が。

そんなわけで、せっかく作ったPages書類の内容を伏せ字にして、ダミー書類化するためのAppleScriptが必要になったわけです。

一応、テキストを伏せ字にするAppleScriptは作ってあったので、これをPages書類相手に処理するよう書き換えたものがこれです。

▲処理前

▲処理後

ただし、すべてのPages書類内のオブジェクトに対応していません。groupオブジェクトについては、メニュー操作を行えばグループ解除を行えなくもないですが、未着手です。

ちょっと気をつけて処理したのが「表」の内部セルに入っている値です。空欄だと値（value）がmissing valueになるので、そこは触らないほうがよかったかもしれません。

自分だけの事情になりますが、ページ左右端に「ツメ」と呼ばれるマークを「表」オブジェクトを用いて記入しているため、この「ツメ」に相当する「表」については無視するようにしています。

AppleScript名：全ページを伏せ字に.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/10/02
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Pages"
　　tell front document
　　　　set pCount to count every page
　　　　repeat with p from 1 to pCount
　　　　　　tell page p
　　　　　　　　set aList to every iWork item
　　　　　　　　
　　　　　　　　repeat with i in aList
　　　　　　　　　　set j to contents of i
　　　　　　　　　　set tmpClass to class of j
　　　　　　　　　　
　　　　　　　　　　if tmpClass = shape then
　　　　　　　　　　　　set aText to object text of j
　　　　　　　　　　　　set mText to maskStrings(aText) of me
　　　　　　　　　　　　set object text of j to mText
　　　　　　　　　　　　
　　　　　　　　　　else if tmpClass = group then
　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　else if tmpClass = table then
　　　　　　　　　　　　tell j
　　　　　　　　　　　　　　set tmpW to width
　　　　　　　　　　　　　　set tmpH to height
　　　　　　　　　　　　　　set tumeF to false
　　　　　　　　　　　　　　set cColumn to count every column
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if tmpW = 0 or tmpH = 0 then
　　　　　　　　　　　　　　　　—
　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　set aRatio to tmpW / tmpH
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　if aRatio < 0.125 then set tumeF to true
　　　　　　　　　　　　　　　　if cColumn = 1 then set tumeF to true
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　–表がツメでない場合にのみ処理
　　　　　　　　　　　　if tumeF = false then
　　　　　　　　　　　　　　tell j
　　　　　　　　　　　　　　　　set aTitle to ""
　　　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　　　set aTitle to name of it
　　　　　　　　　　　　　　　　　　set mText to maskStrings(aTitle) of me
　　　　　　　　　　　　　　　　　　set name of it to mText
　　　　　　　　　　　　　　　　end try
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set cellList to every cell
　　　　　　　　　　　　　　　　repeat with ii in cellList
　　　　　　　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　　　　　　　set aValue to (value of jj) as string
　　　　　　　　　　　　　　　　　　set mText to maskStrings(aValue) of me
　　　　　　　　　　　　　　　　　　set value of jj to mText
　　　　　　　　　　　　　　　　end repeat
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

新刊電子書籍「Pages+AppleScriptで本をつくろう！」を刊行

Posted on 10月 3, 2024 by Takaaki Naganoya

電子書籍新刊「Pages+AppleScriptで本をつくろう！」を刊行しました。全370ページ、サンプルAppleScriptアーカイブつき。
→ 販売ページ

本書は、Appleのかんたんワープロ「Pages」の使い方を「本づくり」という観点からわかりやすくまとめたものです。

本という「お約束の塊」について、それぞれの部品をどのように作っているか、実例にもとづいてご紹介しています。本書を作ったときのPages書類を含め、用例をオマケとして添付しています。

Pagesはシンプルで強力な機能を備えていますが、シンプルであるがゆえに手間が増えてしまうケースがままあります。

これに対して、macOSのスクリプト言語である「AppleScript」を利用することで、手間のかかる作業を省ける構造になっています。

本書では、筆者がPagesを使って本を作るなかで、「どうしてもこれが必要」と感じた内容をまとめたAppleScriptを付録としてご提供しています。

本書をお買い求めいただくことで、どなたも同じ道具を使って手軽に電子書籍コンテンツを作る環境とノウハウを得られる、と自負するものです。

準備編

1章

電子書籍の筆者になろう！

2章

本を作るために、Pagesになれよう！
Pagesで作る「本」とは？
Pagesのツールバー設定
Pagesの参考書
AppleScriptでパワーアップ

3章

Pagesの基本操作
テキスト
表
写真
図形
欄外の表記

実践編

4章

「本」を作る作業に慣れよう！
本を作る「作業」の流れ
Pages、4つのオキテ
PDF書き出し
Skim PDF Viewerの使い方

5章

本の部品を作る作業に慣れよう！
表紙
記事一覧でもある「目次」
読者へのあいさつ「まえがき」
仁義のための登録商標表記
記事本文ページ
記事を区切る「章トビラ」
本の名刺「奥付」
本の余韻を生む「裏表紙」
ページの左右を調整する「空白」

6章

Pagesのレイアウトに翻訳

7章

本は「顔」（表紙）が命
応用編

8章

頒布/配布方法を選ぼう

9章

作成した電子書籍を各種Book Storeへ
電子書籍をクリエーター天国のBOOTHで販売
電子書籍をAmazon Kindleで販売！
各電子書籍ストアの「検閲」

10章

Mac App Storeから取得
ユーザー辞書の作り方
表情豊かな、フォントをそろえよう！
フリーで利用できるイラスト/画像素材を活用しよう！
本の構造を知ろう！
プリンタで両面印刷してホチキス製本
コンビニのコピー機で出力してホチキス製本
付録AppleScriptについて
①PDF書き出し＋結合
②ツメ操作
③パーソナル面付け
④PDFへのTOC追加
⑤テキストボックス操作
⑥表の列幅、行高さ調整
⑦フォント情報収集
⑧ファイル名（章）修正
⑨ファイル名（仮想ノンブル）修正
⑩PDF操作
筆者が刊行した電子書籍の仕様
Pagesのバージョン履歴

有害ではなくなっていたSpaces

Posted on 9月 30, 2024 by Takaaki Naganoya

Spacesは、macOS標準搭載の仮想デスクトップ機能であり、最大16個の仮想デスクトップを作れるようになっているほか、F3キーを押すと縮小表示を行うようになっているなど、ハード/ソフトともによく統合された機能です。

ただし、AppleScriptユーザー側からすると

「他の仮想デスクトップにアプリのウィンドウを置くとAppleScriptからアクセスできないカス機能」
「開発チームが他の機能のことを考慮していないクズ機能」

といった感想になります。

このため、さまざまな書籍で「AppleScriptとの互換性のない機能」のひとつとしてリストアップされ、AppleScript系の開発/運用現場では「安全のためにSpacesを使わないように」と注意するのが真っ先に行う恒例行事になっていました。

内蔵HDD/SSDの暗号化機能なみに、登場時にAppleScriptとの互換性検証が不十分なものについては「信用できない」として、以来、安全のために暗号化機能は極力使わないようにしてきました。

＃　HDDの暗号化機能が登場したときに、暗号化したHDDにAppleScriptからアクセスできないというバカみたいな不具合が発生。その後も、有効にするとeGPUが使えなくなるなど、この機能を作っている担当者だかチームのことが信じられません。

そして話はSpacesに戻ります。執筆中の電子書籍「Pages＋AppleScriptで本をつくろう！」の注意点でSpacesについて言及し、確認のために「やっぱり今でも動かないのか？」と、試してみたら……他の仮想デスクトップ上に配置したPagesの書類の情報を取得できます。

「…………。」

何度試してみても、他の仮想デスクトップに配置したPages書類の情報を取得できます。

macOS 13.7.1と、macOS 10.13.7で試してみたところ、両方で動作しました。

このぐらいの範囲のmacOSで動くのであれば、さまざまな本でSpacesに関する「危険なので使用を推奨しない」という評価は取り下げる必要があることでしょう。

ただ、Pagesについては表示中のページから＋6ページぐらいを超えるとオブジェクトのposition属性を取得できないといった不具合があり、これはmacOS 15で再テストしても発生が確認されています。

Safari v18のtabのpidを取得

Posted on 9月 21, 2024 by Takaaki Naganoya

新たにリリースされたSafari v18（macOS 13/14/15用）で、各Tabに「pid」属性が新設されました。

各Webコンテンツのブラウズを行う処理プロセスを、独立したプロセスで行うことで、メモリの食いすぎでプロセスが止まったような場合にでも他のWebブラウジングに影響を与えない、というあたりにメリットがあったとか。

▲Safari v17とv18のAppleScript用語辞書（sdef）を比較したところ

▲SafariでYouTube上のムービーを再生しているところ

▲アクティビティモニタ上で該当するpidのプロセスを確認

pidがわかると、どういう「いいこと」があるのかが問題です。メモリの使用状況などを確認することはできますし、個別にプロセスをkillすることもできるわけですが、そこまでやるんだろうかと。そういうニーズがあって新設したのか、ちょっとわからないところです。

それはともかく、Safari（≒WebKit）系はゴミプロセスがメモリ上に残りまくるので（Mail.appもメッセージを表示するだけでゴミプロセスが残るし）、その点がちょっとどうなのかという点と、Webコンテンツ上の画像ボタンを文字認識しておかしな動作をしまくるので、そのあたりは勘弁してほしいところです。

AppleScript名：Safariのtabのpidを取得.scpt

tell application "Safari"
　　tell window 1
　　　　set aList to pid of every tab
　　　　–> {33892}
　　end tell
end tell

★Click Here to Open This Script　

iCalendarファイルの作成

Posted on 9月 20, 2024 by Takaaki Naganoya

オープンソースのプロジェクト「iCal4ObjC」をFramework化してAppleScriptから呼び出し、iCalendarファイル（.ics）をデスクトップに作成するテストコードです。実行には、iCalendarKit.framework（macOS 10.15以降用にUniversal Binaryでビルド）を必要とします。また、macOS標準搭載のスクリプトエディタ上では動作せず、Script DebuggerないしSDから書き出したEnhanced Appletとして動かす必要があります。

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

本Scriptの実行結果です。

AppleScript名：iCal4ObjCのじっけん（iCalendarファイルの作成）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/09/20
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript
use framework "Foundation"
use framework "iCalendarKit" –https://github.com/cybergarage/iCal4ObjC
use scripting additions

set ical to current application’s CGICalendar’s alloc()’s init()

–Add an object
set icalObj to current application’s CGICalendarObject’s alloc()’s initWithProdid:"//CyberGarage//iCal4ObjC//EN"

–Add a component
set icalComp to current application’s CGICalendarComponent’s alloc()’s initWithType:"VTODO"
icalObj’s addComponent:icalComp

ical’s addObject:icalObj

— Add a property
set icalProp to current application’s CGICalendarProperty’s alloc()’s init()
icalProp’s setName:"SUMMARY"
icalProp’s setValue:"Write report"
icalComp’s addComponent:icalProp

set outPath to POSIX path of (path to desktop) & (do shell script "uuidgen") & ".ics"

ical’s writeToFile:outPath

★Click Here to Open This Script　

Script DebuggerがmacOS 15.x上で起動せず→起動

Posted on 9月 18, 2024 by Takaaki Naganoya

Script DebuggerがmacOS 15上で起動しない状況が続いています。

日本語ユーザー環境、英語ユーザー環境にかかわらずmacOS 15/macOS 15.1上でScript Debuggerが起動しません。

ちなみに~~、macOS 14.7ではユーザーディレクトリ下のFrameworkを実行できない問題も発生しており~~、macOS 14/15を信用せずにメイン環境をmacOS 13.7のままにとどめていますが、この判断が大正解のようです。

続報：
rm ~/Library/Preferences/.2xbG4@@Ght01%!020#u  rm ~/Library/Preferences/.2xbZ4@@Ght01%!010#u  rm ~/Library/Application\ Support/.1@xX4D@yyt02"!2&0#a  rm ~/Library/Application\ Support/.1@xX4D@yytT2"!2&1#a

とすることで、macOS 15.x上でもScript Debuggerが起動できました。実際には、Terminal上でこれをそのまま実行しても削除できなかったので、当該フォルダに移動してTerminal上でファイルを確認したうえで削除しました。

SDが起動できないと、Framework呼び出しを行なっているAppleScriptの実行や書き出しに支障が出るため、実に困ります。

ただ、SDのアップデートやメンテナンスが数少ない開発者によって支えられている以上、代替策も用意しておきたいところです。

Finderのfileのkind（種類）の日本語ローカライズ内容がmacOS 14以降で変更されている件（続報）

Posted on 9月 17, 2024 by Takaaki Naganoya

FinderやSystem Eventsで扱っているファイルの種別（kind）属性情報が、macOS 14以降で変更になっていて困っている件、その後の続報です。

おそらく、多言語ローカライズを行なっている下請け業者（いろんなメーカーのローカライズを担当している多言語ローカライザー企業）へのApple側からの指示内容に何か変化があって、不必要な部分までローカライズ内容の統一（≒修正）が行われてしまったのだろう、と見立てていました。

実際に身の回りのマシンで調査したところ、おおよそその見立てで間違っていないようです。

もとになっている英語版の表記については割と一貫性があって、コロコロ方針が変わっているようには見えません。

しかし、日本語ローカライズされた属性値については不可解というか「これを指示した人間の知性を疑う」という変わりっぷりであり、そこまで想定していなかったUS Apple側の指示内容がいいかげんだった、という想像を裏付けるものとなっています。

ローカライズにおいては変更しても意味がないし、変更することで悪影響が出る部分もあるわけですが、そこまで細かくチェックしていないということなんでしょう。

iWork Appsでオブジェクトの削除を安全に

Posted on 9月 14, 2024 by Takaaki Naganoya

iWork Apps（Keynote、Pages、Numbers）にはAppleScript系の機能でいろいろ勘弁してほしい仕様がありますが、その中でも最大のものが、書類内の各オブジェクトがIndexで管理されていることです。

Indexというのは、1からはじまる連番の数値です。

iWork Apps（Keynote、Pages、Numbers）のドキュメント上でオブジェクトの削除を行おうとすると、「地獄」を見ることになります。

iWork Appsの書類上でオブジェクトの削除を行うと、このIndex値が振り直されてしまうために、正しく「対象」を指し示すことが（途中から）できなくなってしまうのです。あるいは、まったく関係のない別のオブジェクトが削除されるとか。

これが、idで管理されていれば、何かのオブジェクトを削除されても影響はありません。何かUUID的な重複しないidが割り振られて、最初から最後まで（アプリケーションが起動してから終了するまで、あるいは書類がオープンされてからクローズされるまで）個別に識別されます。

対策

各オブジェクトを識別する場合に、それ専用の属性値を持たせることがあります。

Adobe InDesign：script label　AppleScriptから設定・確認が可能なラベル（文字列）を設定できる

もともとある仕組みを本来の目的以外の用途に使うことができるケースもあります。

OmniGraffle：URL urlとかいいつつ、文字列だったらだいたいなんでも入った記憶が

そして、iWork Apps（Keynote、Pages、Numbers）。普段ほとんど使わなくて、AppleScriptから操作できて害のない属性値なんて便利なものがあるわけが……ありました。

Keynoteで使っている例は見かけましたが、他で使ったことのない「reflectin value」。つまり、「反射」属性。

PagesでもNumbersでも使ったことがありません。個人的には、Keynoteでも使ったことがないと思います。

選択状態にあるオブジェクトをもとに何らかの処理を行なって、選択していたオブジェクトを削除する場合に、普通に処理すると（オブジェクトがIndexで管理されているので）、地獄を見ます。

なので、削除対象のオブジェクトのreflection valueに100とか（1〜100のうち、0でないお好きな値を）を設定しておいて、ひととおり処理し終わったら、reflection valueが指定値になっているオブジェクトだけをフィルタ参照で削除する、といった対策が有効です。

実際のAppleScript

前処理Scriptで、最初にreflection valueが何か設定されているオブジェクトが存在しないことを確認したうえで、選択中のオブジェクトのreflection valueに100を設定し……

AppleScript名：削除_前処理.scptd

tell application "Pages"
　　tell front document
　　　　set reList to every iWork item whose reflection value is 100
　　　　if length of reList is not equal to 0 then return
　　　　
　　　　set aSel to selection
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set reflection value of j to 100
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

処理を行なったあとで、reflection valueに100と設定されているオブジェクトを削除します。

AppleScript名：削除_後処理.scptd

tell application "Pages"
　　tell front document
　　　　tell current page
　　　　　　set aSel to delete (every iWork item whose reflection value = 100)
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

Pixelmator Proがv3.6.8でHDR画像をサポート

Posted on 9月 1, 2024 by Takaaki Naganoya

Pixelmator Proがv3.6.8でHDR画像のサポートを追加しました。

Pixelmator Pro 3.3.13–> 3.6.8

AppleScript用語辞書の比較で確認された変化は以下のとおりです。

・予約語「JPEG」の類義語として「JPG」を追加定義
・HDR画像の予約語を追加（OpenExr、HDR JPEG、HDR HEIC、HDR AVIF、HDR PNG）
・applicationのプロパティとして「load hdr content」を新設
・documentのプロパティとして「display hdr content」を新設

HDR対応について

Appleの公式資料によれば、現行機種はHDRに対応しているとのこと。

ただし、接続しているディスプレイによって、

「このディスプレイはHDRコンテンツをサポートしていません」（Mac mini M1＋Apple Cinema Display)
「このディスプレイはHDRコンテンツのサポートが制限されています」（MacBook Air M2）

といったように、非対応/対応（不完全対応を含む）と状態が分かれるようです。

対応環境でPixelmator ProのHDRサポート状態を変更してHDR画像をオープンする実験は行なってみました。

▲Pixelmator Proの設定ウィンドウ　HDRコンテンツのサポートが制限されている（MacBook Air M2）と表示

▲Pixelmator ProでサンプルのHDR JPEGをオープンしたところ

AppleScript名：HDR画像をオープン

tell application "Pixelmator Pro"
　　set load hdr content to true
　　set aHDR2 to load hdr content
　　–> true
　　if aHDR2 = false then return
　　
　　set aHDRfile to choose file
　　
　　open aHDRfile
　　
end tell

★Click Here to Open This Script　

HDR画像をオープンしても、HDR表示が行われるかどうかは別の管理になっている（documentのプロパティ）ので、そこも設定する必要があるようです。変更すると画面上でわずかに階調表現に変化が見られました（ちょっとだけ）。

AppleScript名：オープン中のHDR画像をHDR表示する

tell application "Pixelmator Pro"
　　–環境チェック
　　set appHDR to load hdr content
　　if appHDR = false then return
　　
　　–HDR画像の表示状態を変更
　　tell front document
　　　　set display hdr content to true
　　　　set docHDR to display hdr content
　　end tell
end tell

★Click Here to Open This Script　

新刊電子書籍「AppleScriptでたのしむ　レトロ・グラフィック　プログラム集」を刊行

Posted on 8月 31, 2024 by Takaaki Naganoya

電子書籍新刊「AppleScriptでたのしむ　レトロ・グラフィック　プログラム集」を刊行しました。全154ページ、サンプルAppleScriptアーカイブつき。
→ 販売ページ

1980年代や90年代の8/16ビットPCのBASICで描かせていた、三角関数による各種グラフィックスをAppleScriptで再現。ダイアログで表示するだけでなく、各種GUIアプリ（Keynote、Numbers、Pages、Excel、PowerPoint、Word、Pixelmator Pro）を操作して描画したり、画像書き出ししてAirDropでiOSデバイスに転送するようなサンプルを収録しています。

懐かしのレトロCGの世界を再現
時代を経て感じる郷愁とも異なるテイスト
その昔、十数分かけて描いた三角関数グラフ
１秒以下で終了 vs ６分で終了
最新環境で動くAppleScriptにBASICのプログラムを移植
アップルスクリプトは、構文色分け必須の、色で要素を見分ける環境
最低限の知識でAppleScriptによるグラフィックを
AppleScript書類内に、実行に必要なライブラリを同梱
筆者の関数計算ライブラリ「calcLibAS」内蔵関数
コラム　ポケコンエミュレータ“pockemul”

2章　早足で紹介するAppleScriptの世界

1994年から採用され続けている言語
GUIアプリを操作するために存在。搭載実行環境がとても多い
書き方は、アプリ内に存在する用語辞書を参照
本来の機能を利用するためにはシステム設定で許可する必要が
10.10以降でCocoaを直接呼べるようになったインタプリタ言語
GUI部品を直接操作してアプリを操作する強制操作機能が人気？
Web上のAPIを呼んでクラウド系の機能も利用
AS自体で予約語と機能を記述するライブラリ機能
コラム　AppleScriptの世界の全体像　OS機能の最深部からGUIそのものの操作まで

3章　AppleScriptでグラフィックスを扱う

Cocoaの機能を呼び出してメモリ上で画像を作成
NSAlertの上にNSImageViewを作成しグラフィック表示
Cocoaのグラフィックス座標系”
主要なアプリケーションの座標系”
画像ファイルに書き出せば”
他のアプリにコピー＆ペースト”
当時は存在していなかった透過画像”
パラメータを変えると動作が変わる”
コラム GUIアプリごとの応答速度の違い

4章　レトロ・グラフィックスプログラム集

スクリプトエディタでオープンして実行するだけ
必要なライブラリはバンドル内にすべて格納
掲載リストはグラフィックス描画にかかわる箇所のみ
How to use/ダイアログ表示AppleScript
How to use/ファイル出力AppleScript
How to use/ファイル出力＋AirDrop AppleScript
How to use/クリップボード転送AppleScript
How to use/各種GUIアプリ操作AppleScript
OS標準搭載の13の実行環境およびサードパーティの数十の実行環境

線画テスト
円画テスト①
円画テスト②
サイクロイド曲線
バラ曲線
パスカルの蝸牛形
リサージュ曲線
ダイヤモンドパターン
アルキメデスの螺旋
メキシカンハット①
メキシカンハット②
メキシカンハット③
メキシカンハット④
コラムマシンごとの実行速度の違い

macOS 14で変更になったOSバージョン取得APIの返り値

Posted on 8月 24, 2024 by Takaaki Naganoya

macOSのバージョンを求める機能については、かならず複数の方法で取得できるように調査しています。

それは、Appleがバグを作る可能性が一番高い機能だからです（なんで懲りないんだろ？）。

OSバージョンを求めるのに、

・AppleScriptの標準装備コマンド「system info」で求める
–> {AppleScript version:”2.8″, AppleScript Studio version:”1.5.3″, system version:”13.6.9″, short user name:”XXXX”, long user name:”XXXXX XXXXX”, user ID:504, user locale:”ja_JP”, home directory:alias “Macintosh HD:Users:XXXX:”, boot volume:”Macintosh HD:”, computer name:”M1 mini”, host name:”m1mini.local”, IPv4 address:”192.168.0.99″, primary Ethernet address:”99:99:99:99:ZZ:99″, CPU type:”ARM64E”, CPU speed:missing value, physical memory:16384}

・AppleScriptの環境プロパティ「system attribute」を求める
set v1 to system attribute “sys1” –> 10
set v2 to system attribute “sys2” –> 4
set v3 to system attribute “sys3” –> 11

・shell commandで求める
–> sw_vers
–> sw_vers -productVersion

などに加えて、NSProcessInfos processInfo()’s operatingSystemVersion()　を呼び出すという方法も加わりました。

ただ、これが最近おかしな挙動をするようになったのに気づいていろいろ調査してみたら、macOS 14になって返り値のフォーマットを変えたことが判明しました。ラベルつきの値（NSDictionary）で返してきたのが、ラベルなしの配列（NSArray）で返すように変わっています。macOS 10.13で座標系のデータをラベルなしで返すように変更してきたのと同様の変更が加えられています。

macOS 14.xの初期バージョンでは従来タイプの値を返してきたように記憶していますが、いつ変更したのやら。

AppleScript名：OSバージョンを求める.scpt

use AppleScript
use framework "Foundation"
use scripting additions

set pInfo to (current application’s NSProcessInfo’s processInfo()’s operatingSystemVersion())
–> {majorVersion:10, minorVersion:14, patchVersion:6}–10.14
–> {majorVersion:13, minorVersion:6, patchVersion:9}–13.6.9
–> {14, 6, 1}–14.6.1
–> {15, 1, 0}–15.0.1

★Click Here to Open This Script　

こういう基本的な情報を提供するAPIの仕様を変更することに、どういうインセンティブがあるのか不明です。変える価値があると判断したから変えたんでしょう。自分にはどういう理由なのか、さっぱり分かりません。

安全のためには、AppleScriptのビルトイン機能を使うか、OS内のplistを読み取って自分で処理するとかいった「対策」が必要なのでしょう。

デフォルトインストールされたフォント名を取得するAppleScript

Posted on 8月 3, 2024 by Takaaki Naganoya

macOSにインストールされているフォントの情報をsystem_profiler経由で取得し、各フォントのパス情報をもとに、/System/Library/Fonts以下に入っているものだけを抽出して、フォント名をリストアップするAppleScriptです。

Pages書類に含まれているフォントのうち、デフォルトインストールされたものではないものを抽出するために、OSにデフォルトインストールされたものだけを取得すべく、基礎情報を得るために書いてみたものです（現在執筆中の電子書籍「Pages＋AppleScriptで本をつくろう！」の付録Scriptとして用意しました）。

事前に何か設定するといった必要はありません。スクリプトエディタやScript Debuggerで実行するだけです。

AppleScriptからフォントの存在するパス情報はなかなか取得しにくい、FontBook.appがAppleScript非対応になったので、ほぼ無理なのですが、system_profilerから取得すれば、それほど難しくありません。

実行所要時間は、

　　M1 Mac mini (macOS 13.6）：6秒
　　M2 Mac mini（macOS 14.6）：10秒
　　M2 MacBook Air（macOS 14.6）：15秒

ぐらいで、M1 Mac miniの速さが光ります。OSの違いから、macOS 13.6環境ではallFontsが1168、macOS 14.6環境では1603とフォント数がどうやら異なっているのですが（M2 miniも同じ）、フォント数を考慮してもM1 Mac miniの処理の速さが光ります。

もしくは、macOSのバージョンの違いにより、system_profilerの実行速度が大きく異なるとか？　macOS 13.6環境と14.6環境にそれほど差があるものなんでしょうか。

無駄な処理も入っていますが、いろいろチェックしながら作ったもので、ベンチマーク用に作ったものではありません。

# M2 Airってなんでこんなに時間がかかるんだろう？　放熱台に乗せて処理しているのに。処理のほとんどの時間がsystem_profilerの実行で消費しています

AppleScript名：OSデフォルトインストールされたフォント名を取得.scpt

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

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 NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSPropertyListFormat : a reference to current application’s NSPropertyListFormat
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSPropertyListImmutable : a reference to current application’s NSPropertyListImmutable
property NSPropertyListSerialization : a reference to current application’s NSPropertyListSerialization

script spd
　　property sRes : missing value
　　property aSource : missing value
　　property bRes : missing value
　　property fontNames : {}
　　property fontPath : {}
　　property outList : {}
end script

–システムにインストールされているフォントの情報を全抽出
set sRes of spd to do shell script "system_profiler -xml SPFontsDataType"
set aSource of spd to first item of (readPlistFromStr(sRes of spd) of me)

–全フォント情報から、名称とパス情報を抽出
set bRes of spd to (((aSource of spd)’s valueForKeyPath:"_items"))
set fontNames of spd to ((bRes of spd)’s valueForKeyPath:"_name") as list
set fontPath of spd to ((bRes of spd)’s valueForKeyPath:"path") as list

–ループでOSデフォルトインストールされているフォントを抽出
set outList of spd to {}
set aCount to 1

repeat with i in (fontPath of spd)
　　set j to contents of i
　　
　　if j begins with "/System/Library/Fonts/" then
　　　　–指定のフォントに複数のTypefaceが含まれていることを考慮し、情報を取り出す
　　　　set outItem to (((item aCount of (bRes of spd)))’s valueForKeyPath:"typefaces._name") as list
　　　　set the end of (outList of spd) to outItem
　　end if
　　
　　set aCount to aCount + 1
end repeat

–すべてのTypefaceを入れた入れ子の2D Listから1D Listに変換
set allFonts to FlattenList((outList of spd)) of me

–ドット（.）ではじまるフォントを除外
set outList to {}
repeat with i in allFonts
　　set j to contents of i
　　if j does not start with "." then
　　　　set the end of outList to j
　　end if
end repeat

return outList

–stringのplistを読み込んでRecordに
on readPlistFromStr(theString)
　　set aSource to NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aPlist to NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(NSPropertyListImmutable) format:(NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr

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

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList, aPredicate as string)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　return filteredArray
end filterRecListByLabel1

–By Paul Berkowitz
–2009年1月27日 2:24:08:JST
–Re: Flattening Nested Lists
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

★Click Here to Open This Script　

メキシカンハット v3a

Posted on 7月 28, 2024 by Takaaki Naganoya

メキシカンハットの描画AppleScriptのedama2さんバージョンで、さらに多色対応したものです。

–> Download mexicanHatv3a

AppleScript名：メキシカンハット v3a.scptd

— Created 2024-06-28 by Takaaki Naganoya
— Modified 2024-07-09 by Edama2
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use mLib : script "calcLibAS"
use imgDispLib : script "imageDisplayLib"

on run
　　my main()
end run

on main()
　　(*
　　set userReply to display dialog "拡大率を入力してください（1-8）" default answer "3"
　　set aScale to userReply’s text returned as number
　　if aScale < 1 or 8 < aScale then return beep
　　*)
　　set aScale to 3
　　
　　–描画
　　set listBezierPaths to {}
　　repeat 3 times
　　　　set listBezierPaths’s end to current application’s NSBezierPath’s bezierPath()
　　end repeat
　　
　　–https://x.com/yone/status/1805552100400939161
　　set D to {}
　　set dR to pi / 180
　　
　　repeat 255 times
　　　　set end of D to 192
　　end repeat
　　
　　repeat with y from -120 to 120 by 4
　　　　
　　　　if y < 0 then
　　　　　　set rY to -60
　　　　else
　　　　　　set rY to 60
　　　　end if
　　　　
　　　　repeat with x from -180 to 180 by 4
　　　　　　
　　　　　　if (x < -60) then
　　　　　　　　set rX to -120
　　　　　　else if (x < 60) then
　　　　　　　　set rX to 0
　　　　　　else
　　　　　　　　set rX to 120
　　　　　　end if
　　　　　　
　　　　　　set rR to (x – rX) ^ 2 + (y – rY) ^ 2
　　　　　　set z to 180 * (exp (rR / -800))
　　　　　　set sX to floor (128 + x / 2 – y / 4)
　　　　　　set sY to floor (128 – y / 4 – z / 2)
　　　　　　
　　　　　　if not (sX < 0 or 256 ≤ sX) then
　　　　　　　　if not ((D’s item (sX + 1)) ≤ sY) then
　　　　　　　　　　
　　　　　　　　　　set zz to (floor (z * 0.0389)) + 1
　　　　　　　　　　log result
　　　　　　　　　　set idRect to current application’s NSMakeRect(sX * aScale, sY * aScale, aScale, aScale)
　　　　　　　　　　
　　　　　　　　　　if ((zz = 1) or (zz = 3) or (zz = 5) or (zz = 7)) then
　　　　　　　　　　　　(listBezierPaths’s item 1’s appendBezierPathWithRect:idRect)
　　　　　　　　　　end if
　　　　　　　　　　if ((zz = 2) or (zz = 3) or (zz ≥ 6)) then
　　　　　　　　　　　　(listBezierPaths’s item 2’s appendBezierPathWithRect:idRect)
　　　　　　　　　　end if
　　　　　　　　　　if (zz ≥ 4) then
　　　　　　　　　　　　(listBezierPaths’s item 3’s appendBezierPathWithRect:idRect)
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set (D’s item (sX + 1)) to sY
　　　　　　　　end if
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　#
　　set srcWidth to 0
　　set srcHeight to 0
　　repeat with idBezierPath in listBezierPaths
　　　　set tmpWidth to current application’s NSMaxX(idBezierPath’s |bounds|())
　　　　set tmpHeight to current application’s NSMaxY(idBezierPath’s |bounds|())
　　　　if srcWidth < tmpWidth then set srcWidth to tmpWidth
　　　　if srcHeight < tmpHeight then set srcHeight to tmpHeight
　　end repeat
　　
　　#
　　set srcSize to current application’s NSMakeSize(srcWidth, srcHeight)
　　log result
　　set srcImage to current application’s NSImage’s alloc()’s initWithSize:srcSize
　　
　　set operation to current application’s NSCompositingOperationScreen
　　–>set operation to current application’s NSCompositingOperationSourceOver
　　
　　repeat with num from 1 to count listBezierPaths
　　　　
　　　　if num is 1 then
　　　　　　set idColor to current application’s NSColor’s blueColor()
　　　　else if num is 2 then
　　　　　　set idColor to current application’s NSColor’s redColor()
　　　　else if num is 3 then
　　　　　　set idColor to current application’s NSColor’s greenColor()
　　　　end if
　　　　
　　　　tell srcImage
　　　　　　lockFocus()
　　　　　　
　　　　　　tell current application’s NSImage’s alloc()
　　　　　　　　tell initWithSize_(srcSize)
　　　　　　　　　　lockFocus()
　　　　　　　　　　idColor’s setFill()
　　　　　　　　　　listBezierPaths’s item num’s fill()
　　　　　　　　　　unlockFocus()
　　　　　　　　　　(its drawAtPoint:(current application’s NSZeroPoint) fromRect:(current application’s NSZeroRect) operation:operation fraction:1.0)
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　　　unlockFocus()
　　　　end tell
　　end repeat
　　
　　
　　# 反転して合成
　　set dstImage to current application’s NSImage’s alloc()’s initWithSize:srcSize
　　tell dstImage
　　　　lockFocus()
　　　　
　　　　current application’s NSColor’s blackColor()’s setFill()
　　　　current application’s NSRectFill(current application’s NSMakeRect(0, 0, its |size|()’s width, its |size|()’s height))
　　　　
　　　　set xform to current application’s NSAffineTransform’s transform()
　　　　xform’s translateXBy:0.0 yBy:(its |size|()’s height)
　　　　xform’s scaleXBy:1.0 yBy:-1.0
　　　　xform’s concat()
　　　　
　　　　srcImage’s drawInRect:(current application’s NSMakeRect(0, 0, its |size|()’s width, its |size|()’s height))
　　　　unlockFocus()
　　end tell
　　
　　–結果表示
　　dispImage(dstImage, "Mexican Hat") of imgDispLib
end main

★Click Here to Open This Script　

目次

準備編

1章

2章

3章

実践編

4章

5章

6章

7章

8章

9章

10章

対策

実際のAppleScript

Pixelmator Pro 3.3.13–> 3.6.8

HDR対応について

目次

1章 レトロ・グラフィックスの世界

2章 早足で紹介するAppleScriptの世界

3章 AppleScriptでグラフィックスを扱う

4章 レトロ・グラフィックスプログラム集

1章　レトロ・グラフィックスの世界

2章　早足で紹介するAppleScriptの世界

3章　AppleScriptでグラフィックスを扱う

4章　レトロ・グラフィックスプログラム集