Finderのウィンドウ１つを画面上で楕円運動させるAppleScriptです。
三角関数の計算にShane StanleyのBridge Plus AppleScript Librariesを利用しています。
以前に掲載したバージョン（v1）から、BridgePlusを使うように変更しました。
自分が最初に見たAppleScriptが、「AppleScript道入門」に掲載されていたテキストエディタのウィンドウを画面の淵に沿わせて直線移動で１周させるものでした（それを見て「たいしたことはない」と思ってしまいましたが）。
いまでは、楕円軌道に沿ったウィンドウ移動もこのぐらいのスピードでできている、ということを実感できました。
| AppleScript名：Finder Windowを円運動 v1b |
| use AppleScript version "2.4" use scripting additions use framework "Foundation" use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html use framework "AppKit" — for NSScreen property aNum : 300 property aOffset : 0 load framework set {newX, newY} to (current application’s NSScreen’s mainScreen()’s frame()’s |size|()) as list tell application "Finder" set aWin to make new Finder window end tell repeat with i from 1 to 360 by 6 set |asin| to (current application’s SMSForder’s sinValueOf:i) as real set |acos| to (current application’s SMSForder’s cosValueOf:i) as real set x to ((aNum * |asin|) + aNum) * 2.0 + aOffset set y to (aNum * |acos|) + aNum + aOffset tell application "Finder" tell aWin set position to {x as integer, y as integer} end tell end tell end repeat tell application "Finder" tell aWin close end tell end tell |
(Visited 37 times, 1 visits today)