Perceptually Based Downscaling of Images (needs implementation) - Doom9's Forum

ImageSource("faceComparisons.png")
O=Crop(0, 0, 636, 0) ## face 1, all sizes
Crop(0, 0, 288, 380) ## face 1, cropped
scale=148.0/364.0 ## per sample image
scale=Min(Max(0.1, scale), 0.5)
## downsize to 1/2 this scale, then upsize x2
wid = mod(2, Round(scale*Width))
hgt = mod(2, Round(scale*Height))
StackHorizontal(
\ BlankClip(Last, color=$ffffff, width=O.Width-(4*wid))
\ , StackVertical(
\ PointResize(wid/2, hgt/2).x2.sub("Point")
\ , Lanczos4Resize(wid/2, hgt/2).x2.sub("Lanczos")
\ , BlankClip(Last, color=$ffffff, width=wid, height=(Height-2*hgt))
\ )
\ , StackVertical(
\ BilinearResize(wid/2, hgt/2).x2.sub("Bilinear")
\ , BicubicResize(wid/2, hgt/2).x2.sub("Bicubic")
\ , BlankClip(Last, color=$ffffff, width=wid, height=(Height-2*hgt))
\ )
\ , StackVertical(
\ BicubicResize(wid/2, hgt/2, b=-1, c=0).x2.sub("Bicubic(-1, 0)")
\ , BicubicResize(wid/2, hgt/2, b=0, c=0.75).x2.sub("Bicubic(0, 0.75)")
\ , BlankClip(Last, color=$ffffff, width=wid, height=(Height-2*hgt))
\ )
\ , StackVertical(
\ Spline16Resize(wid/2, hgt/2).x2.sub("Spline16")
\ , Spline64Resize(wid/2, hgt/2).x2.sub("Spline64")
\ , BlankClip(Last, color=$ffffff, width=wid, height=(Height-2*hgt))
\ )
\ )
return StackVertical(O, Last)
function mod(int m, int i)
{
 return i - i % m
}
function x2(clip C)
{
 C
 return PointResize(2*Width, 2*Height)
}
function sub(clip C, string s)
{
 return C.Subtitle(s, size=C.Height/10, align=2)
}