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