The code below displays images in actual pixel dimensions.
Actual size (call method “size” …) work perfect with nice smooth transitions between the display of the images no matter what size they are. However, in ‘actual pixels’, if there is a significant difference with the previous image, this mode works jagged with ugly transitions, specially with large images.
Is there a way to display images in actual pixel dimensions with a more smooth transition from one image to another?
if scaled = "ap" then --> actual pixels
set title of window "show" to "Actual pixels"
set image scaling of image view "image" of window "show" to scale to fit
try
tell application "Image Events"
launch
set theImage to open file currentPath
set dim to dimensions of theImage
close theImage
end tell
set widthxx to (item 1 of dim) div 1
set heightxx to (item 2 of dim) div 1
set size of window "show" to {widthxx, heightxx}
set size of image view "image" of window "show" to {widthxx, heightxx}
end try
return
end if
John