Akua Sweets - store image bug?
Akua Sweets - store image bug?
- Subject: Akua Sweets - store image bug?
- From: Jolly Roger <email@hidden>
- Date: Thu, 15 Feb 2001 17:00:09 -0600
- Replyto: email@hidden
The following script Uses Akua Sweets to open an image file and save a copy
of the image as JPEG.
Akua Sweets uses QuickTime to manipulate the image. The problem is,
regardless of the image quality I specify in the script, it always seems to
save with something like 50%.
Unfortunately, I need nothing short of 100% quality.
Interestingly, if I manually open the image in QuickTime PictureViewer,
choose File > Export, and specify 100% quality in the Options dialog,
PictureViewer saves the image at 100% quality as requested. This leads me
to believe that the problem is with Akua Sweets, not QuickTime.
Can someone else confirm that they get the same results?
-- begin script
-- !!!watch for mangled text and carriage returns!!!
set imageFile to choose file with prompt "Choose an image to convert:"
set imageFilename to FilenameFromPath(imageFile)
set newImageFile to choose file name with prompt "Save new image as:"
default name (imageFilename & ".jpg")
set theImage to the image from the imageFile without proxy return
store image theImage in file newImageFile as "JPEG" with percent quality 100
with overwriting
on FilenameFromPath(thePath)
set oldDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set pathAsList to text items of (thePath as text)
if the last character of (thePath as text) is ":" then
set idx to -2 -- (the number of text items in thePath) - 1
else
set idx to -1
end if
set filename to item idx of pathAsList
set AppleScript's text item delimiters to oldDelimiters
return filename
end FilenameFromPath
-- end script
JR