As always, Shane gave THE answer.
Here is an edited version converting the PICT file into PNG. I guess that Shane will bring it some corrections ;-)
use scripting additions use framework "Foundation" use framework "AppKit"
set thePict to (path to desktop as text) & "trouChaussée1.pict"
my convertPICTFileAt:(POSIX path of thePict)
on convertPICTFileAt:posixPath -- build new path set oldPath to current application's NSString's stringWithString:posixPath set newPath to oldPath's stringByDeletingPathExtension()'s stringByAppendingPathExtension:"png" # EDITED -- make NSImage from file set theImage to current application's NSImage's alloc()'s initWithContentsOfFile:oldPath -- get TIFF version as data set theData to theImage's TIFFRepresentation() -- make bitmap representation from TIFF data set bitmapImageRep to current application's NSBitmapImageRep's imageRepWithData:theData -- extract jpeg representation from bitmap set theData to bitmapImageRep's representationUsingType:(current application's NSPNGFileType) |properties|:{NSImageCompressionFactor:1.0} -- between 0.0 and 1.0 # EDITED --save to file theData's writeToFile:newPath atomically:true end convertPICTFileAt:
Yvan KOENIG running Yosemite 10.10.5 in French (VALLAURIS, France) lundi 17 août 2015 16:30:34
|