Indigo Domotics

Code: Select all

-- set the file paths to save the artwork in
-- tiff file is artwork coming from iTunes
-- png file holds converted artwork
-- bogus.tiff is just a filler artwork file, in case the song doesn't have artwork
property tiffFile : "/tmp/iTunes.tiff"
property pngFile : "/tmp/iTunes.png"
property bogusFile : "/tmp/bogus.tiff"

-- scale factor to reduce size of final image, if desired
property scaleFactor : 0.5

-- size to scale final image to (longest side), if desired
property targetSize : 256

-- call subroutine be sure iTunes is running
if isApplicationRunning("iTunes") then
	tell application "iTunes"
		-- if it is running, be sure a song is playing
		if (player state is playing) then
			-- call subroutine to get artwork for playing song
			set theResult to my writeITunesArtworkToFile()
		end if
	end tell
end if

-- convert the tiff file to a png file
tell application "Image Events"
	launch
	-- if artwork was found, we'll use the tiff file created
	if (theResult is equal to 1) then
		set theImageReference to open tiffFile
	else
		-- artwork was not found, so use a filler file
		set theImageReference to open bogusFile
	end if
	-- create the png file
	scale theImageReference to size targetSize
	save theImageReference as PNG in pngFile with icon
	close theImageReference
end tell


-- subroutine to check for running application
on isApplicationRunning(appName)
	tell application "System Events" to return (exists (some process where name is appName))
end isApplicationRunning

-- subroutine to write iTunes current track artwork to file
on writeITunesArtworkToFile()
	try
		tell application "iTunes"
			-- get song artwork
			set the_data to data of artwork 1 of current track
		end tell
		-- save the artwork to the tiff file
		set iTunesArtwork to (open for access tiffFile with write permission)
		write the_data to iTunesArtwork starting at 0
		close access iTunesArtwork
		-- return success code
		return 1
	on error
		-- couldn't get artwork for some reason, return error code
		return 0
	end try
end writeITunesArtworkToFile

Code: Select all

-- set the file paths to save the artwork in
-- tiff file is artwork coming from iTunes
-- png file holds converted artwork
-- bogus.tiff is just a filler artwork file, in case the song doesn't have artwork
property tiffFile : "Library/Application Support/Perceptive Automation/iTunes.tiff"
property pngFile : "Library/Application Support/Perceptive Automation/iTunes.png"
property bogusFile : "Library/Application Support/Perceptive Automation//bogus.tiff"

-- scale factor to reduce size of final image, if desired
property scaleFactor : 0.5

-- size to scale final image to (longest side), if desired
property targetSize : 256

-- call subroutine be sure iTunes is running
if isApplicationRunning("iTunes") then
	tell application "iTunes"
		-- if it is running, be sure a song is playing
		if (player state is playing) then
			-- call subroutine to get artwork for playing song
			set theResult to my writeITunesArtworkToFile()
		end if
	end tell
end if

-- convert the tiff file to a png file
tell application "Image Events"
	launch
	-- if artwork was found, we'll use the tiff file created
	if (theResult is equal to 1) then
		set theImageReference to open tiffFile
	else
		-- artwork was not found, so use a filler file
		set theImageReference to open bogusFile
	end if
	-- create the png file
	scale theImageReference to size targetSize
	save theImageReference as PNG in pngFile with icon
	close theImageReference
end tell


-- subroutine to check for running application
on isApplicationRunning(appName)
	tell application "System Events" to return (exists (some process where name is appName))
end isApplicationRunning

-- subroutine to write iTunes current track artwork to file
on writeITunesArtworkToFile()
	try
		tell application "iTunes"
			-- get song artwork
			set the_data to data of artwork 1 of current track
		end tell
		-- save the artwork to the tiff file
		set iTunesArtwork to (open for access tiffFile with write permission)
		write the_data to iTunesArtwork starting at 0
		close access iTunesArtwork
		-- return success code
		return 1
	on error
		-- couldn't get artwork for some reason, return error code
		return 0
	end try
end writeITunesArtworkToFile

Code: Select all

property tiffFile : "/Library/Application Support/Perceptive Automation/iTunes.tiff"

Code: Select all

tell application "iTunes"
	set s to item 1 of (selection)
	set pd to data of first artwork of s
end tell
set fs to ("" & (path to desktop) & "MyArt.pict") as file specification
set rn to (open for access fs with write permission)
try
	set eof rn to 512
	write pd to rn starting at 513
	close access rn
on error err_mess
	close access rn
	error err_mess
end try

tell application "Finder"
	set file type of fs to "PICT"
	set creator type of fs to "????"
	activate
end tell

Code: Select all

try
      tell application "iTunes"
         -- get song artwork
         set the_data to data of artwork 1 of current track
      end tell
      -- save the artwork to the tiff file
      set iTunesArtwork to (open for access tiffFile with write permission)
      write the_data to iTunesArtwork starting at 0
      close access iTunesArtwork
      -- return success code
      return 1

Code: Select all

tell application "iTunes"
	set s to item 1 of (selection)
	set pd to data of first artwork of s
end tell
set fs to ("" & (path to desktop) & "MyArt.pict") as file specification
set rn to (open for access fs with write permission)
try
	set eof rn to 512
	write pd to rn starting at 513
	close access rn
on error err_mess
	close access rn
	error err_mess
end try

tell application "Finder"
	set file type of fs to "PICT"
	set creator type of fs to "????"
	activate
end tell

property pngFile : "/Library/Application Support/Perceptive Automation/iTunes.png"
property targetSize : 125

tell application "Image Events"
	launch
	set theImageReference to open fs
	-- create the png file
	scale theImageReference to size targetSize
	save theImageReference as PNG in pngFile with icon
	close theImageReference
end tell

Code: Select all

set the_data to data of artwork 1 of current track