アニメーションGIFをフレームごとに画像に分解する

AppleScript名：アニメーションGIFをフレームごとにTIFF画像に分解する

— Created 2016-11-29 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set gifFile to POSIX path of (choose file of type "com.compuserve.gif" with prompt "Select Animation-GIF file")
set destFol to POSIX path of (choose folder with prompt "Select the folder to save gif’s frames")

set anImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:gifFile
if anImage is equal to missing value then error "Illegal GIF Image"

set anImgRep to anImage’s representations()’s firstObject()
set framesNum to (anImgRep’s valueForProperty:"NSImageFrameCount") as integer

repeat with i from 0 to (framesNum – 1)
　　(anImgRep’s setProperty:"NSImageCurrentFrame" withValue:i)
　　set aRep to (anImgRep’s representationUsingType:(current application’s NSTIFFFileType) |properties|:(missing value))
　　(aRep’s writeToFile:(destFol & (i as string) & ".tif") atomically:true)
end repeat

★Click Here to Open This Script　

AppleScript名：アニメーションGIFをフレームごとにPNG画像に分解する

— Created 2016-11-29 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set anImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:gifFile
if anImage is equal to missing value then error "Illegal GIF Image"

set anImgRep to anImage’s representations()’s firstObject()
set framesNum to (anImgRep’s valueForProperty:"NSImageFrameCount") as integer

repeat with i from 0 to (framesNum – 1)
　　(anImgRep’s setProperty:"NSImageCurrentFrame" withValue:i)
　　set aRep to (anImgRep’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value))
　　(aRep’s writeToFile:(destFol & (i as string) & ".png") atomically:true)
end repeat

★Click Here to Open This Script　

AppleScript名：アニメーションGIFをフレームごとにJPG画像に分解する

— Created 2016-11-29 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set anImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:gifFile
if anImage is equal to missing value then error "Illegal GIF Image"

set anImgRep to anImage’s representations()’s firstObject()
set framesNum to (anImgRep’s valueForProperty:"NSImageFrameCount") as integer

repeat with i from 0 to (framesNum – 1)
　　(anImgRep’s setProperty:"NSImageCurrentFrame" withValue:i)
　　set aRep to (anImgRep’s representationUsingType:(current application’s NSJPEGFileType) |properties|:(missing value))
　　(aRep’s writeToFile:(destFol & (i as string) & ".jpg") atomically:true)
end repeat

★Click Here to Open This Script　

AppleScript名：アニメーションGIFをフレームごとにGIFF画像に分解する

— Created 2016-11-29 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set anImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:gifFile
if anImage is equal to missing value then error "Illegal GIF Image"

set anImgRep to anImage’s representations()’s firstObject()
set framesNum to (anImgRep’s valueForProperty:"NSImageFrameCount") as integer

repeat with i from 0 to (framesNum – 1)
　　(anImgRep’s setProperty:"NSImageCurrentFrame" withValue:i)
　　set aRep to (anImgRep’s representationUsingType:(current application’s NSGIFFileType) |properties|:(missing value))
　　(aRep’s writeToFile:(destFol & (i as string) & ".gif") atomically:true)
end repeat