PhotoResize is an extension for Tcl/Tk to do high-quality (antialiased) photo image rescaling. It only exports a single command, resizephoto which resamples an existing photo image and copies the resampled data to a target image. Sample code is like this:
package require Img
package require photoresize
toplevel .d
image create photo orig -file any_jpg.jpg
puts "Loaded JPEG"
image create photo disp
pack [label .d.l -image disp]
set time [time {resizephoto orig disp 600 400}]
puts "Time for resampling: $time"In-place resampling is allowed, i.e. source and target can refer to the same image.